Jump to content

RuneScape


gamerman2360
 Share

Recommended Posts

Something is wrong and I can't find it, can someone help?

; See: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
$oIE = ObjCreate("Shell.Explorer.2")
$startmenu = WinGetPos("", "start")
$file = "@TempDir@/runescape.html"
GUICreate("RuneScape", @DesktopWidth, @DesktopHeight - $startmenu[3], 0, 0, 0x00CF0000 + 0x10000000 + 0x00800000)
$world = _SetWorld()
If $members Then
    $ad = 29
Else
    $ad = 119
EndIf
If $world = 0 Then
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 500, 600)
Else
    $GUIActiveX = GUICtrlCreateObj($oIE, (@DesktopWidth - 765) / 2, 0 - $ad, 765, 503)
EndIf
While 1
    Sleep(5000)
WEnd

Func Terminate()
    Exit
EndFunc  ;==>Terminate

Func OnAutoItStart()
    #NoTrayIcon
    opt("TrayMenuMode", 1)
    opt("TrayOnEventMode", 1)
    opt("GUIOnEventMode", 1)
    opt("ExpandEnvStrings", 1)
    opt("ExpandVarStrings", 1)
    opt("GUICloseOnESC", 0)
    opt("RunErrorsFatal", 1)
    opt("SendKeyDownDelay", 39)
    GUISetOnEvent(-3, "Terminate")
    TraySetClick(8)
    TraySetToolTip("RuneScape")
    While 1
        $answer = MsgBox(4, "Worlds", "Would you like to play in 1 world?")
        If $answer = 6 Then
            $worlds = 1
            ExitLoop
        EndIf
        $answer = MsgBox(4, "Worlds", "Would you like to play in 2 worlds?")
        If $answer = 6 Then
            $worlds = 2
            ExitLoop
        EndIf
    WEnd
    SetTray($worlds)
    $answer = MsgBox(4, "Defaults?", "Would you like to use the default settings?")
    $ico = "@TempDir@/runescape.ico"
    If Not FileExists($ico) Then InetGet("http://www.runescape.com/favicon.ico", $ico)
    TraySetIcon($ico)
EndFunc  ;==>OnAutoItStart

Func SetTray($worlds)
    If $worlds = 1 Then
        Global $TrayMenu_SetDefault1 = TrayCreateItem("Set Default (1 World)")
        Global $TrayMenu_SetDefault2 = TrayCreateItem("Set Default (2 Worlds)")
        Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World")
        Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World")
        Global $TrayMenu_Refreash = TrayCreateItem("Refreash")
        TrayCreateItem("")
        Global $Tray_Close = TrayCreateItem("Close")
        TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc")
        TrayItemSetOnEvent($Tray_Refreash, "TrayFunc")
        TrayItemSetOnEvent($Tray_Close, "TrayFunc")
    ElseIf $worlds = 2 Then
        Global $TrayMenu_SetDefault1 = TrayCreateItem("Set Default (1 World)")
        Global $TrayMenu_SetDefault2 = TrayCreateItem("Set Default (2 Worlds)")
        Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World")
        Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World")
        Global $TrayMenu_Refreash = TrayCreateItem("Refreash")
        TrayCreateItem("")
        Global $Tray_Close = TrayCreateItem("Close")
        TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc")
        TrayItemSetOnEvent($Tray_Refreash, "TrayFunc")
        TrayItemSetOnEvent($Tray_Close, "TrayFunc")
    EndIf
EndFunc

Func OnAutoItExit()
    GUIDelete()
EndFunc  ;==>OnAutoItExit

Func TrayFunc()
    Select
    Case @TRAY_ID = $Tray_SetDefault1
        
    Case @TRAY_ID = $Tray_SetDefault2
        
    Case @TRAY_ID = $Tray_ChangeWorld
        _SetWorld()
    Case @TRAY_ID = $Tray_Refreash
        $oIE.refreash
    Case @TRAY_ID = $Tray_Close
        Exit
    EndSelect
EndFunc

