|
You last visited: Today at 22:52
Advertisement
I have a problem with my script.Help me to fix a problem please.
Discussion on I have a problem with my script.Help me to fix a problem please. within the 12Sky2 forum part of the MMORPGs category.
07/15/2009, 00:05
|
#1
|
elite*gold: 0
Join Date: Jun 2008
Posts: 6
Received Thanks: 1
|
I have a problem with my script.Help me to fix a problem please.
Quote:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;Ok, here is the code...
;This bot was build to bot with the following conditions:
; i.- Jinong-Female char ; ii.- Aeria games ; iii.- F1-Loot, F4 skill, F9 to exit.
; iv.- Red mob ; v.- R55 mob
;This bot uses action hack to revive.
; Special thanks to UPSman2, I used some of his code :P :
; Made by me, Kesawea. (don't PM me questions about the code, unless u have made a contribution on this thread)
; Translated to english (and add some comments) because XiaoBao requested.
#include <GUIConstants.au3>
#include <NomadMemory.au3> ;because you need this for _memread functions
#include <Process.au3> ; to write on a DOS console.
HotKeySet("{F9}", "MyExit") ;Hit F9 to exit the script.
HotKeySet("{F10}", "FAtckspeed") ;Hit F10 to apply atck hack.
HotKeySet("{F11}", "FRunspeed") ;Hit F11 to apply run hack.
GUICreate("12Sky2",-1,150)
$Button_1 = GUICtrlCreateButton ("BOT", 10, 20, 150)
$Button_2 = GUICtrlCreateButton ("Revive!", 160, 20, 80)
$Button_3 = GUICtrlCreateButton ("Hack Attack spd on 100% (F10)", 160, 70, 160)
$Button_4 = GUICtrlCreateButton ("Hack Run spd on 50% (F11)", 160, 120, 160)
$Label_1 = GUICtrlCreateLabel("(N? of times ressurected)",160, 0) ; Just to show how many times u died.
GUISetState ()
;the window to get PID
$Process1 = WinGetProcess("TwelveSky2")
Const $accion = 0x00C85D17, $revive = 1, $muerte1 = 6556776, $muerte2 = 3072, $muerte3 = 6556712, $muerte4 = 6556904, $muerte5 = 6556840 ; Death = muerte xD (those are the values of the animation addss. when this char dies, there might be more)
Const $nada[3] = [0,0,1], $sCommand = "start C:\autopot"
Global $contador = 1, $xTop = 5, $yTop = 82, $xBot = 1023, $yBot = 736, $mobGreen = "0x5C5672", $contador2 = 0, $x, $y ; contador = counter, mobgreen = mob color
Global $atkspdA = 0x00C85D77, $runspdA = 0x00C60770, $atkspd = 100, $runspd = 50, $comodin[3] = [0,0,1], $coord[2] = [0,0], $coordm[3] = [0,0,0]
; _RunDOS ( $sCommand ) ; runs the autopot script :P
While 1 ;main loop
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ; this doesn't work when you activate the bot.
ExitLoop
Case $msg = $Button_1 ; on click button "BOT", do:
while 1
buscamob()
loot()
revive()
Wend
Case $msg = $Button_2 ;Force ressurection, but doesn't work when the char dies in the loop execut. (for that it's the "revive()" funct)
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($accion, $Mem_Open, $revive)
_MemoryClose($Mem_Open) ;close it afterwards
GUICtrlSetData($Label_1,$contador) ; sets label to value of read memory
$contador = $contador + 1
Case $msg = $Button_3 ;Atck Speed hack
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($atkspdA, $Mem_Open, $atkspd)
_MemoryClose($Mem_Open) ;close it afterwards
Case $msg = $Button_4 ; Moving speed hack
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($runspdA, $Mem_Open, $runspd)
_MemoryClose($Mem_Open) ;close it afterwards
EndSelect
Wend
Func AOE()
$AOE = Not $AOE
While $AOE
If WinActive("TwelveSky2") = 1 Then
Send("3") ; or whatever key for AOE attack
Sleep(100)
If PixelGetColor(8,8) = 0 Then ExitLoop ; exit AOE if char changes zone or die
Else
Sleep(100)
EndIf
WEnd
EndFunc
Func loot() ; Loot Function
Send("{5 down}")
Sleep(100)
Send("{5 up}")
Send("{5 down}")
Sleep(100)
Send("{5 up}")
Send("{5 down}")
Sleep(100)
Send("{5 up}")
Send("{5 down}")
Sleep(100)
Send("{5 up}")
Send("{5 down}")
Sleep(100)
Send("{5 up}")
Send("{5 down}")
Sleep(100)
Send("{5 up}")
EndFunc
Func estavivo() ; checks if the mob is alive/sellected , esta vivo = it's ALIVE! xDDD
PixelSearch(456, 36, 531, 49,"0xFF0000",2)
$r=@error
if Not @error Then
Return ("1")
Else
Return ("2")
EndIf
EndFunc
Func revive() ; revive = resurrects
$Mem_Open = _MemoryOpen($Process1)
$check = _MemoryRead($accion, $Mem_Open) ;reads value at memory address
_MemoryClose($Mem_Open) ;close it afterwards
If $check = $muerte1 Or $check = $muerte2 Or $check = $muerte3 Or $check = $muerte4 Or $check = $muerte5 Then ;if it dies with any of this animations.
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($accion, $Mem_Open, $revive)
_MemoryClose($Mem_Open) ;close it afterwards
GUICtrlSetData($Label_1,$contador) ; sets label to value of read memory
$contador = $contador + 1
EndIf
EndFunc
Func buscamob() ;Auto clicking function.
$coordm = bottomtotop()
If $coordm[2] = 0 Then; If the pixel color was found, then:
while $coordm[2] = 0 ;Mientras el pixel exista, hace:
$x = Random($coordm[0], $coordm[0]+10, 1) ; random for randomness xDD (make click around the original coord).
$y = Random($coordm[1], $coordm[1]+10, 1)
MouseClick("left", $x, $y, 1, 0); Click on the coords obtained on the previous lines.
$vivo = estavivo()
Sleep(500)
If $vivo = "1" Then ; CHecks if the mob is selected.
ExitLoop ; If it's true then exit the loop
EndIf
$coordm = bottomtotop()
revive()
wend
If $vivo = "1" Then ; checks again if the mob is selected.
while $vivo = "1" ; while the mob it's selected, do:
ataca()
$vivo = estavivo()
wend
$contador2 = 0
Else
$contador2 = $contador2 + 1
If $contador2 = 8 Then ; if i fool around with a pixel in the ground that looks like the mob color, do...
MouseClickDrag("left", 515, 388, 352, 388, 6) ; turns the camera to the right.
MouseClick("left", $x, $y, 1, 0) ; move to the last position of the mouse, I whould disable this if the char gets too far.
EndIf
revive()
EndIf
Else ; if there is no mob then...
MouseClickDrag("right", 515, 388, 352, 388, 6) ; turns the camera to the left.
Endif
EndFunc
Func MyExit() ; What does the F9? -> exit
Exit
EndFunc
Func FAtckspeed() ; What does the F10? -> atck speed
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($atkspdA, $Mem_Open, $atkspd)
_MemoryClose($Mem_Open) ;close it afterwards
EndFunc
Func FRunspeed() ; What does the F11? -> Run speed
$Mem_Open = _MemoryOpen($Process1)
_MemoryWrite($runspdA, $Mem_Open, $runspd)
_MemoryClose($Mem_Open) ;close it afterwards
EndFunc
Func bottomtotop() ; i search for the mob with $mobGreen color with a tolerance of 5
$ymov = 732
While 1
$coord = PixelSearch($xTop,$ymov,$xBot,$yBot,$mobGreen,5)
$n = @error
If Not @error Then
$comodin[0] = $coord[0]
$comodin[1] = $coord[1]
$comodin[2] = 0
Return $comodin
Else
$ymov = $ymov - 10
If $ymov = $yTop Then
Return $nada
EndIf
EndIf
WEnd
EndFunc
Func Protect()
While 1
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($Slider2, $GUI_DISABLE)
GUICtrlSetState($Slider1, $GUI_DISABLE)
GUICtrlSetState($Radio1, $GUI_ENABLE)
GUICtrlSetState($Radio2, $GUI_ENABLE)
GUICtrlSetState($Radio3, $GUI_ENABLE)
GUICtrlSetState($Radio4, $GUI_ENABLE)
Else
GUICtrlSetState($Slider2, $GUI_ENABLE)
GUICtrlSetState($Slider1, $GUI_ENABLE)
GUICtrlSetState($Radio1, $GUI_DISABLE)
GUICtrlSetState($Radio2, $GUI_DISABLE)
GUICtrlSetState($Radio3, $GUI_DISABLE)
GUICtrlSetState($Radio4, $GUI_DISABLE)
EndIf
WEnd
EndFunc
|
My script have a problem. It not attack a mob. It not use aoe skill. Thank for help.
|
|
|
07/15/2009, 08:03
|
#2
|
elite*gold: 0
Join Date: Feb 2008
Posts: 620
Received Thanks: 272
|
Special thanks to UPSman2, I used some of his code :P : Autoit + Memory Address
; Made by me, Kesawea
Cough because this is not your script...i dont think hmm, haumhaum haum
|
|
|
07/15/2009, 12:17
|
#3
|
elite*gold: 0
Join Date: Jun 2008
Posts: 6
Received Thanks: 1
|
Yes,it not my script.But it public scrip i can use it.i just to ask why it not work for me?
I change something in script but it not work.character it run and normal atk but it not use skill. THANK for help sorry for my english is bad.
|
|
|
07/15/2009, 21:48
|
#4
|
elite*gold: 0
Join Date: Jan 2006
Posts: 546
Received Thanks: 75
|
if your using F1~ keys to execute skills then you might want to change that to 1-0 hink it uses only aoe skills well... looks like the script was writen like that to only recognize aoe skill.. sorry thats based on what i understand on the script ... anyways... put aoe skill on your 0-9 slots... then run it again!
|
|
|
|
Similar Threads
|
Problem VB 10 Patcher Script Problem
09/20/2010 - .NET Languages - 8 Replies
Hayho liebe Com.
ich habe mal wieder einen ganz netten Patcher gescriptet, für einen metin2 P Server,
da es nicht mein erster is, hab ich echt kp was da vorliegt, Hier der Script an sich:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles...
|
DB Bot Script Problem
07/21/2010 - SRO Private Server - 1 Replies
Hey Guys,
I have a Problem with the Scripts+Loop.
I load a Script e.g. for Bandits. THe Problem is, the Bot doesnt run to the Hunting place and he doesnt Port back to town.
I read that i must start at Hotan? Is that true cause Im just lvl 20..
Thanks for ur help =)
edit: Im playing on swsro2
|
[HOW-TO]Hp-Script+Admin-script (weekly-updatet) problem!
06/21/2010 - Metin2 Private Server - 11 Replies
hallo leute ich hab ein problem und zwar bei dem hp script von masterboss kommt der fehler :
http://img541.imageshack.us/img541/8140/24955249. png
und wenn ich dann die datei öffne und in die zeile gehe kommt:
while($row = mysql_fetch_array($ergebnis))
kann mir jmd helfen?
|
Script problem
06/10/2010 - AutoIt - 2 Replies
hi..
ich wollte mir nen bot für nostale schreiben... doch i.wo haperts da bei mir bzw autoit will das ding nich so wirklich ausführen und gibt mir folgenden fehler:
Er sagt:Variable used without being declared ( zeile 49)
deutsch: Variable verwendet, ohne dass erklärt
hier mal mein script:
Hoffe mir kann jmd hfeln...
|
Problem Script
02/05/2009 - Cabal Online - 4 Replies
Ok i have a problem, i use a the script bot from camp.
My problem is i can run the script on my pc starting it up from cabal without a bypass and run the script/bot this is with GG running as well.
But when i try the same thing on my laptop it doesn't work i need to have a bypass up and because the bypass makes you d/c(i think its the programme am using) i can't seem to run the script/bot.
Anyone got any ideas of how to make it work on my laptop with having to bypass it.
The bot does work...
|
All times are GMT +2. The time now is 22:52.
|
|