Wind Druid Pindle XP Bot

10/21/2006 20:16 x-sol#1
adjust run for run walk

read the script and edit it

it's very simple :bandit:

to start it just make a game go to act 5 make sure you have the red portal press the hot key

Code:
;*********************************************************************
;*********************************************************************
;	D2 Pindle Bot - Mogie
; Designed for Wind Druid
;*********************************************************************
;*********************************************************************
;variables

Global $RUNME = 1
Global $GM = "pindle-whore"
Global $PWD = "backdoor"
Global $Trip = 0

;*********************************************************************
Func Activate($cap)
	$state = WinGetState($cap)
	If BitAND($state, 2) Then	
 WinActivate($cap)
	ElseIf BitAND($state, 16) Then
 WinSetState($cap, "", @SW_RESTORE)
	EndIf
EndFunc
;*********************************************************************
Func EscGame()
&#59;leave the game you were in
	Sleep(Random(25, 200))
	Send("{ESC}")
	Sleep(Random(34, 175))
	MouseClick("left",568,656)
	Sleep(3000)
EndFunc
;*********************************************************************
Func GameName()
	If($Trip > 30)Then
 $Trip = 1
	Else
 $Trip = $Trip + 1
	EndIf

	If(StringLen($Trip) = 1)Then
 Return $GM & "0" & $Trip
	ElseIf(StringLen($Trip) = 2)Then
 Return $GM & "" & $Trip
	Else
 Return $GM & $Trip
	EndIf
EndFunc
;*********************************************************************
Func NewGame()
	Activate("Diablo")

&#59;create a new game

&#59;type game name in
	MouseClick("left",841,851)
	Sleep(1000);
	MouseClick("left",702,545)
	Send(GameName())
	
	Sleep(1000)

&#59;type game password
	MouseClick("left",708,596);
	Sleep(1000)
	Send($PWD)

	Sleep(1000)

&#59;Create game
	Send("{ENTER}")
	Sleep(5000)

EndFunc
;*********************************************************************
Func WalkToPortal()
&#59;walk to portal
	MouseMove(584,752)
	MouseDown("left")
	Sleep(6000)

	MouseUp("left")
	Sleep(1000)

	MouseClick("left", 404, 807)
	Sleep(1200);

	MouseClick("left", 468,522);
	Sleep(Random(500, 2000))

EndFunc
;*********************************************************************
Func Skills()
&#59;skills
	Send("{F1}")
	Sleep(Random(500, 1500))
	MouseClick("right")

	Send("{F5}")
	Sleep(Random(500, 1500))

	MouseClick("right")
	Sleep(300)

	Send("{F2}")
	Sleep(Random(900, 1200))
	MouseClick("right")
	Sleep(300)
EndFunc
;*********************************************************************
Func Tornado()
	Send("{LSHIFT down}")

	MouseMove(Random(700,800),Random(615,665))
	MouseDown("left")
	Sleep(Random(2000,5300))
	MouseUp("left")

	Send("{LSHIFT up}")

	Sleep(Random(200,750))
EndFunc
;*********************************************************************
Func KillPindle()
&#59;run to him
	MouseClick("left",686, 538)
	Sleep(500)

	MouseClick("left",592,631)
	Sleep(1000)

	MouseMove(717,645)

	MouseDown("left")
	Sleep(5300)
	MouseUp("left")
	
	Tornado()
	Tornado()
	Tornado()

	Sleep(15000)


EndFunc
;*********************************************************************
Func PindleRun()
	PosD2()
	Activate("Diablo")
	EscGame()

	Sleep(Random(2,3) * (1000 * Random(1,2)))

	NewGame()
	
	Sleep(Random(500, 2500))
	WalkToPortal()

	Sleep(Random(1500, 9000))

	Skills()

	KillPindle()
	
EndFunc
;*********************************************************************
Func PosD2()
	Activate("Diablo")
	WinMove("Diablo", "", 243, 363)
EndFunc
;*********************************************************************
Func PindleXpGrind()
	PosD2()
	While $RUNME = 1
   Sleep(Random(500, 7000))
 PindleRun()
 Sleep(Random(2000,10000))
	Wend
