Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > 12Sky2
You last visited: Today at 22:52

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

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.

Reply
 
Old   #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.
arttato is offline  
Old 07/15/2009, 08:03   #2
 
tri407tiny's Avatar
 
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
tri407tiny is offline  
Old 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.
arttato is offline  
Old 07/15/2009, 21:48   #4
 
-=EPvP^RULEZ=-'s Avatar
 
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!
-=EPvP^RULEZ=- is offline  
Reply


Similar Threads 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.


Powered by vBulletin®
Copyright ©2000 - 2024, 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 ©2024 elitepvpers All Rights Reserved.