Func _SetWorld($number = 0, $lowmem = -1)
    If $number = 0 Then $number = InputBox("World?", "Please the world you want to enter.@CRLF@Type negative numbers to enter classic worlds.(Not yet, still working on it.)", 0, " M")
    If @error = 1 Then
        Return 1
    ElseIf IsInt($number) Then
        MsgBox(0, "Failed", "There are no fractional worlds.")
        SetError(1)
        Return 0
    EndIf
    If $lowmem = -1 And $number <> 0 Then
        $lowmem = MsgBox(4, "Detail", "Would you like to play in high detail?")
        If $lowmem = 6 Then $lowmem = 0
        If $lowmem = 7 Then $lowmem = 1
    EndIf
    Select
        Case $number = 0
            Global $members = 0, $classic = 0, $file = "http://www.runescape.com/"
            Return $number
        Case $number = 1
            Global $server = "ul2", $members = 0, $classic = 0
        Case $number = 2
            Global $server = "ul4", $members = 1, $classic = 0
        Case $number = 3
            Global $server = "po3", $members = 0, $classic = 0
        Case $number = 4
            Global $server = "po4", $members = 0, $classic = 0
        Case $number = 5
            Global $server = "po5", $members = 0, $classic = 0
        Case $number = 6
            Global $server = "po6", $members = 1, $classic = 0
        Case $number = 7
            Global $server = "above2", $members = 0, $classic = 0
        Case $number = 8
            Global $server = "above3", $members = 0, $classic = 0
        Case $number = 9
            Global $server = "above4", $members = 1, $classic = 0
        Case $number = 10
            Global $server = "jolt7", $members = 0, $classic = 0
        Case $number = 11
            Global $server = "jolt8", $members = 0, $classic = 0
        Case $number = 12
            Global $server = "jolt9", $members = 1, $classic = 0
        Case $number = 13
            Global $server = "nl3", $members = 0, $classic = 0
        Case $number = 14
            Global $server = "nl4", $members = 0, $classic = 0
        Case $number = 15
            Global $server = "uk2", $members = 0, $classic = 0
        Case $number = 16
            Global $server = "uk3", $members = 0, $classic = 0
        Case $number = 17
            Global $server = "tor1", $members = 0, $classic = 0
        Case $number = 18
            Global $server = "tor2", $members = 1, $classic = 0
        Case $number = 19
            Global $server = "nl7", $members = 0, $classic = 0
        Case $number = 20
            Global $server = "nl8", $members = 0, $classic = 0
        Case $number = 21
            Global $server = "nl11", $members = 0, $classic = 0
        Case $number = 22
            Global $server = "nl1", $members = 1, $classic = 0
        Case $number = 23
            Global $server = "uk4", $members = 1, $classic = 0
        Case $number = 24
            Global $server = "uk5", $members = 1, $classic = 0
        Case $number = 25
            Global $server = "nl12", $members = 0, $classic = 0
        Case $number = 26
            Global $server = "ul5", $members = 1, $classic = 0
        Case $number = 27
            Global $server = "nl5", $members = 1, $classic = 0
        Case $number = 28
            Global $server = "nl6", $members = 1, $classic = 0
        Case $number = 29
            Global $server = "ul6", $members = 0, $classic = 0
        Case $number = 30
            Global $server = "po7", $members = 0, $classic = 0
        Case $number = 31
            Global $server = "po8", $members = 0, $classic = 0
        Case $number = 32
            Global $server = "ul1", $members = 0, $classic = 0
        Case $number = 33
            Global $server = "at1", $members = 0, $classic = 0
        Case $number = 34
            Global $server = "at2", $members = 0, $classic = 0
        Case $number = 35
            Global $server = "at3", $members = 0, $classic = 0
        Case $number = 36
            Global $server = "at4", $members = 1, $classic = 0
        Case $number = 37
            Global $server = "tor3", $members = 0, $classic = 0
        Case $number = 38
            Global $server = "planet1", $members = 0, $classic = 0
        Case $number = 39
            Global $server = "planet2", $members = 0, $classic = 0
        Case $number = 40
            Global $server = "planet3", $members = 0, $classic = 0
        Case $number = 41
            Global $server = "planet4", $members = 1, $classic = 0
        Case $number = 42
            Global $server = "po2", $members = 1, $classic = 0
        Case $number = 43
            Global $server = "sl11", $members = 0, $classic = 0
        Case $number = 44
            Global $server = "at6", $members = 1, $classic = 0
        Case $number = 45
            Global $server = "planet5", $members = 0, $classic = 0
        Case $number = 46
            Global $server = "planet6", $members = 1, $classic = 0
        Case $number = 47
            Global $server = "above5", $members = 0, $classic = 0
        Case $number = 48
            Global $server = "above6", $members = 1, $classic = 0
        Case $number = 49
            Global $server = "ams1", $members = 0, $classic = 0
        Case $number = 50
            Global $server = "ams2", $members = 0, $classic = 0
        Case $number = 51
            Global $server = "ams3", $members = 0, $classic = 0
        Case $number = 52
            Global $server = "ams4", $members = 0, $classic = 0
        Case $number = 53
            Global $server = "ams5", $members = 1, $classic = 0
        Case $number = 54
            Global $server = "ams6", $members = 1, $classic = 0
        Case $number = 55
            Global $server = "ch1", $members = 0, $classic = 0
        Case $number = 56
            Global $server = "nl10", $members = 0, $classic = 0
        Case $number = 57
            Global $server = "ch3", $members = 0, $classic = 0
        Case $number = 58
            Global $server = "ch4", $members = 1, $classic = 0
        Case $number = 59
            Global $server = "ch5", $members = 1, $classic = 0
        Case $number = 60
            Global $server = "ch6", $members = 1, $classic = 0
        Case $number = 61
            Global $server = "se1", $members = 0, $classic = 0
        Case $number = 62
            Global $server = "se2", $members = 0, $classic = 0
        Case $number = 63
            Global $server = "se3", $members = 0, $classic = 0
        Case $number = 64
            Global $server = "se4", $members = 1, $classic = 0
        Case $number = 65
            Global $server = "se5", $members = 1, $classic = 0
        Case $number = 66
            Global $server = "se6", $members = 1, $classic = 0
        Case $number = 67
            Global $server = "jolt10", $members = 0, $classic = 0
        Case $number = 68
            Global $server = "jolt11", $members = 0, $classic = 0
        Case $number = 69
            Global $server = "jolt12", $members = 1, $classic = 0
        Case $number = 70
            Global $server = "sl10", $members = 1, $classic = 0
        Case $number = 71
            Global $server = "uk7", $members = 1, $classic = 0
        Case $number = 72
            Global $server = "sl1", $members = 0, $classic = 0
        Case $number = 73
            Global $server = "sl2", $members = 0, $classic = 0
        Case $number = 74
            Global $server = "sl3", $members = 0, $classic = 0
        Case $number = 75
            Global $server = "sl4", $members = 0, $classic = 0
        Case $number = 76
            Global $server = "sl5", $members = 0, $classic = 0
        Case $number = 77
            Global $server = "sl6", $members = 1, $classic = 0
        Case $number = 78
            Global $server = "sl7", $members = 1, $classic = 0
        Case $number = 79
            Global $server = "sl8", $members = 1, $classic = 0
        Case $number = 80
            Global $server = "jolt1", $members = 0, $classic = 0
        Case $number = 81
            Global $server = "jolt2", $members = 0, $classic = 0
        Case $number = 82
            Global $server = "jolt3", $members = 0, $classic = 0
        Case $number = 83
            Global $server = "jolt4", $members = 1, $classic = 0
        Case $number = 84
            Global $server = "jolt5", $members = 1, $classic = 0
        Case $number = 85
            Global $server = "ny1", $members = 0, $classic = 0
        Case $number = 86
            Global $server = "ny2", $members = 0, $classic = 0
        Case $number = 87
            Global $server = "ny4", $members = 0, $classic = 0
        Case $number = 88
            Global $server = "ny5", $members = 1, $classic = 0
