[Prerelease] Soul Ultimate Nation Bot :)

kokosz · 16 Listopada 2009

Tak jak pisałem, chcę Was trochę zmotywować do pisania... bo to w końcu forum o cheatach a nie o dupie marynie:

Wiem, że na Windows 7 hackshield się elegancko bypassuje, jak jest na windows xp? Nie chciało mi się dokładnie sprawdzać... bo nie miałem takiej potrzeby. Dla kumpla jednak doszedłem do tego, że hackshield nie wywalał za hacki.

Wrzucę trochę kodu, który być może Was zainspiruje... nie jest to skończone... pisałem dla siebie... ale Wy starzy wymiatacze napisalibyście coś konkretnego

; Bot przystosowany do rozdzialki 640x480
; skille atakujace 2,3,4,5,6,
; sit 7, pickup = ii
;
WinActivate("SUN Online")
AutoItSetOption ( "MouseCoordMode" , 2 )
AutoItSetOption ( "MouseClickDownDelay" , 1000 )
AutoItSetOption ( "PixelCoordMode" , 2 )
HotKeySet("{ESC}", "Terminate")
Func Terminate()
   Exit 0
EndFunc
Func CatchMob()
	$value = 0



	$coord = PixelSearch( 410-10, 30-10, 410+10, 50+10, 0x000000 )
	If Not @error Then
		If IsArray($coord) Then
			$value = 1

		EndIf
	EndIf
Return $value
EndFunc

Func FuckingMob()
$tmp = 1

While $tmp = 1 
	$tmp = CatchMob()

	If $tmp = 1 Then  
	Send("2")
	EndIf	

Sleep(1000)

	$tmp = CatchMob()

	If $tmp = 1 Then  
	Send("3")
	EndIf
Sleep(1000)

;		$tmp = CatchMob()

;		If $tmp = 1 Then  
;		Send("4")
;		EndIf
;	Sleep(1000)

WEnd


EndFunc

Func hplvl()
$value = "under 50%  "
	$coord = PixelSearch( 182-3, 10-3, 182+3, 10+3, 0x0cae00 )
	If Not @error Then
		If IsArray($coord) Then
			;max
			$value = 3


		EndIf
	EndIf

	$coord = PixelSearch( 160-3, 10-3, 160+3, 10+3, 0x0ba500 )
	If Not @error Then
		If IsArray($coord) Then
			;3/4
			$value = 2


		EndIf
	EndIf

	$coord = PixelSearch( 123-3, 13-3, 123+3, 13+3, 0x0a9300 )
	If Not @error 	Then
		If IsArray($coord) Then
			;50%
			$value = 1


		EndIf
	EndIf

	ConsoleWrite($value)
Return $value

EndFunc


$dupa = 1
$countmobkill = 0
$nomobcounter = 0
$sitcounter = 0
While 1

$dupa = CatchMob()

;hplvl()	
If $dupa = 1 Then
	;Consolewrite("Jest mob" & @CRLF)
	FuckingMob()
	$nomobcounter = 0
	$sitcounter = 0
Else
	;Consolewrite("Nie ma moba" & @CRLF)
	Send("{TAB}")
	Send("=")
	Send("=")
	Send("=")
	Send("=")
	Send("=")
	Endif

	If $nomobcounter = 0 Then
		$begin = TimerInit()
		$nomobcounter = 1
	EndIf

	$dif = TimerDiff($begin)/1000
	;siedze = 1
	If $dif > 3 Then
		If $sitcounter = 0 Then
			Send("7")
			$sitcounter = 1
		EndIf

	EndIf


Sleep(300)
WEnd

A tutaj napisałem prosty remote control dla mojej postaci ( mój przyjaciel sterował mną jak byłem na AFK w tower of ruins ).

Do pracy potrzebny jest klient, który mam na drugim kompie a aktualnie nie chce mi się go włączać :P

Func Gadaj($message)
		WinActivate("SUN Online")
		Sleep(600)
		Send("{ENTER}")
		Sleep(300)
		;StringTrimRight($message,)
		;StringStripCR($message)
		StringStripWS($message,8)
		ClipPut($message)
		Send("^v")

		;MsgBox(1,"123",$message)
		;Send($message)
		Sleep(600)
		Send("{ENTER}")
		Sleep(600)

EndFunc


WinActivate("SUN Online")
$g_IP = "192.168.0.15"

; Start The TCP Services
;==============================================


;  look for client connection
;--------------------
$sitcounter = 1
$dif1 = 0
$begin1 = TimerInit()
$lastfollow = "kaszanka"
$leader = "zock"
$out = 1
Dim $topsplit
$out1 = 0
While 1

If $out1 <> 1 Then
		TCPShutdown()
		TCPStartUp()

		; Create a Listening "SOCKET"
		;==============================================
		$MainSocket = TCPListen($g_IP, 65432,  1000)
		If @error Then Exit MsgBox(16 , "Error" , "Could not bind")

		If $MainSocket = -1 Then  
			ConsoleWrite("Disco..." & @CRLF)
			Exit
		EndIf
			$out1 = 1
