PPB v1.1

[pcdestroyer]

Hi all

I finally released the new version of my Pindle Bot .

You can find it http://www.autoitscript.com/fileman/users/public/PcDeStRoYeR/ppb-v1.1.zip

Here is the ChangeLog

01/14/05 v1.1
Added:
 configurable delays.
 red portal configurable coordinates.
 teleport ( the last teleport) configurable coordinates.
 Potion Drinking.( heal life)
 Chicken Life.
 randomized mouse clicks.
 picks up body if you died on last round.
 drinks a potion in the beginning of the run if your life is below the healing life.
 InGameMsgs - shows messages over ur head when in game

Enjoy !

[DirtyBanditos]

Hi all

I finally released the new version of my Pindle Bot .

You can find it http://www.autoitscript.com/fileman/users/public/PcDeStRoYeR/ppb-v1.1.zip

Here is the ChangeLog

01/14/05 v1.1
Added:
 configurable delays.
 red portal configurable coordinates.
 teleport ( the last teleport) configurable coordinates.
 Potion Drinking.( heal life)
 Chicken Life.
 randomized mouse clicks.
 picks up body if you died on last round.
 drinks a potion in the beginning of the run if your life is below the healing life.
 InGameMsgs - shows messages over ur head when in game

Enjoy ! 

<{POST_SNAPBACK}>

Hello i have test it wörks great he drink good),but i like JhJ More) faster

good job pcdestroyer:P

[pcdestroyer]

Hello i have test it wörks great he drink good),but i like JhJ More) faster 

good job pcdestroyer:P

<{POST_SNAPBACK}>

thnx

[DirtyBanditos]

thnx

<{POST_SNAPBACK}>

np

[Insolence]

Does it heal at Malah?

Minimized running option?

EDIT:

Eww!

expandcollapse popup

If (StringLen($slotToUse) = 0) Then
    $slotToUse = InputBox("PcDeStRoYeR's Pindle Bot", "Use which configured slot?", "slot1")
     If (@error = 1) then
     quitbot()
     endif
     endif
    IniWrite("pindlebot.ini", "Global", "SlotToUse", $slotToUse)
$account = IniRead("pindlebot.ini", $slotToUse, "Account", "")  
If (StringLen($account) = 0) Then
    $account = InputBox("PcDeStRoYeR's Pindle Bot", "Please type in your account name.", "")
     If (@error = 1) then
     quitbot()
     endif
     endif

$password = IniRead("pindlebot.ini", $slotToUse, "Password", "")
If (StringLen($password) = 0) Then
    $password = InputBox("PcDeStRoYeR's Pindle Bot", "Please type in your password.", "", "*")
     If (@error = 1) then
     quitbot()
     endif
     endif
     
$charPosition = IniRead("pindlebot.ini", $slotToUse, "CharPosition", "")
If (StringLen($charPosition) = 0) Then
    $charPosition = InputBox("PcDeStRoYeR's Pindle Bot", "What is your character position ?", "")
     If (@error = 1) then
     quitbot()
     endif
     endif
     
$difficulty = IniRead("pindlebot.ini", $slotToUse, "Difficulty", "3")

If (StringLen($difficulty) = 0) Then
    $difficulty = InputBox("PcDeStRoYeR's Pindle Bot", "Please choose your difficulty. ( 1 = normal, 2 = nightmare, 3 = hell)?", "3")
     If (@error = 1) then
     quitbot()

     endif
     endif
$d2path = IniRead("pindlebot.ini", "Global", "D2Path", "C:\Program Files\Diablo II")
If (StringLen($d2path) = 0) Then
    $d2path = InputBox("PcDeStRoYeR's Pindle Bot", "What is your Diablo II directory?(ex.: C:\Program Files\Diablo II)", "C:\Program Files\Diablo II")
     If (@error = 1) then
     quitbot()
     endif
     endif
$d2exe = IniRead("pindlebot.ini", "Global", "D2Exe", "Diablo II.exe")
If (StringLen($d2exe) = 0) Then
    $d2exe = InputBox("PcDeStRoYeR's Pindle Bot", "What is your Diablo II .exe file?(ex.:Diablo II.exe)", "Diablo II.exe")
     If (@error = 1) then
     quitbot()
     endif
     endif

You could change that to something like:

Select
    Case $Var = "" 
    Case $Var2 = ""
       ; Do same action for both here
EndSelect

And break that down into about 1/10th the amount of lines.

Edited January 15, 2005 by Insolence

[pcdestroyer]

.. dont really know what u'r talking about

[Insolence]

You check each one, then do the same exact thing after each one... read the helpfile for Select.

[Valik]

You check each one, then do the same exact thing after each one... read the helpfile for Select.

<{POST_SNAPBACK}>

I assume you are thinking fall-through exists. If that is the case, then tell me what happens with this script, then tell me who needs to brush up on the helpfile.

Test(1)
Test(2)

Func Test($var)
    Select
    Case $var = 1
    Case $var = 2
        MsgBox(4096, "", Look, I'm a message.")
    EndSelect
EndFunc

[Insolence]

EDIT:

They would both do the same message?

EDIT:

Apparently AutoIT doesn't have that option, could've sworn it did... still it was just the general idea. I said 'something like' because it was just one approach.

BTW I fixed an error in your code, and made it do what I wanted:

Test(1)
Test(2)

Func Test($var)
    Select
    Case $var = 2 OR $Var = 1
        MsgBox(4096, "", "Look, I'm a message.")
    EndSelect
EndFunc

OR operator works just fine for this, with some line breaks it'd work just the same.

Edited January 15, 2005 by Insolence

[pcdestroyer]

and what was the error ??

[Insolence]

The error in Valiks code?

MsgBox(4096, "", Look, I'm a message.")

^ needs a " before look