Beiträge von baerchen

baerchen

Ich gebe dir selber ein Tipp.

Eigentlich zur Selbst Lösung, hätte ich mir paar ausgeklammerte Info´s gewünscht.

Da ich nicht alle "Funktionen" kenne und somit nicht weiß, wozu deren werte da sind.

Kritik ist sicherlich auch von meiner Seite erlaubt oder?

Was ich sicherlich jetzt bemerkt habe:
Das es etwas mit setPosRelative zutun haben könnte,

[autoit]

If setposRelative > 0 then
error
endif

[/autoit]

Sowas eventuell?

baerchen

Das Script von dir Christoph

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $iSpeed = 10

[/autoit] [autoit][/autoit] [autoit]

$hGui = GUICreate("bsp", 500, 500, -1, -1)
$hDummy = GUICtrlCreateLabel("", 100, 100, 50, 50)
GUICtrlSetBkColor($hDummy, 16711680)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}", "keyPressed")
HotKeySet("{Left}", "keyPressed")
HotKeySet("{Right}", "keyPressed")
HotKeySet("{Down}", "keyPressed")
HotKeySet("{Up}", "keyPressed")

[/autoit] [autoit][/autoit] [autoit]

While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func keyPressed()
ConsoleWrite(@HotKeyPressed & @LF)
Switch @HotKeyPressed
Case "{ESC}"
GUICtrlSetPos($hDummy, 0, 0)
Case "{UP}"
setPosRelative($hDummy, 0, -$iSpeed)
Case "{RIGHT}"
setPosRelative($hDummy, $iSpeed, 0)
Case "{DOWN}"
setPosRelative($hDummy, 0, $iSpeed)
Case "{LEFT}"
setPosRelative($hDummy, -$iSpeed, 0)
EndSwitch
EndFunc ;==>keyPressed

[/autoit] [autoit][/autoit] [autoit]

Func setPosRelative($hCtrl, $iLeft, $iTop)
Local $aPos = ControlGetPos("", "", $hCtrl)
If @error Then Return SetError(1)
GUICtrlSetPos($hCtrl, $aPos[0] + $iLeft, $aPos[1] + $iTop)
EndFunc ;==>setPosRelative

[/autoit]

Da kann man raus aus der Gui, ich wollte dich mal Fragen, ob es auch gehen würde, das der Viereck nur in der Gui bleibt.

baerchen

Ja es funktioniert Super.

Kleine Frage ( Welche Variable wäre jetzt geeignet, das der Rote Block im Gui bleibt?

Muss da nicht in einer der Zeilen, noch am ende $hGui? So das er im Gui bleibt?
Oder kann man das mit ewas anderes Definieren (Denn rand ?) via Label od rand angabe?

AutoIt

$rand = Y to Z 


$block = guictrlcreatelabel(#)


if $rand = $block then
endif

sowas irgendwas?

Push:

Niemand eine Idee?

baerchen

Danke,

Trz gibt es da eine kleine Frage,

ShitDown : Ich verstehe nicht viel wenn es um Bilder verschieben geht.
Beschäftige mich erst neu damit,

KloMeister : Oke, aber wo brauche ich die 2 variablen?
GuictrlsetPos, etwas wohin positionieren .
Aber das zweite, Null Plan

Würde mich um Hilfe Freuen,

Neben versuch ich irgendwie es selber xD Only Error , Danke trz

baerchen

Wie du sehen kannst, ist der Thread schon auf gelöst, ich habe noch ein Paar Variablen hinzugefügt :

[autoit]

$Form1 = GUICreate("Form1", 695, 470, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_TABSTOP))
GUICtrlCreatePic("\Desktop\game\maps\kulsav.bmp", 0, 0, 692, 468,$SS_BITMAP)
$kampfgui = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 64, 24, 116, 156, $SS_NOTIFY)
$miss = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 64, 232, 116, 156, $SS_NOTIFY)
$nazatrika = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 520, -8, 116, 156, $SS_NOTIFY)
$pro = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 520, 224, 116, 156, $SS_NOTIFY)

[/autoit][autoit][/autoit][autoit][/autoit]

$SS_NOTIFY und $SS_BITMAP

Sonst würden die Bilder nicht Funktionieren / Die Befehle.

baerchen

Hallo Autit'ler

Hab mal eine Fragen zu diesem Script :

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $g_hGui, $g_aGuiPos, $g_hPic, $g_aPicPos

[/autoit] [autoit][/autoit] [autoit]

Example()

[/autoit] [autoit][/autoit] [autoit]