EndIf
$ConnectedSocket = TCPAccept( $MainSocket)

If $ConnectedSocket <> -1 Then
ConsoleWrite("Connected..." & @CRLF)
$out = 0
TCPSend($ConnectedSocket, "Hello! Alpine remote v1" & @CRLF) 
TCPSend($ConnectedSocket, "=======================================================================" & @CRLF)	
TCPSend($ConnectedSocket, "Podstawowe komendy:" & @CRLF)
TCPSend($ConnectedSocket, "#z - mana shield." & @CRLF)	
TCPSend($ConnectedSocket, "#f <nick> - follow za nickiem. np. #f zock." & @CRLF)
TCPSend($ConnectedSocket, "#p <nick> - party dla nicka. #p zock" & @CRLF)
TCPSend($ConnectedSocket, "#heal - healuje całe party." & @CRLF)
TCPSend($ConnectedSocket, "=======================================================================" & @CRLF)
TCPSend($ConnectedSocket, "Dodatkowe komendy:" & @CRLF)
TCPSend($ConnectedSocket, "z - Mana Shield /czasem nie dziala" & @CRLF)
TCPSend($ConnectedSocket, "x - Follow na nick zock /czasem nie dziala" & @CRLF)
TCPSend($ConnectedSocket, "c - Follow na nick WulFgar /czasem nie dziala" & @CRLF)

TCPSend($ConnectedSocket, "=======================================================================" & @CRLF)
TCPSend($ConnectedSocket, "TIPS 1 : Po daniu Magic Shield, postac ustawia automatycznie follow na ostatniej osobie na której był dany follow. Jesli nie bylo follow wczesniej, to po prostu poda skilla." & @CRLF)
TCPSend($ConnectedSocket, "=======================================================================" & @CRLF)
While $out <> 1

	$recv = TCPRecv($ConnectedSocket, 2048)
	If @error Then 
		$error=1
		;ConsoleWrite($error)
		$out= 1

	EndIf

	If StringCompare($recv,"c")=0  Then 
		Gadaj("/follow WulFgar")

		$lastfollow = "WulFgar"
		Gadaj("/whisper " & $leader & " Biegam za " & $lastfollow)
	EndIf

	If StringCompare($recv,"x")=0  Then 
		Gadaj("/follow zock")
		$lastfollow = "zock"
		Gadaj("/whisper " & $leader & " Biegam za " & $lastfollow)


	EndIf


	If StringInStr($recv, "#f") Then 
		$tosplit= StringSplit($recv," ")
;			ConsoleWrite($tosplit[2] & @CRLF)
;			Consolewrite("/Follow " & $tosplit[2]  & @CRLF)
		ConsoleWrite($recv & @CRLF)
		ConsoleWrite($recv & @CRLF)
		$tosplit[2] = StringStripCR($tosplit[2])
		Gadaj("/follow " & $tosplit[2])
		$lastfollow = $tosplit[2]
		Gadaj("/whisper " & $leader & " Biegam za " & $lastfollow)
	EndIf

	If StringInStr($recv, "#p") Then 
		$tosplit= StringSplit($recv," ")
		$tosplit[2] = StringStripCR($tosplit[2])
;			ConsoleWrite($tosplit[2] & @CRLF)
;			Consolewrite("/Follow " & $tosplit[2]  & @CRLF)
		Gadaj("/party " & $tosplit[2])


	EndIf		

	If StringInStr($recv, "#heal") Then 
		;$tosplit= StringSplit($recv," ")
;			ConsoleWrite($tosplit[2] & @CRLF)
;			Consolewrite("/Follow " & $tosplit[2]  & @CRLF)

		;Gadaj("Wskrzeszam osobe nr " & $tosplit[2])
		WinActivate("SUN Online")

		Send("6")
		Gadaj("/whisper " & $leader & " healuje party. " )
		If StringCompare($lastfollow,"kaszanka")<>0  Then 
			Gadaj("/follow " & $lastfollow)
			Gadaj("/whisper " & $leader & " Biegam za " & $lastfollow)
		EndIf
	;TCPCloseSocket($MainSocket)
	;$out = 1
	 ;$out1 = 1

	EndIf		


	If StringInStr($recv, "#z") Then 
		WinActivate("SUN Online")

		Send("1")
		If StringCompare($lastfollow,"kaszanka")<>0  Then 
			Gadaj("/follow " & $lastfollow)
			Gadaj("/whisper " & $leader & " Daje MS i biegam za " & $lastfollow)
		EndIf
		$begin1 = TimerInit()
		$sitcounter = 0


	EndIf	
	If StringInStr($recv, "#n") Then 
		WinActivate("SUN Online")

		Send("8")
		If StringCompare($lastfollow,"kaszanka")<>0  Then 
			Gadaj("/follow " & $lastfollow)
			Gadaj("/whisper " & $leader & " Speed UP dla party i biegam za " & $lastfollow)
		EndIf
		$begin1 = TimerInit()
		$sitcounter = 0


	EndIf	
	If StringCompare($recv,"z")=0  Then 
		WinActivate("SUN Online")

		Send("1")
		If StringCompare($lastfollow,"kaszanka")<>0  Then 
			Gadaj("/follow " & $lastfollow)
			Gadaj("/whisper " & $leader & " Daje MS i biegam za " & $lastfollow)
		EndIf
		$begin1 = TimerInit()
		$sitcounter = 0

	EndIf





	$dif1 = TimerDiff($begin1)/1000	
	If $dif1 > 300 Then

		If $sitcounter = 0 Then
			Gadaj("/whisper " & $leader & " Magic Shield trwa juz 5 minut.")

			$sitcounter = 1
		EndIf

	EndIf		