EndFunc
;*********************************************************************
Func EndRun()
	$RUNME = 0
	Exit 0
EndFunc
;*********************************************************************
;*********************************************************************
;Hot Keys
HotKeySet("{^F5}", "PindleRun")

HotKeySet("{^F7}", "PindleXpGrind")

HotKeySet("{^F8}", "EndRun")
;*********************************************************************
;*********************************************************************
While $RUNME = 1
  Sleep(Random(550, 1200))
Wend
;*********************************************************************
;*********************************************************************
;*********************************************************************
[img]text2schild.php?smilienummer=1&text=it will not work right unless you edit it! run the game in windowed mode with 800x600 res use d2loader -w -title Diablo' border='0' alt='it will not work right unless you edit it! run the game in windowed mode with 800x600 res use d2loader -w -title Diablo' />
10/21/2006 20:17 x-sol#2
baal game maker

Code:
Global $RUNME = 1
Global $GM = "baal-wcpr"
Global $PWD = ""
Global $Trip = 0

;*********************************************************************
Func Activate($cap)
	$state = WinGetState($cap)
	If BitAND($state, 2) Then	
 WinActivate($cap)
	ElseIf BitAND($state, 16) Then
 WinSetState($cap, "", @SW_RESTORE)
	EndIf
EndFunc
;*********************************************************************
Func PosD2()
	Activate("Diablo")
	WinMove("Diablo", "", 243, 363)
EndFunc
;*********************************************************************
Func EscGame()
&#59;leave the game you were in
	Sleep(Random(25, 200))
	Send("{ESC}")
	Sleep(Random(34, 175))
	MouseClick("left",568,656)
	Sleep(3000)
EndFunc
;*********************************************************************
Func GameName()
	If($Trip > 30)Then
 $Trip = 1
	Else
 $Trip = $Trip + 1
	EndIf

	If(StringLen($Trip) = 1)Then
 Return $GM & "0" & $Trip
	ElseIf(StringLen($Trip) = 2)Then
 Return $GM & "" & $Trip
	Else
 Return $GM & $Trip
	EndIf
EndFunc
;*********************************************************************
Func NewGame()
	Activate("Diablo")

&#59;create a new game

&#59;type game name in
	MouseClick("left",841,851)
	Sleep(1000);
	MouseClick("left",702,545)
	Send(GameName())
	
	Sleep(1000)

&#59;type game password
	MouseClick("left",708,596);
	Sleep(1000)
	Send($PWD)

	Sleep(1000)

&#59;Create game
	Send("{ENTER}")
	Sleep(5000)

EndFunc
;*********************************************************************
Func SayNext()
	Send("{ENTER}")
	Sleep(500)
	Send(GameName())
	Sleep(500)
	Send("{ENTER}")
	$Trip = $Trip - 1
EndFunc

;*********************************************************************
Func GoBaal()
	PosD2()
	SayNext()
	Sleep(Random(1000, 5000))
	EscGame()
	NewGame()
EndFunc
;*********************************************************************
HotKeySet("^{F5}", "GoBaal")
;*********************************************************************
;*********************************************************************
While $RUNME = 1
  Sleep(Random(550, 1200))
Wend
;*********************************************************************
;*********************************************************************
10/27/2006 14:48 alucard42#3
geht das nicht auch mit ner sorc?
10/27/2006 21:25 Maybe It's Maybelline#4
Geht praktisch mit allem... Du kannst auch einfach deinen Merc/Minions/Taaj Bunshin No Jutsu beim pindeln das machen lassen xD

Was ich damit sagen will du kannst es für alles mögliche benutzen solange du erfahrung mit AutoIt hast.
10/31/2006 08:24 verT!c4L#5
Würd das einer für ne Orb/FB Sorc mal niederschreiben ?!

Und wie benutzt man das? d2loader is mehr oder weniger klar, aber was is mit dem AutoIt?!
01/31/2007 02:39 x-sol#6
to not use d2 loader

change:

Func PosD2()
Activate("Diablo")
WinMove("Diablo", "", 243, 363)
EndFunc

Diablo -> Diablo II and just run it with -w and set your in game resolution to 800x600

i wrote like that because i run 2 clients at the same time so i always use d2loader