METIN2: Bot Pesca 1.0 >>>By Erre™<<< [AutoIt]

Stato
Discussione chiusa ad ulteriori risposte.
Ordina per data Ordina commenti per reazioni
E

Erre

Utente Electrum
26 Agosto 2009
237
30
1
128
Ultima modifica da un moderatore:
METIN2: Bot Pesca 2.0 >>>By Erre™<<< [AutoIt]

[size=+3]Bot Pesca 2.0 >>>By Erre™<<<[/size]



[size=+2]Il mio primo bot pesca in auto it!!![/size]


[size=+2]FUNZIONI:[/size]

apre tutto cio che ce nell'inventario
salta le ostriche
usa i pesci piccoli come esca
possibilità di rispondere ai PM (100%)
possibilità di rialzo automatico in caso di morte(100%)
re login (10%)
semi funzione Back ground (fa schio!)

[size=+2]screen[/size]

AVVIO:
2la801h.jpg


INFO:
2hdrxph.jpg


IMPOSTAZIONI SUL TEMPO:
64mibc.jpg


FUNZIONI AVANZATE:
2lthrgk.jpg


FUNZIONE SEMI BACK GROUND:
2vw8jky.jpg



[size=+2]download[/size]

http://www.mediafire.com/?im4wyzjrijm

[size=+2]download versione 2.0[/size]

http://www.mediafire.com/?omyvz23zzzg

[size=+2]scansione[/size]


http://www.virustotal.com/it/analis...5ee3e10620344440774fefcdceb8cd405e-1261011102



[size=+2]Bug/Imprecisioni/Imprevisti[/size]


bug:

Spam ai PM:
la frase è preimpostata e non si puo modificare [size=+2]risolto[/size]

relogin:[size=+2]in lavorazione[/size]
non posso preimpostare i vostri dati quindi ho bloccato questa funzione sperando che nella prossima versione vada

item a tempo/pesci morti:
se nell'inventario uno ci sono questultimi li continua a premere invano quindi consiglio di avere almeno una copia di ogni pesce non raro morto da mettere nell'inventario 2 nella prossima versione (visto che ho tutti i pesci morti li farò gettare)

esche: [size=+2]risolto[/size]
essendo nabbo!
non sapendo come fare la pecca sta che questo bot funziona solo con 200 esche, non riesco neancora come far fare il ciclo =(


imperfezioni:
pesce piccolo:
il pesce piccolo viene utilizzato come esca nella pescata successiva di quella in qui è stato droppato, ma questo non influenza negativamente il bot


tempo:
possibilità di settare solo 1 tempo







[size=+3]VOTATE DITEMI UN VOTO DA 1 A 10 =)[/size]
COME PRIMO BOT PESCA



​
 
Ti aiuto subito, ma ti consiglio di revisionare tutta l' ortografia.
Devi inserire
$frasedaspammare = gUICtrlRead($PM1)
sleep(500)
send($frasedaspammare)
sleep(500)
send("{enter}")
 
no ho risolto con il comando select e una variabile che ad ogni ciclo if aumentava di 1 ma se supera il 4 torna 1 =) il probblema delle esche lo ho risolto e ora provo a reimpostare il bot spam e il relog come mi hai detto e manca solo il butta pesci morti =) e poi e quasi perfetto =))))))))))
appena fatto funzionare il bot spam e il relog posto la prossima versione =)))))))
 
Ultima modifica:
ho sistemato lo spamm bot e ora può usare 800 esche.




mi sapete dire qualcosa sulli comandi:
#include <Timers.au3>

_Timer_Init()

_Timer_Diff()

_Timer_GetTimerID()

_Timer_KillTimer()




poi non capisco in cosa sbaglio nel relogin non parte proprio se lo chekko:

