Any limits on nastiness/language?

A few times I thought I was a bit nasty. After reading some Posts, I realize that I am really a nice guy compared to some.

I have seen people called monkeys, stupid, ridiculous, et cetera. I am not asking for myself. I have been mildly chided, never insulted.

While I have seen a few risque remarks, I have never seen any vulgar language.

Is there any policy on rudeness, insults, obscenity, sexual remarks, et cetera?

Obviously, I am referring to the Chit Chat Forum. The other forums seem to stay with technical issues.

Is there any attempt to edit erroneous advice posted on technical forums? I have occasionally seen advice which seemed incorrect (not often) or inapplicable (slightly more often). What I have seen is infreguent and tends to be questionable rather than dangerously in error, so I am not suggesting that there is a problem. I am just wondering if there are any totally off the wall technical posts which get intercepted.

I have a thick skin and can take an occasional insult. Obscenity does not offend me, although I disapprove of it. So far, I believe I am well within any current policy, and do not intend to be insulting or obscene, but who knows what I might want to say tomorrow?

I am just curious. I am not requesting any limits, and prefer not to have any imposed.

I am the limit.

<heh> What a Monkey <heh>

There's a sudden spate of people being called women too...Sandra Finch...come in please...

Although, "Samantha" makes more sense...

I agree, it does, although that's what he ended up as. I think V(ery)'s twisted mind had a hand in it somewhere :).

Rudeness: Why should anyone be rude? It's just a message board!

Insults: Grr...some people just never mature.

Obscenity: Can't we all just get along?

Sexual remarks: This is a message board about VB, even in Chit Chat, why would you get horny?

etcetera: (Cursing): Why not just use astericks?

etcetera etcetera: BE PEACEFUL! Others may not be nice to you, but that just means they are not nice people. By you not doing anything back to them shows them that you are mature and a very nice person.

Remember: Never attack first. Always be the second one to attack so you can use self-defense as an excuse :).

Hope you all learn something from this. For I know from experience...I am a nice person, I think and I am peaceful and respectful. I hold all my comments about people to myself, not that I have any comments about any one of you. You are all part of the Vb-World family ;]. (lame :p)

I am the one called "Monkey".

Matthew Gates: As for sexual remarks, what about our man honeybee?

Guv - you don't half waffle on!
Just say what you mean - none of this padding out. Your post was the longest Ive seen.
You're sad, really sad.....!

They come much longer than that :). I've posted some huge ones, as as Matthew / Megatron / Serge / etc...

