randomize
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure Titlepage
var font1, font2 : int % font
var x, y, button, buttonnumber, buttonupdown : int
font1 := Font.New ("Alba Super:40")
font2 := Font.New ("Alba Matter:25")
drawfill (10, 10, 255, 255)
Font.Draw ("Welcome to Craps!!", 130, 330, font1, 55) % title
Font.Draw ("Play Game", 250, 250, font2, 55) % Displays Play Game tab
Font.Draw ("Instruction", 250, 200, font2, 55) % Displays the instruction tab
Font.Draw ("Exit", 250, 150, font2, 55) % Displays the exit tab
loop
mousewhere (x, y, button)
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if x > 250 and x < 410 and y > 240 and y < 290 then % checks if play button is pressed
cls
exit
elsif x > 250 and x < 410 and y > 190 and y < 223 then % check if instruction button is pressed
cls
drawfill (10, 100, 255, 255) % makes background black
color (55)
colorback (255)
put skip % Displays the rules of the game
put "The game is simple, all you have to have is luck."
delay (3000) %%%%%%change to 3000
put skip
put "On your first roll, if you get a 7 or 11, you win!"
put "But if you get 2 or 12 on the first roll, you lose."
put "If you get anything else, you roll again."
delay (7000) %%%%%%%change to 7000
put skip
put "On your subsequent rolls, you have to get the same number as your first roll."
put "But if you get a 7, you lose!
"delay (1000)
Font.Draw ("Play Game", 250, 100, font2, 14) % Displays Play Game tab
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if x > 250 and x < 410 and y > 80 and y < 130 then % if play button is pressed in the instruction menu starts game
cls
exit
end if
end if
end loop
end Titlepage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Titlepage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure Gamepage
var money : int := 100
var bet : int := 50
var x, y, button, buttonnumber, buttonupdown : int
drawfill (10, 10, 255, 255)
drawline (0, 350, 650, 350, 14)
color (14)
colorback (255)
locate (2, 2)
put "MONEY: ", money
locate (7, 4)
put "Place Bet:"
drawbox (0, 190, 150, 305, 14) % box around the betting section
drawbox (10, 235, 35, 255, 14) % plus box
drawline (23, 238, 23, 250, 14) % middle line on plus sign
drawline (15, 243, 30, 243, 14) % line cross through
drawbox (110, 235, 140, 255, 14) % minus box
drawline (120, 245, 130, 245, 14) % minus sign
loop
locate (10, 8)
colorback (255)
put bet, " " ..
locate (12, 8)
put "BET" ..
drawbox (50, 200, 86, 230, 14)
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if x > 10 and x < 35 and y > 235 and y < 255 then
bet := bet + 1
elsif x > 110 and x < 140 and y > 235 and y < 255 then
bet := bet - 1
end if
%%%%%%%%%%%%Stops number from going negative
if bet = 0 then
bet := bet + 1
%%%%%%%%%%%%Stops number from going over users money
elsif bet = money then
bet := bet - 1
end if
if x > 50 and x < 80 and y > 200 and y < 220 then
money := money - bet
end if
if money <= 0 then
money := 0
elsif money >= money then
money := money
end if
color (14)
colorback (255)
locate (2, 2)
put "MONEY: ", money
exit when x > 50 and x < 80 and y > 200 and y < 220
end loop
end Gamepage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Gamepage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Draws dice and makes dots move
procedure Dice
var num1, num2 : int
var count : int := 0
var totaldot : int := 0
var font3 : int
font3 := Font.New ("Vineta BT:10")
loop
randint (num1, 1, 6)
delay (200)
drawfillbox (200, 200, 300, 300, 0) %%% die on the left
drawfillbox (400, 200, 500, 300, 0) %%% die on the right
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Dice 1
if num1 = 1 then
drawfilloval (250, 250, 10, 10, 255) % middle dot
elsif num1 = 2 then
drawfilloval (280, 280, 10, 10, 255) % top right dot
drawfilloval (220, 220, 10, 10, 255) % bottom left dot
elsif num1 = 3 then
drawfilloval (280, 280, 10, 10, 255) % top right dot
drawfilloval (220, 220, 10, 10, 255) % bottom left dot
drawfilloval (250, 250, 10, 10, 255) % middle dot
elsif num1 = 4 then
drawfilloval (280, 280, 10, 10, 255) % top right dot
drawfilloval (220, 220, 10, 10, 255) % bottom left dot
drawfilloval (220, 280, 10, 10, 255) % top left dot
drawfilloval (280, 220, 10, 10, 255) % bottom right dot
elsif num1 = 5 then
drawfilloval (280, 280, 10, 10, 255) % top right dot
drawfilloval (280, 220, 10, 10, 255) % bottom right dot
drawfilloval (220, 220, 10, 10, 255) % bottom left dot
drawfilloval (220, 280, 10, 10, 255) % top left dot
drawfilloval (250, 250, 10, 10, 255) % middle dot
elsif num1 = 6 then
drawfilloval (220, 220, 10, 10, 255) % bottom left dot
drawfilloval (280, 220, 10, 10, 255) % bottom right dot
drawfilloval (220, 250, 10, 10, 255) % left middle dot
drawfilloval (280, 250, 10, 10, 255) % right middle dot
drawfilloval (280, 280, 10, 10, 255) % top right dot
drawfilloval (220, 280, 10, 10, 255) % top left dot
end if
randint (num2, 1, 6)
count := count + 1
if num2 = 1 then
drawfilloval (450, 250, 10, 10, 255) % middle dot
elsif num2 = 2 then
drawfilloval (420, 220, 10, 10, 255) % bottom left
drawfilloval (480, 280, 10, 10, 255) % top right
elsif num2 = 3 then
drawfilloval (420, 220, 10, 10, 255) % bottom left
drawfilloval (480, 280, 10, 10, 255) % top right
drawfilloval (450, 250, 10, 10, 255) % middle dot
elsif num2 = 4 then
drawfilloval (420, 280, 10, 10, 255) % top left
drawfilloval (480, 280, 10, 10, 255) % top right
drawfilloval (420, 220, 10, 10, 255) % bottom left
drawfilloval (480, 220, 10, 10, 255) % bottom right
elsif num2 = 5 then
drawfilloval (420, 220, 10, 10, 255) % bottom left
drawfilloval (420, 280, 10, 10, 255) % top left
drawfilloval (480, 220, 10, 10, 255) % bottom right
drawfilloval (480, 280, 10, 10, 255) % top right
drawfilloval (450, 250, 10, 10, 255) % middle dot
elsif num2 = 6 then
drawfilloval (420, 220, 10, 10, 255) % bottom left
drawfilloval (420, 250, 10, 10, 255) % middle left
drawfilloval (420, 280, 10, 10, 255) % top left
drawfilloval (480, 220, 10, 10, 255) % bottom right
drawfilloval (480, 250, 10, 10, 255) % middle right
drawfilloval (480, 280, 10, 10, 255) % top right
end if
exit when count = 20
end loop
end Dice
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure Winlose
var x, y, button, buttonnumber, buttonupdown : int
var num1, num2 : int
var count : int := 0
var totaldot : int := 0
var font3 : int
font3 := Font.New ("Vineta BT:10")
loop
drawbox (10, 100, 100, 150, 14)
locate (18, 5)
put "ROLL" ..
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if x > 10 and x < 100 and y > 100 and y < 150 then
Dice
end if
end loop
end Winlose
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Winlose
Archived topic from Iceteks, old topic ID:4618, old post ID:36769
