35 replies to this topic

[The Awesome Max]

Yeah just clicking all the links even with quicklinks for every step would take quite a while. Assuming you got fruit punch and water plant right away too. But i'm pretty sure TNT has better stuff to worry than you opening a bunch of links and clicking knobs and levers.

its too subjective, the most they would notice is you hitting X amount of pages in X amount of time and since it only happened in a short period like 15 minutes, they probably wouldn't think much of it, refreshing a single page like Moltra to find a worm, avatar, or just clicking through pages lost on a site can easily net that amount of clicks.

[Inkheart]

I've never had a problem with the Altador Plot, usually takes just an hour or two.

But for some reason, this time, I can't get past the water plant. Been trying for HOURS.

I would most definitely love you if you released this.

So close. Just gotta figure out how to make it solve the roof at the very end...

[Rainie]

Funny, the water pipe thing is never as much of a time waster as the punch club is for me

Same here X3~~

I would most definitely love you if you released this.

^
♥♥

[Icey Defeat]

He just posted the code up until almost the end. So in a way, he did.

[shrouded]

He just posted the code up until almost the end. So in a way, he did.

#ruby

[sLAUGHTER]

I released the source code to find the star points...somewhere...but I can't find it.

I think I still have it though, it's in VB6 code. Yep, found it.


Note:
In all of the functions using it, strData is the HTML (no headers) returned from going to "http://www.neopets.c...et_star_data=1" (while logged in, of course)

Also, you need to find a SprintF function.

Spoiler

Public dxArray(11, 4) As Long
Public dyArray(11, 4) As Long
Private Const StarString As String = "http://www.neopets.com/altador/astro.phtml?star_submit="
Dim Constellations(2 To 13) As String

Sub Main()
    dxArray(0, 0) = 40: dxArray(0, 1) = 80: dxArray(0, 2) = 120: dxArray(0, 3) = 160: dxArray(0, 4) = 200
    dxArray(1, 0) = 60: dxArray(1, 1) = 120: dxArray(1, 2) = 130: dxArray(1, 3) = 190: dxArray(1, 4) = 110
    dxArray(2, 0) = 20: dxArray(2, 1) = 80: dxArray(2, 2) = 160: dxArray(2, 3) = 140: dxArray(2, 4) = 80
    dxArray(3, 0) = 140: dxArray(3, 1) = 10: dxArray(3, 2) = 120: dxArray(3, 3) = 160: dxArray(3, 4) = 80
    dxArray(4, 0) = 60: dxArray(4, 1) = 120: dxArray(4, 2) = 0: dxArray(4, 3) = 60: dxArray(4, 4) = 120
    dxArray(5, 0) = 50: dxArray(5, 1) = 170: dxArray(5, 2) = 200: dxArray(5, 3) = 190: dxArray(5, 4) = 140
    dxArray(6, 0) = 70: dxArray(6, 1) = 140: dxArray(6, 2) = 40: dxArray(6, 3) = 70: dxArray(6, 4) = 100
    dxArray(7, 0) = 10: dxArray(7, 1) = 100: dxArray(7, 2) = 100: dxArray(7, 3) = 190: dxArray(7, 4) = 200
    dxArray(8, 0) = 40: dxArray(8, 1) = 20: dxArray(8, 2) = 40: dxArray(8, 3) = -50: dxArray(8, 4) = -60
    dxArray(9, 0) = 40: dxArray(9, 1) = -30: dxArray(9, 2) = 10: dxArray(9, 3) = 110: dxArray(9, 4) = 120
    dxArray(10, 0) = -70: dxArray(10, 1) = 70: dxArray(10, 2) = 0: dxArray(10, 3) = 0: dxArray(10, 4) = -130
    dxArray(11, 0) = 10: dxArray(11, 1) = 120: dxArray(11, 2) = 160: dxArray(11, 3) = 170: dxArray(11, 4) = 200
    dyArray(0, 0) = -30: dyArray(0, 1) = -60: dyArray(0, 2) = -60: dyArray(0, 3) = -30: dyArray(0, 4) = 0
    dyArray(1, 0) = -20: dyArray(1, 1) = 0: dyArray(1, 2) = 40: dyArray(1, 3) = 60: dyArray(1, 4) = -90
    dyArray(2, 0) = 60: dyArray(2, 1) = 80: dyArray(2, 2) = 0: dyArray(2, 3) = -60: dyArray(2, 4) = -80
    dyArray(3, 0) = -30: dyArray(3, 1) = -80: dyArray(3, 2) = -60: dyArray(3, 3) = -70: dyArray(3, 4) = 60
    dyArray(4, 0) = -30: dyArray(4, 1) = 0: dyArray(4, 2) = 140: dyArray(4, 3) = 170: dyArray(4, 4) = 140
    dyArray(5, 0) = 70: dyArray(5, 1) = 40: dyArray(5, 2) = 0: dyArray(5, 3) = -90: dyArray(5, 4) = -10
    dyArray(6, 0) = 30: dyArray(6, 1) = 0: dyArray(6, 2) = -120: dyArray(6, 3) = -140: dyArray(6, 4) = -120
    dyArray(7, 0) = -50: dyArray(7, 1) = -130: dyArray(7, 2) = 10: dyArray(7, 3) = -50: dyArray(7, 4) = 0
    dyArray(8, 0) = 40: dyArray(8, 1) = -40: dyArray(8, 2) = -80: dyArray(8, 3) = -10: dyArray(8, 4) = 120
    dyArray(9, 0) = -70: dyArray(9, 1) = -140: dyArray(9, 2) = -200: dyArray(9, 3) = -170: dyArray(9, 4) = -90
    dyArray(10, 0) = 0: dyArray(10, 1) = 0: dyArray(10, 2) = -70: dyArray(10, 3) = 70: dyArray(10, 4) = 90
    dyArray(11, 0) = -140: dyArray(11, 1) = -60: dyArray(11, 2) = -190: dyArray(11, 3) = -20: dyArray(11, 4) = 0
    nLogin.Show
