Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 08:15

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Brauche hilfe xD

Discussion on Brauche hilfe xD within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
bs_destroyer's Avatar
 
elite*gold: 0
Join Date: Jan 2011
Posts: 64
Received Thanks: 10
Brauche hilfe xD

Huhu,

bin was AutoIT betrifft noch ein totaler Neuling wollte mir heute für Seafight ein Tool schreiben was mir anzeigt ob eine gegnerische ID auf rot ist ( Inputbox usw...
Code:
If $input = "14263930" Then
MsgBox (0, "Rot!!!", "ROT!!!!")
ElseIf $input = "" Then
MsgBox (0, "Nein", "Nicht rot")
Else
MsgBox (0, "", "Nicht auf rot")
EndIf
usw das immer wieder mit jeder ID die auf rot ist... Das Problem ist das die alle andren msgboxen auch ihre Antwort werfen und nicht nur die wie kann ich das ändern?
bs_destroyer is offline  
Old 05/26/2014, 22:42   #2
 
alpines's Avatar
 
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
Dein Problem ist in dem Snippet nicht erkennbar.
alpines is offline  
Thanks
2 Users
Old 05/26/2014, 23:22   #3
 
bs_destroyer's Avatar
 
elite*gold: 0
Join Date: Jan 2011
Posts: 64
Received Thanks: 10
Code:
$input = InputBox ("Gib bitte nur die ID ein", "Gib bitte nur die ID ein"&@CRLF&"(Gib bitte nur die ID ein")

;----------------------------------------Elite-------------------------------------------
If $input = "13861470"  Then
MsgBox (0, "Rot!!!", "ROT!!!!")
ElseIf $input = "Kevin" Then
MsgBox (0, "Er hat ihn geschrieben ", "Easteregg ;D")
Else
MsgBox (0, "", "Nicht auf rot")
EndIf



If $input = "14263930" Then
MsgBox (0, "Rot!!!", "ROT!!!!")
ElseIf $input = "" Then
MsgBox (0, "Nein", "Nicht rot")
Else
MsgBox (0, "", "Nicht auf rot")
EndIf
If $input = "16098480" Then
MsgBox (0, "Rot!!!", "ROT!!!!")
ElseIf $input = "" Then
MsgBox (0, "Nein", "Nicht rot")
Else
MsgBox (0, "", "Nicht auf rot")
EndIf
If $input = "16586136" Then
MsgBox (0, "Rot!!!", "ROT!!!!")
ElseIf $input = "" Then
MsgBox (0, "Nein", "Nicht rot")
Else
MsgBox (0, "", "Nicht auf rot")
EndIf
So geht das immer weiter

ich Tippe die erste ID in die Inputbox ein diese beantwortet er richtig danach gibt er noch ca. 100 mal die Antwort nicht auf rot...
bs_destroyer is offline  
Old 05/26/2014, 23:26   #4
 
butter123's Avatar
 
elite*gold: 95
Join Date: May 2011
Posts: 982
Received Thanks: 189
den rest löschen wäre eine alternative.
ohne zu wissen was passieren soll, kann man da wenig helfen...
butter123 is offline  
Thanks
1 User
Old 05/27/2014, 00:27   #5
 
bs_destroyer's Avatar
 
elite*gold: 0
Join Date: Jan 2011
Posts: 64
Received Thanks: 10
Achso ^^ ehm ja ich will die ID in die Inputbox eintippen Das tool soll dann die ID erkennne und mir sagen ob die auf rot ist ( die ID´s die auf rot sind sind in dem tool gespeichert)
bs_destroyer is offline  
Old 05/27/2014, 00:56   #6
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Quote:
Originally Posted by bs_destroyer View Post
Achso ^^ ehm ja ich will die ID in die Inputbox eintippen Das tool soll dann die ID erkennne und mir sagen ob die auf rot ist ( die ID´s die auf rot sind sind in dem tool gespeichert)
Code:
Dim $validIDs[4] = [13861470,14263930,16098480,16586136], $text[2]=["Nicht rot","Rot!!!"]
While True
	$valid = False
	$current = InputBox("Gib bitte nur die ID ein!", "Gib bitte nur die ID ein"&@CRLF&"(Gib bitte nur die ID ein")
	If @error Then ExitLoop
	For $i=0 To UBound($validIDs)-1
		If $current = $validIDs[$i] Then
			$valid = True
			ExitLoop
		EndIf
	Next
	MsgBox(0, $text[$valid], $text[$valid])
WEnd
lolkop is offline  
Thanks
1 User
Old 05/27/2014, 01:42   #7
 
bs_destroyer's Avatar
 
elite*gold: 0
Join Date: Jan 2011
Posts: 64
Received Thanks: 10
So funktioniert es irgendwie nicht mehr sry das ich so wenig ahnung habe ^^

Code:
Dim $validIDs[46] = [13861470,14263930,16098480,16586136,17743088,20066435,20356797,21526855,21778477,22158798,24218120,39475857,41784968,41795232,15374638,25414798,29481402,30980209,15011324,31626550,39193224,40412834,41779276,41797527,41798780,21682439,36387081,41795791,24407985,39193224,16712282,41799855,41801252,21537127,41781350,41779276,33235811,32974622,23150430,13557928,19580290,20103156,32495941,41801147,19424011,17635071,], $text[2]=["Nicht rot","Rot!!!"]
While True
	$valid = False
	$current = InputBox("Gib bitte nur die ID ein!", "Gib bitte nur die ID ein"&@CRLF&"(Gib bitte nur die ID ein")
	If @error Then ExitLoop
	For $i=0 To UBound($validIDs)-1
		If $current = $validIDs[$i] Then
			$valid = True
			ExitLoop
		EndIf
	Next
	MsgBox(0, $text[$valid], $text[$valid])
WEnd
bs_destroyer is offline  
Old 05/27/2014, 05:08   #8


 
Requi's Avatar
 
elite*gold: 3570
The Black Market: 244/0/0
Join Date: Dec 2012
Posts: 13,044
Received Thanks: 8,252
Im Array ist ganz am Ende ein Komma was da nicht hingehört.
Requi is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
[Brauche Hilfe]Brauche Hilfe beim einfügen der neuen Rüstungen
01/04/2013 - Metin2 Private Server - 3 Replies
Brauche Hilfe! Hallo epvp. Ich habe mal ein paar Rüstungen gemoddet und dann wollte ich sie einfügen. Es hat fast alles geklappt und ich war recht "happy", weil sie für den männlichen Krieger einbandfrei funktioniert haben. Dann wollt ich gucken wie das bei den anderen Charaktern aussieht. Ich habe mir die Rüstungen gerufen. Die icons der Rüstungen sind für den Ninja und den Krieger richtig. Bei der Sura und der Schami Rüstung sieht mal aber wieder die icons der Krieger und Ninja rüstung....
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung Ich habe seit einigen Tagen ein Problem... Microsoft Windows Search Protocol Host funktioniert nicht mehr Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt. Ich weiß nicht was das ist und wie ich es loswerde.



All times are GMT +1. The time now is 08:16.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.