Quote:
Originally Posted by SimonHimself
Yo Jt, i have made screenshots of German Bottraps and pmed u the Links(not from this account). The PM should be named "German Bottraps screenshots" or so.
Btw u really rock :P
Simon
|
I do not need screen shots anymore. if my method works... I will only need the correct spelling of the names. It is case sensitive so I will need to know what letters are caps. I have the actualy word creation script written... what I am currently down to is the letter deciphering. I am working on writing the script for all 52 different letters in the game. This is the most time consuming part of this task as some letters have 10+ pixel tests. I am not sure how well this is going to work. My main concern is the length of time it will take the bot to read the full name. I have yet to create a working beta of the script. I will give yall a peek into whay I have done so far here:
; setting up for a new distinct while loop
$letct = 0
; main reading loop - will run until it has created upto 20 letters
While $letct < 20
; reset the current letter in case no letter is found.
$A2Z = ""
; finding the first letter, and setting varriables to default values.
If $letct = 0 Then
$letter01 = PixelSearch($XTarget, 10, ($XTarget + 100), 10, 0x000000,32)
$xlet = $letter01[0]
$let01 = ""
$let02 = ""
$let03 = ""
$let04 = ""
$let05 = ""
$let06 = ""
$let07 = ""
$let08 = ""
$let09 = ""
$let10 = ""
$let11 = ""
$let12 = ""
$let13 = ""
$let14 = ""
$let15 = ""
$let16 = ""
$let17 = ""
$let18 = ""
$let19 = ""
$let20 = ""
$tname = ""
EndIf
;finding letter 2-20 and quiting if it does not find anything by the end of the target box.
While PixelSearch($xlet, 6, $xlet, 17, 0x000000, 32) = @error And $xlet < ($XTarget + 199)
$xlet = +1
WEnd
; letter deffinitions - lower case first... assigned to a single temporary value.
If PixelGetColor($xlet,12) = 0 and PixelGetColor($xlet,13) = 0 and PixelGetColor(($xlet + 1),14) = 0 and PixelGetColor(($xlet + 4),12) = 0 and PixelGetColor(($xlet + 4),13) = 0 and PixelGetColor(($xlet + 4),11) = 0 and PixelGetColor(($xlet + 4),10) = 0 Then
$A2Z = "a"
$xlet = +5
$letct = +1
EndIf
If PixelGetColor($xlet,12) = 0 and PixelGetColor($xlet,13) = 0 and PixelGetColor(($xlet + 1),13) = 0 and PixelGetColor(($xlet + 5),12) = 0 and PixelGetColor($xlet,11) = 0 and PixelGetColor($xlet,10) = 0 and PixelGetColor($xlet,9) = 0 and PixelGetColor($xlet,8) = 0 and PixelGetColor($xlet,7) = 0 and PixelGetColor($xlet,6) = 0 and PixelGetColor(($xlet + 1),9) = 0 and PixelGetColor(($xlet + 5),11) = 0 and PixelGetColor(($xlet + 5),10) = 0 Then
$A2Z = "b"
$xlet = +5
$letct = +1
EndIf
If PixelGetColor($xlet,10) = 0 and PixelGetColor($xlet,11) = 0 And PixelGetColor($xlet,12) = 0 and PixelGetColor(($xlet + 2),14) = 0 and PixelGetColor(($xlet + 3),14) = 0 Then
$A2Z = "c"
$xlet = +5
$letct = +1
EndIf
If PixelGetColor($xlet,12) = 0 and PixelGetColor(($xlet + 5),13) = 0 and PixelGetColor(($xlet + 4),13) = 0 and PixelGetColor($xlet,11) = 0 and PixelGetColor($xlet,10) = 0 and PixelGetColor(($xlet + 5),9) = 0 and PixelGetColor(($xlet + 5),8) = 0 and PixelGetColor(($xlet + 5),7) = 0 and PixelGetColor(($xlet + 5),6) = 0 and PixelGetColor(($xlet + 4),9) = 0 and PixelGetColor(($xlet + 5),11) = 0 and PixelGetColor(($xlet + 5),12) = 0 and PixelGetColor(($xlet + 5),10) = 0 Then
$A2Z = "d"
$xlet = +6
$letct = +1
EndIf
If PixelGetColor($xlet,10) = 0 and PixelGetColor($xlet,11) = 0 And PixelGetColor($xlet,12) = 0 Then
$A2Z = "e"
$xlet = +6
$letct = +1
EndIf
If PixelSearch(($xlet + 2),5,($xlet + 2),5,0x000000,55) <> @error and PixelSearch(($xlet + 1),6,($xlet + 1),6,0x000000,10) <> @error And PixelSearch($xlet,8,$xlet,8,0x000000,20) <> @error Then
$A2Z = "f"
$xlet = +3
$letct = +1
EndIf
If PixelGetColor($xlet,12) = 0 and PixelGetColor($xlet,11) = 0 and PixelGetColor($xlet,10) = 0 and PixelGetColor(($xlet + 5),13) = 0 and PixelGetColor(($xlet + 5),9) = 0 and PixelGetColor(($xlet + 5),12) = 0 and PixelGetColor(($xlet + 5),14) = 0 and PixelGetColor(($xlet + 4),16) = 0 and PixelGetColor(($xlet + 5),11) = 0 and PixelGetColor(($xlet + 5),10) = 0 Then
$A2Z = "g"
$xlet = +6
$letct = +1
EndIf
If PixelSearch($xlet,6,$xlet,6,0x000000,10) <> @error and PixelSearch($xlet,7,$xlet,7,0x000000,10) <> @error and PixelSearch($xlet,8,$xlet,8,0x000000,10) <> @error and PixelSearch($xlet,9,$xlet,9,0x000000,10) <> @error and PixelSearch($xlet,10,$xlet,10,0x000000,10) <> @error and PixelSearch($xlet,11,$xlet,11,0x000000,10) <> @error and PixelSearch($xlet,12,$xlet,12,0x000000,20) <> @error and PixelSearch($xlet,13,$xlet,13,0x000000,10) <> @error and PixelGetColor(($xlet + 4),9) = 0 and PixelGetColor($xlet,9) = 0 Then
$A2Z = "h"
$xlet = +6
$letct = +1
EndIf
If PixelGetColor($xlet,12) = 0 and PixelGetColor($xlet,13) = 0 and PixelGetColor($xlet,11) = 0 and PixelGetColor($xlet,10) = 0 and PixelGetColor($xlet,9) = 0 and PixelGetColor($xlet,6) = 0 Then
$A2Z = "i"
$xlet = +1
$letct = +1
EndIf
; defining each letter of a word in the target box and assigns it to 20 different temporary values.
If $letct = 1 Then
$let01 = $A2Z
ToolTip($let01)
EndIf
If $letct = 2 Then
$let02 = $A2Z
ToolTip($let01 & $let02)
EndIf
If $letct = 3 Then
$let03 = $A2Z
ToolTip($let01 & $let02 & $let03)
EndIf
If $letct = 4 Then
$let04 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04)
EndIf
If $letct = 5 Then
$let05 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05)
EndIf
If $letct = 6 Then
$let06 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06)
EndIf
If $letct = 7 Then
$let07 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07)
EndIf
If $letct = 8 Then
$let08 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08)
EndIf
If $letct = 9 Then
$let09 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09)
EndIf
If $letct = 10 Then
$let10 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10)
EndIf
If $letct = 11 Then
$let11 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11)
EndIf
If $letct = 12 Then
$let12 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12)
EndIf
If $letct = 13 Then
$let13 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13)
EndIf
If $letct = 14 Then
$let14 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14)
EndIf
If $letct = 15 Then
$let15 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15)
EndIf
If $letct = 16 Then
$let16 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15 & $let16)
EndIf
If $letct = 17 Then
$let17 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15 & $let16 & $let17)
EndIf
If $letct = 18 Then
$let18 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15 & $let16 & $let17 & $let18)
EndIf
If $letct = 19 Then
$let19 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15 & $let16 & $let17 & $let18 & $let19)
EndIf
If $letct = 20 Then
$let20 = $A2Z
ToolTip($let01 & $let02 & $let03 & $let04 & $let05 & $let06 & $let07 & $let08 & $let09 & $let10 & $let11 & $let12 & $let13 & $let14 & $let15 & $let16 & $let17 & $let18 & $let19 & $let20)
EndIf
; Readies for exit loop process if it does not find 20 letters in the target box.
If $xlet = ($XTarget + 199) Then
$letct = 20
EndIf
; creating a word from the 20 letters acquired above.
If $letct = 20 Then
$tname = $let01 + $let02 + $let03 + $let04 + $let05 + $let06 + $let07 + $let08 + $let09 + $let10 + $let11 + $let12 + $let13 + $let14 + $let15 + $let16 + $let17 + $let18 + $let19 + $let20
EndIf
WEnd
; Checking name to a list of known bot-traps. Tries to re-target with TAB once before it presses ESC.
If $tname = "MoonRabbit" Or $tname = "BabyMoonRabbit" Or $tname = "HoppingMoonRabbit" Or $tname = "GrassMoonRabbit" Or $tname = "BabyMondhase" Or $tname = "Mondhase" Or $tname = "HoppingMondhase" Or $tname = "GrassMondhase" Or $tname = "Tamia" Or $tname = "DesertTamia" Or $tname = "Megaloceros" Or $tname = "JungarMegaloceros" Or $tname = "YoungMegaloceros" Or $tname = "CowardMegaloceros" Or $tname = "BrownMegaloceros" Or $tname = "Yak" or $tname = "Kukuri" or $tname = "FatKukuri" Then
ToolTip("Bot-Trap Found - Re-Targeting)
ControlSend("Rappelz", "", "", "{TAB down}")
Sleep(250)
ControlSend("Rappelz", "", "", "{TAB up}")
Sleep(250)
EndIf
If $tname = "MoonRabbit" Or $tname = "BabyMoonRabbit" Or $tname = "HoppingMoonRabbit" Or $tname = "GrassMoonRabbit" Or $tname = "BabyMondhase" Or $tname = "Mondhase" Or $tname = "HoppingMondhase" Or $tname = "GrassMondhase" Or $tname = "Tamia" Or $tname = "DesertTamia" Or $tname = "Megaloceros" Or $tname = "JungarMegaloceros" Or $tname = "YoungMegaloceros" Or $tname = "CowardMegaloceros" Or $tname = "BrownMegaloceros" Or $tname = "Yak" or $tname = "Kukuri" or $tname = "FatKukuri" Then
ToolTip("Bot-Trap Found - Pressing ESC)
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(250)
EndIf
as you can see, it is a whole lotta writing. I have already charted the coordinates of most of the alphabet, and about 99% of the alphabet used in the bot-traps' names. My only concern is that this will only work if I do 100% of the alphabet as it will crash with an error or attempt to do something stupid if it encounters something it does not understand. Please reamin patient. This should fix the false alarms you have been getting in Vx.x3.