;~      Case $number = -1
;~          Global $server = "", $members = 1, $classic = 1
;~      Case $number = -2
;~          Global $server = "", $members = 1, $classic = 1
;~      Case $number = -3
;~          Global $server = "", $members = 1, $classic = 1
;~      Case $number = -4
;~          Global $server = "", $members = 1, $classic = 1
;~      Case $number = -5
;~          Global $server = "", $members = 1, $classic = 1
;~      Case $number = -6
;~          Global $server = "", $members = 1, $classic = 1
    EndSelect
    If FileExists($file) Then FileDelete($file)
    FileWrite($file, '<frameset cols="*" rows="*" frameborder="1" border="0"><frame src="http://$server$.runescape.com/rs2.cgi?lowmem=$lowmem$&plugin=0&affiliate=windowsclient" scrolling = no></frameset>')
    $oIE.navigate($file)
    Return $number
EndFunc  ;==>_SetWorld

Link to comment
Share on other sites

Hey!

Please tell us what the script is supposed to do....

And with scripts that big it is always better if you just attach the script, because it is easier to read the scripts in SciTE with syntax highlighting that without B)

Also, if you give a more detailed description of your problem it is easier to the problem..

Felix N. (tdlrali)

Link to comment
Share on other sites

Edit: The error report of SciTE:

