-----------------------------------

jhdho0204

Sun Jan 23, 2011 12:19 pm


My final project but having problem with it...

-----------------------------------

%Welcome
setscreen ("offscreenonly")
var row, column : int
var o : int := 0
var p : int := 300
var title : int
var pic2 : int
var x, y, bnum, bdummy : int
var font1, font2, font3, font4, font5 : int
var pic : int
var current : int := 1
var purchase, purchase1, purchase2, purchase3, purchase4 : real
%category

var pro1 : int := Pic.FileNew ("ipodtouch.jpg")
var pro2 : int := Pic.FileNew ("ipod_edited-1.jpg")
var pro3 : int := Pic.FileNew ("desktop3.jpg")
var pro4 : int := Pic.FileNew ("macbook.jpg")
var pro5 : int := Pic.FileNew ("iphone.jpg")


font1 := Font.New ("TypeMaker:30:bold")
font2 := Font.New ("TypeMaker:20:bold")
font3 := Font.New ("Times New Roman:12:bold")
font4 := Font.New ("Times New Roman:16:bold")
font5 := Font.New ("TypeWriter:16:bold")

for i : 1 .. maxx by 50
    %moon
    drawfilloval (o, p, 50, 50, yellow)
    drawfillbox (o - 30, p, o - 10, p + 20, 7)
    drawfillbox (o + 20, p, o + 40, p + 20, 7)
    Draw.ThickLine (o - 20, p + 10, o + 20, p + 10, 5, 7)
    drawfillarc (o, p - 20, 30, 20, 180, 360, red)
    o := 10 + i
    View.Update
    delay (1)
    cls
    %stars
    delay (1)
    randint (row, 1, maxx)
    randint (column, 1, maxy)
    color (yellow)
    drawfillstar (row, column, row + 20, column + 20, yellow)
    delay (50)
    randint (row, 1, maxx)
    randint (column, 1, maxy)
    color (yellow)
    drawfillstar (row, column, row + 20, column + 20, yellow)
    delay (50)
    randint (row, 1, maxx)
    randint (column, 1, maxy)
    color (yellow)
    drawfillstar (row, column, row + 20, column + 20, yellow)
    delay (50)
    randint (row, 1, maxx)
    randint (column, 1, maxy)
    color (yellow)
    drawfillstar (row, column, row + 20, column + 20, yellow)

    Font.Draw ("JJ.Apple", 250, 350, font1, red)
    Font.Draw ("Press anywhere", 230, 100, font2, green)
    Font.Draw ("to start", 270, 75, font2, green)
end for

buttonwait ("down", x, y, bnum, bdummy)
if x >= 0 and y >= 0 and x = 0 and y >= 0 and x = 100 and x = 250 and x = 30 and x = 30 and x = 230 and x = 20 and y >= 140 and x = 20 and y >= 60 and x = 60 and x = 20 and y >= 140 and x = 20 and y >= 60 and x = 60 and x = 20 and y >= 140 and x = 20 and y >= 60 and x = 60 and x = 20 and y >= 180 and x = 20 and y >= 100 and x = 100 and x = 20 and y >= 180 and x = 20 and y >= 100 and x = 20 and y >= 110 and x = 20 and y >= 30 and x