FREE work Turing Wheel of Fortune Program!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

import GUI

setscreen ("graphics:1200;800")
var colourset :int := 0
var colors : array 1 .. 10 of int
var SC : array 1..10 of int
var timematch : int :=0
var randomnum : int
var QBP : array 0 .. 9 of int
var QBofP: array 0 .. 9 of int
var ABP : array 0 .. 9 of int
var ABofP: array 0 .. 9 of int
var BonusQBP : array 0 .. 2 of int
var BonusQBofP: array 0 .. 2 of int
var BonusABP : array 0 .. 2 of int
var BonusABofP: array 0 .. 2 of int
var Xmoney : array 1 .. 10 of int
var Ymoney : array 1 .. 10 of int
var MoneyFont: int
var randomnum2 : int
var SortXmoney :array 1 .. 10 of int
var SortYmoney : array 1 .. 10 of int

Xmoney(1):=310
Xmoney(2):=520
Xmoney(3):=645
Xmoney(4):=645
Xmoney(5):=520
Xmoney(6):=310
Xmoney(7):=120
Xmoney(:=0
Xmoney(9):=0
Xmoney(10):=120

Ymoney(1):=725
Ymoney(2):=660
Ymoney(3):=500
Ymoney(4):=265
Ymoney(5):=115
Ymoney(6):=50
Ymoney(7):=115
Ymoney(:=265
Ymoney(9):=500
Ymoney(10):=660

MoneyFont :=Font.New ("serif:24")


var x : array 1 .. 3 of int := init (250, 350, 450)
var y : array 1 .. 3 of int := init (825, 760, 825)
Draw.FillPolygon (x, y, 3, red)
Draw.Polygon (x, y, 3, cyan)


Font.Draw ("$100",Xmoney(1),Ymoney(1),MoneyFont,black)
Font.Draw ("$200",Xmoney(2),Ymoney(2),MoneyFont,black)
Font.Draw ("$300",Xmoney(3),Ymoney(3),MoneyFont,black)
Font.Draw ("$400",Xmoney(4),Ymoney(4),MoneyFont,black)
Font.Draw ("$500",Xmoney(5),Ymoney(5),MoneyFont,black)
Font.Draw ("$600",Xmoney(6),Ymoney(6),MoneyFont,black)
Font.Draw ("$700",Xmoney(7),Ymoney(7),MoneyFont,black)
Font.Draw ("$800",Xmoney(,Ymoney(,MoneyFont,black)
Font.Draw ("$900",Xmoney(9),Ymoney(9),MoneyFont,black)
Font.Draw ("$1000",Xmoney(10),Ymoney(10),MoneyFont,black)

for i : 1 .. 10
Draw.FillArc (355, 400, 290,290, 72 - i*36 , 108 - i*36, i*10 )
colors(i):=i*10
end for


for i : 1 .. 5
Draw.Arc (355, 400, 290+i, 290+i, 0, 360, black)
end for

procedure Answer1
Text.Locate (1, 129)
put "Answer 1"
end Answer1

procedure Answer2
Text.Locate (6, 129)
put "Answer 2"
end Answer2


procedure Answer3
Text.Locate (11, 129)
put "Answer 3"
end Answer3

procedure Answer4
Text.Locate (16, 129)
put "Answer 4"
end Answer4

procedure Answer5
Text.Locate (21, 129)
put "Answer 5"
end Answer5


procedure Answer6
Text.Locate (26, 129)
put "Answer 6"
end Answer6

procedure Answer7
Text.Locate (31, 129)
put "Answer 7"
end Answer7

procedure Answer8
Text.Locate (36, 129)
put "Answer 8"
end Answer8

procedure Answer9
Text.Locate (41, 129)
put "Answer 9"
end Answer9


procedure Answer10
Text.Locate (46, 129)
put "Answer 10"
end Answer10

procedure Question1
Text.Locate (1, 95)
put "Question 1"
ABofP(0) := GUI.CreatePictureButton (1000, 780, ABP(0), Answer1)
end Question1


procedure Question2
Text.Locate (6, 95)
put "Question 2"
ABofP(1) := GUI.CreatePictureButton (1000, 700, ABP(1), Answer2)
end Question2

procedure Question3
Text.Locate (11, 95)
put "Question 3"
ABofP(2) := GUI.CreatePictureButton (1000, 620, ABP(2), Answer3)
end Question3

procedure Question4
Text.Locate (16, 95)
put "Question 4"
ABofP(3) := GUI.CreatePictureButton (1000, 540, ABP(3), Answer4)
end Question4

procedure Question5
Text.Locate (21, 95)
put "Question 5"
ABofP(4) := GUI.CreatePictureButton (1000, 460, ABP(4), Answer5)
end Question5

procedure Question6
Text.Locate (26, 95)
put "Question 6"
ABofP(5) := GUI.CreatePictureButton (1000, 380, ABP(5), Answer6)
end Question6


procedure Question7
Text.Locate (31, 95)
put "Question 7"
ABofP(6) := GUI.CreatePictureButton (1000, 300, ABP(6), Answer7)
end Question7


procedure Question8
Text.Locate (36, 95)
put "Question 8"
ABofP(7) := GUI.CreatePictureButton (1000, 220, ABP(7), Answer8)
end Question8


procedure Question9
Text.Locate (41, 95)
put "Question 9"
ABofP( := GUI.CreatePictureButton (1000, 140, ABP(, Answer9)
end Question9


procedure Question10
Text.Locate (46, 95)
put "Question 10"
ABofP(9) := GUI.CreatePictureButton (1000, 60, ABP(9), Answer10)
end Question10

for i : 0 .. 9
Draw.FillBox (725,780-i*80,735,790-i*80,10+i*10)
QBP(i):= Pic.New (725,780-i*80,735,790-i*80)
end for

for i : 0 .. 9
Draw.FillBox (1000,780-i*80,1010,790-i*80,10+i*10)
ABP(i):= Pic.New (1000,780-i*80,1010,790-i*80)
end for

QBofP(0) := GUI.CreatePictureButton (725, 780, QBP(0), Question1)
QBofP(1) := GUI.CreatePictureButton (725, 700, QBP(1), Question2)
QBofP(2) := GUI.CreatePictureButton (725, 620, QBP(2), Question3)
QBofP(3) := GUI.CreatePictureButton (725, 540, QBP(3), Question4)
QBofP(4) := GUI.CreatePictureButton (725, 460, QBP(4), Question5)
QBofP(5) := GUI.CreatePictureButton (725, 380, QBP(5), Question6)
QBofP(6) := GUI.CreatePictureButton (725, 300, QBP(6), Question7)
QBofP(7) := GUI.CreatePictureButton (725, 220, QBP(7), Question8)
QBofP( := GUI.CreatePictureButton (725, 140, QBP(, Question9)
QBofP(9) := GUI.CreatePictureButton (725, 60, QBP(9), Question10)

procedure Spin

randomnum := Rand.Int (120, 125)

loop

delay(1+timematch)
timematch:=timematch + 1

SortXmoney(1):=Xmoney(10)
SortYmoney(1):=Ymoney(10)

for i : 2 .. 10
SortXmoney(i) := Xmoney(i-1)
SortYmoney(i) := Ymoney(i-1)
end for

for i : 1 .. 10
SC(i):=colors(i)
colors(i):=0
end for

for i : 2 .. 10
SortXmoney(i) := Xmoney(i-1)
SortYmoney(i) := Ymoney(i-1)
end for

for i : 1 .. 10
Xmoney(i):=SortXmoney(i)
Ymoney(i):=SortYmoney(i)
end for

for i : 1 .. 10
Draw.FillBox (Xmoney(i),Ymoney(i),Xmoney(i)+80,Ymoney(i)+20,white)
end for




colors(10):=SC(1)
for i : 1 .. 9
colors(i) := SC(i+1)
end for

Font.Draw ("$100",Xmoney(1),Ymoney(1),MoneyFont,black)
Font.Draw ("$200",Xmoney(2),Ymoney(2),MoneyFont,black)
Font.Draw ("$300",Xmoney(3),Ymoney(3),MoneyFont,black)
Font.Draw ("$400",Xmoney(4),Ymoney(4),MoneyFont,black)
Font.Draw ("$500",Xmoney(5),Ymoney(5),MoneyFont,black)
Font.Draw ("$600",Xmoney(6),Ymoney(6),MoneyFont,black)
Font.Draw ("$700",Xmoney(7),Ymoney(7),MoneyFont,black)
Font.Draw ("$800",Xmoney(,Ymoney(,MoneyFont,black)
Font.Draw ("$900",Xmoney(9),Ymoney(9),MoneyFont,black)
Font.Draw ("$1000",Xmoney(10),Ymoney(10),MoneyFont,black)

for i : 1 .. 10
Draw.FillArc (355, 400, 290,290, 72 - i*36 , 108 - i*36, colors(i))
end for

for i : 1 .. 5
Draw.Arc (355, 400, 290+i, 290+i, 0, 360, black)
end for


exit when randomnum < timematch
end loop

timematch := 0








end Spin

procedure BAnswer1
Text.Locate (2, 115)
put "Bonus Answer 1"
end BAnswer1

procedure BAnswer2
Text.Locate (21, 115)
put "Bonus Answer 2"
end BAnswer2

procedure BAnswer3
Text.Locate (40, 115)
put "Bonus Answer 1"
end BAnswer3

procedure BQuestion1
Text.Locate (2, 28)
put "Bonus Question 1"
ABofP(0) := GUI.CreatePictureButton (800,625, BonusABP(0), BAnswer1)
end BQuestion1

procedure BQuestion2
Text.Locate (21, 28)
put "Bonus Question 2"
ABofP(1) := GUI.CreatePictureButton (800,325, BonusABP(1), BAnswer2)
end BQuestion2


procedure BQuestion3
Text.Locate (40, 28)
put "Bonus Question 3"
ABofP(2) := GUI.CreatePictureButton (800,25, BonusABP(2), BAnswer3)
end BQuestion3





procedure Bonusround
cls

for i : 0 .. 2
Draw.FillBox (800,780-i*300,900,630-i*300,10+i*
BonusABP(i):= Pic.New (800,780-i*300,900,630-i*300)
end for

for i : 0 .. 2
Draw.FillBox (100,780-i*300,200,630-i*300,10+i*
BonusQBP(i):= Pic.New (100,780-i*300,200,630-i*300)
end for

BonusQBofP(0) := GUI.CreatePictureButton (100, 625, BonusQBP(0), BQuestion1)
BonusQBofP(1) := GUI.CreatePictureButton (100, 325, BonusQBP(1), BQuestion2)
BonusQBofP(2) := GUI.CreatePictureButton (100, 25, BonusQBP(2), BQuestion3)


Font.Draw ("$10000",0,700,MoneyFont,black)
Font.Draw ("$25000",0,400,MoneyFont,black)
Font.Draw ("$50000",0,100,MoneyFont,black)

end Bonusround











var draw : int := GUI.CreateButtonFull (0, 750, 100, "Spin", Spin, 50, '^S', false)

var Bonus : int := GUI.CreateButtonFull (100, 750, 100, "Bonus Round", Bonusround, 50, '^B', false)
loop
exit when GUI.ProcessEvent
end loop

lol, i made that for my english assignment, free feel to copy and use as your own, lol.

Hey PoG, tun of the smileys