hmz, seems to be "clean", its really just AutoIt-Script which is displayed as a dangerous worm >_>
If this is just a code from another guy or not, as far as its clean eryen is allowed to post this work in our forums
Hi...
nuBot Helper codded by me....
All updated files goes here.
Last version 06.03.2007 Attached
Version history, Old versions
Quote:
Abilities
1. 8 buffs (Will not buff while u are in fight)
2. 5 Attack/Imbue/Nuke Skills (Max 9 attack/imbue/nuke skills, if u dont use pot check system.)
3. Low Durability =_ Log Out/Return Town
4. Low Durability =_ Use Repair Hammer/2th weapon
5. HP Check =_ Log Out/Return Town (Back-Up Pots added)
6. MP Check =_ Log Out/Return Town
7. Pet Health Check
8. Use Berserk when full (whit Giant selection)
9. Support for all Resulations. I mean ALL
Quote:
Updates:
01.03.2007 Reading HP Pots delay time to see F4 Slots.
01.03.2007 It will not buff if u are in fight, also stops buffs sequence if nuBot decides to attack another mobs.
02.03.2007 Edited mob detect system because of alternative colour.
02.03.2007 More effective pet protection system. Pet will not stuck fighting with unselected mobs.
03.03.2007 Wait time increased 60 sec after transport. To protect pet while teleporting to town.
03.03.2007 Unsummon pet when u return back town. (Save HGP)
03.03.2007 Shutdown PC section. It will shut down PC after return town, if u want.
04.03.2007 Different skill selection for normal mobs, champions and giants.
05.03.2007 Proper Repear Hammer confirmation. (Pls test and report.)
06.03.2007 2nd mobs pixel detection. (Use old colour too)
06.03.2007 Minimize Time (U can ignore it. Just protect sro from mamma :/ Function F8)
06.03.2007 No DC in town (After teleported town nubot goes DC after afew time later because of no command send to SRO *mybe just me*. It just moves up and right every 5 secs to keep connected.)
If PixelGetColor($GiantPixel,67) = 6018815 Then
$GiantFind=1
ElseIf PixelGetColor($GiantPixel,67) = 4751046 Then
$ChamFind=1
Else
$GiantFind=0
$ChamFind=0
EndIf
Else
$MobFind=0
but isnt this a little un-efficient? its a bit slower then the original, so i might cut it up a bit to reduce lag on my 1100mhz celeron. lol, but that doesnt matter for most people i suppose.
just finished checking through rest of code....definitely clean. i suggest you modify your first post and make the thread a bit more clear with virus scan results and reason.
func Protect()
$Protect = NOT $Protect
if $Protect = True Then
$TimerProtect = TimerInit()
$ProtectDelay = GUICtrlRead($Ohmamma)*60*1000
Do
$TimerProtect = TimerInit()
checkScreen()
Sleep(1000)
checkwep()
checkpot()
WinSetState ("SRO_Client","",@SW_MINIMIZE)
Do
Until TimerDiff($TimerProtect) > $ProtectDelay or $Protect = False or $Paused = True
Until $Protect = False or $Paused = True
EndIf
EndFunc
Func Pause()
$Paused = NOT $Paused
if $Paused = True Then
$Botting = False
GUICtrlSetData($start,"PAUSED")
Else
checkScreen()
sleep(1000)
$Botting = True
GUICtrlSetData($start,"START")
EndIf
EndFunc
Func CloseBot()
$Botexit = MsgBox(4,"Bot close","Are you sure you wan to exit")
if $Botexit = 6 Then
Exit
Else
MsgBox(0,"Bot close","Give me a break -.-..")
EndIf
EndFunc
func rightclick()
if GUICtrlRead($clickscreen) = 1 Then
MouseClick("right",1,1,1)
Else
EndIf
EndFunc
func loadbackup()
$ctrl = 13
for $line = 2 to 9
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 21
for $line = 10 to 25
$ctrl = $ctrl + 1
GUICtrlSetData($ctrl,FileReadLine("info.txt", $line))
Next
$ctrl = 65
for $line = 26 to 30
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 75
for $line = 31 to 33
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 78
for $line = 34 to 35
$ctrl = $ctrl + 1
GUICtrlSetData($ctrl,FileReadLine("info.txt", $line))
Next
$ctrl = 87
for $line = 36 to 43
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 95
for $line = 44 to 46
$ctrl = $ctrl + 1
GUICtrlSetData($ctrl,FileReadLine("info.txt", $line))
Next
$ctrl = 103
for $line = 47 to 47
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 104
for $line = 48 to 51
$ctrl = $ctrl + 1
GUICtrlSetData($ctrl,FileReadLine("info.txt", $line))
Next
$ctrl = 117
for $line = 52 to 53
$ctrl = $ctrl + 1
if FileReadLine("info.txt",$line) = 1 Then
GUICtrlSetState($ctrl,$GUI_CHECKED)
EndIf
Next
$ctrl = 119
for $line = 54 to 54
$ctrl = $ctrl + 1
GUICtrlSetData($ctrl,FileReadLine("info.txt", $line))
Next
EndFunc
func CreateBackup()
$file = FileOpen("info.txt",2)
FileWrite("info.txt","[Values]" & @CRLF)
for $ctrl = 14 to 37
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
for $ctrl = 66 to 70
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
for $ctrl = 76 to 80
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
for $ctrl = 88 to 98
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
for $ctrl = 104 to 108
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
for $ctrl = 118 to 120
FileWrite("info.txt",GUICtrlRead($ctrl) & @CRLF)
Next
FileClose($file)
EndFunc
func checkDisable()
if GUICtrlRead($buff1check) = 1 Then
GUICtrlSetState($buff1duration, $GUI_ENABLE)
GUICtrlSetState($buff1input, $GUI_ENABLE)
Else
GUICtrlSetState($buff1duration, $GUI_DISABLE)
GUICtrlSetState($buff1input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff2check) = 1 Then
GUICtrlSetState($buff2duration, $GUI_ENABLE)
GUICtrlSetState($buff2input, $GUI_ENABLE)
Else
GUICtrlSetState($buff2duration, $GUI_DISABLE)
GUICtrlSetState($buff2input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff3check) = 1 Then
GUICtrlSetState($buff3duration, $GUI_ENABLE)
GUICtrlSetState($buff3input, $GUI_ENABLE)
Else
GUICtrlSetState($buff3duration, $GUI_DISABLE)
GUICtrlSetState($buff3input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff4check) = 1 Then
GUICtrlSetState($buff4duration, $GUI_ENABLE)
GUICtrlSetState($buff4input, $GUI_ENABLE)
Else
GUICtrlSetState($buff4duration, $GUI_DISABLE)
GUICtrlSetState($buff4input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff5check) = 1 Then
GUICtrlSetState($buff5duration, $GUI_ENABLE)
GUICtrlSetState($buff5input, $GUI_ENABLE)
Else
GUICtrlSetState($buff5duration, $GUI_DISABLE)
GUICtrlSetState($buff5input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff6check) = 1 Then
GUICtrlSetState($buff6duration, $GUI_ENABLE)
GUICtrlSetState($buff6input, $GUI_ENABLE)
Else
GUICtrlSetState($buff6duration, $GUI_DISABLE)
GUICtrlSetState($buff6input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff7check) = 1 Then
GUICtrlSetState($buff7duration, $GUI_ENABLE)
GUICtrlSetState($buff7input, $GUI_ENABLE)
Else
GUICtrlSetState($buff7duration, $GUI_DISABLE)
GUICtrlSetState($buff7input, $GUI_DISABLE)
EndIf
if GUICtrlRead($buff8check) = 1 Then
GUICtrlSetState($buff8duration, $GUI_ENABLE)
GUICtrlSetState($buff8input, $GUI_ENABLE)
Else
GUICtrlSetState($buff8duration, $GUI_DISABLE)
GUICtrlSetState($buff8input, $GUI_DISABLE)
EndIf
if GUICtrlRead($durcheck) = 1 Then
GUICtrlSetState($durtown, $GUI_ENABLE)
GUICtrlSetState($durlog, $GUI_ENABLE)
GUICtrlSetState($wepcheck, $GUI_ENABLE)
Else
GUICtrlSetState($durtown, $GUI_DISABLE)
GUICtrlSetState($durlog, $GUI_DISABLE)
GUICtrlSetState($wepcheck, $GUI_DISABLE)
EndIf
if GUICtrlRead($durlog) = 1 Then
GUICtrlSetState($durtown, $GUI_DISABLE)
EndIf
if GUICtrlRead($durtown) = 1 Then
GUICtrlSetState($durlog, $GUI_DISABLE)
EndIf
if GUICtrlRead($petcheck) = 1 Then
GUICtrlSetState($petslider, $GUI_ENABLE)
GUICtrlSetState($pethp, $GUI_ENABLE)
GUICtrlSetState($PetAttack, $GUI_ENABLE)
GUICtrlSetState($PetFollow, $GUI_ENABLE)
Else
GUICtrlSetState($petslider, $GUI_DISABLE)
GUICtrlSetState($pethp, $GUI_DISABLE)
GUICtrlSetState($PetAttack, $GUI_DISABLE)
GUICtrlSetState($PetFollow, $GUI_DISABLE)
EndIf
if GUICtrlRead($PetAttack) = 1 Then
GUICtrlSetState($PetFollow, $GUI_DISABLE)
EndIf
if GUICtrlRead($PetFollow) = 1 Then
GUICtrlSetState($PetAttack, $GUI_DISABLE)
EndIf
if GUICtrlRead($HPcheck) = 1 Then
GUICtrlSetState($HPinput, $GUI_ENABLE)
GUICtrlSetState($HPlog, $GUI_ENABLE)
GUICtrlSetState($HPtown, $GUI_ENABLE)
GUICtrlSetState($HPBackUp, $GUI_ENABLE)
Else
GUICtrlSetState($HPinput, $GUI_DISABLE)
GUICtrlSetState($HPlog, $GUI_DISABLE)
GUICtrlSetState($HPtown, $GUI_DISABLE)
GUICtrlSetState($HPBackUp, $GUI_DISABLE)
EndIf
if GUICtrlRead($HPlog) = 1 Then
GUICtrlSetState($HPtown, $GUI_DISABLE)
EndIf
if GUICtrlRead($HPtown) = 1 Then
GUICtrlSetState($HPlog, $GUI_DISABLE)
EndIf
if GUICtrlRead($MPcheck) = 1 Then
GUICtrlSetState($MPinput, $GUI_ENABLE)
GUICtrlSetState($MPlog, $GUI_ENABLE)
GUICtrlSetState($MPtown, $GUI_ENABLE)
Else
GUICtrlSetState($MPinput, $GUI_DISABLE)
GUICtrlSetState($MPlog, $GUI_DISABLE)
GUICtrlSetState($MPtown, $GUI_DISABLE)
EndIf
if GUICtrlRead($MPlog) = 1 Then
GUICtrlSetState($MPtown, $GUI_DISABLE)
EndIf
if GUICtrlRead($MPtown) = 1 Then
GUICtrlSetState($MPlog, $GUI_DISABLE)
EndIf
if GUICtrlRead($WepSkill) = 1 Then
GUICtrlSetState($WepReg, $GUI_ENABLE)
GUICtrlSetState($WepChamp, $GUI_ENABLE)
GUICtrlSetState($WepGiant, $GUI_ENABLE)
GUICtrlSetState($WepTime, $GUI_ENABLE)
Else
GUICtrlSetState($WepReg, $GUI_DISABLE)
GUICtrlSetState($WepChamp, $GUI_DISABLE)
GUICtrlSetState($WepGiant, $GUI_DISABLE)
GUICtrlSetState($WepTime, $GUI_DISABLE)
EndIf
if GUICtrlRead($berserk) = 1 Then
GUICtrlSetState($Giant, $GUI_ENABLE)
Else
GUICtrlSetState($Giant, $GUI_DISABLE)
EndIf
EndFunc
bot:
Quote:
Global $Paused = False
Global $Botting = False
Global $Protect = False
Global $Botexit
Global $Timer1 = 0
Global $Timer2 = 0
Global $Timer3 = 0
Global $Timer4 = 0
Global $Timer5 = 0
Global $Timer6 = 0
Global $Timer7 = 0
Global $Timer8 = 0
Global $TimerExit = 0
Global $TimerProtect = 0
Global $MobFind
Global $offset = 15
Global $GiantFind
Global $ChamFind
Func LookFor()
mobs()
If $MobFind=1 Then
petattack()
Attack()
Else
Idle()
EndIf
EndFunc
Func Attack()
Do
WepSkill()
checkpot()
checkpet()
berserk()
mobs()
Until $MobFind=0 or $Paused = True
EndFunc
Func exiting()
$TimerExit = TimerInit()
if GUICtrlRead($petcheck) = 1 Then
Do
checkpet()
Send("{PGUP}")
Until TimerDiff($TimerExit) > 60000
EndIf
if GUICtrlRead($ShutDown)=1 Then
Shutdown (5)
EndIf
if GUICtrlRead($NODC) = 1 Then
$Paused = True
func petattack()
if GUICtrlRead($PetAttack) =1 and $MobFind=1 Then
send("{END}")
Elseif GUICtrlRead($PetFollow)=1 Then
send("{DEL}")
EndIf
EndFunc
func mobs()
checkScreen()
$size = WinGetPos("SRO_Client")
$MobPixel=($size[2]-196)/2+14
$GiantPixel=($size[2]-196)/2+72
If (PixelGetColor($MobPixel,46) = 10227985 or PixelGetColor($MobPixel,46) = 10227728) Then
$MobFind=1
If PixelGetColor($GiantPixel,67) = 6018815 Then
$GiantFind=1
ElseIf PixelGetColor($GiantPixel,67) = 4751046 Then
$ChamFind=1
Else
$GiantFind=0
$ChamFind=0
EndIf
Else
$MobFind=0
EndIf
EndFunc
func buff1()
;Timer to check if buff was loaded
if GUICtrlRead($buff1check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff1duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff1input)
if $Timer1 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer1 = TimerInit()
ElseIf TimerDiff($Timer1) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer1 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff2()
;Timer to check if buff was loaded
if GUICtrlRead($buff2check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff2duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff2input)
if $Timer2 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer2 = TimerInit()
ElseIf TimerDiff($Timer2) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer2 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff3()
;Timer to check if buff was loaded
if GUICtrlRead($buff3check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff3duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff3input)
if $Timer3 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer3 = TimerInit()
ElseIf TimerDiff($Timer3) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer3 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff4()
;Timer to check if buff was loaded
if GUICtrlRead($buff4check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff4duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff4input)
if $Timer4 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer4 = TimerInit()
ElseIf TimerDiff($Timer4) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer4 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff5()
;Timer to check if buff was loaded
if GUICtrlRead($buff5check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff5duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff5input)
if $Timer5 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer5 = TimerInit()
ElseIf TimerDiff($Timer5) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer5 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff6()
;Timer to check if buff was loaded
if GUICtrlRead($buff6check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff6duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff6input)
if $Timer6 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer6 = TimerInit()
ElseIf TimerDiff($Timer6) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer6 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff7()
;Timer to check if buff was loaded
if GUICtrlRead($buff7check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff7duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff7input)
if $Timer7 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer7 = TimerInit()
ElseIf TimerDiff($Timer7) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer7 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
func buff8()
;Timer to check if buff was loaded
if GUICtrlRead($buff8check) = 1 Then
mobs()
If $MobFind=0 Then
$duration = GUICtrlRead($buff8duration) * 1000 + 1500
$buffinput = GUICtrlRead($buff8input)
if $Timer8 = 0 Then
;proves game was just loaded
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer8 = TimerInit()
ElseIf TimerDiff($Timer8) > $duration Then
;proves buff has expired
rightclick()
send("{f3}")
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
send($buffinput)
send($buffinput)
send($buffinput)
sleep(1000)
if GUICtrlRead($WepSkill) = 4 Then
send("{9}")
EndIf
send("{f4}")
$Timer8 = TimerInit()
EndIf
Else
Attack()
EndIf
EndIf
EndFunc
Func WepSkill()
if GUICtrlRead($WepSkill) = 1 Then
send("{f4}")
If $GiantFind=1 Then
For $i = GUICtrlRead($WepGiant) to 1 Step -1
Send($i)
sleep(GUICtrlRead($WepTime))
Next
ElseIf $ChamFind=1 Then
For $i = GUICtrlRead($WepChamp) to 1 Step -1
Send($i)
sleep(GUICtrlRead($WepTime))
Next
Else
For $i = GUICtrlRead($WepReg) to 1 Step -1
Send($i)
sleep(GUICtrlRead($WepTime))
Next
EndIf
EndIf
EndFunc
Func checkwep()
if GUICtrlRead($durcheck) = 1 Then
$size = WinGetPos("SRO_Client")
$WepPixel=$size[2]-26
if PixelGetColor($WepPixel,224) = 0 Then
if GUICtrlRead($wepcheck) =1 Then
Send("{x}")
Send("{x}")
Send("{x}")
sleep(1000)
Send("{x}")
Send("{x}")
Send("{x}")
sleep(1000)
Send("{x}")
Send("{x}")
Send("{x}")
sleep(1000)
EndIf
$HammerHor=($size[2]-306)/2+107
$HammerVer=($size[3]-146)/2+112
if PixelGetColor($HammerHor,$HammerVer) = 16710616 Then
mouseclick("left",$HammerHor,$HammerVer, 1)
EndIf
if PixelGetColor($WepPixel,224) = 0 Then
$ExitHor=$size[2]/2
$ExitVer=($size[3]-210)/2+172
if GUICtrlRead($durlog) = 1 Then
send("{esc}")
sleep(1000)
mouseclick("left",$ExitHor,$ExitVer,2)
exiting()
msgbox(0,"NOTICE","Durability CRITICAL, Silkroad Shutdown at " & _NowTime())
Exit
ElseIf GUICtrlRead($durtown) = 1 Then
send("{f3}")
sleep(200)
send("{0}")
exiting()
msgbox(0,"NOTICE","Durability CRITICAL, teleported to town at " & _NowTime())
Exit
EndIf
EndIf
EndIf
EndIf
EndFunc
Func checkpet()
if GUICtrlRead($petcheck) = 1 Then
if PixelGetColor(133,83) = 13553614 Then
$reading = GUICtrlRead($petslider)
$calc = 104 + $reading
if PixelGetColor($calc,86) < 5000000 Then
petattack()
Sleep(100)
send("{f4}")
Sleep(100)
send(GUICtrlRead($pethp))
EndIf
EndIf
EndIf
EndFunc
Func berserk()
if GUICtrlRead($Berserk) = 1 Then
if PixelGetColor(29,4) = 15925425 Then
If GUICtrlRead($Giant)=1 and $GiantFind=1 Then
Send("{TAB}")
ElseIf GUICtrlRead($Giant)=4 Then
Send("{TAB}")
Else
EndIf
EndIf
EndIf
EndFunc
Func checkpot()
if GUICtrlRead($HPcheck) = 1 Then
$size = WinGetPos("SRO_Client")
$PotPixel=($size[2]-800)/2+265
$HPHor = GUICtrlRead($HPinput) * 36
$HPHor = $PotPixel + $HPHor
$PotVer = $size[3]-27
send("{F4}")
;~ sleep(250)
if PixelGetColor($HPHor,$PotVer) = 4869450 Then
$HPSave = GUICtrlRead($HPBackUp) * 36
$HPSave = $PotPixel + $HPSave
MouseClick("left", $HPSave, $PotVer, 1)
sleep(200)
MouseClick("left", $HPHor, $PotVer, 1)
if GUICtrlRead($HPlog) = 1 Then
$ExitHor=$size[2]/2
$ExitVer=($size[3]-210)/2+172
send("{esc}")
sleep(1000)
mouseclick("left",$ExitHor,$ExitVer,2)
exiting()
msgbox(0,"NOTICE","HP CRITICAL, Silkroad Shutdown at " & _NowTime())
Exit
ElseIf GUICtrlRead($HPtown) = 1 Then
send("{f3}")
sleep(200)
send("{0}")
exiting()
msgbox(0,"NOTICE","HP CRITICAL, teleported to town at " & _NowTime())
Exit
EndIf
EndIf
EndIf
if GUICtrlRead($MPcheck) = 1 Then
$size = WinGetPos("SRO_Client")
$PotPixel=($size[2]-800)/2+265
$MPHor = GUICtrlRead($MPinput) * 36
$MPHor = $PotPixel + $MPHor
$PotVer = $size[3]-27
if PixelGetColor($MPHor,$PotVer) = 4869450 Then
if GUICtrlRead($MPlog) = 1 Then
$ExitHor=$size[2]/2
$ExitVer=($size[3]-210)/2+172
send("{esc}")
sleep(1000)
mouseclick("left",$ExitHor,$ExitVer,2)
exiting()
msgbox(0,"NOTICE","MP CRITICAL, Silkroad Shutdown at " & _NowTime())
Exit
ElseIf GUICtrlRead($MPtown) = 1 Then
send("{f3}")
sleep(200)
send("{0}")
exiting()
msgbox(0,"NOTICE","MP CRITICAL, teleported to town at " & _NowTime())
Exit
EndIf
EndIf
EndIf
EndFunc
;-------------------------------------------------Main
GUICtrlCreateTabitem("Main")
GUICtrlCreateLabel("Press START to start botting",20,55)
GUICtrlCreateLabel("Press SAVE to save your settings",20,70)
GUICtrlCreateLabel("At any time during botting, Press F6 to PAUSE bot",20,85)
GUICtrlCreateLabel("At any time during botting, Press F7 to CLOSE bot",20,100)
$start = GUICtrlCreateButton("START", 140,150, 100,50)
$save = GUICtrlCreateButton("SAVE", 140,210, 100,50)
$load = GUICtrlCreateButton("LOAD", 140,270, 100,50)
$exit = GUICtrlCreateButton("EXIT", 140,330, 100,50)
;-------------------------------------------------Buff
GUICtrlCreateTabitem("Setup")
$buff1check = GUICtrlCreateCheckbox("",50,150,25,25);14
$buff2check = GUICtrlCreateCheckbox("",50,180,25,25)
$buff3check = GUICtrlCreateCheckbox("",50,210,25,25)
$buff4check = GUICtrlCreateCheckbox("",50,240,25,25)
$buff5check = GUICtrlCreateCheckbox("",50,270,25,25)
$buff6check = GUICtrlCreateCheckbox("",50,300,25,25)
$buff7check = GUICtrlCreateCheckbox("",50,330,25,25)
$buff8check = GUICtrlCreateCheckbox("",50,360,25,25)
$buff1duration = GUICtrlCreateInput("",87,153,40,20)
$buff2duration = GUICtrlCreateInput("",87,183,40,20)
$buff3duration = GUICtrlCreateInput("",87,213,40,20)
$buff4duration = GUICtrlCreateInput("",87,243,40,20)
$buff5duration = GUICtrlCreateInput("",87,273,40,20)
$buff6duration = GUICtrlCreateInput("",87,303,40,20)
$buff7duration = GUICtrlCreateInput("",87,333,40,20)
$buff8duration = GUICtrlCreateInput("",87,363,40,20)
$buff1input = GUICtrlCreateInput("1",173,153,35,20)
$buff2input = GUICtrlCreateInput("2",173,183,35,20)
$buff3input = GUICtrlCreateInput("3",173,213,35,20)
$buff4input = GUICtrlCreateInput("4",173,243,35,20)
$buff5input = GUICtrlCreateInput("5",173,273,35,20)
$buff6input = GUICtrlCreateInput("6",173,303,35,20)
$buff7input = GUICtrlCreateInput("7",173,333,35,20)
$buff8input = GUICtrlCreateInput("8",173,363,35,20);37
GUICtrlCreateGroup("Buff [F3]", 20, 100, 205, 295)
GUICtrlCreateLabel("Please check the box on the left if you need the function",20,40)
GUICtrlCreateLabel("Please enter the duration if there is(in seconds)",20,50)
GUICtrlCreateLabel("It is best to use the default slots. DO not duplicate slots",20,60)
GUICtrlCreateLabel("Script will trigger when Durability is critical",20,70)
GUICtrlCreateLabel("IF you are using TOWN option, put TOWN SCROLL at slot 0",20,80)
GUICtrlCreateLabel("Enable",40,120)
GUICtrlCreateGroup("",30, 110, 55, 30)
GUICtrlCreateLabel("Duration",100,120)
GUICtrlCreateGroup("",95, 110, 50, 30)
GUICtrlCreateLabel("secs",130,158)
GUICtrlCreateLabel("secs",130,188)
GUICtrlCreateLabel("secs",130,218)
GUICtrlCreateLabel("secs",130,248)
GUICtrlCreateLabel("secs",130,278)
GUICtrlCreateLabel("secs",130,308)
GUICtrlCreateLabel("secs",130,338)
GUICtrlCreateLabel("secs",130,368)
GUICtrlCreateLabel("Slot",180,120)
GUICtrlCreateGroup("",170, 110, 40, 30)
$buff1slot = GUICtrlCreateUpdown($buff1input)
$buff2slot = GUICtrlCreateUpdown($buff2input)
$buff3slot = GUICtrlCreateUpdown($buff3input)
$buff4slot = GUICtrlCreateUpdown($buff4input)
$buff5slot = GUICtrlCreateUpdown($buff5input)
$buff6slot = GUICtrlCreateUpdown($buff6input)
$buff7slot = GUICtrlCreateUpdown($buff7input)
$buff8slot = GUICtrlCreateUpdown($buff8input)
GUICtrlSetLimit($buff1slot,8,1)
GUICtrlSetLimit($buff2slot,8,1)
GUICtrlSetLimit($buff3slot,8,1)
GUICtrlSetLimit($buff4slot,8,1)
GUICtrlSetLimit($buff5slot,8,1)
GUICtrlSetLimit($buff6slot,8,1)
GUICtrlSetLimit($buff7slot,8,1)
GUICtrlSetLimit($buff8slot,8,1)
$ShutDown = GUICtrlCreateCheckbox("Shut Down PC",20,557,90,25);114
$NODC = GUICtrlCreateCheckbox("No DC in town",120,557,90,25);115
$OhMamma = GUICtrlCreateInput("5",245,560,35,20);116
GUICtrlCreateLabel("Minimize time",283, 563, 205, 80)
$Protecting = GUICtrlCreateUpdown($OhMamma)
GUICtrlSetLimit($Protecting,60,5)
;-------------------------------------------------
GUICtrlCreateTabitem("Help")
GUICtrlCreateLabel("Follow the picture tutorials if you don't understand at all",20,40)
GUICtrlCreateLabel("",20,55)
GUICtrlCreateLabel("Example Slots(F3):",20,70)
GUICtrlCreatePic("examplef3.jpg",20,90,355,39)
GUICtrlCreateLabel("Example Slots(F4):",20,140)
GUICtrlCreatePic("examplef4.jpg",20,160,355,39)
GUICtrlCreateLabel("Enter the duration shown in the skills section",20,320)
GUICtrlCreatePic("duration.jpg",100,340,200,50)
;-------------------------------------------------
GUICtrlCreateTabitem("Credits")
GUICtrlCreateLabel("Credits all given to En5 for his original bot script",20,40)
GUICtrlCreateLabel("I only added more functions to make botting more enjoyable o.O",20,55)
GUICtrlCreateLabel("Any questions/problems please pm retard00 in GZP",20,70)
GUICtrlCreateLabel("or you may pm retard in 0x33.org",20,85)
GUICtrlCreateLabel("*Note script will work in all resulations.",20,115)
GUISetState(@SW_SHOW)
if FileExists("info.txt") Then
loadbackup()
checkDisable()
Else
checkDisable()
EndIf
While 1
$msg = GUIGetMsg()
if $Botting = True Then
LookFor()
Else
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
$permission = msgbox(4,"Save Settings","Do you want to save your settings?")
if $permission = 6 Then
if FileExists("info.txt") Then
CreateBackup()
Else
FileWrite("info.txt","")
CreateBackup()
EndIf
EndIf
ExitLoop
Case $msg = $buff1check
if GUICtrlRead($buff1check) = 1 Then
GUICtrlSetState($buff1duration, $GUI_ENABLE)
GUICtrlSetState($buff1input, $GUI_ENABLE)
Else
GUICtrlSetState($buff1duration, $GUI_DISABLE)
GUICtrlSetState($buff1input, $GUI_DISABLE)
EndIf
Case $msg = $buff2check
if GUICtrlRead($buff2check) = 1 Then
GUICtrlSetState($buff2duration, $GUI_ENABLE)
GUICtrlSetState($buff2input, $GUI_ENABLE)
Else
GUICtrlSetState($buff2duration, $GUI_DISABLE)
GUICtrlSetState($buff2input, $GUI_DISABLE)
EndIf
Case $msg = $buff3check
if GUICtrlRead($buff3check) = 1 Then
GUICtrlSetState($buff3duration, $GUI_ENABLE)
GUICtrlSetState($buff3input, $GUI_ENABLE)
Else
GUICtrlSetState($buff3duration, $GUI_DISABLE)
GUICtrlSetState($buff3input, $GUI_DISABLE)
EndIf
Case $msg = $buff4check
if GUICtrlRead($buff4check) = 1 Then
GUICtrlSetState($buff4duration, $GUI_ENABLE)
GUICtrlSetState($buff4input, $GUI_ENABLE)
Else
GUICtrlSetState($buff4duration, $GUI_DISABLE)
GUICtrlSetState($buff4input, $GUI_DISABLE)
EndIf
Case $msg = $buff5check
if GUICtrlRead($buff5check) = 1 Then
GUICtrlSetState($buff5duration, $GUI_ENABLE)
GUICtrlSetState($buff5input, $GUI_ENABLE)
Else
GUICtrlSetState($buff5duration, $GUI_DISABLE)
GUICtrlSetState($buff5input, $GUI_DISABLE)
EndIf
Case $msg = $buff6check
if GUICtrlRead($buff6check) = 1 Then
GUICtrlSetState($buff6duration, $GUI_ENABLE)
GUICtrlSetState($buff6input, $GUI_ENABLE)
Else
GUICtrlSetState($buff6duration, $GUI_DISABLE)
GUICtrlSetState($buff6input, $GUI_DISABLE)
EndIf
Case $msg = $buff7check
if GUICtrlRead($buff7check) = 1 Then
GUICtrlSetState($buff7duration, $GUI_ENABLE)
GUICtrlSetState($buff7input, $GUI_ENABLE)
Else
GUICtrlSetState($buff7duration, $GUI_DISABLE)
GUICtrlSetState($buff7input, $GUI_DISABLE)
EndIf
Case $msg = $buff8check
if GUICtrlRead($buff8check) = 1 Then
GUICtrlSetState($buff8duration, $GUI_ENABLE)
GUICtrlSetState($buff8input, $GUI_ENABLE)
Else
GUICtrlSetState($buff8duration, $GUI_DISABLE)
GUICtrlSetState($buff8input, $GUI_DISABLE)
EndIf
Case $msg = $durcheck
if GUICtrlRead($durcheck) = 1 Then
GUICtrlSetState($durlog, $GUI_ENABLE)
if GUICtrlRead($durtown) = 1 Then
GUICtrlSetState($durlog, $GUI_DISABLE)
EndIf
GUICtrlSetState($durtown, $GUI_ENABLE)
if GUICtrlRead($durlog) = 1 Then
GUICtrlSetState($durtown, $GUI_DISABLE)
EndIf
GUICtrlSetState($wepcheck, $GUI_ENABLE)
Else
GUICtrlSetState($durlog, $GUI_DISABLE)
GUICtrlSetState($durtown, $GUI_DISABLE)
GUICtrlSetState($wepcheck, $GUI_DISABLE)
EndIf
Case $msg = $durtown
if GUICtrlRead($durtown) = 1 Then
GUICtrlSetState($durlog, $GUI_DISABLE)
Else
GUICtrlSetState($durlog, $GUI_ENABLE)
EndIf
Case $msg = $durlog
if GUICtrlRead($durlog) = 1 Then
GUICtrlSetState($durtown, $GUI_DISABLE)
Else
GUICtrlSetState($durtown, $GUI_ENABLE)
EndIf
Case $msg = $petcheck
if GUICtrlRead($petcheck) = 1 Then
GUICtrlSetState($petslider, $GUI_ENABLE)
GUICtrlSetState($pethp, $GUI_ENABLE)
GUICtrlSetState($PetAttack, $GUI_ENABLE)
if GUICtrlRead($PetFollow) = 1 Then
GUICtrlSetState($PetAttack, $GUI_DISABLE)
Else
GUICtrlSetState($PetAttack, $GUI_ENABLE)
EndIf
GUICtrlSetState($PetFollow, $GUI_ENABLE)
if GUICtrlRead($PetAttack) = 1 Then
GUICtrlSetState($PetFollow, $GUI_DISABLE)
Else
GUICtrlSetState($PetFollow, $GUI_ENABLE)
EndIf
Else
GUICtrlSetState($petslider, $GUI_DISABLE)
GUICtrlSetState($pethp, $GUI_DISABLE)
GUICtrlSetState($PetAttack, $GUI_DISABLE)
GUICtrlSetState($PetFollow, $GUI_DISABLE)
EndIf
Case $msg = $PetAttack
if GUICtrlRead($PetAttack) = 1 Then
GUICtrlSetState($PetFollow, $GUI_DISABLE)
Else
GUICtrlSetState($PetFollow, $GUI_ENABLE)
EndIf
Case $msg = $PetFollow
if GUICtrlRead($PetFollow) = 1 Then
GUICtrlSetState($PetAttack, $GUI_DISABLE)
Else
GUICtrlSetState($PetAttack, $GUI_ENABLE)
EndIf
Case $msg = $HPcheck
if GUICtrlRead($HPcheck) = 1 Then
GUICtrlSetState($HPinput, $GUI_ENABLE)
GUICtrlSetState($HPBackUp, $GUI_ENABLE)
GUICtrlSetState($HPlog, $GUI_ENABLE)
if GUICtrlRead($HPtown) = 1 Then
GUICtrlSetState($HPlog, $GUI_DISABLE)
EndIf
GUICtrlSetState($HPtown, $GUI_ENABLE)
if GUICtrlRead($HPlog) = 1 Then
GUICtrlSetState($HPtown, $GUI_DISABLE)
EndIf
Else
GUICtrlSetState($HPinput, $GUI_DISABLE)
GUICtrlSetState($HPBackUp, $GUI_DISABLE)
GUICtrlSetState($HPlog, $GUI_DISABLE)
GUICtrlSetState($HPtown, $GUI_DISABLE)
EndIf
Case $msg = $MPcheck
if GUICtrlRead($MPcheck) = 1 Then
GUICtrlSetState($MPinput, $GUI_ENABLE)
GUICtrlSetState($MPlog, $GUI_ENABLE)
if GUICtrlRead($MPtown) = 1 Then
GUICtrlSetState($MPlog, $GUI_DISABLE)
EndIf
GUICtrlSetState($MPtown, $GUI_ENABLE)
if GUICtrlRead($MPlog) = 1 Then
GUICtrlSetState($MPtown, $GUI_DISABLE)
EndIf
Else
GUICtrlSetState($MPinput, $GUI_DISABLE)
GUICtrlSetState($MPlog, $GUI_DISABLE)
GUICtrlSetState($MPtown, $GUI_DISABLE)
EndIf
Case $msg = $HPlog
if GUICtrlRead($HPlog) = 1 Then
GUICtrlSetState($HPtown, $GUI_DISABLE)
Else
GUICtrlSetState($HPtown, $GUI_ENABLE)
EndIf
Case $msg = $HPtown
if GUICtrlRead($HPtown) = 1 Then
GUICtrlSetState($HPlog, $GUI_DISABLE)
Else
GUICtrlSetState($HPlog, $GUI_ENABLE)
EndIf
Case $msg = $MPlog
if GUICtrlRead($MPlog) = 1 Then
GUICtrlSetState($MPtown, $GUI_DISABLE)
Else
GUICtrlSetState($MPtown, $GUI_ENABLE)
EndIf
Case $msg = $MPtown
if GUICtrlRead($MPtown) = 1 Then
GUICtrlSetState($MPlog, $GUI_DISABLE)
Else
GUICtrlSetState($MPlog, $GUI_ENABLE)
EndIf
Case $msg = $WepSkill
if GUICtrlRead($WepSkill) = 1 Then
GUICtrlSetState($WepReg, $GUI_ENABLE)
GUICtrlSetState($WepChamp, $GUI_ENABLE)
GUICtrlSetState($WepGiant, $GUI_ENABLE)
GUICtrlSetState($WepTime, $GUI_ENABLE)
Else
GUICtrlSetState($WepReg, $GUI_DISABLE)
GUICtrlSetState($WepChamp, $GUI_DISABLE)
GUICtrlSetState($WepGiant, $GUI_DISABLE)
GUICtrlSetState($WepTime, $GUI_DISABLE)
EndIf
Case $msg = $Berserk
if GUICtrlRead($Berserk) = 1 Then
GUICtrlSetState($Giant, $GUI_ENABLE)
Else
GUICtrlSetState($Giant, $GUI_DISABLE)
EndIf
Case $msg = $start
if $Paused = False Then
if FileExists("info.txt") Then
CreateBackup()
Else
FileWrite("info.txt","")
CreateBackup()
EndIf
$Botting = True
;~ GUISetState(@SW_HIDE)
GUICtrlSetData($start,"RESUME")
if ProcessExists("sro_client.exe") Then
checkScreen()
sleep(1000)
else
$error = msgbox(4,"ERROR","Silkroad not executed! Execute now?")
if $error = 6 Then
if Not FileExists("C:/Program Files/silkroad/silkroad.exe") Then
$sroPath = FileOpenDialog("Please select silkroad.exe","C:\Program Files\","Executable(*.exe)")
run($sroPath)
Else
run("c:/program files/silkroad/silkroad.exe")
;run("notepad.exe")
EndIf
sleep(2000)
msgbox(48,"NOTICE","Bot PAUSED, F6 to resume after login")
Pause()
Else
msgbox(48,"NOTICE","Bot has to be terminated")
ExitLoop
EndIf
EndIf
Else
;~ GUISetState(@SW_HIDE)
Pause()
EndIf
Case $msg = $load
$permission = msgbox(4,"Load Settings","Are you sure you to want to load your settings?")
if $permission = 6 Then
loadbackup()
checkDisable()
EndIf
case $msg = $exit
exitloop
Case $msg = $save
$permission = msgbox(4,"Save Settings","Are you sure you to want to save your settings?")
if $permission = 6 Then
if FileExists("info.txt") Then
CreateBackup()
Else
FileWrite("info.txt","")
CreateBackup()
EndIf
EndIf
EndSelect
WEnd
Nubot helper !! 02/20/2008 - Silkroad Online - 3 Replies Hi .. for the nubot helper + isrobot the function of imbue in the nubot is less.... why?? thz for help sry for my english:D
help with nuBot Helper 12/19/2007 - Silkroad Online - 0 Replies sory for that but i nead to know if the
nuBot Helper can have kelogar or it can not:eek:
and how i know that
soryfor my bad english:D
but i hope any one help me i dont nead to lost my account
and no bot i can get buy cash mony:rolleyes:
Need Nubot Helper 11/12/2007 - SRO Hacks, Bots, Cheats & Exploits - 3 Replies I have HaxCr4x and iSroBot 1.81 , .. and now i need the Nubot Helper pls post me a link ;) but CLEAN pls ! thx
sry 4 bad englsih :)
help with nubot helper 05/30/2007 - Silkroad Online - 0 Replies sry if this was posted allready but with nubot helper and isro bot most of people i think have probs , it stops after 1 sec yes??
wel just put summit on ur Insert button thats heavy enough 2 push it in and u can bot :) +k if it helped ya :)
I use nubot when i haven't got iSroBot ;D