Codice: 
if gUICtrlRead($RE) = $GUI_CHECKED Then
	if gUICtrlRead($RE3) = $GUI_CHECKED Then
		$RE50 = 1
		;$RE50 = MouseGetPos (350,388)
		ENDIF
	if gUICtrlRead($RE4) = $GUI_CHECKED Then
		$RE50 = 2
		;$RE50 = MouseGetPos (350,404)
	ENDIF
	if gUICtrlRead($RE5) = $GUI_CHECKED Then
		$RE50 = 3
		;$RE50 = MouseGetPos (350, 426)
		ENDIF
	if gUICtrlRead($RE6) = $GUI_CHECKED Then
		$RE50 = 4
		;$RE50 = MouseGetPos (350, 448)
		ENDIF
	if gUICtrlRead($RE7) = $GUI_CHECKED Then
		$RE50 = 5
		;$RE50 = MouseGetPos (350, 460)
		ENDIF
	if gUICtrlRead($RE8) = $GUI_CHECKED Then
		$RE50 = 6
		;$RE50 = MouseGetPos (350, 482)
		ENDIF
	if gUICtrlRead($RE9) = $GUI_CHECKED Then
		$RE50 = 7
		;$RE50 = MouseGetPos ( 350, 506,)
		ENDIF
	if gUICtrlRead($RE10) = $GUI_CHECKED Then
		$RE50 = 8
		;$RE50 = MouseGetPos (350, 528)
		ENDIF
	if gUICtrlRead($RE11) = $GUI_CHECKED Then
		$RE50 = 9
		;$RE50 = MouseGetPos (350, 550)
	ENDIF
	
	if gUICtrlRead($RE12) = $GUI_CHECKED Then
		$RE51 = 1
		;$RE51 = MouseGetPos()
		ENDIF
	if gUICtrlRead($RE13) = $GUI_CHECKED Then
	$RE51 = 2
			;$RE51 = MouseGetPos()
		ENDIF
	if gUICtrlRead($RE14) = $GUI_CHECKED Then
		$RE51 = 3
		;$RE51 = MouseGetPos()
		ENDIF
	if gUICtrlRead($RE15) = $GUI_CHECKED Then
		$RE51 = 4
		;$RE51 = MouseGetPos()
		ENDIF
	
	$RE52 = PixelGetColor(543, 515)
	IF $RE52 = 22949 Then
		SLEEP(5000)
		SELECT 
			case $RE50 = 1
			 Mouseclick(350,388,1,20)
			 case $RE50 = 2
			 Mouseclick(350,404,1,20)
			 case $RE50 = 3
			 Mouseclick(350,426,1,20)
			 case $RE50 = 4
			 Mouseclick(350,448,1,20)
			 case $RE50 = 5
			 Mouseclick(350,470,1,20)
			 case $RE50 = 6
			 Mouseclick(350,492,1,20)
			 case $RE50 = 7
			 Mouseclick(350,516,1,20)
			 case $RE50 = 8
			 Mouseclick(350,538,1,20)
			 case $RE50 = 9
			 Mouseclick(350,560,1,20)
		 EndSelect
		  Mouseclick(515,519, 3,20)
		  $carota1 = gUICtrlRead($RE1)
          sleep(500)
          send($carota1&"{enter}"))
		   
		  sleep(200)
		  ;send("{enter}")
		  
		   $carota2 = gUICtrlRead($RE2)
          sleep(500)
          send($carota2&"{enter}")
		  sleep(200)
		   ;send("{enter}")
		   sleep(40000)
		   SELECT 
			case $RE51 = 1
			sleep(5000)
			 case $RE51 = 2
			 Mouseclick(473,556,1,20)
			 case $RE51 = 3
			 Mouseclick(473,556,2,20)
		   case $RE51 = 4
			 Mouseclick(473,556,3,20)
			EndSelect
	 send("{enter}")
	 sleep(50000)
	 send("i")
	MouseClick("right", 333, 617,1 ,5)
				sleep(1000)
				 MouseClick("right", 569, 612,1, 5)
				 MouseMove(656,235,50)
	
	
	
	endif
	
	endif
 
erre,per l'autorelog,prova con una funzione pixelgetcolor inserita in un if a sua volta in un ciclo while,ad es:
Codice: 
While 1
if pixelgetcolor (......) Then
Mouseclick....
Send....
EndIf
WEnd
cioe controlla se il pixel .... viene messo(usa un pixel presente solo nella schermata iniziale)
allora clicca su x,y e senda id e passw

Cmq,mi complimento con te,fai passi da gigante in AutoIt
 
problema io faccio tutto cm dice lascio inventario risoluzione a 16bp e tutto ma mi da errore.... che risoluzione va data 900x600 o 800x600?
 
Stato
Discussione chiusa ad ulteriori risposte.
Top Bottom
Indietro