Func Example()
$g_hGui = GUICreate("test transparentpic", 200, 100,-1,-1)
$g_hPic = GUICreate("", 68, 71, 10, 20, $WS_POPUp, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $g_hGui)
$tst = GUICtrlCreatePic("tets\char.bmp", -1, -1, 0, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $g_hPic)
GUISetState(@SW_SHOW, $g_hGui)

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}", "Main")
HotKeySet("{Left}", "Left")
HotKeySet("{Right}", "Right")
HotKeySet("{Down}", "Down")
HotKeySet("{Up}", "Up")
$g_aPicPos = WinGetPos($g_hPic)
$g_aGuiPos = WinGetPos($g_hGui)

[/autoit] [autoit][/autoit] [autoit]

; Loop until the user exits.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}")
HotKeySet("{Left}")
HotKeySet("{Right}")
HotKeySet("{Down}")
HotKeySet("{Up}")
EndFunc ;==>Example

[/autoit] [autoit][/autoit] [autoit]

Func Main()
$g_aGuiPos = WinGetPos($g_hGui)
WinMove($g_hGui, "", $g_aGuiPos[0] + 10, $g_aGuiPos[1] + 10)
EndFunc ;==>Main

[/autoit] [autoit][/autoit] [autoit]

Func Left()
$g_aPicPos = WinGetPos($g_hPic)
WinMove($g_hPic, "", $g_aPicPos[0] - 10, $g_aPicPos[1])
EndFunc ;==>Left

[/autoit] [autoit][/autoit] [autoit]

Func Right()
$g_aPicPos = WinGetPos($g_hPic)
WinMove($g_hPic, "", $g_aPicPos[0] + 10, $g_aPicPos[1])
EndFunc ;==>Right

[/autoit] [autoit][/autoit] [autoit]

Func Down()
$g_aPicPos = WinGetPos($g_hPic)
WinMove($g_hPic, "", $g_aPicPos[0], $g_aPicPos[1] + 10)
EndFunc ;==>Down

[/autoit] [autoit][/autoit] [autoit]

Func Up()
$g_aPicPos = WinGetPos($g_hPic)
WinMove($g_hPic, "", $g_aPicPos[0], $g_aPicPos[1] - 10)
EndFunc ;==>Up

[/autoit]

Kann man dies auch umschreiben?
So das das Bild nur innerhalb vom Gui funktioniert und nicht außerhalb vom Gui?

Würde mich Freuen, wenn jemand meine Frage beantworten kann.

baerchen

Ist schon gelöst :

[autoit]

$Form1 = GUICreate("Form1", 695, 470, 192, 124, BitOR($WS_MAXIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_TABSTOP))
GUICtrlCreatePic("\Desktop\game\maps\kulsav.bmp", 0, 0, 692, 468,$SS_BITMAP)
$kampfgui = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 64, 24, 116, 156, $SS_NOTIFY)
$miss = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 64, 232, 116, 156, $SS_NOTIFY)
$nazatrika = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 520, -8, 116, 156, $SS_NOTIFY)
$pro = GUICtrlCreatePic(@tempdir & "\7466577\game\img\Haus1_wiese.bmp", 520, 224, 116, 156, $SS_NOTIFY)

[/autoit]

baerchen

Hallo,

Ich habe mal eine frage.
Gibt es eine möglichkeit, das man mit guictrlcreatepic ein Befehl ausführen kann?

[autoit]

z.B $id = guictrlcreatepic(blalala)

[/autoit][autoit][/autoit][autoit]

