|
-
Aug 10th, 2000, 08:39 AM
#1
Thread Starter
Frenzied Member
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.
Live long & prosper.
The Dinosaur from prehistoric era prior to computers.
Eschew obfuscation!
If a billion people believe a foolish idea, it is still a foolish idea!
VB.net 2010 Express
64Bit & 32Bit Windows 7 & Windows XP. I run 4 operating systems on a single PC.
-
Aug 10th, 2000, 10:45 AM
#2
Fanatic Member
-
Aug 11th, 2000, 05:08 PM
#3
Frenzied Member
<heh> What a Monkey <heh>
-
Aug 11th, 2000, 06:46 PM
#4
Monday Morning Lunatic
There's a sudden spate of people being called women too...Sandra Finch...come in please...
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Aug 11th, 2000, 06:48 PM
#5
Frenzied Member
Although, "Samantha" makes more sense...
-
Aug 11th, 2000, 06:50 PM
#6
Monday Morning Lunatic
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  .
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Aug 11th, 2000, 10:48 PM
#7
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  )
-
Aug 12th, 2000, 01:08 AM
#8
I am the one called "Monkey".
-
Aug 12th, 2000, 06:39 AM
#9
Monday Morning Lunatic
Matthew Gates: As for sexual remarks, what about our man honeybee?
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Aug 14th, 2000, 01:15 PM
#10
Addicted Member
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.....!
-
Aug 14th, 2000, 01:55 PM
#11
Monday Morning Lunatic
They come much longer than that . I've posted some huge ones, as as Matthew / Megatron / Serge / etc...
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Aug 16th, 2000, 03:00 PM
#12
Fanatic Member
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.
 The mistakes one makes in youth
Ah, well, that's my longest post ever. Hihi.
-
Jan 29th, 2001, 12:48 PM
#13
Well ...
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 !!
Why not make me the sexual terms moderator?
.
-
Jan 29th, 2001, 02:46 PM
#14
Monday Morning Lunatic
Re: Well ...
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 )
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Jan 30th, 2001, 07:13 AM
#15
Gee ...
Originally posted by parksie
Keep it up!
(Ian, td, Katie, and everyone else...that's NOT what I meant )
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!
.
-
Jan 30th, 2001, 09:13 AM
#16
Fanatic Member
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.
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Jan 30th, 2001, 01:01 PM
#17
Monday Morning Lunatic
Re: Gee ...
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
I refuse to tie my hands behind my back and hear somebody say "Bend Over, Boy, Because You Have It Coming To You".
-- Linus Torvalds
-
Jan 30th, 2001, 05:27 PM
#18
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..........
-
Jan 31st, 2001, 01:48 AM
#19
Well ...
So nice of you Dennis, not to provide a link to that thread.
.
-
Jan 31st, 2001, 06:21 AM
#20
I would've, but I can't seem to find it... 
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote