- 28 Aprile 2010
- 1.236
- 0
- Miglior risposta
- 0
Guida come creare un bot pesca metin2 in autoit
Ciao a tutti, come sapete Autoit ? un linguaggio semplicissimo infatti si possono creare bot, hack molto complessi tramite il semplice script di Autoit, oggi vi spiegherò come creare un Bot pesca basato sui value di metin2, per farlo ? necessario avere:
- Autoit scaricabile qui
- uno script di Autoit che nel setup ? assente che dovrete inserire in:
CProgrammi\AutoIt3\Include
-Download:
Guida come creare un bot pesca metin2 in autoit
Ciao a tutti, come sapete Autoit ? un linguaggio semplicissimo infatti si possono creare bot, hack molto complessi tramite il semplice script di Autoit, oggi vi spiegher? come creare un Bot pesca basato sui value di metin2, per farlo ? necessario avere:
- Autoit scaricabile qui:
- uno script di Autoit che nel setup ? assente che dovrete inserire in:
CProgrammi\AutoIt3\Include
download: NomadMemory.au3
- un computer con la tastiere, il mouse e le dita
in caso di assenza
download:
bene andate sul desktop dopo aver installato autoit e aver inserito il file scaricato nella cartella include, fate col tasto destro
nuovo > Autoit v3 script
dopodich? lo premete col destro e premete
Edit script
ora incollateci questo codice e premete f5
Codice:
#Include <GUIConstants.au3>
#include <timers.au3>
#include <process.au3>
#include <nomadMemory.au3>
#include <GuiEdit.au3>
$Gui = GUICreate("", 390, 150,625,435)
$processo = "Metin2client.bin"
$handle=_Memoryopen(ProcessExists($processo))
GUICtrlSetState(-1,$GUI_CHECKED)
$edit = GUICtrlCreateEdit("------------------"&@crlf&"Registro Pesca"&@crlf&"------------------"&@crlf&"",10,40,370,100)
$min1 = GUICtrlCreateInput("2300",45,10,45, 20)
$max1 = GUICtrlCreateInput("2700",140,10,45, 20)
$start = GUICtrlCreateButton("Avvia", 260,13, 65, 20,1,0)
$process = GUICtrlCreateButton("Process", 330,13, 50, 20)
GUICtrlCreateLabel("Min",10,10, 35, 20)
GUICtrlCreateLabel("Max",100,10, 35, 20)
GUISetState(@SW_SHOW)
while 1
$handle=_Memoryopen(ProcessExists($processo))
$MSG = GUIGetMsg()
Switch $Msg
case $GUI_EVENT_CLOSE
exit
CASE $process
; paragrafo 1?
CASE $start
; paragrafo 2?
endSwitch
wend
in teoria dovrebbe venire una gui di questo genere:
screen:
coi segguenti tasti:
AVVIA:
avvier? il bot che dopo vedremo i dettagli
PROCESS:
cambia il processo x la visualizzazione dei value, visto che l'ultimo aggiornamento ora bisogna stare attenti.
Min & Max
tempo massimo e minimo della pescata
Elenco pesca
? una funzione avanzata, la ho messa xke ? una cosa troppo figosa che ho scoperto da poco
per? se premete i tasti non funzionano e quindi andremo ad implementarne uno alla volta, intanto implementiamo PROCESS quindi inserite nel "Paragrafo 1?" il seguente codice:
Codice: case $process
$processo = InputBox("Processo","Inserisci il nome del processo","Metin2client.bin")
$handle=_Memoryopen(ProcessExists($processo))
ora andremo ad implementare la pesca e nel "Paragrafo 2?" inserite:
Codice:
$min = gUICtrlRead($min1)
$max = gUICtrlRead($max1)
$xLLx = 1
$xxx = 777
$yyy = 546
$tot = 1
$init=TimerInit()
MSGBOX(0,"ATTENTO","Dopo aver premuto OK avrai 2 secondi per accedere a metin2, ricordo di aver zumato al massimo tenendo premuto R+G")
sleep(3000)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
Send("{r down}")
Send("{g down}")
while 1
$random = Random($min,$max)
$pes = PixelGetColor(385,42)
If $pes > 16000000 and $pes < 17000000 then
$xLLx = $xLLx + 1
$init=TimerInit()
_GUICtrlEdit_AppendText($edit,"? Apparsa la nuvoletta"& @CRLF)
sleep($random)
Send("{space down}")
sleep(1000)
Send("{space up}")
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 1"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 2 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 2"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{2 down}")
sleep(1000)
Send("{2 up}")
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 3 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 3"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 4 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 4"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
endif
endif
;Paragrafo 3?
wend
cosa ? che fa questo source aggiunto? pesca soltanto utilizzando 4 esche
ed scrive nel Registro pesca l'utilizzo dell'esca e quando appare la nuvoletta.
per? succede spesso che per colpa dell' lagg il bot smetta di pescare, quindi ho aggiunto l'avvio di un timer tramite il comando $init=TimerInit()
se andate a ripassare il source sovra stante lo ritroverete.
come vedete oltre a prima del while 1 cene un altro dopo il controllo della nuvoletta e quello serve per riavviare il tempo nel caso che venga la nuvoletta.
per fariin modo che se la nuvoletta non appare si pensa un tempo io di solito metto 80 secondi, cioe se non appare la nuvoletta entro 80 secondi ricomincia a pescare.
per far cio nel "paragrafo 3?" scrivete questo source:
Codice:$diff=TimerDiff($init)
If $diff > 80000 Then
_GUICtrlEdit_AppendText($edit,"Timer a 80!!!"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Riavvio..."& @CRLF)
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 then
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
$init=TimerInit()
endif
if $xLLx = 2 then
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 3 then
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 4 then
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
endif
;paragrafo 4?
bene ora abbiamo creato un bot pesca che pesca soltanto utilizzando 4 slot esca ora nel "paragrafo 4?" mettiamo il seguente codice
Codice:
$value=_MemoryRead("0x005f29b4",$handle)
$valueoff=$value+116
$valuehex=Hex($valueoff)
$address=_MemoryRead("0x"&$valuehex,$handle)
;paragrafo 5?
Quest ultimo rileva gli address nello slot 1 dell'inventario in modo da far venire un operazione dipendentemente dall'address
ora nel "paragrafo 5?" mettete:
Codice:
If $address > 27832 And $address < 27854 Then;morti
_GUICtrlEdit_AppendText($edit,"Pesce morto "& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(1000)
EndIf
If $address > 27802 And $address < 27824 Then;vivi
_GUICtrlEdit_AppendText($edit,"Un Pesce!"& @CRLF)
MouseClick("right",655,285,1,10)
EndIf
if $address = 27799 Then ;lisca
_GUICtrlEdit_AppendText($edit,"Una prezziosissima lisca O.o CONSERVIAMOLA lol"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
If $address>70200 And $address<70207 Then;tinte
_GUICtrlEdit_AppendText($edit,"Una tita O.o"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Verr? buttata!!!"& @CRLF)
MouseClick("left",645,284,1,30)
MouseClick("left",144,365,1,30)
MouseClick("left",340,347,1,30)
MouseClick("left")
sleep(5000)
endif
;item
If $address=27992 Or $address=27993 Or $address=27994 Or $address=27801 Or $address=27833 Or $address=27834 Or $address=27835 Or $address=27836 Or $address=27837 Or $address=27839 Or $address=27840 Or $address=27841 Or $address=27842 Or $address=27843 Or $address=27844 Or $address=27845 Or $address=27846 Or $address=27847 Or $address=27848 Or $address=27849 Or $address=27850 Or $address=27851 Or $address=27852 Or $address=27853 Or $address=70051 Or $address=70050 Or $address=70049 Or $address= 27838 Then
_GUICtrlEdit_AppendText($edit,"Bell'item, verr? conservato"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
;ostrica
if $address = 27987 Then
_GUICtrlEdit_AppendText($edit,"OSTRICAAAAAAAAAAAAA AAAAA!!!!"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
if $tot = 1 then
$xxx = 777
$yyy = 546
elseif $tot = 2 then
$xxx = 777-32
$yyy = 546
elseif $tot = 3 then
$xxx = 777-32-32
$yyy = 546
elseif $tot = 4 then
$xxx = 777-32-32-32
$yyy = 546
elseif $tot = 5 then
$xxx = 777-32-32-32-32
$yyy = 546
elseif $tot = 6 then
$xxx = 777
$yyy = 546-32
elseif $tot = 7 then
$xxx = 777-32
$yyy = 546-32
elseif $tot = 8 then
$xxx = 777-32-32
$yyy = 546-32
elseif $tot = 9 then
$xxx = 777-32-32-32
$yyy = 546-32
elseif $tot = 10 then
$xxx = 777-32-32-32-32
$yyy = 546-32
elseif $tot = 11 then
$xxx = 777
$yyy = 546-32-32
elseif $tot = 12 then
$xxx = 777-32
$yyy = 546-32-32
elseif $tot = 13 then
$xxx = 777-32-32
$yyy = 546-32-32
elseif $tot = 14 then
$xxx = 777-32-32-32
$yyy = 546-32-32
elseif $tot = 15 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32
elseif $tot = 16 then
$xxx = 777
$yyy = 546-32-32-32
elseif $tot = 17 then
$xxx = 777-32
$yyy = 546-32-32-32
elseif $tot = 18 then
$xxx = 777-32-32
$yyy = 546-32-32-32
elseif $tot = 19 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32
elseif $tot = 20 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32
elseif $tot = 21 then
$xxx = 777
$yyy = 546-32-32-32-32
elseif $tot = 22 then
$xxx = 777-32
$yyy = 546-32-32-32-32
elseif $tot = 24 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32
elseif $tot = 25 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32
elseif $tot = 26 then
$xxx = 777
$yyy = 546-32-32-32-32-32
elseif $tot = 27 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32
elseif $tot = 28 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 29 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 30 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 31 then
$xxx = 777
$yyy = 546-32-32-32-32-32-32
elseif $tot = 32 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 33 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 34 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 35 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 36 then
MsgBox(0,"","finiti gli slot")
endif
la variabile $address sono ? l'individuazione dei value le variabili sucessive come $tot e $xxx e $yyy servono per conservare l'item
ricordatevi che wend del source iniziale deve andare infondo insieme a
endSwitch
wend
che servono per la gui
il codice completo ? questo:
Codice:
#Include <GUIConstants.au3>
#include <timers.au3>
#include <process.au3>
#include <nomadMemory.au3>
#include <GuiEdit.au3>
$Gui = GUICreate("", 390, 150,625,435)
$processo = "Metin2client.bin"
$handle=_Memoryopen(ProcessExists($processo))
GUICtrlSetState(-1,$GUI_CHECKED)
$edit = GUICtrlCreateEdit("------------------"&@crlf&"Registro Pesca"&@crlf&"------------------"&@crlf&"",10,40,370,100)
$min1 = GUICtrlCreateInput("2300",45,10,45, 20)
$max1 = GUICtrlCreateInput("2700",140,10,45, 20)
$start = GUICtrlCreateButton("Avvia", 260,13, 65, 20,1,0)
$process = GUICtrlCreateButton("Process", 330,13, 50, 20)
GUICtrlCreateLabel("Min",10,10, 35, 20)
GUICtrlCreateLabel("Max",100,10, 35, 20)
GUISetState(@SW_SHOW)
while 1
$handle=_Memoryopen(ProcessExists($processo))
$MSG = GUIGetMsg()
Switch $Msg
case $GUI_EVENT_CLOSE
exit
CASE $process
; paragrafo 1?
$processo = InputBox("Processo","Inserisci il nome del processo","Metin2client.bin")
$handle=_Memoryopen(ProcessExists($processo))
CASE $start
; paragrafo 2?
$min = gUICtrlRead($min1)
$max = gUICtrlRead($max1)
$xLLx = 1
$xxx = 777
$yyy = 546
$tot = 1
$init=TimerInit()
MSGBOX(0,"ATTENTO","Dopo aver premuto OK avrai 2 secondi per accedere a metin2, ricordo di aver zumato al massimo tenendo premuto R+G")
sleep(3000)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
Send("{r down}")
Send("{g down}")
while 1
$random = Random($min,$max)
$pes = PixelGetColor(385,42)
If $pes > 16000000 and $pes < 17000000 then
$xLLx = $xLLx + 1
$init=TimerInit()
_GUICtrlEdit_AppendText($edit,"? Apparsa la nuvoletta"& @CRLF)
sleep($random)
Send("{space down}")
sleep(1000)
Send("{space up}")
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 1"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 2 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 2"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{2 down}")
sleep(1000)
Send("{2 up}")
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 3 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 3"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 4 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 4"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
endif
endif
;Paragrafo 3?
$diff=TimerDiff($init)
If $diff > 80000 Then
_GUICtrlEdit_AppendText($edit,"Timer a 80!!!"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Riavvio..."& @CRLF)
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 then
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
$init=TimerInit()
endif
if $xLLx = 2 then
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 3 then
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 4 then
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
endif
;paragrafo 4?
$value=_MemoryRead("0x005f29b4",$handle)
$valueoff=$value+116
$valuehex=Hex($valueoff)
$address=_MemoryRead("0x"&$valuehex,$handle)
;paragrafo 5?
If $address > 27832 And $address < 27854 Then;morti
_GUICtrlEdit_AppendText($edit,"Pesce morto "& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(1000)
EndIf
If $address > 27802 And $address < 27824 Then;vivi
_GUICtrlEdit_AppendText($edit,"Un Pesce!"& @CRLF)
MouseClick("right",655,285,1,10)
EndIf
if $address = 27799 Then ;lisca
_GUICtrlEdit_AppendText($edit,"Una prezziosissima lisca O.o CONSERVIAMOLA lol"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
If $address>70200 And $address<70207 Then;tinte
_GUICtrlEdit_AppendText($edit,"Una tita O.o"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Verr? buttata!!!"& @CRLF)
MouseClick("left",645,284,1,30)
MouseClick("left",144,365,1,30)
MouseClick("left",340,347,1,30)
MouseClick("left")
sleep(5000)
endif
;item
If $address=27992 Or $address=27993 Or $address=27994 Or $address=27801 Or $address=27833 Or $address=27834 Or $address=27835 Or $address=27836 Or $address=27837 Or $address=27839 Or $address=27840 Or $address=27841 Or $address=27842 Or $address=27843 Or $address=27844 Or $address=27845 Or $address=27846 Or $address=27847 Or $address=27848 Or $address=27849 Or $address=27850 Or $address=27851 Or $address=27852 Or $address=27853 Or $address=70051 Or $address=70050 Or $address=70049 Or $address= 27838 Then
_GUICtrlEdit_AppendText($edit,"Bell'item, verr? conservato"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
;ostrica
if $address = 27987 Then
_GUICtrlEdit_AppendText($edit,"OSTRICAAAAAAAAAAAAA AAAAA!!!!"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
if $tot = 1 then
$xxx = 777
$yyy = 546
elseif $tot = 2 then
$xxx = 777-32
$yyy = 546
elseif $tot = 3 then
$xxx = 777-32-32
$yyy = 546
elseif $tot = 4 then
$xxx = 777-32-32-32
$yyy = 546
elseif $tot = 5 then
$xxx = 777-32-32-32-32
$yyy = 546
elseif $tot = 6 then
$xxx = 777
$yyy = 546-32
elseif $tot = 7 then
$xxx = 777-32
$yyy = 546-32
elseif $tot = 8 then
$xxx = 777-32-32
$yyy = 546-32
elseif $tot = 9 then
$xxx = 777-32-32-32
$yyy = 546-32
elseif $tot = 10 then
$xxx = 777-32-32-32-32
$yyy = 546-32
elseif $tot = 11 then
$xxx = 777
$yyy = 546-32-32
elseif $tot = 12 then
$xxx = 777-32
$yyy = 546-32-32
elseif $tot = 13 then
$xxx = 777-32-32
$yyy = 546-32-32
elseif $tot = 14 then
$xxx = 777-32-32-32
$yyy = 546-32-32
elseif $tot = 15 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32
elseif $tot = 16 then
$xxx = 777
$yyy = 546-32-32-32
elseif $tot = 17 then
$xxx = 777-32
$yyy = 546-32-32-32
elseif $tot = 18 then
$xxx = 777-32-32
$yyy = 546-32-32-32
elseif $tot = 19 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32
elseif $tot = 20 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32
elseif $tot = 21 then
$xxx = 777
$yyy = 546-32-32-32-32
elseif $tot = 22 then
$xxx = 777-32
$yyy = 546-32-32-32-32
elseif $tot = 24 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32
elseif $tot = 25 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32
elseif $tot = 26 then
$xxx = 777
$yyy = 546-32-32-32-32-32
elseif $tot = 27 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32
elseif $tot = 28 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 29 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 30 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 31 then
$xxx = 777
$yyy = 546-32-32-32-32-32-32
elseif $tot = 32 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 33 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 34 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 35 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 36 then
MsgBox(0,"","finiti gli slot")
endif
wend
endSwitch
wend
in caso scaricati lo script da qui:
download
Fonte: GP (ma testo modificato da me Revox)
Ciao a tutti, come sapete Autoit ? un linguaggio semplicissimo infatti si possono creare bot, hack molto complessi tramite il semplice script di Autoit, oggi vi spiegherò come creare un Bot pesca basato sui value di metin2, per farlo ? necessario avere:
- Autoit scaricabile qui
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
- uno script di Autoit che nel setup ? assente che dovrete inserire in:
CProgrammi\AutoIt3\Include
-Download:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Guida come creare un bot pesca metin2 in autoit
Ciao a tutti, come sapete Autoit ? un linguaggio semplicissimo infatti si possono creare bot, hack molto complessi tramite il semplice script di Autoit, oggi vi spiegher? come creare un Bot pesca basato sui value di metin2, per farlo ? necessario avere:
- Autoit scaricabile qui:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
- uno script di Autoit che nel setup ? assente che dovrete inserire in:
CProgrammi\AutoIt3\Include
download: NomadMemory.au3
- un computer con la tastiere, il mouse e le dita
in caso di assenza
download:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
bene andate sul desktop dopo aver installato autoit e aver inserito il file scaricato nella cartella include, fate col tasto destro
nuovo > Autoit v3 script
dopodich? lo premete col destro e premete
Edit script
ora incollateci questo codice e premete f5
Codice:
#Include <GUIConstants.au3>
#include <timers.au3>
#include <process.au3>
#include <nomadMemory.au3>
#include <GuiEdit.au3>
$Gui = GUICreate("", 390, 150,625,435)
$processo = "Metin2client.bin"
$handle=_Memoryopen(ProcessExists($processo))
GUICtrlSetState(-1,$GUI_CHECKED)
$edit = GUICtrlCreateEdit("------------------"&@crlf&"Registro Pesca"&@crlf&"------------------"&@crlf&"",10,40,370,100)
$min1 = GUICtrlCreateInput("2300",45,10,45, 20)
$max1 = GUICtrlCreateInput("2700",140,10,45, 20)
$start = GUICtrlCreateButton("Avvia", 260,13, 65, 20,1,0)
$process = GUICtrlCreateButton("Process", 330,13, 50, 20)
GUICtrlCreateLabel("Min",10,10, 35, 20)
GUICtrlCreateLabel("Max",100,10, 35, 20)
GUISetState(@SW_SHOW)
while 1
$handle=_Memoryopen(ProcessExists($processo))
$MSG = GUIGetMsg()
Switch $Msg
case $GUI_EVENT_CLOSE
exit
CASE $process
; paragrafo 1?
CASE $start
; paragrafo 2?
endSwitch
wend
in teoria dovrebbe venire una gui di questo genere:
screen:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
coi segguenti tasti:
AVVIA:
avvier? il bot che dopo vedremo i dettagli
PROCESS:
cambia il processo x la visualizzazione dei value, visto che l'ultimo aggiornamento ora bisogna stare attenti.
Min & Max
tempo massimo e minimo della pescata
Elenco pesca
? una funzione avanzata, la ho messa xke ? una cosa troppo figosa che ho scoperto da poco
per? se premete i tasti non funzionano e quindi andremo ad implementarne uno alla volta, intanto implementiamo PROCESS quindi inserite nel "Paragrafo 1?" il seguente codice:
Codice: case $process
$processo = InputBox("Processo","Inserisci il nome del processo","Metin2client.bin")
$handle=_Memoryopen(ProcessExists($processo))
ora andremo ad implementare la pesca e nel "Paragrafo 2?" inserite:
Codice:
$min = gUICtrlRead($min1)
$max = gUICtrlRead($max1)
$xLLx = 1
$xxx = 777
$yyy = 546
$tot = 1
$init=TimerInit()
MSGBOX(0,"ATTENTO","Dopo aver premuto OK avrai 2 secondi per accedere a metin2, ricordo di aver zumato al massimo tenendo premuto R+G")
sleep(3000)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
Send("{r down}")
Send("{g down}")
while 1
$random = Random($min,$max)
$pes = PixelGetColor(385,42)
If $pes > 16000000 and $pes < 17000000 then
$xLLx = $xLLx + 1
$init=TimerInit()
_GUICtrlEdit_AppendText($edit,"? Apparsa la nuvoletta"& @CRLF)
sleep($random)
Send("{space down}")
sleep(1000)
Send("{space up}")
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 1"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 2 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 2"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{2 down}")
sleep(1000)
Send("{2 up}")
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 3 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 3"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 4 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 4"& @CRLF)
MouseClick("LEFT",113,15,1,0)
sleep($temp)
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
endif
endif
;Paragrafo 3?
wend
cosa ? che fa questo source aggiunto? pesca soltanto utilizzando 4 esche
ed scrive nel Registro pesca l'utilizzo dell'esca e quando appare la nuvoletta.
per? succede spesso che per colpa dell' lagg il bot smetta di pescare, quindi ho aggiunto l'avvio di un timer tramite il comando $init=TimerInit()
se andate a ripassare il source sovra stante lo ritroverete.
come vedete oltre a prima del while 1 cene un altro dopo il controllo della nuvoletta e quello serve per riavviare il tempo nel caso che venga la nuvoletta.
per fariin modo che se la nuvoletta non appare si pensa un tempo io di solito metto 80 secondi, cioe se non appare la nuvoletta entro 80 secondi ricomincia a pescare.
per far cio nel "paragrafo 3?" scrivete questo source:
Codice:$diff=TimerDiff($init)
If $diff > 80000 Then
_GUICtrlEdit_AppendText($edit,"Timer a 80!!!"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Riavvio..."& @CRLF)
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 then
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
$init=TimerInit()
endif
if $xLLx = 2 then
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 3 then
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 4 then
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
endif
;paragrafo 4?
bene ora abbiamo creato un bot pesca che pesca soltanto utilizzando 4 slot esca ora nel "paragrafo 4?" mettiamo il seguente codice
Codice:
$value=_MemoryRead("0x005f29b4",$handle)
$valueoff=$value+116
$valuehex=Hex($valueoff)
$address=_MemoryRead("0x"&$valuehex,$handle)
;paragrafo 5?
Quest ultimo rileva gli address nello slot 1 dell'inventario in modo da far venire un operazione dipendentemente dall'address
ora nel "paragrafo 5?" mettete:
Codice:
If $address > 27832 And $address < 27854 Then;morti
_GUICtrlEdit_AppendText($edit,"Pesce morto "& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(1000)
EndIf
If $address > 27802 And $address < 27824 Then;vivi
_GUICtrlEdit_AppendText($edit,"Un Pesce!"& @CRLF)
MouseClick("right",655,285,1,10)
EndIf
if $address = 27799 Then ;lisca
_GUICtrlEdit_AppendText($edit,"Una prezziosissima lisca O.o CONSERVIAMOLA lol"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
If $address>70200 And $address<70207 Then;tinte
_GUICtrlEdit_AppendText($edit,"Una tita O.o"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Verr? buttata!!!"& @CRLF)
MouseClick("left",645,284,1,30)
MouseClick("left",144,365,1,30)
MouseClick("left",340,347,1,30)
MouseClick("left")
sleep(5000)
endif
;item
If $address=27992 Or $address=27993 Or $address=27994 Or $address=27801 Or $address=27833 Or $address=27834 Or $address=27835 Or $address=27836 Or $address=27837 Or $address=27839 Or $address=27840 Or $address=27841 Or $address=27842 Or $address=27843 Or $address=27844 Or $address=27845 Or $address=27846 Or $address=27847 Or $address=27848 Or $address=27849 Or $address=27850 Or $address=27851 Or $address=27852 Or $address=27853 Or $address=70051 Or $address=70050 Or $address=70049 Or $address= 27838 Then
_GUICtrlEdit_AppendText($edit,"Bell'item, verr? conservato"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
;ostrica
if $address = 27987 Then
_GUICtrlEdit_AppendText($edit,"OSTRICAAAAAAAAAAAAA AAAAA!!!!"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
if $tot = 1 then
$xxx = 777
$yyy = 546
elseif $tot = 2 then
$xxx = 777-32
$yyy = 546
elseif $tot = 3 then
$xxx = 777-32-32
$yyy = 546
elseif $tot = 4 then
$xxx = 777-32-32-32
$yyy = 546
elseif $tot = 5 then
$xxx = 777-32-32-32-32
$yyy = 546
elseif $tot = 6 then
$xxx = 777
$yyy = 546-32
elseif $tot = 7 then
$xxx = 777-32
$yyy = 546-32
elseif $tot = 8 then
$xxx = 777-32-32
$yyy = 546-32
elseif $tot = 9 then
$xxx = 777-32-32-32
$yyy = 546-32
elseif $tot = 10 then
$xxx = 777-32-32-32-32
$yyy = 546-32
elseif $tot = 11 then
$xxx = 777
$yyy = 546-32-32
elseif $tot = 12 then
$xxx = 777-32
$yyy = 546-32-32
elseif $tot = 13 then
$xxx = 777-32-32
$yyy = 546-32-32
elseif $tot = 14 then
$xxx = 777-32-32-32
$yyy = 546-32-32
elseif $tot = 15 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32
elseif $tot = 16 then
$xxx = 777
$yyy = 546-32-32-32
elseif $tot = 17 then
$xxx = 777-32
$yyy = 546-32-32-32
elseif $tot = 18 then
$xxx = 777-32-32
$yyy = 546-32-32-32
elseif $tot = 19 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32
elseif $tot = 20 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32
elseif $tot = 21 then
$xxx = 777
$yyy = 546-32-32-32-32
elseif $tot = 22 then
$xxx = 777-32
$yyy = 546-32-32-32-32
elseif $tot = 24 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32
elseif $tot = 25 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32
elseif $tot = 26 then
$xxx = 777
$yyy = 546-32-32-32-32-32
elseif $tot = 27 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32
elseif $tot = 28 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 29 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 30 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 31 then
$xxx = 777
$yyy = 546-32-32-32-32-32-32
elseif $tot = 32 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 33 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 34 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 35 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 36 then
MsgBox(0,"","finiti gli slot")
endif
la variabile $address sono ? l'individuazione dei value le variabili sucessive come $tot e $xxx e $yyy servono per conservare l'item
ricordatevi che wend del source iniziale deve andare infondo insieme a
endSwitch
wend
che servono per la gui
il codice completo ? questo:
Codice:
#Include <GUIConstants.au3>
#include <timers.au3>
#include <process.au3>
#include <nomadMemory.au3>
#include <GuiEdit.au3>
$Gui = GUICreate("", 390, 150,625,435)
$processo = "Metin2client.bin"
$handle=_Memoryopen(ProcessExists($processo))
GUICtrlSetState(-1,$GUI_CHECKED)
$edit = GUICtrlCreateEdit("------------------"&@crlf&"Registro Pesca"&@crlf&"------------------"&@crlf&"",10,40,370,100)
$min1 = GUICtrlCreateInput("2300",45,10,45, 20)
$max1 = GUICtrlCreateInput("2700",140,10,45, 20)
$start = GUICtrlCreateButton("Avvia", 260,13, 65, 20,1,0)
$process = GUICtrlCreateButton("Process", 330,13, 50, 20)
GUICtrlCreateLabel("Min",10,10, 35, 20)
GUICtrlCreateLabel("Max",100,10, 35, 20)
GUISetState(@SW_SHOW)
while 1
$handle=_Memoryopen(ProcessExists($processo))
$MSG = GUIGetMsg()
Switch $Msg
case $GUI_EVENT_CLOSE
exit
CASE $process
; paragrafo 1?
$processo = InputBox("Processo","Inserisci il nome del processo","Metin2client.bin")
$handle=_Memoryopen(ProcessExists($processo))
CASE $start
; paragrafo 2?
$min = gUICtrlRead($min1)
$max = gUICtrlRead($max1)
$xLLx = 1
$xxx = 777
$yyy = 546
$tot = 1
$init=TimerInit()
MSGBOX(0,"ATTENTO","Dopo aver premuto OK avrai 2 secondi per accedere a metin2, ricordo di aver zumato al massimo tenendo premuto R+G")
sleep(3000)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
Send("{r down}")
Send("{g down}")
while 1
$random = Random($min,$max)
$pes = PixelGetColor(385,42)
If $pes > 16000000 and $pes < 17000000 then
$xLLx = $xLLx + 1
$init=TimerInit()
_GUICtrlEdit_AppendText($edit,"? Apparsa la nuvoletta"& @CRLF)
sleep($random)
Send("{space down}")
sleep(1000)
Send("{space up}")
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 1"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 2 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 2"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{2 down}")
sleep(1000)
Send("{2 up}")
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 3 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 3"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
elseif $xLLx = 4 Then
_GUICtrlEdit_AppendText($edit,"Utilizzo dell' esca N? 4"& @CRLF)
MouseClick("LEFT",113,15,1,0)
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(1000)
Send("{space down}")
sleep(1000)
Send("{space up}")
endif
endif
;Paragrafo 3?
$diff=TimerDiff($init)
If $diff > 80000 Then
_GUICtrlEdit_AppendText($edit,"Timer a 80!!!"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Riavvio..."& @CRLF)
if $xLLx > 4 Then
$xLLx = 1
endif
if $xLLx = 1 then
Send("{1 down}")
sleep(1000)
Send("{1 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
$init=TimerInit()
endif
if $xLLx = 2 then
Send("{2 down}")
sleep(1000)
Send("{2 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 3 then
Send("{3 down}")
sleep(1000)
Send("{3 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
if $xLLx = 4 then
Send("{4 down}")
sleep(1000)
Send("{4 up}")
sleep(3000)
Send("{space down}")
sleep(1000)
Send("{space up}")
MouseMove(656,235,50)
$init=TimerInit()
endif
endif
;paragrafo 4?
$value=_MemoryRead("0x005f29b4",$handle)
$valueoff=$value+116
$valuehex=Hex($valueoff)
$address=_MemoryRead("0x"&$valuehex,$handle)
;paragrafo 5?
If $address > 27832 And $address < 27854 Then;morti
_GUICtrlEdit_AppendText($edit,"Pesce morto "& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(1000)
EndIf
If $address > 27802 And $address < 27824 Then;vivi
_GUICtrlEdit_AppendText($edit,"Un Pesce!"& @CRLF)
MouseClick("right",655,285,1,10)
EndIf
if $address = 27799 Then ;lisca
_GUICtrlEdit_AppendText($edit,"Una prezziosissima lisca O.o CONSERVIAMOLA lol"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
If $address>70200 And $address<70207 Then;tinte
_GUICtrlEdit_AppendText($edit,"Una tita O.o"& @CRLF)
_GUICtrlEdit_AppendText($edit,"Verr? buttata!!!"& @CRLF)
MouseClick("left",645,284,1,30)
MouseClick("left",144,365,1,30)
MouseClick("left",340,347,1,30)
MouseClick("left")
sleep(5000)
endif
;item
If $address=27992 Or $address=27993 Or $address=27994 Or $address=27801 Or $address=27833 Or $address=27834 Or $address=27835 Or $address=27836 Or $address=27837 Or $address=27839 Or $address=27840 Or $address=27841 Or $address=27842 Or $address=27843 Or $address=27844 Or $address=27845 Or $address=27846 Or $address=27847 Or $address=27848 Or $address=27849 Or $address=27850 Or $address=27851 Or $address=27852 Or $address=27853 Or $address=70051 Or $address=70050 Or $address=70049 Or $address= 27838 Then
_GUICtrlEdit_AppendText($edit,"Bell'item, verr? conservato"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
;ostrica
if $address = 27987 Then
_GUICtrlEdit_AppendText($edit,"OSTRICAAAAAAAAAAAAA AAAAA!!!!"& @CRLF)
MouseClick("left", 647, 291, 1, 20)
MouseClick("left", $xxx, $yyy, 1, 20)
$tot = $tot + 1
sleep(5000)
endif
if $tot = 1 then
$xxx = 777
$yyy = 546
elseif $tot = 2 then
$xxx = 777-32
$yyy = 546
elseif $tot = 3 then
$xxx = 777-32-32
$yyy = 546
elseif $tot = 4 then
$xxx = 777-32-32-32
$yyy = 546
elseif $tot = 5 then
$xxx = 777-32-32-32-32
$yyy = 546
elseif $tot = 6 then
$xxx = 777
$yyy = 546-32
elseif $tot = 7 then
$xxx = 777-32
$yyy = 546-32
elseif $tot = 8 then
$xxx = 777-32-32
$yyy = 546-32
elseif $tot = 9 then
$xxx = 777-32-32-32
$yyy = 546-32
elseif $tot = 10 then
$xxx = 777-32-32-32-32
$yyy = 546-32
elseif $tot = 11 then
$xxx = 777
$yyy = 546-32-32
elseif $tot = 12 then
$xxx = 777-32
$yyy = 546-32-32
elseif $tot = 13 then
$xxx = 777-32-32
$yyy = 546-32-32
elseif $tot = 14 then
$xxx = 777-32-32-32
$yyy = 546-32-32
elseif $tot = 15 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32
elseif $tot = 16 then
$xxx = 777
$yyy = 546-32-32-32
elseif $tot = 17 then
$xxx = 777-32
$yyy = 546-32-32-32
elseif $tot = 18 then
$xxx = 777-32-32
$yyy = 546-32-32-32
elseif $tot = 19 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32
elseif $tot = 20 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32
elseif $tot = 21 then
$xxx = 777
$yyy = 546-32-32-32-32
elseif $tot = 22 then
$xxx = 777-32
$yyy = 546-32-32-32-32
elseif $tot = 24 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32
elseif $tot = 25 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32
elseif $tot = 26 then
$xxx = 777
$yyy = 546-32-32-32-32-32
elseif $tot = 27 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32
elseif $tot = 28 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 29 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 30 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32
elseif $tot = 31 then
$xxx = 777
$yyy = 546-32-32-32-32-32-32
elseif $tot = 32 then
$xxx = 777-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 33 then
$xxx = 777-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 34 then
$xxx = 777-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 35 then
$xxx = 777-32-32-32-32
$yyy = 546-32-32-32-32-32-32
elseif $tot = 36 then
MsgBox(0,"","finiti gli slot")
endif
wend
endSwitch
wend
in caso scaricati lo script da qui:
download
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Fonte: GP (ma testo modificato da me Revox)