Case $id = msgbox(0,"xx","xx)

[/autoit]

?

Habe alles versucht, es kommt einfach keine Meldung ...

baerchen

Copy / Paste ist es Ja weiß gott nicht,

Im zusammen hang ist es das Script schon

Im script was nicht funktioniert ist $file = iniread
wenn er die datei gefunden hat, müsste er sie downloaden aber es kommt ein error des Includes

und im Script was Funktioniert ist $random = random

Im ersten script lädt er die datei hoch

und im zweiten herunter

baerchen

ob es au3 oder dll ist spielt ja keine rolle

baerchen

Oke das habe ich soweit verstanden, aber wie optimiere ich jetzt die eigenschaften, das habe ich noch nicht so verstanden.

baerchen

Danke, das Hilft mir sehr Perfekt . Danke dir.

Edit:
Oke, nun versteh ich noch nicht ganz, wie ich es möglich mache, das er mir z.B wenn random die zahl 2 ist, das er mir dann die funktion ($array [2] ) msgbox ermöglicht. wie muss ich das dann machen?

Edit:
Habs schon. Danke

baerchen

Mir hilfe von array wollte ich eigentlich im anderen Thread Script kürzen durch Array? es kürzen.

Richtig ist , verschiedene werte andere aktionen.

baerchen

soweit ich es verstanden hab, gibt es eine Funktion mir array

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

[1] = "Test"
[2] = "Test2"
;u.s.w

[/autoit]

nun wollte ich fragen ob es möglich ist, mir array sowas zu entwickeln:

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$1 = random(1,2,1)
$1 =[1] "Ergebniss 1"
$1 =[2] "Ergebniss 2"

[/autoit][autoit][/autoit][autoit]

msgbox(0,"Test",$1)

[/autoit]

Ich weiß dass das Script falsch ist, weil ich es nicht weiß wie macht es machen muss

baerchen

Ich meine aber, wenn $1 = Random (1,5,1)

Spoiler anzeigen

[autoit]

if $1 = 1 then
msbox(0,"tt","1")
or 2 then
Exit
or 3 then
traytip("Test","3",50)
;u.s.w

[/autoit]

Das mein ich, ob man das mir array kürzen kann.

baerchen

Hallo, ich weiß das ich schon ein Thread bezüglich Array offen habe, aber ich bräuchte mal eure Hilfe.

Spoiler anzeigen

[autoit]

$eos = Random(1,5,1)
$sos = Random(5,15,1)
$sts = Random(100,500,1)
$ets = Random(15,50,1)

[/autoit] [autoit][/autoit] [autoit]

$sop = Random(1,15,1)
$eop = Random(1,15,1)
$stp = Random(1,15,1)
$etp = Random(1,15,1)

[/autoit] [autoit][/autoit] [autoit]

$soh = Random(5,15,1)
$eoh = Random(1,5,1)
$eth = Random(15,50,1)
$sth = Random(100,500,1)

[/autoit] [autoit][/autoit] [autoit]

$etexp = Random(50,100,1)
$soexp = Random(25,50,1)
$eoexp = Random(10,25,1)
$stexp = Random(200,500,1)

[/autoit] [autoit][/autoit] [autoit]

$eomony = Random(1,5,1)
$somony = Random(5,15,1)
$etmony = Random(15,50,1)
$stmony = Random(200,500,1)

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$kampfed = GUICreate("Kampf", 596, 211, 193, 128, BitOR($WS_MAXIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_TABSTOP))
GUISetBkColor(0x000000)
GUISetFont(10, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Einfacher Ork", 8, 8, 113, 193)
GUICtrlSetColor(-1, 0xFF0000)
$k1 = GUICtrlCreateButton("Kampf!", 24, 168, 75, 25)
GUICtrlSetColor(-1, 0xFF0000)
$s1 = GUICtrlCreateLabel("Sträke: " & $eos, 16, 24, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$h1 = GUICtrlCreateLabel("Hirn: " & $eoh, 16, 40, 95, 17)
GUICtrlSetColor(-1, 0xFF0000)
$p1 = GUICtrlCreateLabel("Pech: " & $eop, 16, 56, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$m1 = GUICtrlCreateLabel("Money: " & $eomony, 16, 144, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$e1 = GUICtrlCreateLabel("EXP: " & $eoexp, 16, 128, 96, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$closed = GUICtrlCreateButton("Close", 256, 168, 75, 25)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetColor(-1, 0xFF0000)
$Group2 = GUICtrlCreateGroup("Starker Ork", 128, 8, 121, 193)
GUICtrlSetColor(-1, 0xFF0000)
$k2 = GUICtrlCreateButton("Kampf!", 152, 168, 75, 25)
GUICtrlSetColor(-1, 0xFF0000)
$s2 = GUICtrlCreateLabel("Stärke: " & $sos, 136, 24, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$h2 = GUICtrlCreateLabel("Hirn: " & $soh, 136, 40, 103, 17)
GUICtrlSetColor(-1, 0xFF0000)
$p2 = GUICtrlCreateLabel("Pech: " & $sop, 136, 56, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$m2 = GUICtrlCreateLabel("Money: " & $somony, 136, 144, 105, 17)
GUICtrlSetColor(-1, 0xFF0000)
$e2 = GUICtrlCreateLabel("EXP: " & $soexp, 136, 128, 104, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Einfacher Troll", 336, 8, 121, 193)
GUICtrlSetColor(-1, 0xFF0000)
$k3 = GUICtrlCreateButton("Kampf!", 360, 168, 75, 25)
GUICtrlSetColor(-1, 0xFF0000)
$s3 = GUICtrlCreateLabel("Stärke: " & $ets, 344, 24, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$h3 = GUICtrlCreateLabel("Hirn: " & $eth, 344, 40, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$p3 = GUICtrlCreateLabel("Pech: " & $etp, 344, 56, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$m3 = GUICtrlCreateLabel("Money: " & $etmony, 344, 144, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$e3 = GUICtrlCreateLabel("EXP: " & $etexp, 344, 128, 104, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Starker Troll", 464, 8, 121, 193)
GUICtrlSetColor(-1, 0xFF0000)
$k4 = GUICtrlCreateButton("Kampf!", 488, 168, 75, 25)
GUICtrlSetColor(-1, 0xFF0000)
$s4 = GUICtrlCreateLabel("Stärke: " & $sts, 472, 24, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$h4 = GUICtrlCreateLabel("Hirn: " & $sth, 472, 40, 103, 17)
GUICtrlSetColor(-1, 0xFF0000)
$p4 = GUICtrlCreateLabel("Pech: " & $stp, 472, 56, 109, 17)
GUICtrlSetColor(-1, 0xFF0000)
$m4 = GUICtrlCreateLabel("Money: " & $stmony, 472, 144, 101, 17)
GUICtrlSetColor(-1, 0xFF0000)
$e4 = GUICtrlCreateLabel("EXP: " & $stexp, 472, 128, 104, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $closed
WinSetTrans($menu2,"",255)
GUIDelete($kampfed)
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $k1
GUIDelete($kampfed)
$charcheck = IniRead(@tempdir &"\7466577\game\dal.cc","User","Char","")
if $charcheck = "Krieger" then
$mys = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Stärke","")
$myh = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Hirn","")
$myg = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Glück","")
$myp = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Pech","")
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

if $charcheck = "Bogi" then
$mys = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Stärke","")
$myh = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Hirn","")
$myg = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Glück","")
$myp = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Pech","")
Else
EndIf

[/autoit] [autoit][/autoit] [autoit]

$bog = $mys + $myg
$geg = $eos + $eoh
$k1s = $bog - $geg
$name = IniRead(@tempdir &"\7466577\game\dal.cc","Char","name","")
SplashTextOn("Kampf","Einfacher Ork Runde 1",-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashTextOn("Runde 1", $name & " greift an: Stärke " & $mys & " vs " & "Gegner Stärke " & $eos,-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashOff()
if $k1s < 0 then
SplashTextOn("Runde 1","Gewonnen hat der Gegner",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Gegner","1")
else
SplashTextOn("Runde 1","Gewonnen hast du",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Ich","1")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$bog2 = $myp + $myh
$geg2 = $eoh + $eop
$k1s2 = $bog2 - $geg2
SplashTextOn("Kampf","Einfacher Ork Runde 2",-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashTextOn("Runde 2","Gegner greift an: Hirn " & $eoh & " vs " & $name &" Hirn " & $myh,-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashOff()
if $k1s2 < 0 then
SplashTextOn("Runde 2","Gewonnen hat der Gegner",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$siegcheck = IniRead(@tempdir &"\7466577\game\match.cc","Stats","Gegner","")
$sieg = $siegcheck + 1
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Gegner",$sieg)
else
SplashTextOn("Runde 2","Gewonnen hast du",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$siegcheck = IniRead(@tempdir &"\7466577\game\match.cc","Stats","Ich","")
$sieg = $siegcheck + 1
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Ich",$sieg)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$geg3 = $eoh + $eos
$bog3 = $mys + $mys
$k1s3 = $bog3 - $geg3
SplashTextOn("Kampf"," Einfacher Ork Runde 3",-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashTextOn("Runde 3","Gegner greift an: Hirn " & $eoh & " vs " & $name & " Hirn " & $myh,-1,85,-1,-1,Default,Default,15)
Sleep(3000)
SplashOff()
if $k1s3 < 0 then
SplashTextOn("Runde 3","Gewonnen hat der Gegner",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$siegcheck = IniRead(@tempdir &"\7466577\game\match.cc","Stats","Gegner","")
$sieg = $siegcheck + 1
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Gegner",$sieg)
else
SplashTextOn("Runde 3","Gewonnen hast du",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$siegcheck = IniRead(@tempdir &"\7466577\game\match.cc","Stats","Ich","")
$sieg = $siegcheck + 1
IniWrite(@tempdir & "\7466577\game\match.cc","Stats","Ich",$sieg)
EndIf

[/autoit] [autoit][/autoit] [autoit]

local $winich = IniRead(@tempdir &"\7466577\game\match.cc","Stats","Ich","")
Switch $winich
Case 1 to 1
SplashTextOn("Endmatch","Du hast leider Verloren",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
Case 2 to 2
SplashTextOn("Endmatch","Du hast " & $eoexp & " EXP, "& $eomony & " Money Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
if $charcheck = "Bogi" Then
SplashTextOn("Win","Du hast " & $eoexp & " EXP, "& $eomony & " Money Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$expcheck = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","EXP","")
$expsieg = $expcheck + $eoexp
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","EXP",$expsieg)
$winsea = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Wins","")
$winset = $winsea + 1
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","Wins",$winset)
$mo = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Money","")
$winmon = $mo + $eomony
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","Money",$winmon)
else
endif
if $charcheck = "Krieger" Then
SplashTextOn("Win","Du hast " & $eoexp & " EXP, "& $eomony & " Money Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$expcheck = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","EXP","")
$expsieg = expcheck + $soexp
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","EXP",$expsieg)
$winsea = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Wins","")
$winset = $winsea + 1
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","Wins",$winset)
$mo = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Money","")
$winmon = $mo + $eomony
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","Money",$winmon)
Else
EndIf
Case 3 to 3
SplashTextOn("Endmatch","Du hast " & $eoexp & " EXP Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
if $charcheck = "Krieger" Then
SplashTextOn("Win","Du hast " & $eoexp & " EXP, "& $eomony & " Money Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$expcheck = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","EXP","")
$expsieg = expcheck + $soexp
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","EXP",$expsieg)
$winsea = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Wins","")
$winset = $winsea + 1
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","Wins",$winset)
$mo = IniRead(@tempdir &"\7466577\game\dal.cc","Krieger","Money","")
$winmon = $mo + $eomony
IniWrite(@tempdir &"\7466577\game\dal.cc","Krieger","Money",$winmon)
Else
EndIf
if $charcheck = "Bogi" Then
SplashTextOn("Win","Du hast " & $eoexp & " EXP, "& $eomony & " Money Gewonnen",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
$expcheck = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","EXP","")
$expsieg = $expcheck + $eoexp
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","EXP",$expsieg)
$winsea = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Wins","")
$winset = $winsea + 1
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","Wins",$winset)
$mo = IniRead(@tempdir &"\7466577\game\dal.cc","Bogi","Money","")
$winmon = $mo + $eomony
IniWrite(@tempdir &"\7466577\game\dal.cc","Bogi","Money",$winmon)
else
endif
case Else
SplashTextOn("Endmatch","Du hast leider Verloren",-1,85,-1,-1,default,default,15)
Sleep(3000)
SplashOff()
EndSwitch

[/autoit]

Kann man sowas kürzen ????

MFG, Danke im vorraus für wirklich helfer

baerchen

Naja eigentlich will ich , wenn er eine Zahl z.B 4 aus dem random zieht, das er dann z.B eine msgbox meldet oder wenn er die zahl 2 zieht, das er dann z.B ein TrayTip gibt..

baerchen

Hab mein Problem noch mal bearbeitet

baerchen

Diese Datei stammt ( Da script ) au Youtube :

Externer Inhalt www.youtube.com

Inhalte von externen Seiten werden ohne deine Zustimmung nicht automatisch geladen und angezeigt.

Durch die Aktivierung der externen Inhalte erklärst du dich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

Im einem Script funktioniert es, im anderen nicht.

baerchen

Hallo, Ich hab mal eine Frage und weiß nicht wo nach ich suchen muss oder wie ich es Lösen kann.

Mein Script :

Spoiler anzeigen

[autoit]

$1 = random(1,5,1)
$2 = random(2,10,1)
$3 = random(3,15,1)
;u.s.w

[/autoit] [autoit][/autoit] [autoit]

if $1 = 4 then
msgbox(0,"Test","4")
or 3 then
msgbox(0,"Test","3")
or 2 then
msgbox(0,"Test","2")
or 1 then
msgbox(0,"Test","1")
else
msgbox(0,"Test","5")
endif

[/autoit]

Weiß jemand wie ich es machen muss wenn z.B $1 = 5 ist das dann der wert ausgeführt wird, muss ich da überhaupt eine If anfrage schreiben? Bitte um Hilfe

Danke im vorraus.

Beiträge von baerchen

Frage zum Script :

Frage zum Script :

Frage zum Script :

Frage zum Script :

Guictrlcreatepic ?

Frage zum Script :

Guictrlcreatepic ?

Guictrlcreatepic ?

WinInet

WinInet

Script kürzen durch Array?

Array ? Hilfe

Array ? Hilfe

Array ? Hilfe

Array ? Hilfe

Script kürzen durch Array?

Array ? Hilfe

Array ? Hilfe

WinInet

Array ? Hilfe