End Sub

Private Function InArray(Arr() As String, Strin As String) As Boolean
    Dim i As Variant
    InArray = False
    For Each i In Arr
        If Strin = Left$(i, Len(Strin)) Then InArray = True: Exit Function
    Next
End Function

Private Function MakeSprint(HowMany As Long) As String
    Dim i As Long
    For i = 1 To HowMany
        MakeSprint = MakeSprint & "%s" & IIf(i Mod 2 = 0, "|", ";")
    Next
    MakeSprint = Mid(MakeSprint, 1, Len(MakeSprint) - 1)
End Function

Public Function SleeperArc(strData As String) As String
    On Error Resume Next
    Dim ArcX As Long, ArcY As Long, i As Long, lngHold As Long
    Compute strData
    Recycle = Split(Constellations(2), vbNewLine)
    For i = 0 To UBound(Recycle)
        ArcX = ArcX + CLng(Split(Recycle(i), ",")(0))
        ArcY = ArcY + CLng(Split(Recycle(i), ",")(1))
    Next
    ArcX = Abs(ArcX): ArcY = Abs(ArcY)
    If Len(ArcX) >= 3 Then
        For i = 1 To Len(ArcX)
            lngHold = lngHold + CLng(Mid(ArcX, i, 1))
        Next
        ArcX = lngHold
    End If
    lngHold = 0
    If Len(ArcY) >= 3 Then
        For i = 1 To Len(ArcY)
            lngHold = lngHold + CLng(Mid(ArcY, i, 1))
        Next
        ArcY = lngHold
    End If
    SleeperArc = SprintF("arcx=%d&arcy=%d", ArcX, ArcY)
End Function

Public Function Sleeper(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(2), vbNewLine)
    Constellations(2) = SprintF(MakeSprint(16), Recycle(0), Recycle(1), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(2), Recycle(1), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(5), Recycle(4))
    Sleeper = StarString & Constellations(2)
End Function

Public Function Dreamer(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(3), vbNewLine)
    Constellations(3) = SprintF(MakeSprint(17), Recycle(0), Recycle(1), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(2), Recycle(1), Recycle(2), Recycle(3), Recycle(3), Recycle(2), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(5))
    Dreamer = StarString & Constellations(3)
End Function

Public Function FirstToRise(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(4), vbNewLine)
    Constellations(4) = SprintF(MakeSprint(16), Recycle(0), Recycle(1), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(5), Recycle(4), Recycle(2), Recycle(1))
    FirstToRise = StarString & Constellations(4)