C:\Programme\AutoIt3\Projects\runescape.au3(7,13) : WARNING: $members: possibly used before declaration.
If $members Then
~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(66,45) : WARNING: $Tray_ChangeWorld: possibly used before declaration.
        TrayItemSetOnEvent($Tray_ChangeWorld,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(67,42) : WARNING: $Tray_Refreash: possibly used before declaration.
        TrayItemSetOnEvent($Tray_Refreash,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(89,38) : WARNING: $Tray_SetDefault1: possibly used before declaration.
    Case @TRAY_ID = $Tray_SetDefault1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(91,38) : WARNING: $Tray_SetDefault2: possibly used before declaration.
    Case @TRAY_ID = $Tray_SetDefault2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(97,32) : WARNING: $Tray_Close: possibly used before declaration.
    Case @TRAY_ID = $Tray_Close
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(66,45) : ERROR: $Tray_ChangeWorld: undeclared global variable.
        TrayItemSetOnEvent($Tray_ChangeWorld,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(67,42) : ERROR: $Tray_Refreash: undeclared global variable.
        TrayItemSetOnEvent($Tray_Refreash,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(89,38) : ERROR: $Tray_SetDefault1: undeclared global variable.
    Case @TRAY_ID = $Tray_SetDefault1
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(91,38) : ERROR: $Tray_SetDefault2: undeclared global variable.
    Case @TRAY_ID = $Tray_SetDefault2
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(65,53) : WARNING: $Tray_Close: declared global in function only. Prefer top of file.
        Global $Tray_Close = TrayCreateItem("Close")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(13,56) : ERROR: GUICtrlCreateObj(): undefined function.
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 500, 600)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(37,31) : ERROR: TraySetToolTip(): undefined function.
    TraySetToolTip("RuneScape")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3(66,57) : ERROR: TrayItemSetOnEvent(): undefined function.
        TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Projects\runescape.au3 - 7 error(s), 6 warning(s)

I think this says most of it, many of your variables aren't declared!

Example: where do you get $members from? See here:

If $members Then
    $ad = 29
...

This checks if $members is 1 and if it is it sets $ad to 29 and otherwise does the rest...

But $members isn't defined....

As i said, please give more information about what this is supposed to do!

[Edit]

Sorry for new post, didn't see that I wasn't editing till i posted it! B)

Edited by Felix N.
Link to comment
Share on other sites

Lol, posted it then forgot about it... It is supposed to navigate to directly to runescape cliants. Each world has a different site like po6.runescape.com or jolt12.runescape.com. I think it's just easier to skip the OnAutoItStart() which declared vars are being cought as not declared by anything that tries to check it. Most of the code is getting the server handles or what ever they are. But now that i know more of autoit. I think there are better ways to set it.

Link to comment
Share on other sites

O ya. Forgot to say. because of the line of code

<script LANGUAGE='javascript'>try { if (top == self) {top.location.href='http://www.runescape.com/'; } } catch(er) {  } </SCRIPT>
on the runescape pages, they can only be viewed through frames...

Edit: Which is stupid because

<script LANGUAGE='javascript'>if (top == self) {top.location.href='http://www.runescape.com/'}</SCRIPT>
would do the exact same thing... Took some time to look up 'try' commands for javascript only to read back and findout it's just an if statement... Edited by gamerman2360
Link to comment
Share on other sites

  • 1 month later...

O ya. Forgot to say. because of the line of code

<script LANGUAGE='javascript'>try { if (top == self) {top.location.href='http://www.runescape.com/'; } } catch(er) {  } </SCRIPT>
on the runescape pages, they can only be viewed through frames...

Edit: Which is stupid because

<script LANGUAGE='javascript'>if (top == self) {top.location.href='http://www.runescape.com/'}</SCRIPT>
would do the exact same thing... Took some time to look up 'try' commands for javascript only to read back and findout it's just an if statement...

you can also just get rid of that javascript by using this code to retrieve the html page:

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET","http://www.runescape.com")
$oHTTP.Send()
$HTMLSource = $oHTTP.Responsetext

then remove the javascript stuff from the $htmlSource variable and then save the source and load it in your browser

Link to comment
Share on other sites

Ya, but instead of searching for a string in the html, I could just satisfy the Javascript by loading it in a frame. Which the browser does do.

If FileExists($file) Then FileDelete($file)
    FileWrite($file, '<frameset cols="*" rows="*" frameborder="1" border="0"><frame src="http://$server$.runescape.com/rs2.cgi?lowmem=$lowmem$&plugin=0&affiliate=windowsclient" scrolling = no></frameset>')
    $oIE.navigate($file)
Anyway I'm still making changes. Like instead of all those dang globals to change the world number to the name I need to connect to, I'll just use a giant array made with StringSplit().

[edit]

That code:

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET","http://www.runescape.com")
$oHTTP.Send()
$HTMLSource = $oHTTP.Responsetext
Could come in handy, I'll keep it in mind. B) Edited by gamerman2360
Link to comment
Share on other sites

  • 1 year later...
  • Developers

RUNESCAPE IS GAY!!!

ONLY MAKE THIS IF UR GONA SELL IT....

NOT FOR UR WON USE STOP PLAYING IT AND DO MORE AUTOIT... OR GET CONQUERONLINE/ WORLD OF WARCRAFT...

THERE ALL MUCH BETTER...

JUST FOR THE RECORED I USED TO PLAY RUNESCAPE BUT THEN I GOT MY LIFE BACK...

ITS THE SORT OF GAME THAT KILLS YOU...

What is your point here ?

Why are you shouting at us ?

Maybe just shutting up is a better option ?

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

  • Developers

my point is its one of the worst games ever made...(just my opinion)

im not shouting.... sorry

sorry can't shutup.... i just wanted to warn him to will take his life away... it ruined mine...

THIS IS JUST MY OPINION

Well my opinion is that you were unnecessarily rude here and you better just shut up when you don't have anything useful to share ...

THIS IS JUST MY OPINION

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

Well my opinion is that you were unnecessarily rude here and you better just shut up when you don't have anything useful to share ...

THIS IS JUST MY OPINION

This is wayy off topic, but it has to be said..." OWNED! ".

tolle indicium

Link to comment
Share on other sites

my point is its one of the worst games ever made...(just my opinion)

im not shouting.... sorry

sorry can't shutup.... i just wanted to warn him to will take his life away... it ruined mine...

THIS IS JUST MY OPINION

I have a strange feeling Runescape was only a minor contribution to your lack of social "life".

Link to comment
Share on other sites

  • 2 weeks later...

look there are many free online games that are beter than runescape but some pple are 'addicted' to it me personally think its a load of shi* and dont bother playing it unles im running around shouting "noobs" .. or "get a life" or "get a better game" at pple..

and i dont see the point in bots or auto or what ever ya like to call em unless its a way of progressing and lerning autoit script..

my point is .. games are made to be played. and cheast, hacks, bots, are fun .. but in the long run ther boring and crap. unles you lern somet from them

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...