Decompiler

[Tommy_ti]

HI again..

First i want to say.. Sorry!

And now... Is there a AutoIt 3 DeCompiler?

[Wallfire]

yes but only if it was you that complied it. you have to enter a passphrase inorder to do so

[Jon]

And now... Is there a AutoIt 3 DeCompiler? 

Not at the moment.

[Tommy_ti]

Oh

I want to D2Compile a Autoit file another had, so i could get help from it

*snuff*

[redndahead]

Everybody seems pretty free with their scripts. I am sure if you asked them they would give you the code or at least help you with it.

red

[Valik]

Everybody seems pretty free with their scripts.  I am sure if you asked them they would give you the code or at least help you with it.

red

Normal people are rather free with their scripts, but he's talking about a script for a game. He can probably expect a string of unintelligible garbage to come back his way if the author is like most of the other game-scripters...

[redndahead]

Aaah games are not in my realm of thought. Well then maybe ask what you want to know and we can help you.

red

[Tommy_ti]

i want to make a command that loggs in on B.net with a password and account i have saved in a INI file.

and i want it to make random games.

and then when it comes into a game, i dont know

[Jon]

Normal people are rather free with their scripts, but he's talking about a script for a game.  He can probably expect a string of unintelligible garbage to come back his way if the author is like most of the other game-scripters...

That gaming forum really got to you didn't it?

[Valik]

That gaming forum really got to you didn't it? 

I just have an extreme intolerance of stupid people. I often find myself wondering how stupid people don't die in stupid accidents like forgetting to breathe or something. The gaming forums, and online games in general, hell, the internet in general, is a gathering place for stupid people. Games and game-related things are just the biggest hives I've found so far. IRC is probably a close second. I avoid both online games and IRC like the plague.

[CyberSlug]

He can probably expect a string of unintelligible garbage to come back his way ....

That just reminded me of this joke:

These two strings walk into a bar and sit down. The bartender says, "So what'll it be?"

The first string says, "I think I'll have a beer quag fulk boorg jdk^CjfdLk jk3s d#f67howe%^U r89nvy~~owmc63^Dz x.xvcu"

"Please excuse my friend," the second string says, "He isn't null-terminated."

Edited March 12, 2004 by CyberSlug

[Jon]

That just reminded me of this joke:

These two strings walk into a bar and sit down. The bartender says, "So what'll it be?"

The first string says, "I think I'll have a beer quag fulk boorg jdk^CjfdLk jk3s d#f67howe%^U r89nvy~~owmc63^Dz x.xvcu"

"Please excuse my friend," the second string says, "He isn't null-terminated." 

Oh my god I'm such a geek as I laughed my ass off at that.

Then again I did have the lowest geek (least geeky) test score when we did the test on the yahoo list

[ezzetabi]

Being pretty new I ignore that happening...

Why the game forum has been closed?

Why do you say that people are stupid?

[Somerset]

playing a game about having a life, and having to use bots to run thier virtual lives. arguing over petty things such as script, making bots that others helped. acting like they are the sole person that everyone should bow down and kiss thier a**... that is what the gamming forum turned into..... :postal: pretty much all of those but with alot more love, and carring...

[Marc]

Ehrm, not all game scripters are morons and some of them release their source code freely (as it should be). Just my 2 cents

Back to business:

i want to make a command that loggs in on B.net with a password and account i have saved in a INI file.

and i want it to make random games.

and then when it comes into a game, i dont know 

There is an excellent script out there, done by Snarg. It creates random games, checks for the desired IP of the server and returns so until the actual game is on the desired server(s). It's used to get the "DiabloClone" monster.

(Webpage) It is written in AutoIt v2, source code is included in his zip file.

Edit: direct link to his scripts, somewhat hidden: Webpage

As an exercise (and just because I could) I made myself the fun to convert the script to AutoIt3 and used the new possibilities to make it a little more readable.

Here we go:

expandcollapse popup

Global $x, $y, $GameCount

$GameCreateDelay = 0
$Name = 0
$Pass = 0
$GameCount = 1

$SettingsFile = @SCRIPTDIR & '\Settings.ini'