WEnd

EndIf





Wend

Do roboty Jak coś to służę pomocą.

xDarest · 16 Listopada 2009

Nooo Ładneee

Osobiście pobawie się z tym Remote Controlem

kokosz · 16 Listopada 2009

bez clienta sie nie pobawisz raczej ;] mocna beta ;D

xDarest · 17 Listopada 2009

No właśnie widze

Czegoś mi brakowało :P

Wrzuć może clienta jak nie za dużo (dla Ciebie) waży :P

kokosz-facebook · 17 Listopada 2009

jak bedzie mi sie chcialo odpalic laptopa to wrzuce ;]

Ozi · 1 Lutego 2010

Sorry ze odkopuje ale jest jakas szansa na clienta do tego sterowania? Ciekawa sprawa

kokosz · 1 Lutego 2010

nie pamietam co za bzdety pisalem... nie pamietam funkcjonalnosci... ale pewnie jak sie wczytasz to zakumasz :-)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\mj\Pulpit\autobutclient\Form1.kxf
$Form1 = GUICreate("Alpine Remote Control", 186, 342, 547, 125)
$Button1 = GUICtrlCreateButton("Follow", 16, 96, 153, 57, $WS_GROUP)
$Input1 = GUICtrlCreateInput("nick___", 32, 48, 137, 21)
$Button2 = GUICtrlCreateButton("Magic Shield", 16, 168, 153, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Connect", 16, 8, 153, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("nick", 8, 48, 24, 17)
;$Checkbox1 = GUICtrlCreateCheckbox("Utrzymaj follow po MS", 16, 208, 145, 25)
$Button4 = GUICtrlCreateButton("Healing", 16, 248, 153, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
$connected = 0 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg

       Case $GUI_EVENT_CLOSE
           If $connected = 1 Then
               TCPSend($socket, "QUIT :TCPClient exited." & @CRLF)
               TCPCloseSocket($socket)
               TCPShutdown()
           EndIf
           Exit
	Case $Form1
	Case $Form1
	Case $Form1
	Case $Form1
	Case $Button2
		If $connected = 1 Then
			$nick = GUICtrlRead($Input1)
			TCPSend($socket, "#z ")
		EndIf
	Case $Input1
	Case $Button1
		If $connected = 1 Then
			$nick = GUICtrlRead($Input1)
			TCPSend($socket, "#f " & $nick )
		EndIf
	Case $Button4
		If $connected = 1 Then
			$nick = GUICtrlRead($Input1)
			TCPSend($socket, "#heal " )
		EndIf





	Case $Button3
                   $ip = "188.122.8.95"
                   $port = 65432
                   $socket = TCPConnect($ip, $port)
                 If $socket = -1 Then
                       MsgBox(64, "TCPClient", "Connection Failure.")
                       $connected = 0
                   Else
                       ;MsgBox(64, "TCPClient", "Connected successfully.")
                       $connected = 1
                       ;GUICtrlSetState(-1, $GUI_DISABLE)
					;GUICtrlSetState(-3, $GUI_DISABLE)
					;GUICtrlSetState(-3, $GUI_DISABLE)
				EndIf
	EndSwitch
WEnd

Ozi · 3 Lutego 2010

Oki widze widze Jak tylko to odpale i bedzie dzialac to wezme sie za modyfikacje

Nie wiem jak z innymi grami ale w SunOnline widze HackShielda w grze WarRock dalo sie go wylaczyc moze i tu mozna testowal ktos? Sry ze w tym dziale

A kokosz mogl bys podac jakis kontakt do siebie szybki ale nie komorkowy?;p Bo chetnie to zmodyfikuje ale przyda mi sie twoja mala pomoc

kamil944 · 2 Października 2010

thx;d

Zaloguj się

👋 Witaj na MPCForum!

[Prerelease] Soul Ultimate Nation Bot :)

Rekomendowane odpowiedzi

kokosz

kokosz

xDarest

xDarest

kokosz

kokosz

xDarest

xDarest

kokosz-facebook

kokosz-facebook

Ozi

Ozi

kokosz

kokosz

Ozi

Ozi

kamil944

kamil944

Zarchiwizowany