End Function

Public Function Farmer(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(5), vbNewLine)
    Constellations(5) = SprintF(MakeSprint(20), Recycle(5), Recycle(1), Recycle(0), Recycle(1), Recycle(4), Recycle(1), Recycle(4), Recycle(3), Recycle(1), Recycle(4), Recycle(1), Recycle(5), Recycle(1), Recycle(0), Recycle(3), Recycle(4), Recycle(3), Recycle(2), Recycle(2), Recycle(3))
    Farmer = StarString & Constellations(5)
End Function

Public Function Dancer(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(6), vbNewLine)
    Constellations(6) = SprintF(MakeSprint(16), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(5), Recycle(4), Recycle(0), Recycle(1), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(2), Recycle(1))
    Dancer = StarString & Constellations(6)
End Function

Public Function Wave(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(7), vbNewLine)
    Constellations(7) = SprintF(MakeSprint(20), Recycle(0), Recycle(1), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(2), Recycle(1), Recycle(2), Recycle(3), Recycle(3), Recycle(2), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(5), Recycle(4))
    Wave = StarString & Constellations(7)
End Function

Public Function Gladiator(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(8), vbNewLine)
    Constellations(8) = SprintF(MakeSprint(24), Recycle(0), Recycle(3), Recycle(0), Recycle(1), Recycle(3), Recycle(0), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(5), Recycle(4), Recycle(5), Recycle(2), Recycle(2), Recycle(5), Recycle(2), Recycle(1))
    Gladiator = StarString & Constellations(8)
End Function

Public Function Collector(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(9), vbNewLine)
    Constellations(9) = SprintF(MakeSprint(20), Recycle(5), Recycle(4), Recycle(5), Recycle(3), Recycle(4), Recycle(5), Recycle(3), Recycle(2), Recycle(3), Recycle(5), Recycle(3), Recycle(0), Recycle(2), Recycle(3), Recycle(1), Recycle(0), Recycle(0), Recycle(3), Recycle(0), Recycle(1))
    Collector = StarString & Constellations(9)
End Function

Public Function Thief(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(10), vbNewLine)
    Constellations(10) = SprintF(MakeSprint(24), Recycle(5), Recycle(4), Recycle(5), Recycle(1), Recycle(4), Recycle(5), Recycle(4), Recycle(0), Recycle(0), Recycle(4), Recycle(0), Recycle(2), Recycle(0), Recycle(1), Recycle(2), Recycle(0), Recycle(2), Recycle(3), Recycle(3), Recycle(2), Recycle(1), Recycle(0), Recycle(1), Recycle(5))
    Thief = StarString & Constellations(10)
End Function

Public Function Gatherer(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(11), vbNewLine)
    Constellations(11) = SprintF(MakeSprint(20), Recycle(2), Recycle(3), Recycle(2), Recycle(5), Recycle(3), Recycle(2), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(5), Recycle(5), Recycle(4), Recycle(5), Recycle(2), Recycle(0), Recycle(1), Recycle(1), Recycle(0))
    Gatherer = StarString & Constellations(11)
End Function

Public Function Protector(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(12), vbNewLine)
    Constellations(12) = SprintF(MakeSprint(33), Recycle(1), Recycle(3), Recycle(1), Recycle(4), Recycle(1), Recycle(0), Recycle(3), Recycle(1), Recycle(3), Recycle(0), Recycle(3), Recycle(2), Recycle(0), Recycle(3), Recycle(0), Recycle(4), Recycle(0), Recycle(2), Recycle(0), Recycle(1), Recycle(4), Recycle(0), Recycle(4), Recycle(1), Recycle(4), Recycle(2), Recycle(2), Recycle(3), Recycle(2), Recycle(4), Recycle(2), Recycle(0), Recycle(5))
    Protector = StarString & Constellations(12)
End Function

Public Function Hunter(strData As String) As String
    Compute strData
    Recycle = Split(Constellations(13), vbNewLine)
    Constellations(13) = SprintF(MakeSprint(28), Recycle(0), Recycle(1), Recycle(0), Recycle(4), Recycle(1), Recycle(0), Recycle(1), Recycle(2), Recycle(1), Recycle(3), Recycle(2), Recycle(1), Recycle(2), Recycle(4), Recycle(3), Recycle(1), Recycle(3), Recycle(4), Recycle(4), Recycle(3), Recycle(4), Recycle(2), Recycle(4), Recycle(0), Recycle(4), Recycle(5), Recycle(5), Recycle(4))
    Hunter = StarString & Constellations(13)
