Double or Nothing player? :o

Just for av and trophy's sake. There was a GM script but it doesn't work anymore :/
Also I found a script on google for visual basics. I know nothing about programming. But for anyone attempting to actually make this, maybe you can look at this {Sorry, I don't know if this is helpful at all so don't yell at me cuz I dunno what I am posting }

Code (Text):

1. Dim strHTML As String
2. Dim strPrize As String
3. Dim strRef() As String
4. Dim strLast As String
5.  
6. Private Sub Command1_Click()
7.     If IsNumeric(txtMin.Text) Then
8.         Command1.Enabled = False
9.         Command2.Enabled = True
10.         strHTML = Halo.GetWrapper("http://neopets.com/medieval/doubleornothing.phtml", "http://neopets.com/games/play.phtml?game_id=178") 'Goes to game page
11.         Timer1.Enabled = True
12.     Else
13.         MsgBox "Enter Minium Amount"
14.     End If
15. End Sub
16.  
17. Private Sub Command2_Click()
18.     Command1.Enabled = True
19.     Command2.Enabled = False
20.     Timer1.Enabled = False
21. End Sub
22.  
23. Private Sub Timer1_Timer()
24.     strHTML = Halo.GetWrapper("http://neopets.com/medieval/process_doubleornothing.phtml?type=cointoss", Halo.Last_Page) 'flips coin
25.     Label1.Caption = Time & "   -  Flipping Coin"
26.    
27.     If InStr(1, strHTML, "You do not have 10 Neopoints to bet!") Then
28.         MsgBox "You Don't Have Enough Nps To Play"
29.         Command1.Enabled = True
30.         Command2.Enabled = False
31.         Exit Sub
32.         Timer1.Enabled = False
33.     End If
34.    
35.     strRef = Split(strHTML, vbCrLf)
36.     strLast = "http://neopets.com/medieval/" & Replace(strRef(7), "Location: ", "") 'Gets the page to view the result
37.    
38.     strHTML = Halo.GetWrapper(strLast, Halo.Last_Page) 'goes to page to view coin result
39.    
40.     If InStr(1, strHTML, "<input type='submit' value='Try again...'>") Then
41.     'if lost then
42.         strHTML = Halo.GetWrapper("http://neopets.com/medieval/doubleornothing.phtml?", Halo.Last_Page) 'start game again
43.         Label1.Caption = Time & "   - Lost Game"
44.        
45.     ElseIf InStr(1, strHTML, "<input type='submit' value='Continue'>") Then
46.     'if won
47.         strPrize = GB(strHTML, "<input type=" & ChrW$(34) & "submit" & ChrW$(34) & " value=" & ChrW$(34) & "Collect Your Winnings - ", " NP" & ChrW$(34) & ">") 'checks nps won
48.         Label1.Caption = Time & "   -  Current Prize - " & strPrize
49.        
50.         If Int(strPrize) >= txtMin.Text Then 'if nps won is greater or equal to the minium the user put then
51.        
52.             Label1.Caption = Time & "   -  Collecting " & strPrize & " Nps"
53.             strHTML = Halo.GetWrapper("http://neopets.com/medieval/process_doubleornothing.phtml?type=collect&win=2", Halo.Last_Page) 'collect nps
54.             List1.AddItem Time & "  - Collected " & strPrize & " Nps"
55.             strHTML = Halo.GetWrapper("http://neopets.com/medieval/doubleornothing.phtml?", Halo.Last_Page) 'restarts game
56.            
57.         Else
58.        
59.             strHTML = Halo.GetWrapper("http://neopets.com/medieval/doubleornothing.phtml?", Halo.Last_Page) 'goes to next level
60.            
61.         End If
62.     End If
63. End Sub

 

This would be a cool idea.

It could also be done with a GM script, which is neat.

Although having a program would be better so you could put pauses and set max money to collect(so if you want av or troph, it will stop once you have enough)

 

Do you want me to make this?

 

If that's not too much trouble that'd be great haha.

 

i've been working on a big mini game player (for all the games like this, like kiss the mortog and so on)

I'll have the done sometime soon

 

Wow even better if it includes kiss the mortog. That game is a pesk. Thanks heya :yup: Looking forward to it.