Rem Project: eMessenger
Rem Created: 6/5/2009 6:28:49 AM
rem define color names
white as dword
black as dword
grey as dword
green as dword
lightblue as dword
blue as dword
lightgreen as dword
yellow as dword
orange as dword
rem define colors
white = rgb(255,255,255)
black=rgb(0,0,0)
grey = rgb(77,77,77)
green= rgb(35,138,17)
lightblue=rgb(95,92,233)
blue=rgb(10,0,195)
lightgreen=rgb(84,222,95)
yellow=rgb(240,232,66)
orange=rgb(194,86,54)
rem declare images
load image "eMessenger.jpg", 1
load image "leave.jpg", 2
load image "check.jpg", 3
load image "return.jpg", 4
load image "quit.jpg", 5
load image "about.jpg", 6
load image "mainmenu.jpg" ,7
load image "Login.jpg",8
load sound "chris", 9
load sound "downer",10
`load sound "invalid", 11
rem remove blue screen of death
backdrop off
rem login
paste image 8,0,0
set cursor 265,345
set text size 20
set text font "Arial Black"
input username$
if username$="Downer"or"downer"or"amy"or"Amy"or"DOWNER"or"AMY"
play sound 10
wait 1000
paste image 7, 202,10
box 220, 45, 420, 95,blue, green, orange, grey
box 220, 130, 420, 180, orange, white, black, yellow
box 220, 215, 420, 265,orange,lightgreen,lightblue,blue
box 220, 300, 420, 350,green,lightblue,orange,grey
box 220, 385, 420, 435,grey,orange,lightgreen,blue
set text size 28.5
set text font "acquaintance"
center text 320, 57.5, "Leave Message"
set text size 28.5
set text font "acquaintance"
center text 320, 142.5, "Check Message"
set text size 28.5
set text font "acquaintance"
center text 320, 227.5, "Return"
set text size 28.5
set text font "acquaintance"
center text 320, 312.5, "About"
set text size 28.5
set text font "acquaintance"
center text 320, 397.5, "Quit"
wait 3000
cls
wait 1000
end
else if username$="Chris"or"CHRIS"or"chris"or"Christopher"or"CHRISTOPHER"or"christopher"
play sound 9
wait 1000
paste image 7, 202,10
box 220, 45, 420, 95,blue, green, orange, grey
box 220, 130, 420, 180, orange, white, black, yellow
box 220, 215, 420, 265,orange,lightgreen,lightblue,blue
box 220, 300, 420, 350,green,lightblue,orange,grey
box 220, 385, 420, 435,grey,orange,lightgreen,blue
set text size 28.5
set text font "acquaintance"
center text 320, 57.5, "Leave Message"
set text size 28.5
set text font "acquaintance"
center text 320, 142.5, "Check Message"
set text size 28.5
set text font "acquaintance"
center text 320, 227.5, "Return"
set text size 28.5
set text font "acquaintance"
center text 320, 312.5, "About"
set text size 28.5
set text font "acquaintance"
center text 320, 397.5, "Quit"
wait 3000
cls
wait 1000
end
else
end
i don't know what i am doing wrong
this has been bugging me for hours
it always says "cannot close nest at line...
can someone help me? I ned this by tommorow.