End Function

Private Sub Compute(strData As String)
    Dim StarArray() As String, i As Variant, j As Long, x As Long, Y As Long, ConString As String, Recycle() As String
    strData = Split(strData, ":")(0)
    StarArray = Split(strData, "|")
    For Each i In StarArray
        x = Split(i, ",")(0)
        Y = Split(i, ",")(1)
        For j = 0 To 11
            DoEvents
            If InArray(StarArray, ((x + dxArray(j, 0)) & "," & (Y + dyArray(j, 0)))) And InArray(StarArray, ((x + dxArray(j, 1)) & "," & (Y + dyArray(j, 1)))) And InArray(StarArray, ((x + dxArray(j, 2)) & "," & (Y + dyArray(j, 2)))) And InArray(StarArray, ((x + dxArray(j, 3)) & "," & (Y + dyArray(j, 3)))) And InArray(StarArray, ((x + dxArray(j, 4)) & "," & (Y + dyArray(j, 4)))) Then
                ConString = x & "," & Y & vbNewLine
                DoEvents
                For z = 0 To 4
                    DoEvents
                    ConString = ConString & ((x + dxArray(j, z)) & "," & (Y + dyArray(j, z))) & vbNewLine
                Next
                Constellations(j + 2) = TrimAll(ConString)
            End If
        Next
    Next
End Sub

I puked when I saw this. It'd be so much nicer looking in PHP or Python... >_>

I last touched this code 8/29/2010.

According to my code, you need to go to the page returned by the functions.

So...yeah. Feel free to ask questions, though. I was a bit vague, I'm sure.

Edited by sLAUGHTER, 19 March 2012 - 08:41 PM.

[Inkheart]

So...yeah. Feel free to ask questions, though. I was a bit vague, I'm sure.

Um... Slaughter, what the hell are you on about? : P You did see that I posted a link to my source, right? My plotting method is already complete (and significantly less unpleasant). I just need to figure out how best to make the roof open up 15 ticks on the last step.

Edited by Inkheart, 19 March 2012 - 09:07 PM.

[Kway]

Um... Slaughter, what the hell are you on about? : P You did see that I posted a link to my source, right? My plotting method is already complete (and significantly less unpleasant). I just need to figure out how best to make the roof open up 15 ticks on the last step.

I think that is one of the easiest parts, the file names for the image literally gives it away.

If you are talking about the strategy, a basic process of elimination is all you need (can't get anymore advanced without hacking the data out of the server). Here is a blob of code that I use (in Python of course).

Spoiler

gearCount = 3
lastDistance = 0
gearData = {}

log('Search started')
for i in xrange(10):
    if gearCount == 0:  # Not enough rocks
        lowestI = -1
        lowestDistance = -1
        for gear in gearData:
            if gearData[gear] < lowestDistance or lowestDistance == -1:
                lowestI = gear
                lowestDistance = gearData[lowestI]
        self.changeGear(lowestI)
        lastDistance -= lowestDistance
        gearCount += 1
        del gearData[lowestI]
    self.changeGear(i)   # Place a rock
    html = self.getWrapper('http://www.neopets.com/altador/hallofheroes.phtml?janitor=1&push_button=1',None)
    if '<MAP name="map_pattern">' in html:
        log('Gear combination found')
        break
    currentDistance = int(getStringBetween(html,'src="http://images.neopets.com/altador/hall/ceil_r','_'))
    gearData[i] = currentDistance - lastDistance
    gearCount -= 1
    lastDistance = currentDistance
else:
    log('Failed to find the combination')
    return False

[RayX00]

lol python would look so much cleaner, but it's still not as standard as C++ or sth...anyways, I'd love it if the program could be released, been wanting that avvie for a long time now.

[Yung]

lol python would look so much cleaner, but it's still not as standard as C++ or sth...anyways, I'd love it if the program could be released, been wanting that avvie for a long time now.

It has been released, Altador Plot Autocompleter so now we can let this thread die in peace yeah? Yeah.