setscreen ("graphics:v256")
setscreen ("graphics:640,480")
var choice:string
%TITLE PAGE
%----------
View.Set ("offscreenonly")
for x : 0 .. 990 by 2
%Back color:
drawfillbox (0, 0, 640, 480, 200)
var fontbill : int
fontbill := Font.New ("ESRI Crime Analysis:200")
Draw.Text ("H", -250 + x, 370, fontbill, green)
Font.Free (fontbill)
var fontbill2 : int
fontbill2 := Font.New ("ESRI Crime Analysis:200")
Draw.Text ("H", 700 - x, 200, fontbill2, green)
Font.Free (fontbill2)
var fontbill3 : int
fontbill3 := Font.New ("ESRI Crime Analysis:200")
Draw.Text ("H", -350 + x, 80, fontbill3, green)
Font.Free (fontbill3)
%Game title:
drawfilloval (320, 240, 150, 150, 179)
drawfilloval (320, 240, 120, 120, 175)
var font : int
font := Font.New ("MARKETPRO:30")
Draw.Text ("Who Wants To Be A", 70, 280, font, 0)
Draw.Text ("2006", 255, 150, font, 0)
Font.Free (font)
var font3 : int
font3 := Font.New ("MARKETPRO:30")
Draw.Text ("MILLIONAIRE", 160, 230, font3, 0)
font3 := Font.New ("ESRI Crime Analysis:80")
Draw.Text ("J", 40, 10, font3, 0)
Font.Free (font3)
%Output two choices
var font5 : int
font5 := Font.New ("DESTINE:20")
Draw.Text ("TO PLAY TYPE START", 150, 50, font5, 0)
Font.Free (font5)
var font7777 : int
font7777 := Font.New ("DESTINE:13")
Draw.Text ("TO SEE INSTRUCTIONS TYPE INFO", 150, 20, font7777, 0)
Font.Free (font7777)
drawfillbox (450, 20, 565, 60, 0)
drawfillbox (455, 25, 560, 55, 200)
View.Update
end for
%SET UP CONSTRUCT FOR OUTPUT OF CHOICE "START" OR "EXIT".
%--------------------------------------------------------
%SET THE PROMPT AT X,Y.
locatexy (460, 40)
colorback (200)
Text.Color (8)
get choice : *
%Clear screen.
cls
|