$ActiveAccount  = IniRead ($SettingsFile, 'Account', 'AccountName', "ERROR")
$ActivePassword = IniRead ($SettingsFile, 'Account', 'Password', "ERROR")
$RealmSelection = IniRead ($SettingsFile, 'Account', 'Realm', "ERROR")
$CharLocation   = IniRead ($SettingsFile, 'Account', 'CharacterLocation', "ERROR")

$GameCreateDelay = IniRead ($SettingsFile, 'Settings', 'GameCreateDelay', "ERROR")
$Switches = IniRead ($SettingsFile, 'Account', 'D2Parameter', "ERROR")

$DCloneIP1 = IniRead ($SettingsFile, 'Settings', 'DCloneIP1', 999)& ":4000"
$DCloneIP2 = IniRead ($SettingsFile, 'Settings', 'DCloneIP2', 999)& ":4000"
$DCloneIP3 = IniRead ($SettingsFile, 'Settings', 'DCloneIP3', 999)& ":4000"
$DCloneIP4 = IniRead ($SettingsFile, 'Settings', 'DCloneIP4', 999)& ":4000"
$DCloneIP5 = IniRead ($SettingsFile, 'Settings', 'DCloneIP5', 999)& ":4000"

$D2Path = IniRead ($SettingsFile, 'Settings', 'D2Path', "ERROR")
if $D2Path = '' then $D2Path = RegRead ('HKEY_CURRENT_USER\' & 'Software\Blizzard Entertainment\Diablo II', 'InstallPath')

$D2Executable = IniRead ($SettingsFile, 'Settings', 'D2Executable', "")
if $D2Executable = '' then $D2Executable = 'Diablo II.exe'

  Select
     Case $RealmSelection = 'West'
       $x = 296
       $y = 374
       $ServerIp = '63.241.83.'
      Case $RealmSelection = 'East'
            $x = 300
            $y = 400
       $ServerIp = '63.240.202.'
      Case $RealmSelection = 'Europe'
            $x = 295
            $y = 448
       $ServerIp = '213.248.106.'
  EndSelect

  SplashTextOn ('CloneHunter 2.1+', 'CloneHunter 2.1+ by Snarg www.d2trades.com (snarg@d2trades.com)', 200, 100,824,0)

  StartDiablo ()
  ServerSelect ()
  LogonAccount ()
  CharacterSelection ()

  while (1)
      CreateGame ()
      RunWait(@ComSpec & " /c " & 'netstat -n>c:\ip.txt' , "", @SW_HIDE)
      CompareIP ()
      ExitGame ()
      sleep (10000)
  wend


; =========== Subroutines ===============

Func StartDiablo ()
    Run ($D2Path & '\' & $D2Executable & ' ' & $Switches, $D2Path)
    WinWait ('Diablo II')
    WinActivate ('Diablo II')
    Sleep (500)
    WinMove ('Diablo II', '', 0, 0)
    Sleep (500)
    Return
EndFunc

Func ServerSelect ()
    Send ('{ESCAPE}')
    Sleep (1500)
    MouseMove (408, 403)
    MouseClick("left", 408, 403)
    Sleep (1500)
    MouseMove ($x, $y)
    MouseClick("left", $x, $y)
    MouseClick("left", $x, $y)
    Sleep (1500)
    MouseMove (404, 374)
    MouseClick("left", 404, 374)
    Sleep (5000)
    Return
EndFunc

Func LogonAccount ()

    Send ('{TAB}')
    Sleep (250)
    Send ($ActiveAccount)
    Sleep (250)
    Send ('{TAB}')
    Sleep (250)
    Send ($ActivePassword)
    Sleep (250)
    Send ('{ENTER}')
    Sleep (6000)
    Return
EndFunc

Func CharacterSelection ()
  Select
    Case $Charlocation = 1
        Send ('{ENTER}')
    Case $Charlocation = 2
        Send ('{RIGHT}{ENTER}')
    Case $Charlocation = 3
        Send ('{DOWN}{ENTER}')
    Case $Charlocation = 4
        Send ('{RIGHT}{DOWN}{ENTER}')
    Case $Charlocation = 5
        Send ('{DOWN}{DOWN}{ENTER}')
    Case $Charlocation = 6
        Send ('{RIGHT}{DOWN}{DOWN}{ENTER}')
    Case $Charlocation = 7
        Send ('{DOWN}{DOWN}{DOWN}{ENTER}')
    Case $Charlocation = 8
        Send ('{RIGHT}{DOWN}{DOWN}{DOWN}{ENTER}')
  EndSelect
  Sleep (5000)
EndFunc

Func CreateGame ()
    WinActivate ('Diablo II')
    WinWaitActive ('Diablo II')
    MouseClick("left", 601, 482)
    Sleep (1500)
    $Name = Random (100000, 900000)
    $Pass = Random (100000, 900000)
    Send ($Name & '{TAB}')
    Sleep (250)
    Send ($Pass & '{ENTER}')
    Sleep ($GameCreateDelay + 250)
EndFunc

Func CompareIP ()
    Local $IPStart
    $A = 1
    $hit = 0
    for $i = 1 to 20
        $CheckIP = FileReadLine ('C:\ip.txt', $A)

      ; Only check if Server IP is part of the current line and it's Port 4000
        $IPStart   = StringInStr ($CheckIP, $ServerIP)
        $PortStart = StringInStr ($CheckIP, ":4000")
        if ($IPStart >0) and ($PortStart>0) then
                SplashTextOn ('CloneHunter 2.1+', "Current try: " & $GameCount &@CRLF & "Current IP: " &StringMid ($CheckIp, $IPStart, $PortStart-$IPStart), 200, 100,824,0)
                WinActivate ('Diablo II')
            if StringInStr ($CheckIP, $ServerIP & $DCloneIP1) > 0 then $hit = 1
            if StringInStr ($CheckIP, $ServerIP & $DCloneIP2) > 0 then $hit = 1
            if StringInStr ($CheckIP, $ServerIP & $DCloneIP3) > 0 then $hit = 1
            if StringInStr ($CheckIP, $ServerIP & $DCloneIP4) > 0 then $hit = 1
            if StringInStr ($CheckIP, $ServerIP & $DCloneIP5) > 0 then $hit = 1
        EndIf
        $A = $A + 1
    next
    if $hit = 1 then
      filedelete ('c:\ip.txt')
      Exit
    EndIf
    $GameCount = $GameCount + 1
EndFunc

Func ExitGame ()
    WinActivate ('Diablo II', ',')
    Sleep (250)
    Send ('{ESC}')
    Sleep (250)
    Send ('{UP}')
    Sleep (250)
    Send ('{ENTER}')
    Sleep (5000)
EndFunc

Send it to Snarg, who said something about "someday having to learn AutoIt 3"

Hope this helps...

Marc

Edited March 12, 2004 by Marc

[Bartokv]

Oh my god I'm such a geek as I laughed my ass off at that.

Don't feel too bad Jon, I laughed too!! ...And got some strange looks from the other people around me...

[Jon]

Being pretty new I ignore that happening...

Why the game forum has been closed?

Why do you say that people are stupid?

Just read a few threads and you'll see why.

It was finally closed when I discovered that a group of people on there were posting an "ultimate" bot that was actually a trojan designed to get users kicked and banned.

[Somerset]

I am trying to figure out the ultimate gamming script for pong... i am on the right side of the screen. if anyone wishes to help you are on the left handside. my script as follows and cannot be duplicated...

send("{up}{down}")

please help if you wish to contribute.... that is as far as my gamming scripts go..

[Bartokv]

send("{up}{down}")

I tried this script and it doens't work! I even tried it on Blip (from Tomy)

Is it suppose to be used on the original arcade version of Pong instead??

[Somerset]

of course it is supposed to be the original verson of pong... , now all you needs is an artari emulator for dos. with controls set for the keyboard... if not set correctly, break out the atari 1300 series home console... atatch the robotic arm you have created. engage the scrit to tell the arm to move up, then down... damn that was so easy huh? maybe the script would work easier if we were playing battle chess or something?