|
You last visited: Today at 12:00
Advertisement
Wind Druid Pindle XP Bot
Discussion on Wind Druid Pindle XP Bot within the Diablo 2 forum part of the Other Online Games category.
10/21/2006, 20:16
|
#1
|
elite*gold: 0 
Join Date: Aug 2006
Posts: 32
Received Thanks: 0
|
adjust run for run walk
read the script and edit it
it's very simple 
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()
;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")
;create a new game
;type game name in
MouseClick("left",841,851)
Sleep(1000);
MouseClick("left",702,545)
Send(GameName())
Sleep(1000)
;type game password
MouseClick("left",708,596);
Sleep(1000)
Send($PWD)
Sleep(1000)
;Create game
Send("{ENTER}")
Sleep(5000)
EndFunc
;*********************************************************************
Func WalkToPortal()
;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()
;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()
;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
|
#2
|
elite*gold: 0
Join Date: Aug 2006
Posts: 32
Received Thanks: 0
|
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()
;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")
;create a new game
;type game name in
MouseClick("left",841,851)
Sleep(1000);
MouseClick("left",702,545)
Send(GameName())
Sleep(1000)
;type game password
MouseClick("left",708,596);
Sleep(1000)
Send($PWD)
Sleep(1000)
;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
|
#3
|
elite*gold: 30
Join Date: Aug 2006
Posts: 614
Received Thanks: 16
|
geht das nicht auch mit ner sorc?
|
|
|
|
|
10/27/2006, 21:25
|
#4
|
elite*gold: 0
Join Date: May 2005
Posts: 4,620
Received Thanks: 104
|
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
|
#5
|
elite*gold: 0
Join Date: Aug 2005
Posts: 1,245
Received Thanks: 60
|
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
|
#6
|
elite*gold: 0
Join Date: Aug 2006
Posts: 32
Received Thanks: 0
|
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
|
|
|
|
 |
Similar Threads
|
suche wind druid cfg für d2nt bot
05/29/2010 - Diablo 2 Trading - 2 Replies
hallo zusammen,
ich use denn d2nt bot schon bissel länger . aber jetzt habe ich mir ein stormer druid gebaut , aba der castet keine tornados der telt einfach mit hurricane dumm rum ( so richtig dumm halt , sieht aba lustig aus :P ) . ich wollte euch mal bitten ob mir jemand ne stormer durid cfg schicken kann .
schonmal danke im vorraus
mfg didi
|
Working Bot 1.13 (Pindle)
03/29/2010 - Diablo 2 - 12 Replies
Hallo allerseits, da ich immer wieder botspezifische threads die post 1.13 erstellt wurden lese - sowohl hier als auch auf eon.cc - frage ich mich ob es irgendwo eine Übersicht mit allen Bots die momentan funktionieren gibt. (Falls überhaupt welche gehen) Im speziellen interessiert mich Pindle.
Danke im voraus!
|
Was ist mit Pindle los???
08/07/2009 - Diablo 2 - 19 Replies
Hi ich botte jetz seit 2 tagen und hab an die 500 runs gemacht, jedoch noch einfach NICHTS gefunden, ausser crap rare sachen die er in stash gemacht hat... Ich benutze mm.bot und hab nur eine gescheite pindle sequence gefunden, die bei meiner BLizz/Meteor sorc auch klappt, alle anderen sequencen (mit eldritch und shenk) brechen frueher oder spaeter ab.
Naja... zurueck zu pindle dem Mofo... ich bin auch die komplette "Scandrop_items" durchgegangen und es wurde definitiv nichts brauchbares...
|
Alliance druid Cat -> Gnoll Ally Druid Bear -> Worgen
01/31/2009 - World of Warcraft - 0 Replies
kann das wer mir mal irgend wie machen? ich finde ncihts und selbst versucht doch ncihts gefunden oder geschafft was der art funktioniert, zum verzweifelns langsam.
|
Druid/Warri vs. Druid/Hunter Taktiken ?
05/08/2008 - World of Warcraft - 14 Replies
Hallo , ich spiele zusammen mit einem heal dudu ( wir beide haben full s1 + s3 waffe ) auf nem 1,9 k rating und bekommen relativ oft die combo Druid/Hunter !
Jetzt wollte ich hier ma fragen , ob jemand ein paar gute Taktiken/Tricks gegen diese combo kennt ?
Ein großes Problem ist natürlich der fehlende Dmg durch das etwas schlechtere s1 equip , was ich aber nicht als Grund einsehen will :)
mfg
|
All times are GMT +2. The time now is 12:00.
|
|