The mother of all long posts: (sorry to James (not John) for clogging up the forum with this rubbish:

(PS I made this a couple of years ago when I didn't know how to use BAS modules or anything. Trust me, I'm a totally different programmer now)

Code:

Public h1& Public h2& Public h3& Public h4& Public h5& Public h6& Public Monspent@ Public Speed& Public Sped& Public rl& Public Horse1$ Public Horse2$ Public Horse3$ Public Horse4$ Public Horse5$ Public Horse6$ Public Bet& Public H1win$ Public H2win$ Public H3win$ Public H4win$ Public H5win$ Public H6win$ Public Odds1 Public Odds2 Public Odds3 Public Odds4 Public Odds5 Public Odds6 Public Win Public FailRig Public LoadOfBull% Public BookieHasRunner Public MoneyWon@ Public NormHBset Public HBet Public ProfitWasMade% Public LossWasMade% Public Normraces% Public Accumulator% Public Race1and2% Public AccStage1 Public AccStage2 Private Sub Command1_Click() rerun: For n = 1 To Speed&: Next Dim s1l, s2l, s3l, s4l, s51, s61, OddsWinHorse&, MoneyBetHorse& s1l = Int((Rnd * 99) + 1) s2l = Int((Rnd * 99) + 1) s3l = Int((Rnd * 99) + 1) s4l = Int((Rnd * 99) + 1) s5l = Int((Rnd * 99) + 1) s6l = Int((Rnd * 99) + 1) If Win = 0 Then GoTo NoRig If Win = 1 Then s1l = (s1l * (s1l / 50)) If Win = 2 Then s2l = (s2l * (s2l / 50)) If Win = 3 Then s3l = (s3l * (s3l / 50)) If Win = 4 Then s4l = (s4l * (s4l / 50)) If Win = 5 Then s5l = (s5l * (s5l / 50)) If Win = 6 Then s6l = (s6l * (s6l / 50)) NoRig: b1: Shape1.Left = (Shape1.Left + s1l) If Shape1.Left >= 8140 Then GoTo whofirst If Shape1.Left < 8140 Then GoTo b2 b2: Shape2.Left = (Shape2.Left + s2l) If Shape2.Left >= 8140 Then GoTo whofirst If Shape2.Left < 8140 Then GoTo b3 b3: Shape3.Left = (Shape3.Left + s3l) If Shape3.Left >= 8140 Then GoTo whofirst If Shape3.Left < 8140 Then GoTo b4 b4: Shape4.Left = (Shape4.Left + s4l) If Shape4.Left >= 8140 Then GoTo whofirst If Shape4.Left < 8140 Then GoTo b5 b5: Shape5.Left = (Shape5.Left + s5l) If Shape5.Left >= 8140 Then GoTo whofirst If Shape5.Left < 8140 Then GoTo b6 b6: Shape6.Left = (Shape6.Left + s6l) If Shape6.Left >= 8140 Then GoTo whofirst If Shape6.Left < 8140 Then GoTo mt whofirst: If Shape1.Left > Shape2.Left And Shape1.Left > Shape3.Left And Shape1.Left > Shape4.Left And Shape1.Left > Shape5.Left And Shape1.Left > Shape6.Left Then Label1.Visible = True Label1.Caption = "Winner - Horse no.1" Line2.Visible = True Hwin = 1 GoTo f2 End If f2: If Shape2.Left > Shape1.Left And Shape2.Left > Shape3.Left And Shape2.Left > Shape4.Left And Shape2.Left > Shape5.Left And Shape2.Left > Shape6.Left Then Label2.Visible = True Label2.Caption = "Winner - Horse no.2" Line2.Visible = True Hwin = 2 GoTo f3 End If f3: If Shape3.Left > Shape1.Left And Shape3.Left > Shape2.Left And Shape3.Left > Shape4.Left And Shape3.Left > Shape5.Left And Shape3.Left > Shape6.Left Then Label4.Visible = True Label4.Caption = "Winner - Horse no.4" Line2.Visible = True Hwin = 3 GoTo f4 End If f4: If Shape4.Left > Shape1.Left And Shape4.Left > Shape2.Left And Shape4.Left > Shape3.Left And Shape4.Left > Shape5.Left And Shape4.Left > Shape6.Left Then Label5.Visible = True Label5.Caption = "Winner - Horse no.5" Line2.Visible = True Hwin = 4 GoTo f5 End If f5: If Shape5.Left > Shape1.Left And Shape5.Left > Shape2.Left And Shape5.Left > Shape3.Left And Shape5.Left > Shape4.Left And Shape5.Left > Shape6.Left Then Label3.Visible = True Label3.Caption = "Winner - Horse no.3" Line2.Visible = True Hwin = 5 GoTo f6 End If f6: If Shape6.Left > Shape1.Left And Shape6.Left > Shape2.Left And Shape6.Left > Shape3.Left And Shape6.Left > Shape4.Left And Shape6.Left > Shape5.Left Then Label6.Visible = True Label6.Caption = "Winner - Horse no.6" Line2.Visible = True Hwin = 6 GoTo fini End If GoTo fini mt: GoTo rerun fini: Normraces% = Normraces% + 1 If Hwin = 1 Then GoTo Horsey1 If Hwin = 2 Then GoTo Horsey2 If Hwin = 3 Then GoTo Horsey4 If Hwin = 4 Then GoTo Horsey5 If Hwin = 5 Then GoTo Horsey3 If Hwin = 6 Then GoTo Horsey6 Horsey1: H1win$ = Val(H1win$) + 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h1& & " on horse number 1 at " & Odds1 & " - 1 odds so you win £" & (h1& * (Odds1))) If Monspent@ > (h1& * (Odds1)) Then GoTo loss If Monspent@ < (h1& * (Odds1)) Then GoTo prof If Monspent@ = (h1& * (Odds1)) Then GoTo prof loss: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h1& * (Odds1)) - Monspent@) - (((h1& * (Odds1)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h1& * (Odds1)) - Monspent@) Odds1 = Odds1 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & ((h1& * (Odds1)) - Monspent@)) MoneyWon@ = MoneyWon@ + ((h1& * (Odds1)) - Monspent@) Odds1 = Odds1 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey2: H2win$ = Val(H2win$) + 1 Odds1 = Odds1 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h2& & " on horse number 2 at " & Odds2 & " - 1 odds so you win £" & (h2& * (Odds2))) If Monspent@ > (h2& * (Odds2)) Then GoTo loss2 If Monspent@ < (h2& * (Odds2)) Then GoTo prof2 If Monspent@ = (h2& * (Odds2)) Then GoTo prof2 loss2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h2& * (Odds2)) - Monspent@) - (((h2& * (Odds2)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h2& * (Odds2)) - Monspent@) Odds2 = Odds2 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h2& * (Odds2)) - Monspent@) MoneyWon@ = MoneyWon@ + ((h2& * (Odds2)) - Monspent@) Odds2 = Odds2 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey3: H3win$ = Val(H3win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h3& & " on horse number 3 at " & Odds3 & " - 1 odds so you win £" & (h3& * (Odds3))) If Monspent@ > (h3& * (Odds3)) Then GoTo loss3 If Monspent@ < (h3& * (Odds3)) Then GoTo prof3 If Monspent@ = (h3& * (Odds3)) Then GoTo prof3 loss3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h3& * (Odds3)) - Monspent@) - (((h3& * (Odds3)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h3& * (Odds3)) - Monspent@) Odds3 = Odds3 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h3& * (Odds3)) - Monspent@) MoneyWon@ = MoneyWon@ + ((h3& * (Odds3)) - Monspent@) Odds3 = Odds3 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey4: H4win$ = Val(H4win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h4& & " on horse number 4 at " & Odds4 & " - 1 odds so you win £" & (h4& * (Odds4))) If Monspent@ > (h4& * (Odds4)) Then GoTo loss4 If Monspent@ < (h4& * (Odds4)) Then GoTo prof4 If Monspent@ > (h4& * (Odds4)) Then GoTo prof4 loss4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h4& * (Odds4)) - Monspent@) - (((h4& * (Odds4)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h4& * (Odds4)) - Monspent@) Odds4 = Odds4 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h4& * (Odds4)) - Monspent@) MoneyWon@ = MoneyWon@ + ((h4& * (Odds4)) - Monspent@) Odds4 = Odds4 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey5: H5win$ = Val(H5win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h5& & " on horse number 5 at " & Odds5 & " - 1 odds so you win £" & (h5& * (Odds5))) If Monspent@ > (h5& * (Odds5)) Then GoTo loss5 If Monspent@ < (h5& * (Odds5)) Then GoTo prof5 If Monspent@ > (h5& * (Odds5)) Then GoTo prof5 loss5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h5& * (Odds5)) - Monspent@) - (((h5& * (Odds5)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h5& * (Odds5)) - Monspent@) Odds5 = Odds5 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h5& * (Odds5)) - Monspent@) MoneyWon@ = MoneyWon@ + ((h5& * (Odds5)) - Monspent@) Odds5 = Odds5 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey6: H6win$ = Val(H6win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 MsgBox ("You bet £" & h6& & " on horse number 6 at " & Odds6 & " - 1 odds so you win £" & (h6& * (Odds6))) If Monspent@ > (h6& * (Odds6)) Then GoTo loss6 If Monspent@ < (h6& * (Odds6)) Then GoTo prof6 If Monspent@ > (h6& * (Odds6)) Then GoTo prof6 loss6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h6& * (Odds6)) - Monspent@) - (((h6& * (Odds6)) - Monspent@) * 2)) MoneyWon@ = MoneyWon@ + ((h6& * (Odds6)) - Monspent@) Odds6 = Odds6 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h6& * (Odds6)) - Monspent@) MoneyWon@ = MoneyWon@ + ((h6& * (Odds6)) - Monspent@) Odds6 = Odds6 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish finish: If Monspent@ = 0 Then ProfitWasMade% = ProfitWasMade% - 1 Command3.Visible = True Command5.Visible = True Command1.Visible = False Command4.Visible = False rl& = rl& + 1 Win = 0 If Odds1 = 2 Then Odds1 = 3 If Odds2 = 2 Then Odds2 = 3 If Odds3 = 2 Then Odds3 = 3 If Odds4 = 2 Then Odds4 = 3 If Odds5 = 2 Then Odds5 = 3 If Odds6 = 2 Then Odds6 = 3 If MoneyBetHorse& = 0 Then GoTo IMadaProf IMadaProf: GoTo HundPerFini23 HundPerFini23: If Val(H1win$) >= 4 Then Odds1 = Odds1 + 2 If Val(H2win$) >= 4 Then Odds2 = Odds2 + 2 If Val(H3win$) >= 4 Then Odds3 = Odds3 + 2 If Val(H4win$) >= 4 Then Odds4 = Odds4 + 2 If Val(H5win$) >= 4 Then Odds5 = Odds5 + 2 If Val(H6win$) >= 4 Then Odds6 = Odds6 + 2 If Odds1 > 10 Then Odds1 = 8 If Odds2 > 10 Then Odds2 = 8 If Odds3 > 10 Then Odds3 = 8 If Odds4 > 10 Then Odds4 = 8 If Odds5 > 10 Then Odds5 = 8 If Odds6 > 10 Then Odds6 = 8 HailCamillo = Int(Rnd * 10) If HailCamillo = 1 Then GoTo NumeroUno If HailCamillo = 2 Then GoTo NumeroDos If HailCamillo = 3 Then GoTo NumeroTres If HailCamillo = 4 Then GoTo NumeroQuatro If HailCamillo = 5 Then GoTo NumeroCinqo If HailCamillo = 6 Then GoTo NumeroSes If HailCamillo > 6 Then GoTo TotalHundPerCentAbsolutCertainFini: NumeroUno: GoodForm1 = Int((Rnd * 3) + 1) Odds1 = Odds1 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: NumeroDos: GoodForm2 = Int((Rnd * 3) + 1) Odds2 = Odds2 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: NumeroTres: GoodForm3 = Int((Rnd * 3) + 1) Odds3 = Odds3 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: NumeroQuatro: GoodForm4 = Int((Rnd * 3) + 1) Odds4 = Odds4 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: NumeroCinqo: GoodForm5 = Int((Rnd * 3) + 1) Odds5 = Odds5 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: NumeroSes: GoodForm6 = Int((Rnd * 3) + 1) Odds6 = Odds6 - GoodForm GoTo TotalHundPerCentAbsolutCertainFini: TotalHundPerCentAbsolutCertainFini: Win = 0 If Odds1 <= 2 Then Odds1 = 3 If Odds2 <= 2 Then Odds2 = 3 If Odds3 <= 2 Then Odds3 = 3 If Odds4 <= 2 Then Odds4 = 3 If Odds5 <= 2 Then Odds5 = 3 If Odds6 <= 2 Then Odds6 = 3 If MoneyWon@ + 30000 >= 1000000 Then MsgBox ("WELL DONE YOU HAVE WON ONE MILLION POUNDS YOU CAN LIVE IN A MANSION DRINKING CHAMPAGNE!") MsgBox ("YOUR DREAM HAS COME TRUE - WELL DONE") YourName$ = InputBox("Please enter your name for 'UK's Richest People'!") MsgBox ("That's a strange name! Anyway, thanks for playing Horse Racing - and who knows - IT MIGHT HAPPEN FOR REAL!!!") MsgBox ("Thanks for playing - BYE BYE!") Unload Form End If End Sub Private Sub Command2_Click() MsgBox ("You are now leaving HORSE RACING. Thank you for playing. BYE!") End End Sub Private Sub Command3_Click() h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 Monspent@ = 0 Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 Label1.Caption = "" Label1.Visible = False Label2.Caption = "" Label2.Visible = False Label3.Caption = "" Label3.Visible = False Label4.Caption = "" Label4.Visible = False Label5.Caption = "" Label5.Visible = False Label6.Caption = "" Label6.Visible = False Label12.Visible = False Label13.Visible = False Label14.Visible = False Label15.Visible = False Label16.Visible = False Label17.Visible = False Line2.Visible = True Command1.Visible = True Command4.Visible = True Command3.Visible = False Command5.Visible = False End Sub Private Sub Command4_Click() Dim BookieRunner, BookieRunner2 rebet: h1& = InputBox("How much money are you going to bet on Horse number 1 (Odds " & Odds1 & " to 1) (Blue)?") If h1& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h1& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h2& = InputBox("How much money are you going to bet on Horse number 2 (Odds " & Odds2 & " to 1) Red)?") If h2& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h2& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h3& = InputBox("How much money are you going to bet on Horse number 3 (Odds " & Odds3 & " to 1) (Green)?") If h3& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h3& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h4& = InputBox("How much money are you going to bet on Horse number 4 (Odds " & Odds4 & " to 1) (Orange)?") If h4& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h4& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h5& = InputBox("How much money are you going to bet on Horse number 5 (Odds " & Odds5 & " to 1) (Yellow)?") If h5& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h5& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h6& = InputBox("How much money are you going to bet on Horse number 6 (Odds " & Odds6 & " to 1) (Pink)?") If h6& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h6& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If BookieRunner = Int((Rnd * 1000) + 1) BookieRunner2 = Int((Rnd * 1000) + 1) If BookieRunner = BookieRunner2 Then MsgBox ("The bookie has run off with the money you gave him and the money others gave him!") MsgBox ("You lost £" & h1& + h2& + h3& + h4& + h5& + h6& & "") Allspent@ = Allspent@ + h1& + h2& + h3& + h4& + h5& + h6& BookieHasRunner = BookieHasRunner + 1 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 GoTo finish End If Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& Allspent@ = Allspent@ + Monspent@ finish: Horse1$ = Val(Horse1$) + h1& Horse2$ = Val(Horse2$) + h2& Horse3$ = Val(Horse3$) + h3& Horse4$ = Val(Horse4$) + h4& Horse5$ = Val(Horse5$) + h5& Horse6$ = Val(Horse6$) + h6& Bet& = Bet& + 1 Command1.Visible = True Command2.Visible = True Command3.Visible = False Command4.Visible = False Command5.Visible = False End Sub Private Sub Command5_Click() Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 Label1.Caption = "" Label1.Visible = False Label2.Caption = "" Label2.Visible = False Label3.Caption = "" Label3.Visible = False Label4.Caption = "" Label4.Visible = False Label5.Caption = "" Label5.Visible = False Label6.Caption = "" Label6.Visible = False Line2.Visible = True Command1.Visible = True Command4.Visible = False Command3.Visible = False Command5.Visible = False If h1& + h2& + h3& + h4& + h5& + h6& = 0 Then GoTo booboobaba BookieRunner = Int((Rnd * 1000) + 1) BookieRunner2 = Int((Rnd * 1000) + 1) If BookieRunner = BookieRunner2 Then MsgBox ("The bookie has run off with the money you gave him and the money others gave him!") MsgBox ("You lost £" & h1& + h2& + h3& + h4& + h5& + h6& & "") BookieHasRunner = BookieHasRunner + 1 Allspent@ = Allspent@ + h1& + h2& + h3& + h4& + h5& + h6& h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 GoTo finish End If booboobaba: Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& Horse1$ = Val(Horse1$) + h1& Horse2$ = Val(Horse2$) + h2& Horse3$ = Val(Horse3$) + h3& Horse4$ = Val(Horse4$) + h4& Horse5$ = Val(Horse5$) + h5& Horse6$ = Val(Horse6$) + h6& finish: If Monspent@ = 0 Then GoTo absolutfini Bet& = Bet& + 1 absolutfini: End Sub Private Sub Command6_Click() rl& = rl& + 1 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False rebet: h1& = InputBox("How much money are you going to bet on Horse number 1 (Odds " & Odds1 & " to 1) (Blue)?") If h1& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h1& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h1& >= 1 Then: GoTo endbet End If h2& = InputBox("How much money are you going to bet on Horse number 2 (Odds " & Odds2 & " to 1) Red)?") If h2& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h2& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h2& >= 1 Then: GoTo endbet End If h3& = InputBox("How much money are you going to bet on Horse number 3 (Odds " & Odds3 & " to 1) (Green)?") If h3& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h3& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h3& >= 1 Then: GoTo endbet End If h4& = InputBox("How much money are you going to bet on Horse number 4 (Odds " & Odds4 & " to 1) (Orange)?") If h4& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h4& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h4& >= 1 Then: GoTo endbet End If h5& = InputBox("How much money are you going to bet on Horse number 5 (Odds " & Odds5 & " to 1) (Yellow)?") If h5& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h5& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h5& >= 1 Then: GoTo endbet End If h6& = InputBox("How much money are you going to bet on Horse number 6 (Odds " & Odds6 & " to 1) (Pink)?") If h6& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h6& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h6& >= 1 Then: GoTo endbet End If endbet: finish: Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& If Monspent = 0 Then MsgBox ("You must bet SOMETHING or you cannot participate in an Accumulator") GoTo rebet End If Horse1$ = Val(Horse1$) + h1& Horse2$ = Val(Horse2$) + h2& Horse3$ = Val(Horse3$) + h3& Horse4$ = Val(Horse4$) + h4& Horse5$ = Val(Horse5$) + h5& Horse6$ = Val(Horse6$) + h6& Bet& = Bet& + 1 rerun: For n = 1 To Speed&: Next Dim s1l, s2l, s3l, s4l, s51, s61, OddsWinHorse&, MoneyBetHorse& s1l = Int((Rnd * 99) + 1) s2l = Int((Rnd * 99) + 1) s3l = Int((Rnd * 99) + 1) s4l = Int((Rnd * 99) + 1) s5l = Int((Rnd * 99) + 1) s6l = Int((Rnd * 99) + 1) If Win = 0 Then GoTo NoRig If Win = 1 Then s1l = (s1l * (s1l / 60)) If Win = 2 Then s2l = (s2l * (s2l / 60)) If Win = 3 Then s5l = (s5l * (s5l / 60)) If Win = 4 Then s3l = (s3l * (s3l / 60)) If Win = 5 Then s4l = (s4l * (s4l / 60)) If Win = 6 Then s6l = (s6l * (s6l / 60)) NoRig: b1: Shape1.Left = (Shape1.Left + s1l) If Shape1.Left >= 8140 Then GoTo whofirst If Shape1.Left < 8140 Then GoTo b2 b2: Shape2.Left = (Shape2.Left + s2l) If Shape2.Left >= 8140 Then GoTo whofirst If Shape2.Left < 8140 Then GoTo b3 b3: Shape3.Left = (Shape3.Left + s3l) If Shape3.Left >= 8140 Then GoTo whofirst If Shape3.Left < 8140 Then GoTo b4 b4: Shape4.Left = (Shape4.Left + s4l) If Shape4.Left >= 8140 Then GoTo whofirst If Shape4.Left < 8140 Then GoTo b5 b5: Shape5.Left = (Shape5.Left + s5l) If Shape5.Left >= 8140 Then GoTo whofirst If Shape5.Left < 8140 Then GoTo b6 b6: Shape6.Left = (Shape6.Left + s6l) If Shape6.Left >= 8140 Then GoTo whofirst If Shape6.Left < 8140 Then GoTo mt whofirst: If Shape1.Left > Shape2.Left And Shape1.Left > Shape3.Left And Shape1.Left > Shape4.Left And Shape1.Left > Shape5.Left And Shape1.Left > Shape6.Left Then Label1.Visible = True Label1.Caption = "Winner - Horse no.1" Line2.Visible = True Hwin = 1 GoTo f2 End If f2: If Shape2.Left > Shape1.Left And Shape2.Left > Shape3.Left And Shape2.Left > Shape4.Left And Shape2.Left > Shape5.Left And Shape2.Left > Shape6.Left Then Label2.Visible = True Label2.Caption = "Winner - Horse no.2" Line2.Visible = True Hwin = 2 GoTo f3 End If f3: If Shape3.Left > Shape1.Left And Shape3.Left > Shape2.Left And Shape3.Left > Shape4.Left And Shape3.Left > Shape5.Left And Shape3.Left > Shape6.Left Then Label4.Visible = True Label4.Caption = "Winner - Horse no.4" Line2.Visible = True Hwin = 3 GoTo f4 End If f4: If Shape4.Left > Shape1.Left And Shape4.Left > Shape2.Left And Shape4.Left > Shape3.Left And Shape4.Left > Shape5.Left And Shape4.Left > Shape6.Left Then Label5.Visible = True Label5.Caption = "Winner - Horse no.5" Line2.Visible = True Hwin = 4 GoTo f5 End If f5: If Shape5.Left > Shape1.Left And Shape5.Left > Shape2.Left And Shape5.Left > Shape3.Left And Shape5.Left > Shape4.Left And Shape5.Left > Shape6.Left Then Label3.Visible = True Label3.Caption = "Winner - Horse no.3" Line2.Visible = True Hwin = 5 GoTo f6 End If f6: If Shape6.Left > Shape1.Left And Shape6.Left > Shape2.Left And Shape6.Left > Shape3.Left And Shape6.Left > Shape4.Left And Shape6.Left > Shape5.Left Then Label6.Visible = True Label6.Caption = "Winner - Horse no.6" Line2.Visible = True Hwin = 6 GoTo fini End If GoTo fini mt: GoTo rerun fini: AccStage1 = AccStage1 + 1 Accumulator% = Accumulator% + 1 If Hwin = 1 Then GoTo Horsey1 If Hwin = 2 Then GoTo Horsey2 If Hwin = 3 Then GoTo Horsey4 If Hwin = 4 Then GoTo Horsey5 If Hwin = 5 Then GoTo Horsey3 If Hwin = 6 Then GoTo Horsey6 Horsey1: H1win$ = Val(H1win$) + 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h1& & " on horse number 1 at " & Odds1 & " - 1 odds so you win £" & (h1& * (Odds1))) If Monspent@ > (h1& * (Odds1)) Then GoTo loss If Monspent@ < (h1& * (Odds1)) Then GoTo prof If Monspent@ = (h1& * (Odds1)) Then GoTo prof loss: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h1& * (Odds1)) - Monspent@) - (((h1& * (Odds1)) - Monspent@) * 2)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & ((h1& * (Odds1)) - Monspent@)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 Horsey2: H2win$ = Val(H2win$) + 1 Odds1 = Odds1 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h2& & " on horse number 2 at " & Odds2 & " - 1 odds so you win £" & (h2& * (Odds2))) If Monspent@ > (h2& * (Odds2)) Then GoTo loss2 If Monspent@ < (h2& * (Odds2)) Then GoTo prof2 If Monspent@ = (h2& * (Odds2)) Then GoTo prof2 loss2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h2& * (Odds2)) - Monspent@) - (((h2& * (Odds2)) - Monspent@) * 2)) OddsWinHorse& = Odds2 MoneyBetHorse& = h2& Odds2 = Odds2 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h2& * (Odds2)) - Monspent@) OddsWinHorse& = Odds2 MoneyBetHorse& = h2& Odds2 = Odds2 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 Horsey3: H3win$ = Val(H3win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h3& & " on horse number 3 at " & Odds3 & " - 1 odds so you win £" & (h3& * (Odds3))) If Monspent@ > (h3& * (Odds3)) Then GoTo loss3 If Monspent@ < (h3& * (Odds3)) Then GoTo prof3 If Monspent@ = (h3& * (Odds3)) Then GoTo prof3 loss3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h3& * (Odds3)) - Monspent@) - (((h3& * (Odds3)) - Monspent@) * 2)) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h3& * (Odds3)) - Monspent@) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 Horsey4: H4win$ = Val(H4win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h4& & " on horse number 4 at " & Odds4 & " - 1 odds so you win £" & (h4& * (Odds4))) If Monspent@ > (h4& * (Odds4)) Then GoTo loss4 If Monspent@ < (h4& * (Odds4)) Then GoTo prof4 If Monspent@ > (h4& * (Odds4)) Then GoTo prof4 loss4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h4& * (Odds4)) - Monspent@) - (((h4& * (Odds4)) - Monspent@) * 2)) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h4& * (Odds4)) - Monspent@) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 Horsey5: H5win$ = Val(H5win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h5& & " on horse number 5 at " & Odds5 & " - 1 odds so you win £" & (h5& * (Odds5))) If Monspent@ > (h5& * (Odds5)) Then GoTo loss5 If Monspent@ < (h5& * (Odds5)) Then GoTo prof5 If Monspent@ > (h5& * (Odds5)) Then GoTo prof5 loss5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h5& * (Odds5)) - Monspent@) - (((h5& * (Odds5)) - Monspent@) * 2)) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h5& * (Odds5)) - Monspent@) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 Horsey6: H6win$ = Val(H6win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 MsgBox ("You bet £" & h6& & " on horse number 6 at " & Odds6 & " - 1 odds so you win £" & (h6& * (Odds6))) If Monspent@ > (h6& * (Odds6)) Then GoTo loss6 If Monspent@ < (h6& * (Odds6)) Then GoTo prof6 If Monspent@ > (h6& * (Odds6)) Then GoTo prof6 loss6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h6& * (Odds6)) - Monspent@) - (((h6& * (Odds6)) - Monspent@) * 2)) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 2 MoneyWon@ = MoneyWon@ - Monspent@ LossWasMade% = LossWasMade% + 1 GoTo endofaccbet prof6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h6& * (Odds6)) - Monspent@) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 2 List1.Visible = True Line5.Visible = False Command7.Visible = True Label9.Visible = True Label10.Visible = True Label11.Visible = True GoTo endofaccbet2 endofaccbet2: Label9.Caption = ((OddsWinHorse& * MoneyBetHorse&) - Monspent@) MoneyWon@ = MoneyWon@ + ((OddsWinHorse& * MoneyBetHorse&) - Monspent@) ProfitWasMade% = ProfitWasMade% + 1 endofaccbet: If Odds1 = 2 Then Odds1 = 3 If Odds2 = 2 Then Odds2 = 3 If Odds3 = 2 Then Odds3 = 3 If Odds4 = 2 Then Odds4 = 3 If Odds5 = 2 Then Odds5 = 3 If Odds6 = 2 Then Odds6 = 3 Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 Win = 0 Command1.Visible = True Command2.Visible = True Command3.Visible = True Command4.Visible = True Command5.Visible = True Command6.Visible = False If Odds1 = 2 Then Odds1 = 3 If Odds2 = 2 Then Odds2 = 3 If Odds3 = 2 Then Odds3 = 3 If Odds4 = 2 Then Odds4 = 3 If Odds5 = 2 Then Odds5 = 3 If Odds6 = 2 Then Odds6 = 3 Command3.Visible = True If MoneyWon@ + 30000 >= 1000000 Then MsgBox ("WELL DONE YOU HAVE WON ONE MILLION POUNDS YOU CAN LIVE IN A MANSION DRINKING CHAMPAGNE!") MsgBox ("YOUR DREAM HAS COME TRUE - WELL DONE") YourName$ = InputBox("Please enter your name for 'UK's Richest People'!") MsgBox ("That's a strange name! Anyway, thanks for playing Horse Racing - and who knows - IT MIGHT HAPPEN FOR REAL!!!") MsgBox ("Thanks for playing - BYE BYE!") End End If End Sub Private Sub Command7_Click() Dim s1l, s2l, s3l, s4l, s51, s61, OddsWinHorse&, MoneyBetHorse&, YourName$ Bet& = Bet& + 1 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 If HBet = 1 Then h1& = Val(Label9.Caption) GoTo rerun13 ElseIf HBet = 2 Then h2& = Val(Label9.Caption) GoTo rerun13 ElseIf HBet = 3 Then h3& = Val(Label9.Caption) GoTo rerun13 ElseIf HBet = 4 Then h4& = Val(Label9.Caption) GoTo rerun13 ElseIf HBet = 5 Then h5& = Val(Label9.Caption) GoTo rerun13 ElseIf HBet = 6 Then h6& = Val(Label9.Caption) GoTo rerun13 End If rerun13: Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& Command7.Visible = False Label9.Visible = False Label10.Visible = False Label11.Visible = False List1.Visible = False Line5.Visible = True Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False rerun: For n = 1 To Speed&: Next s1l = Int((Rnd * 99) + 1) s2l = Int((Rnd * 99) + 1) s3l = Int((Rnd * 99) + 1) s4l = Int((Rnd * 99) + 1) s5l = Int((Rnd * 99) + 1) s6l = Int((Rnd * 99) + 1) If Win = 0 Then GoTo NoRig If Win = 1 Then s1l = (s1l * (s1l / 60)) If Win = 2 Then s2l = (s2l * (s2l / 60)) If Win = 3 Then s3l = (s3l * (s3l / 60)) If Win = 4 Then s4l = (s4l * (s4l / 60)) If Win = 5 Then s5l = (s5l * (s5l / 60)) If Win = 6 Then s6l = (s6l * (s6l / 60)) NoRig: b1: Shape1.Left = (Shape1.Left + s1l) If Shape1.Left >= 8140 Then GoTo whofirst If Shape1.Left < 8140 Then GoTo b2 b2: Shape2.Left = (Shape2.Left + s2l) If Shape2.Left >= 8140 Then GoTo whofirst If Shape2.Left < 8140 Then GoTo b3 b3: Shape3.Left = (Shape3.Left + s3l) If Shape3.Left >= 8140 Then GoTo whofirst If Shape3.Left < 8140 Then GoTo b4 b4: Shape4.Left = (Shape4.Left + s4l) If Shape4.Left >= 8140 Then GoTo whofirst If Shape4.Left < 8140 Then GoTo b5 b5: Shape5.Left = (Shape5.Left + s5l) If Shape5.Left >= 8140 Then GoTo whofirst If Shape5.Left < 8140 Then GoTo b6 b6: Shape6.Left = (Shape6.Left + s6l) If Shape6.Left >= 8140 Then GoTo whofirst If Shape6.Left < 8140 Then GoTo mt whofirst: If Shape1.Left > Shape2.Left And Shape1.Left > Shape3.Left And Shape1.Left > Shape4.Left And Shape1.Left > Shape5.Left And Shape1.Left > Shape6.Left Then Label1.Visible = True Label1.Caption = "Winner - Horse no.1" Line2.Visible = True Hwin = 1 GoTo f2 End If f2: If Shape2.Left > Shape1.Left And Shape2.Left > Shape3.Left And Shape2.Left > Shape4.Left And Shape2.Left > Shape5.Left And Shape2.Left > Shape6.Left Then Label2.Visible = True Label2.Caption = "Winner - Horse no.2" Line2.Visible = True Hwin = 2 GoTo f3 End If f3: If Shape3.Left > Shape1.Left And Shape3.Left > Shape2.Left And Shape3.Left > Shape4.Left And Shape3.Left > Shape5.Left And Shape3.Left > Shape6.Left Then Label4.Visible = True Label4.Caption = "Winner - Horse no.4" Line2.Visible = True Hwin = 3 GoTo f4 End If f4: If Shape4.Left > Shape1.Left And Shape4.Left > Shape2.Left And Shape4.Left > Shape3.Left And Shape4.Left > Shape5.Left And Shape4.Left > Shape6.Left Then Label5.Visible = True Label5.Caption = "Winner - Horse no.5" Line2.Visible = True Hwin = 4 GoTo f5 End If f5: If Shape5.Left > Shape1.Left And Shape5.Left > Shape2.Left And Shape5.Left > Shape3.Left And Shape5.Left > Shape4.Left And Shape5.Left > Shape6.Left Then Label3.Visible = True Label3.Caption = "Winner - Horse no.3" Line2.Visible = True Hwin = 5 GoTo f6 End If f6: If Shape6.Left > Shape1.Left And Shape6.Left > Shape2.Left And Shape6.Left > Shape3.Left And Shape6.Left > Shape4.Left And Shape6.Left > Shape5.Left Then Label6.Visible = True Label6.Caption = "Winner - Horse no.6" Line2.Visible = True Hwin = 6 GoTo fini End If GoTo fini mt: GoTo rerun fini: AccStage2 = AccStage2 + 1 Accumulator% = Accumulator% + 1 Odds1 = Odds1 * 10 Odds2 = Odds2 * 10 Odds3 = Odds3 * 10 Odds4 = Odds4 * 10 Odds5 = Odds5 * 10 Odds6 = Odds6 * 10 If Hwin = 1 Then GoTo Horsey1 If Hwin = 2 Then GoTo Horsey2 If Hwin = 3 Then GoTo Horsey4 If Hwin = 4 Then GoTo Horsey5 If Hwin = 5 Then GoTo Horsey3 If Hwin = 6 Then GoTo Horsey6 Horsey1: H1win$ = Val(H1win$) + 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h1& & " on horse number 1 at " & Odds1 & " - 1 odds so you win £" & (h1& * (Odds1))) If Monspent@ > (h1& * (Odds1)) Then GoTo loss If Monspent@ < (h1& * (Odds1)) Then GoTo prof If Monspent@ = (h1& * (Odds1)) Then GoTo prof loss: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h1& * (Odds1)) - Monspent@) - (((h1& * (Odds1)) - Monspent@) * 2)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & ((h1& * (Odds1)) - Monspent@)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 2 GoTo finish Horsey2: H2win$ = Val(H2win$) + 1 Odds1 = Odds1 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h2& & " on horse number 2 at " & Odds2 & " - 1 odds so you win £" & (h2& * (Odds2))) If Monspent@ > (h2& * (Odds2)) Then GoTo loss2 If Monspent@ < (h2& * (Odds2)) Then GoTo prof2 If Monspent@ = (h2& * (Odds2)) Then GoTo prof2 loss2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h2& * (Odds2)) - Monspent@) - (((h2& * (Odds2)) - Monspent@) * 2)) OddsWinHorse& = Odds2 MoneyBetHorse& = h2& Odds2 = Odds2 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h2& * (Odds2)) - Monspent@) Odds2 = Odds2 + 2 OddsWinHorse& = Odds2 MoneyBetHorse& = h2& GoTo finish Horsey3: H3win$ = Val(H3win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h3& & " on horse number 3 at " & Odds3 & " - 1 odds so you win £" & (h3& * (Odds3))) If Monspent@ > (h3& * (Odds3)) Then GoTo loss3 If Monspent@ < (h3& * (Odds3)) Then GoTo prof3 If Monspent@ = (h3& * (Odds3)) Then GoTo prof3 loss3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h3& * (Odds3)) - Monspent@) - (((h3& * (Odds3)) - Monspent@) * 2)) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h3& * (Odds3)) - Monspent@) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 2 GoTo finish Horsey4: H4win$ = Val(H4win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h4& & " on horse number 4 at " & Odds4 & " - 1 odds so you win £" & (h4& * (Odds4))) If Monspent@ > (h4& * (Odds4)) Then GoTo loss4 If Monspent@ < (h4& * (Odds4)) Then GoTo prof4 If Monspent@ > (h4& * (Odds4)) Then GoTo prof4 loss4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h4& * (Odds4)) - Monspent@) - (((h4& * (Odds4)) - Monspent@) * 2)) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h4& * (Odds4)) - Monspent@) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 2 GoTo finish Horsey5: H5win$ = Val(H5win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds6 = Odds6 - 1 MsgBox ("You bet £" & h5& & " on horse number 5 at " & Odds5 & " - 1 odds so you win £" & (h5& * (Odds5))) If Monspent@ > (h5& * (Odds5)) Then GoTo loss5 If Monspent@ < (h5& * (Odds5)) Then GoTo prof5 If Monspent@ > (h5& * (Odds5)) Then GoTo prof5 loss5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h5& * (Odds5)) - Monspent@) - (((h5& * (Odds5)) - Monspent@) * 2)) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h5& * (Odds5)) - Monspent@) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 2 GoTo finish Horsey6: H6win$ = Val(H6win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 MsgBox ("You bet £" & h6& & " on horse number 6 at " & Odds6 & " - 1 odds so you win £" & (h6& * (Odds6))) If Monspent@ > (h6& * (Odds6)) Then GoTo loss6 If Monspent@ < (h6& * (Odds6)) Then GoTo prof6 If Monspent@ > (h6& * (Odds6)) Then GoTo prof6 loss6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h6& * (Odds6)) - Monspent@) - (((h6& * (Odds6)) - Monspent@) * 2)) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 2 MoneyWon@ = MoneyWon@ - Monspent@ GoTo finish prof6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h6& * (Odds6)) - Monspent@) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 2 GoTo finish finish: If MoneyBetHorse > 0 Then MoneyWon@ = MoneyWon@ + ((OddsWinHorse& * MoneyBetHorse&) - Monspent@) ProfitWasMade% = ProfitWasMade% + 1 ElseIf MoneyBetHorse = 0 Then LossWasMade% = LossWasMade% + 1 End If Command3.Visible = True Command5.Visible = True Command1.Visible = True Command4.Visible = True Command6.Visible = False rl& = rl& + 1 Win = 0 If Odds1 <= 2 Then Odds1 = 3 If Odds2 <= 2 Then Odds2 = 3 If Odds3 <= 2 Then Odds3 = 3 If Odds4 <= 2 Then Odds4 = 3 If Odds5 <= 2 Then Odds5 = 3 If Odds6 <= 2 Then Odds6 = 3 If MoneyBetHorse& = 0 Then GoTo HundPerFini23 HundPerFini23: If Val(H1win$) >= 4 Then Odds1 = Odds1 + 2 If Val(H2win$) >= 4 Then Odds2 = Odds2 + 2 If Val(H3win$) >= 4 Then Odds3 = Odds3 + 2 If Val(H4win$) >= 4 Then Odds4 = Odds4 + 2 If Val(H5win$) >= 4 Then Odds5 = Odds5 + 2 If Val(H6win$) >= 4 Then Odds6 = Odds6 + 2 Odds1 = Odds1 \ 10 Odds2 = Odds2 \ 10 Odds3 = Odds3 \ 10 Odds4 = Odds4 \ 10 Odds5 = Odds5 \ 10 Odds6 = Odds6 \ 10 Win = 0 If MoneyWon@ + 30000 >= 1000000 Then MsgBox ("WELL DONE YOU HAVE WON ONE MILLION POUNDS YOU CAN LIVE IN A MANSION DRINKING CHAMPAGNE!") MsgBox ("YOUR DREAM HAS COME TRUE - WELL DONE") YourName$ = InputBox("Please enter your name for 'UK's Richest People'!") MsgBox ("That's a strange name! Anyway, thanks for playing Horse Racing - and who knows - IT MIGHT HAPPEN FOR REAL!!!") MsgBox ("Thanks for playing - BYE BYE!") End End If End Sub Private Sub Command8_Click() Dim s1l, s2l, s3l, s4l, s51, s61, OddsWinHorse&, MoneyBetHorse&, MoneyIsOn%, WinningHorse, SecondHorse, MoneyIsOn2% Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label17.Visible = False Label12.Visible = False Label13.Visible = False Label14.Visible = False Label15.Visible = False Label16.Visible = False rebet: h1& = InputBox("How much money are you going to bet on Horse number 1 (Odds " & Odds1 & " to 1) (Blue)?") If h1& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h1& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h1& >= 1 Then MoneyIsOn% = 1 GoTo endbet End If h2& = InputBox("How much money are you going to bet on Horse number 2 (Odds " & Odds2 & " to 1) Red)?") If h2& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h2& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h2& >= 1 Then MoneyIsOn% = 2 GoTo endbet End If h3& = InputBox("How much money are you going to bet on Horse number 3 (Odds " & Odds3 & " to 1) (Green)?") If h3& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h3& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h3& >= 1 Then: MoneyIsOn% = 5 GoTo endbet End If h4& = InputBox("How much money are you going to bet on Horse number 4 (Odds " & Odds4 & " to 1) (Orange)?") If h4& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h4& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h4& >= 1 Then: MoneyIsOn% = 3 GoTo endbet End If h5& = InputBox("How much money are you going to bet on Horse number 5 (Odds " & Odds5 & " to 1) (Yellow)?") If h5& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h5& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h5& >= 1 Then: MoneyIsOn% = 4 GoTo endbet End If h6& = InputBox("How much money are you going to bet on Horse number 6 (Odds " & Odds6 & " to 1) (Pink)?") If h6& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h6& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet ElseIf h6& >= 1 Then: MoneyIsOn% = 6 GoTo endbet End If endbet: MoneyIsOn2% = InputBox("Bet on which horse is going to come second (Nos 1-6)") If MoneyIsOn2% <= 0 Then GoTo heyyou2 If MoneyIsOn2% > 6 Then GoTo heyyou2 If MoneyIsOn2% = MoneyIsOn% Then GoTo heyyou GoTo endbet2 heyyou: MsgBox ("The horse you bet will come FIRST cannot come SECOND, too!") GoTo rebet heyyou2: MsgBox ("You must pick a number between ONE and SIX, (inclusive)") GoTo rebet endbet2: Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& finish33: Horse1$ = Val(Horse1$) + h1& Horse2$ = Val(Horse2$) + h2& Horse3$ = Val(Horse3$) + h3& Horse4$ = Val(Horse4$) + h4& Horse5$ = Val(Horse5$) + h5& Horse6$ = Val(Horse6$) + h6& Bet& = Bet& + 1 rerun: For n = 1 To Speed&: Next s1l = Int((Rnd * 99) + 1) s2l = Int((Rnd * 99) + 1) s5l = Int((Rnd * 99) + 1) s3l = Int((Rnd * 99) + 1) s4l = Int((Rnd * 99) + 1) s6l = Int((Rnd * 99) + 1) If Win = 0 Then GoTo NoRig If Win = 1 Then s1l = (s1l * (s1l / 60)) If Win = 2 Then s2l = (s2l * (s2l / 60)) If Win = 3 Then s5l = (s5l * (s3l / 60)) If Win = 4 Then s3l = (s3l * (s4l / 60)) If Win = 5 Then s4l = (s4l * (s5l / 60)) If Win = 6 Then s6l = (s6l * (s6l / 60)) NoRig: b1: Shape1.Left = (Shape1.Left + s1l) If Shape1.Left < 8140 Then GoTo b2 If Shape1.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 1 GoTo b2 End If If WinningHorse <> 0 And WinningHorse <> 1 Then SecondHorse = 1 Print 1 GoTo fini End If End If b2: Shape2.Left = (Shape2.Left + s2l) If Shape2.Left < 8140 Then GoTo b3 If Shape2.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 2 GoTo b3 End If If WinningHorse <> 0 And WinningHorse <> 2 Then SecondHorse = 2 Print 1 GoTo fini End If End If b3: Shape3.Left = (Shape3.Left + s3l) If Shape3.Left < 8140 Then GoTo b4 If Shape3.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 4 GoTo b4 End If If WinningHorse <> 0 And WinningHorse <> 4 Then SecondHorse = 4 Print 1 GoTo fini End If End If b4: Shape4.Left = (Shape4.Left + s4l) If Shape4.Left < 8140 Then GoTo b5 If Shape4.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 5 GoTo b5 End If If WinningHorse <> 0 And WinningHorse <> 5 Then SecondHorse = 5 Print 1 GoTo fini End If End If b5: Shape5.Left = (Shape5.Left + s5l) If Shape5.Left < 8140 Then GoTo b6 If Shape5.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 3 GoTo b6 End If If WinningHorse <> 0 And WinningHorse <> 3 Then Print 1 SecondHorse = 3 GoTo fini End If End If b6: Shape6.Left = (Shape6.Left + s6l) If Shape6.Left < 8140 Then GoTo mt If Shape6.Left >= 8140 Then If WinningHorse = 0 Then WinningHorse = 6 GoTo mt End If If WinningHorse <> 0 And WinningHorse <> 6 Then Print 1 SecondHorse = 6 GoTo fini End If End If mt: GoTo rerun fini: Race1and2% = Race1and2% + 1 If SecondHorse = 1 Then Label12.Visible = True If SecondHorse = 2 Then Label13.Visible = True If SecondHorse = 3 Then Label14.Visible = True If SecondHorse = 4 Then Label15.Visible = True If SecondHorse = 5 Then Label16.Visible = True If SecondHorse = 6 Then Label17.Visible = True If WinningHorse = 1 Then Label1.Visible = True If WinningHorse = 2 Then Label2.Visible = True If WinningHorse = 3 Then Label3.Visible = True If WinningHorse = 4 Then Label4.Visible = True If WinningHorse = 5 Then Label5.Visible = True If WinningHorse = 6 Then Label6.Visible = True If WinningHorse <> 1 And WinningHorse <> 2 And WinningHorse <> 3 And WinningHorse <> 4 And WinningHorse <> 5 And WinningHorse <> 6 Then GoTo MyArse If WinningHorse = 1 Then OddsWinHorse& = Odds1 MoneyBetHorse& = h1& GoTo Horsey1 End If If WinningHorse = 2 Then OddsWinHorse& = Odds2 MoneyBetHorse& = h2& GoTo Horsey2 End If If WinningHorse = 3 Then OddsWinHorse& = Odds3 MoneyBetHorse& = h3& GoTo Horsey3 End If If WinningHorse = 4 Then OddsWinHorse& = Odds4 MoneyBetHorse& = h4& GoTo Horsey4 End If If WinningHorse = 5 Then OddsWinHorse& = Odds5 MoneyBetHorse& = h5& GoTo Horsey5 End If If WinningHorse = 6 Then OddsWinHorse& = Odds6 MoneyBetHorse& = h6& GoTo Horsey6 End If Horsey1: H1win$ = Val(H1win$) + 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h1& & " on horse number 1 at " & Odds1 & " - 1 odds so you win £" & (h1& * (Odds1))) If Monspent@ > (h1& * (Odds1)) Then GoTo loss If Monspent@ < (h1& * (Odds1)) Then GoTo prof If Monspent@ = (h1& * (Odds1)) Then GoTo prof loss: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h1& * (Odds1)) - Monspent@) - (((h1& * (Odds1)) - Monspent@) * 2)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & ((h1& * (Odds1)) - Monspent@)) OddsWinHorse& = Odds1 MoneyBetHorse& = h1& Odds1 = Odds1 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey2: H2win$ = Val(H2win$) + 1 Odds1 = Odds1 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h2& & " on horse number 2 at " & Odds2 & " - 1 odds so you win £" & (h2& * (Odds2))) If Monspent@ > (h2& * (Odds2)) Then GoTo loss2 If Monspent@ < (h2& * (Odds2)) Then GoTo prof2 If Monspent@ = (h2& * (Odds2)) Then GoTo prof2 loss2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h2& * (Odds2)) - Monspent@) - (((h2& * (Odds2)) - Monspent@) * 2)) OddsWinHorse& = Odds2 MoneyBetHorse& = h2& Odds2 = Odds2 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof2: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h2& * (Odds2)) - Monspent@) OddsWinHorse& = Odds2 MoneyBetHorse& = h2& Odds2 = Odds2 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey3: H3win$ = Val(H3win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h3& & " on horse number 3 at " & Odds3 & " - 1 odds so you win £" & (h3& * (Odds3))) If Monspent@ > (h3& * (Odds3)) Then GoTo loss3 If Monspent@ < (h3& * (Odds3)) Then GoTo prof3 If Monspent@ = (h3& * (Odds3)) Then GoTo prof3 loss3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h3& * (Odds3)) - Monspent@) - (((h3& * (Odds3)) - Monspent@) * 2)) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof3: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h3& * (Odds3)) - Monspent@) OddsWinHorse& = Odds3 MoneyBetHorse& = h3& Odds3 = Odds3 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey4: H4win$ = Val(H4win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds5 = Odds5 - 1 Odds6 = Odds6 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h4& & " on horse number 4 at " & Odds4 & " - 1 odds so you win £" & (h4& * (Odds4))) If Monspent@ > (h4& * (Odds4)) Then GoTo loss4 If Monspent@ < (h4& * (Odds4)) Then GoTo prof4 If Monspent@ > (h4& * (Odds4)) Then GoTo prof4 loss4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h4& * (Odds4)) - Monspent@) - (((h4& * (Odds4)) - Monspent@) * 2)) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof4: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h4& * (Odds4)) - Monspent@) OddsWinHorse& = Odds4 MoneyBetHorse& = h4& Odds4 = Odds4 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey5: H5win$ = Val(H5win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds6 = Odds6 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h5& & " on horse number 5 at " & Odds5 & " - 1 odds so you win £" & (h5& * (Odds5))) If Monspent@ > (h5& * (Odds5)) Then GoTo loss5 If Monspent@ < (h5& * (Odds5)) Then GoTo prof5 If Monspent@ > (h5& * (Odds5)) Then GoTo prof5 loss5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h5& * (Odds5)) - Monspent@) - (((h5& * (Odds5)) - Monspent@) * 2)) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof5: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h5& * (Odds5)) - Monspent@) OddsWinHorse& = Odds5 MoneyBetHorse& = h5& Odds5 = Odds5 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish Horsey6: H6win$ = Val(H6win$) + 1 Odds1 = Odds1 - 1 Odds2 = Odds2 - 1 Odds3 = Odds3 - 1 Odds4 = Odds4 - 1 Odds5 = Odds5 - 1 If MoneyIsOn% <> WinningHorse Then GoTo finish22 MsgBox ("You bet £" & h6& & " on horse number 6 at " & Odds6 & " - 1 odds so you win £" & (h6& * (Odds6))) If Monspent@ > (h6& * (Odds6)) Then GoTo loss6 If Monspent@ < (h6& * (Odds6)) Then GoTo prof6 If Monspent@ > (h6& * (Odds6)) Then GoTo prof6 loss6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a loss of £" & ((h6& * (Odds6)) - Monspent@) - (((h6& * (Odds6)) - Monspent@) * 2)) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 1 LossWasMade% = LossWasMade% + 1 GoTo finish prof6: MsgBox ("You bet £" & Monspent@ & " in total, though, so you made a profit of £" & (h6& * (Odds6)) - Monspent@) OddsWinHorse& = Odds6 MoneyBetHorse& = h6& Odds6 = Odds6 + 1 ProfitWasMade% = ProfitWasMade% + 1 GoTo finish finish: If MoneyIsOn2% <> SecondHorse Then GoTo finish23 If SecondHorse = 1 Then GoTo Sec1 If SecondHorse = 2 Then GoTo Sec2 If SecondHorse = 3 Then GoTo Sec3 If SecondHorse = 4 Then GoTo Sec4 If SecondHorse = 5 Then GoTo Sec5 If SecondHorse = 6 Then GoTo Sec6 GoTo finish23 Sec1: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds1 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds2 * (MoneyBetHorse& * 2)) Label12.Visible = True GoTo finish23 Sec2: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds2 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds2 * (MoneyBetHorse& * 2)) Label13.Visible = True GoTo finish23 Sec3: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds3 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds3 * (MoneyBetHorse& * 2)) Label16.Visible = True GoTo finish23 Sec4: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds4 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds4 * (MoneyBetHorse& * 2)) Label14.Visible = True GoTo finish23 Sec5: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds5 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds5 * (MoneyBetHorse& * 2)) Label15.Visible = True GoTo finish23 Sec6: MsgBox ("You also predicted the second horse, so you won an extra £" & (Odds6 * (MoneyBetHorse& * 2)) & "") MoneyWon@ = MoneyWon@ + (Odds6 * (MoneyBetHorse& * 2)) Label17.Visible = True GoTo finish23 finish22: MsgBox ("You have lost £" & Monspent@ & "") LossWasMade% = LossWasMade% + 1 MoneyWon@ = MoneyWon@ - Monspent@ finish23: Command1.Visible = False Command4.Visible = False rl& = rl& + 1 Win = 0 If Odds1 = 2 Then Odds1 = 3 If Odds2 = 2 Then Odds2 = 3 If Odds3 = 2 Then Odds3 = 3 If Odds4 = 2 Then Odds4 = 3 If Odds5 = 2 Then Odds5 = 3 If Odds6 = 2 Then Odds6 = 3 If MoneyBetHorse& = 0 Then GoTo HundPerFini23 IMadaProf: MoneyWon@ = MoneyWon@ + (((MoneyBetHorse&) * (OddsWinHorse&)) - MoneyBetHorse&) GoTo HundPerFini23 HundPerFini23: If Val(H1win$) >= 4 Then Odds1 = Odds1 + 2 If Val(H2win$) >= 4 Then Odds2 = Odds2 + 2 If Val(H3win$) >= 4 Then Odds3 = Odds3 + 2 If Val(H4win$) >= 4 Then Odds4 = Odds4 + 2 If Val(H5win$) >= 4 Then Odds5 = Odds5 + 2 If Val(H6win$) >= 4 Then Odds6 = Odds6 + 2 Win = 0 GoTo HundPerFiniTotal222333 MyArse: For i = 1 To 10 Print "Bugger Off" Next HundPerFiniTotal222333: If MoneyWon@ + 30000 >= 1000000 Then MsgBox ("WELL DONE YOU HAVE WON ONE MILLION POUNDS YOU CAN LIVE IN A MANSION DRINKING CHAMPAGNE!") MsgBox ("YOUR DREAM HAS COME TRUE - WELL DONE") YourName$ = InputBox("Please enter your name for 'UK's Richest People'!") MsgBox ("That's a strange name! Anyway, thanks for playing Horse Racing - and who knows - IT MIGHT HAPPEN FOR REAL!!!") MsgBox ("Thanks for playing - BYE BYE!") End End If End Sub Private Sub Command9_Click() Dim BookieRunner, BookieRunner2 rebet: h1& = InputBox("How much money are you going to bet on Horse number 1 (Odds " & Odds1 & " to 1) (Blue)?") If h1& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h1& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h2& = InputBox("How much money are you going to bet on Horse number 2 (Odds " & Odds2 & " to 1) Red)?") If h2& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h2& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h3& = InputBox("How much money are you going to bet on Horse number 3 (Odds " & Odds3 & " to 1) (Green)?") If h3& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h3& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h4& = InputBox("How much money are you going to bet on Horse number 4 (Odds " & Odds4 & " to 1) (Orange)?") If h4& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h4& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h5& = InputBox("How much money are you going to bet on Horse number 5 (Odds " & Odds5 & " to 1) (Yellow)?") If h5& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h5& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If h6& = InputBox("How much money are you going to bet on Horse number 6 (Odds " & Odds6 & " to 1) (Pink)?") If h6& <= -1 Then MsgBox ("You must enter a positive number") GoTo rebet ElseIf h6& > 100000 Then MsgBox ("You can only bet a maximum of £100000") GoTo rebet End If BookieRunner = Int((Rnd * 1000) + 1) BookieRunner2 = Int((Rnd * 1000) + 1) If BookieRunner = BookieRunner2 Then MsgBox ("The bookie has run off with the money you gave him and the money others gave him!") MsgBox ("You lost £" & h1& + h2& + h3& + h4& + h5& + h6& & "") Allspent@ = Allspent@ + h1& + h2& + h3& + h4& + h5& + h6& BookieHasRunner = BookieHasRunner + 1 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 GoTo finish End If Monspent@ = h1& + h2& + h3& + h4& + h5& + h6& Allspent@ = Allspent@ + Monspent@ finish: Horse1$ = Val(Horse1$) + h1& Horse2$ = Val(Horse2$) + h2& Horse3$ = Val(Horse3$) + h3& Horse4$ = Val(Horse4$) + h4& Horse5$ = Val(Horse5$) + h5& Horse6$ = Val(Horse6$) + h6& Bet& = Bet& + 1 Command1.Visible = True Command2.Visible = True Command3.Visible = False Command4.Visible = False Command5.Visible = False End Sub Private Sub CmdRace_Click() End Sub Private Sub Form_DblClick() Dim PassWord$ PassWord$ = InputBox("Enter the password to perform a MASTER RESET") If PassWord$ Like "Voyager" Then rl& = 0 h1& = 0 h2& = 0 h3& = 0 h4& = 0 h5& = 0 h6& = 0 Win = 0 Bet& = 0 HBet = 0 Odds1 = 6 Odds2 = 6 Odds3 = 6 Odds4 = 6 Odds5 = 6 Odds6 = 6 H1win$ = "0" H2win$ = "0" H3win$ = "0" H4win$ = "0" H5win$ = "0" H6win$ = "0" FailRig = 0 Horse1$ = "0" Horse2$ = "0" Horse3$ = "0" Horse4$ = "0" Horse5$ = "0" Horse6$ = "0" NormHBset = 0 Monspent@ = 0 MoneyWon@ = 0 AccStage1 = 0 AccStage2 = 0 Normraces% = 0 Race1and2% = 0 Sped& = 200000 Speed& = 200000 LoadOfBull% = 0 Accumulator% = 0 LossWasMade% = 0 ProfitWasMade% = 0 End If End Sub Private Sub Form_Load() Randomize List1.AddItem "Horse 1" List1.AddItem "Horse 2" List1.AddItem "Horse 3" List1.AddItem "Horse 4" List1.AddItem "Horse 5" List1.AddItem "Horse 6" NormHBset = "0" Speed& = 200000 Sped& = 200000 FailRig = 0 rl& = 0 Odds1 = "6" Odds2 = "6" Odds3 = "6" Odds4 = "6" Odds5 = "6" Odds6 = "6" BookieHasRunner = "0" MoneyWon@ = "0" End Sub Private Sub List1_Click() Select Case List1.ListIndex Case 0 HBet = 1 Case 1 HBet = 2 Case 2 HBet = 3 Case 3 HBet = 4 Case 4 HBet = 5 Case 5 HBet = 6 End Select End Sub Private Sub mnu1s2nItem_Click() Command1.Visible = False Command3.Visible = False Command4.Visible = False Command5.Visible = False Command6.Visible = False Command7.Visible = False Command8.Visible = True List1.Visible = False Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label9.Visible = False Label10.Visible = False Label11.Visible = False Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 End Sub Private Sub mnuAccBetItem_Click() MsgBox ("Click the ACCUMULATOR button. You can only enter a positive number for ONE of the six horses since spread betting IS NOT allowed. If you lose the screen will be reset, but otherwise the amount you win will be placed on another horse of your choice, by selecting one from the list that appears and clicking the 'OK' button") MsgBox ("In the second stage make sure the horse that you wish to place your winnings on has gone BLUE (you can do this by clicking it)") End Sub Private Sub mnuAccItem_Click() Command1.Visible = False Command3.Visible = False Command4.Visible = False Command5.Visible = False Command6.Visible = True Command8.Visible = False Shape1.Left = 200 Shape2.Left = 200 Shape3.Left = 200 Shape4.Left = 200 Shape5.Left = 200 Shape6.Left = 200 End Sub Private Sub mnuAccModeItem_Click() MsgBox ("This is where you bet on ONE horse and if it wins you bet all your winnings on ANOTHER race - long odds with long cheques if you win") End Sub Private Sub mnuBetItem_Click() MsgBox ("You have bet £" & Val(Horse1$) & " in total on horse no 1") MsgBox ("You have bet £" & Val(Horse2$) & " in total on horse no 2") MsgBox ("You have bet £" & Val(Horse3$) & " in total on horse no 3") MsgBox ("You have bet £" & Val(Horse4$) & " in total on horse no 4") MsgBox ("You have bet £" & Val(Horse5$) & " in total on horse no 5") MsgBox ("You have bet £" & Val(Horse6$) & " in total on horse no 6") If ((Val(Horse1$)) + (Val(Horse2$)) + (Val(Horse3$)) + (Val(Horse4$)) + (Val(Horse5$)) + (Val(Horse6$))) > 0 Then MsgBox ("You have bet on average £" & ((Val(Horse1$)) + (Val(Horse2$)) + (Val(Horse3$)) + (Val(Horse4$)) + (Val(Horse5$)) + (Val(Horse6$))) / rl & " per turn") End If MsgBox ("You have bet £" & ((Val(Horse1$)) + (Val(Horse2$)) + (Val(Horse3$)) + (Val(Horse4$)) + (Val(Horse5$)) + (Val(Horse6$))) & " in total") If Bet& > 2 Then MsgBox ("You have bet " & Bet& & " times") ElseIf Bet& = 2 Then MsgBox ("You have bet twice") ElseIf Bet& = 1 Then MsgBox ("You have bet once") ElseIf Bet& = 0 Then MsgBox ("You have not bet yet") End If End Sub Private Sub mnufastItem_Click() Speed& = Speed& - 50000 End Sub Private Sub mnuGettingStartItem_Click() MsgBox ("The basic idea of the game is to make £1,000,000 from a lowly £30,000, by betting on, or even RIGGING horse races") MsgBox ("The coloured circles are different horses, which you can bet on in different ways - with different results") MsgBox ("The first horse past the finish line wins and if you have bet on him you get the product of how much you bet and the odds before the race") MsgBox ("The computer keeps track of your winnings (or losses) in the MONEY option of the STATISTICS menu") MsgBox ("If you are in a hurry to make cash you can speed up the horses, or slow them down - your choice") MsgBox ("To get started have a look about the other HELP categories") MsgBox ("If it is your first time you can have a go and then wipe the slate clean by doing a MASTER RESET before starting some REAL action - as decribed in HELP - ABOUT") End Sub Private Sub mnuHelpAboutAboutItem_Click() MsgBox ("Program Written in Visual Basic 4.0 - Working Version with an impossibly challenging Form restriction of TWO - Written by Camillo Lamanna and Copyright. I in no way wish to induce rigging or wish to imply that betting is not a fair procedure. Persons who copy any part of this program can, and will be PROSECUTED.") MsgBox ("The password for a MASTER RESET is 'Voyager'") End Sub Private Sub mnuhw1item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 10) + 1) If TRig = TLet Then MsgBox ("The jockeys have reported you to the police, they were looking for a FAIR race") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 1's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 1 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuhw2item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 5) + 1) If TRig >= TLet Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 2's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 2 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuhw3item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 5) + 1) If TRig >= TLet Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 3's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 3 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuhw4item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 5) + 1) If TRig >= TLet Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 4's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 4 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuhw5item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 5) + 1) If TRig >= TLet Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 5's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 5 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuhw6item_Click() Dim RigMoney, TRig, TLet, Amount%, Amount2%, MaxDoe& If FailRig = 2 Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If TRig = TRig + 1 TLet = Int((Rnd * 5) + 1) If TRig >= TLet Then MsgBox ("The jockeys have reported you to the police now that you have tried to rig a race again") MsgBox ("The police fine you £100,000 and ban you from betting in horseraces") End End If RigMoney = InputBox("How much do you wish to pay to EACH jockey to race poorly (Apart from Horse 6's jockey)") Amount% = Int(Rnd * 2500) Amount2% = Int(Rnd * 2500) MaxDoe& = Amount% + Amount2% If MaxDoe& > RigMoney Then MsgBox ("That's not enough, they want large amounts") FailRig = FailRig + 1 GoTo fini End If MsgBox ("The jockeys have accepted your offer of £" & RigMoney & " each") LoadOfBull% = LoadOfBull% + 1 Win = 6 MoneyWon@ = MoneyWon@ - (RigMoney * 5) fini: End Sub Private Sub mnuIdeaItem_Click() MsgBox ("The idea behind 'Horse Racing' is that you are betting on horses in different types of ways to make your £30,000 an astounding £1,000,000!") MsgBox ("The coloured circles are the horses, and you can follow the instructions to bet on them") MsgBox ("If you are pressed for time you can speed up each race, or even RIG a race if you are looking for risky cash!") MsgBox ("If you follow the simple instructions along with the HELP items, you can get going right away") End Sub Private Sub mnuIllOccItem_Click() If LoadOfBull% > 2 Then MsgBox ("You have rigged " & LoadOfBull% & " races") GoTo bookiehashadaveryinterestingrunnerhashenot End If If LoadOfBull% = 2 Then MsgBox ("You have rigged two races") GoTo bookiehashadaveryinterestingrunnerhashenot End If If LoadOfBull% = 1 Then MsgBox ("You have rigged one race") GoTo bookiehashadaveryinterestingrunnerhashenot End If If LoadOfBull% = 0 Then MsgBox ("You have not rigged any races") GoTo bookiehashadaveryinterestingrunnerhashenot End If bookiehashadaveryinterestingrunnerhashenot: If BookieHasRunner > 2 Then MsgBox ("The bookie has made " & BookieHasRunner & " 'runners'") ElseIf BookieHasRunner = 2 Then MsgBox ("The bookie has made two 'runners'") ElseIf BookieHasRunner = 1 Then MsgBox ("The bookie has made one 'runner'") ElseIf BookieHasRunner = 0 Then MsgBox ("The bookie hasn't made any 'runners'") End If End Sub Private Sub mnuMasterResetItem_Click() MsgBox ("To perform a master reset double click the form and then enter the Password - which is in HELP - ABOUT - ABOUT - and press OK. A MASTER RESET will be performed wiping the slate clean.") End Sub Private Sub mnuMonSptItem_Click() If MoneyWon@ >= 0 Then MsgBox ("You have won £" & MoneyWon@ & " in all events") GoTo fini End If If MoneyWon@ < 0 Then MsgBox ("You have lost £" & (-1 * MoneyWon@) & "") GoTo fini End If fini: MsgBox ("You have made a loss " & LossWasMade% & " times, out of " & LossWasMade% + ProfitWasMade%) MsgBox ("You have made a profit " & ProfitWasMade% & " times, out of " & LossWasMade% + ProfitWasMade%) MsgBox ("You started off with £30000, you now have £" & (30000 + MoneyWon@)) MsgBox ("But you are still £" & (1000000 - (30000 + MoneyWon@)) & " off that MILLION POUND mark") End Sub Private Sub mnuNormalBetItem_Click() MsgBox ("Click the PLACE BETS button. Enter a number for each horse, spread betting IS allowed, and once you have placed your bet click the 'OK' button until you have bet on all six horses") MsgBox ("If you were happy with your bets you can just click the KEEP BETS button, which will appear after the race and will keep the bets instead of erasing them") MsgBox ("REMEMBER: You MUST enter a number ('0' included), and the maximum bet is £100,000") End Sub Private Sub mnuNormalItem_Click() Command1.Visible = True Command3.Visible = True Command4.Visible = True Command5.Visible = True Command6.Visible = False Command7.Visible = False List1.Visible = False Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label9.Visible = False Label10.Visible = False Label11.Visible = False Command8.Visible = False End Sub Private Sub mnuNormalModeItem_Click() MsgBox ("This is, as it says, a NORMAL mode. You bet. If you win you get what you bet times the odds") End Sub Private Sub mnunormItem_Click() If NormHBset = 0 Then Sped& = 200000 GoTo fini End If Speed& = Sped& fini: End Sub Private Sub mnuOddsItem_Click() MsgBox ("The odds of horse 1 winning are " & Odds1 & " - 1") MsgBox ("The odds of horse 2 winning are " & Odds2 & " - 1") MsgBox ("The odds of horse 3 winning are " & Odds3 & " - 1") MsgBox ("The odds of horse 4 winning are " & Odds4 & " - 1") MsgBox ("The odds of horse 5 winning are " & Odds5 & " - 1") MsgBox ("The odds of horse 6 winning are " & Odds6 & " - 1") End Sub Private Sub mnuPBItem_Click() End Sub Private Sub mnuQuitItem_Click() End Sub Private Sub mnuRace12ModeItem_Click() MsgBox ("This is where you bet who will come first and then who will come second. Like a NORMAL race except for the added cash bonus if you get whose comes second, too") End Sub Private Sub mnuRace1and2BetItem_Click() MsgBox ("Click the 'RACE 1/2' button. You can only enter a positive number for ONE of the six horses since spread betting IS NOT allowed. Then enter the NUMBER OF THE HORSE you think will come second. If the horse you bet would win wins then you will win as in NORMAL mode") MsgBox ("If the horse you said would come second does AS WELL AS the horse you bet would come first comes first then you will win an EXTRA amount (The money you bet on the winning horse times two times the odds of the horse that came second)") End Sub Private Sub mnuRaceItem_Click() If rl = 0 And Bet& = 0 Then MsgBox ("You haven't seen any races yet (if you are having problems just click HELP") GoTo fini End If If rl = 1 And Bet& = 1 Then MsgBox ("You have seen only one race and you have bet on it") GoTo fini End If If rl = 2 And Bet& = 2 Then MsgBox ("You have seen 2 races and bet on both of them") GoTo fini End If If rl = Bet& Then MsgBox ("You have seen " & rl & " races and bet on all " & Bet& & " of them") GoTo fini End If If rl > Bet& Then MsgBox ("You have seen " & rl & " races, but have only bet on " & Bet& & " of them") GoTo fini End If MsgBox ("You have seen " & rl & " races and bet on " & Bet& & " of them") fini: End Sub Private Sub mnuRHKBItem_Click() End Sub Private Sub mnuRHNBItem_Click() End Sub Private Sub mnuRiggingItem_Click() MsgBox ("If you wish to rig a race enter the 'Rig Race' menu and click one of the self-explanatory options") MsgBox ("Then enter a figure - about £7,000 to be sure - and then press OK") MsgBox ("This will encourage other jockeys to do badly - but there is no guarantee that you won't be caught - either by the jockeys or by the police!") End Sub Private Sub mnuslowItem_Click() Speed& = Speed& + 50000 End Sub Private Sub mnuSRaceItem_Click() End Sub Private Sub mnuSpeedItem_Click() MsgBox ("Although we recommend you leave this option as it is you can still alter the speed of the race. SLOWER or FASTER") MsgBox ("Every time you click 'faster' the speed of the horses is increased by a bit and every time you click 'slower' the speed of the horses is decreased by a bit") MsgBox ("To set a different 'normal' setting (adviseable only under special circumstances) you click 'Set Normal...' and then enter the speed you wish normal to be. The range is ONE to NINE. ONE is FASTEST and TWO is SLOWEST") MsgBox ("After setting the normal speed remember to press 'NORMAL' - which you can do at any time, should you wish to reset the speed") End Sub Private Sub mnuStatBettItem_Click() MsgBox ("BETTING tells you how much you have bet on each horse, how much you have bet in total, how much you have bet (on average) per turn, and how many times you have bet") End Sub Private Sub mnuStatBettTypeItem_Click() If Normraces% = 0 Then MsgBox ("You haven't seen any 'Normal' races, yet") GoTo AfterNormRaces End If If Normraces% = 1 Then MsgBox ("You have seen 1 'Normal' race") GoTo AfterNormRaces End If MsgBox ("You have seen " & Normraces% & " 'Normal' races") AfterNormRaces: If AccStage1 = 1 And AccStage2 = 0 Then MsgBox ("You have seen one 'Accumulator' race, but it was only the 'first race'") GoTo AfterAccumulator End If If AccStage1 > 1 And AccStage2 = 0 Then MsgBox ("You have seen " & Accumulator% & " 'Accumulator' races, but they were only 'first races'") GoTo AfterAccumulator End If If Accumulator% = 0 Then MsgBox ("You haven't seen any 'Accumulator' races, yet") GoTo AfterAccumulator End If If Accumulator% = 1 Then MsgBox ("You have seen one 'Accumulator' race") GoTo AfterAccumulator End If If Accumulator% = 2 And AccStage1 = 1 And AccStage2 = 1 Then MsgBox ("You have seen two races that were part of an 'Accumulator'. One of those was the 'first race' and the other was the 'second race'") GoTo AfterAccumulator End If MsgBox ("You have seen " & Accumulator% & " races that were part on an 'Accumulator'. " & AccStage1 & " of them were 'first races' and the other " & AccStage2 & " were 'second stages'") AfterAccumulator: If Race1and2% = 0 Then MsgBox ("You haven't seen any 'First/Second' races, yet") GoTo fini End If If Race1and2% = 1 Then MsgBox ("You seen one 'First/Second' race") GoTo fini End If MsgBox ("You have seen " & Race1and2% & " First/Second races") fini: End Sub Private Sub mnuStatIllOccItem_Click() MsgBox ("ILLEGAL OCCURENCES tells you how many times, if any, you have rigged races and how many 'runners' bookies have made, if any") End Sub Private Sub mnuStatMoneyItem_Click() MsgBox ("MONEY tells you how mush money you have made, or lost, shows you how many times you have made a profit, or a loss, and shows you what the opening £30,000 has become") End Sub Private Sub mnuStatOddsItem_Click() MsgBox ("ODDS tells you the odds of each horse at that time") End Sub Private Sub mnuStatRaceItem_Click() MsgBox ("RACES tells you how many races you have seen in respect to how many you have bet on") End Sub Private Sub mnuStatwinItem_Click() MsgBox ("WINNERS tells you how many times, if any, each horse has won") End Sub Private Sub mnustnormItem_Click() chsp: Dim Speed NormHBset = 1 Speed = InputBox("Enter normal speed(Fastest(1) - Slowest(9))") If Speed = 1 Then Sped& = 25000 If Speed = 2 Then Sped& = 75000 If Speed = 3 Then Sped& = 125000 If Speed = 4 Then Sped& = 175000 If Speed = 5 Then Sped& = 200000 If Speed = 6 Then Sped& = 225000 If Speed = 7 Then Sped& = 275000 If Speed = 8 Then Sped& = 325000 If Speed = 9 Then Sped& = 375000 If Speed >= 10 Then MsgBox ("You must choose a number between 1 and 9") GoTo chsp End If If Speed <= 0 Then MsgBox ("You must choose a number between 1 and 9") GoTo chsp End If End Sub Private Sub mnuWinItem_Click() If Val(H1win$) > 2 Then MsgBox ("Horse 1 has won " & Val(H1win$) & " times") ElseIf Val(H1win$) = 2 Then MsgBox ("Horse 1 has won twice") ElseIf Val(H1win$) = 1 Then MsgBox ("Horse 1 has won once") ElseIf Val(H1win$) = 0 Then MsgBox ("Horse 1 has not won yet") End If If Val(H2win$) > 2 Then MsgBox ("Horse 2 has won " & Val(H2win$) & " times") ElseIf Val(H2win$) = 2 Then MsgBox ("Horse 2 has won twice") ElseIf Val(H2win$) = 1 Then MsgBox ("Horse 2 has won once") ElseIf Val(H2win$) = 0 Then MsgBox ("Horse 2 has not won yet") End If If Val(H3win$) > 2 Then MsgBox ("Horse 3 has won " & Val(H3win$) & " times") ElseIf Val(H3win$) = 2 Then MsgBox ("Horse 3 has won twice") ElseIf Val(H3win$) = 1 Then MsgBox ("Horse 3 has won once") ElseIf Val(H3win$) = 0 Then MsgBox ("Horse 3 has not won yet") End If If Val(H4win$) > 2 Then MsgBox ("Horse 4 has won " & Val(H4win$) & " times") ElseIf Val(H4win$) = 2 Then MsgBox ("Horse 4 has won twice") ElseIf Val(H4win$) = 1 Then MsgBox ("Horse 4 has won once") ElseIf Val(H4win$) = 0 Then MsgBox ("Horse 4 has not won yet") End If If Val(H5win$) > 2 Then MsgBox ("Horse 5 has won " & Val(H5win$) & " times") ElseIf Val(H5win$) = 2 Then MsgBox ("Horse 5 has won twice") ElseIf Val(H5win$) = 1 Then MsgBox ("Horse 5 has won once") ElseIf Val(H5win$) = 0 Then MsgBox ("Horse 5 has not won yet") End If If Val(H6win$) > 2 Then MsgBox ("Horse 6 has won " & Val(H6win$) & " times") ElseIf Val(H6win$) = 2 Then MsgBox ("Horse 6 has won twice") ElseIf Val(H6win$) = 1 Then MsgBox ("Horse 6 has won once") ElseIf Val(H6win$) = 0 Then MsgBox ("Horse 6 has not won yet") End If End Sub

I'm sorry you had to see this example of terrible programming. I didn't even know about types (I had just moved from QBasic). Anyway, it's 3000+ lines. I could probably make it now in under 500.

:rolleyes: The mistakes one makes in youth :rolleyes:

Ah, well, that's my longest post ever. Hihi.

Well ...

Quote:

Originally posted by parksie
Matthew Gates: As for sexual remarks, what about our man honeybee?

Our man, eh? I smell a rat here, and a dead one.

parksie, I have a girlfriend, a steady one. And I am certainly not your man !!

:D:D

Why not make me the sexual terms moderator?

.

Re: Well ...

Quote:

Originally posted by honeybee
parksie, I have a girlfriend, a steady one. And I am certainly not your man !!

Actually...I was referring to the remarks you make... ;)

Keep it up!

(Ian, td, Katie, and everyone else...that's NOT what I meant :rolleyes: )

Gee ...

Quote:

Originally posted by parksie

Keep it up!
(Ian, td, Katie, and everyone else...that's NOT what I meant :rolleyes: )

Now that you have differentiated between the naughty, mentioned above, and the nice, of course myself, I shall not comment further on it.

V(ery) Basic, have mercy on us! At least edit your post and attach the code as a file! It is so tiresome to scroll all those lines down, just to find that it's Parksie again!

.

Parksie - As if i would stoop as low to make a remark on a comment like that. Tish tish.

Keep it up - (must ...... resist ........ making ........ lude .... comment. cant ..... help .... it) nudge nudge, wink wink.

Re: Gee ...

Quote:

Originally posted by honeybee

V(ery) Basic, have mercy on us! At least edit your post and attach the code as a file! It is so tiresome to scroll all those lines down, just to find that it's Parksie again!

Haven't seen V(ery) round here much these days...obviously he's gone to do something useful :)

V(ery):

that is definatly not the longest post on this forum... I once posted the file that I keep my jokes in..... >5,000 lines..........

:eek:

Well ...

So nice of you Dennis, not to provide a link to that thread.

.

I would've, but I can't seem to find it... :confused: