Sign in to follow this  
Followers 0
Tommy_ti

Decompiler

23 posts in this topic

HI again..

First i want to say.. Sorry! B)

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


Share this post


Link to post
Share on other sites



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


:cheer: awww...wheres the chick?

Share this post


Link to post
Share on other sites

Oh :whistle:

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

*snuff*


Share this post


Link to post
Share on other sites

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. :whistle:

red

Share this post


Link to post
Share on other sites

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. :whistle:

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...

Share this post


Link to post
Share on other sites

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

red

Share this post


Link to post
Share on other sites

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 :whistle:


Share this post


Link to post
Share on other sites

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? :whistle:

Share this post


Link to post
Share on other sites

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

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.

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

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." :whistle:

Edited by CyberSlug

Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig!

Share this post


Link to post
Share on other sites

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."  B)

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 :whistle:

Share this post


Link to post
Share on other sites

Being pretty new I ignore that happening...

Why the game forum has been closed?

Why do you say that people are stupid?

Share this post


Link to post
Share on other sites

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..... B):whistle: :postal: pretty much all of those but with alot more love, and carring...


 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

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

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:

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" B)

Hope this helps...

Marc

Edited by Marc

It's my job to comfort the disturbed and to disturb the comfortable.

Share this post


Link to post
Share on other sites

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... :whistle:

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.... :whistle: that is as far as my gamming scripts go..


 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

Share this post


Link to post
Share on other sites

send("{up}{down}")
I tried this script and it doens't work! I even tried it on Blip (from Tomy) :whistle:

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

Share this post


Link to post
Share on other sites

of course it is supposed to be the original verson of pong... :whistle: , 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? B) maybe the script would work easier if we were playing battle chess or something?


 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0