Code (Text): Private Declare Function GetTickCount Lib "kernel32" () As Long ' function for the wait sub Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' function for the wait sub Dim bet As Long Private Sub Wait(ByVal seconds As Long) ' wait sub Dim CurrentTime As Long, StopTime As Long ' variables CurrentTime = GetTickCount() ' 'currenttimes value Do Until GetTickCount() >= CurrentTime + seconds * 1000 ' how long to wait for DoEvents ' do events Sleep 1 ' wait Loop ' End Sub Private Sub AutoCheck_Click() 'autobet checkbox If Txtautobet.Text > 0 Then ' if bet entered is more than zero AutoCheck.Value = 1 ' then enable it Else: AutoCheck.Value = 0 ' if bet is less than zero, disable it End If ' end if End Sub Private Sub imgbet_Click() ' bet button If lblmoney.Caption < 5 Then ' if user doesn't have enough money to bet MsgBox "You are all out of money! Is there any in the bottom of the machine? Perhaps if you keep on looking you may find some!", , "you're broke!" ' tell them they're broke! ElseIf lblmoney.Caption >= 5 Then ' if they do have enough to bet bet = bet + 5 ' then add 5 to their current bet lblmoney.Caption = lblmoney.Caption - 5 ' take 5 from their money lblbet.Caption = bet ' update their bet amount caption lblmult.Caption = bet / 5 ' update their multiply bonus caption End If End Sub Private Sub imgcol_Click() ' collection box image Dim moneyfind As Long ' the money variable rand = Random(1, 10) ' chance of finding money = 1/10 If rand = 10 Then moneyfind = Random(5, 20) ' if rand = 10 then the user finds between 5 and 20 money lblmoney.Caption = lblmoney.Caption + moneyfind ' update money MsgBox "You found " & moneyfind & " in the collection box!", , "Money!" ' display message box saying how much they found End Sub Private Sub imgspin_Click() ' spin the slots go button image If AutoCheck.Value = 1 Then ' if the user has autoselect selected Dim currentmoney As Integer ' dim currentmoney currentmoney = lblmoney.Caption ' store the money value in here to tell prog that the money amount is an integer If currentmoney >= Txtautobet.Text Then ' check user has enough to bet lblmoney.Caption = lblmoney.Caption - Txtautobet.Text ' update money bet = Txtautobet.Text ' update bet ElseIf currentmoney < Txtautobet.Text Then ' if they dont have enough money bet = 0 ' they dont get to bet MsgBox "You are all out of money! Is there any in the bottom of the machine? Perhaps if you keep on looking you may find some!", , "you're broke!" ' tell them they're broke GoTo endit ' goto the end End If 'end if End If 'end if If bet <= 0 Then ' if they haven't got a bet MsgBox "You haven't made a bet yet!", , "make a bet" ' tell them to make one ElseIf bet > 0 Then ' if they have made a bet Dim moneymult As Long ' dim moneymult moneymult = bet 'moneymult equals the value of bet bet = 0 ' reset the bet value lblbet.Caption = bet ' reset the bet amount caption Timer1.Enabled = True ' enable timer (scrolling changing num effects) Wait (1) ' wait 1 second Timer1.Enabled = False ' disable the timer lbl0.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl1.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl2.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl01.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl11.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl21.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl02.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl12.Caption = Random(1, 9) ' text bit on slot machine = a random number lbl22.Caption = Random(1, 9) ' text bit on slot machine = a random number If lbl12.Caption = lbl11.Caption = lbl1.Caption Then ' if three in a row across the middle equals the same amount then lblmoney.Caption = lblmoney.Caption + (moneymult * 2) ' update money with winnings lblwins.Caption = lblwins.Caption + (moneymult * 2) ' update total winnings label End If ' end if lblmult.Caption = "0" ' reset multiplier label End If ' endif endit: ' the goto bit from up there ^ :) End Sub Private Sub Timer1_Timer() ' interval 1 lbl0.Caption = Random(1, 9) ' create a random number to get changing effect lbl1.Caption = Random(1, 9) ' create a random number to get changing effect lbl2.Caption = Random(1, 9) ' create a random number to get changing effect lbl01.Caption = Random(1, 9) ' create a random number to get changing effect lbl11.Caption = Random(1, 9) ' create a random number to get changing effect lbl21.Caption = Random(1, 9) ' create a random number to get changing effect lbl02.Caption = Random(1, 9) ' create a random number to get changing effect lbl12.Caption = Random(1, 9) ' create a random number to get changing effect lbl22.Caption = Random(1, 9) ' create a random number to get changing effect End Sub Public Function Random(Min As Long, Max As Long) As Long ' a proper random generator Static RandControl As Integer RandControl = RandControl - 1 If RandControl < 0 Then Randomize Timer RandControl = 999 End If Random = Int(Rnd * ((Max + 1) - Min)) + Min End Function Well.. thats all. Im really bored, and i start to make this. This is nothing neo-related. But with practice, and learning codes, you can make veru usefull neopets programs =), enojoy. xD
do have any idea how to code it you have to find string in html go to different html get a picture onr a picture. But if you have found a how to make an autobuyer tutorial I would love to know where one is
Nope.. Maybe, in the future (if i have the expon autorization (sorry mi sintax)) i'll make an How To Make an AB =D. But, i recommend, start learning with another non-AB related programms =)
I am making other non main shop aber I am making an usab. What things are you making/made And I know how to make an autobuyer now