Sorry your browser is not supported!

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.wav", 9
`load sound "downer.wav",10
`load sound "invalid", 11



rem remove blue screen of death
sync on:sync rate 60
backdrop off
do
gosub login
loop
rem login
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"DOWNER"or"AMY"or"amy"or"Amy"
   gosub downer
else
   if username$="Christopher"or"CHRISTOPHER"or"christopher"or"Chris"or"CHRIS"or"chris"
      gosub chris
   else
      return
   endif
endif



rem downer label

downer:


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"

do
   mx=mouseX():My=mouseY():Mc=MouseClick()
   gosub downeregion
   sync
loop

downeregion:
rem leave message
   if mx>220 and my>45 and mx<420 and my<95
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,45,420,95,rgb(84,222,95))
      endif
   endif
rem check message
   if mx>220 and my>130 and mx<420 and my<180
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,130,420,180,rgb(84,222,95))
      endif
   endif
rem return
   if mx>220 and my>215 and mx<420 and my<265
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,215,420,265,rgb(84,222,95))
      endif
   endif
rem about
   if mx>220 and my>300 and mx<420 and my<350
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,300,420,350, rgb(84,222,95))
      endif
   endif
rem exit
   if mx>220 and my>385 and mx<420 and my<435
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,385,420,435, rgb(84,222,95))
      endif
   endif
return







chris:


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"

do
   mx=mouseX():my=mouseY():mc=MouseClick()
   gosub chrisregion
   sync
loop

chrisregion:
rem leave message
   if mx>220 and my>45 and mx<420 and my<95
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,45,420,95,rgb(84,222,95))
      endif
   endif
rem check message
   if mx>220 and my>130 and mx<420 and my<180
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,130,420,180,rgb(84,222,95))
      endif
   endif
rem return
   if mx>220 and my>215 and mx<420 and my<265
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,215,420,265,rgb(84,222,95))
      endif
   endif
rem about
   if mx>220 and my>300 and mx<420 and my<350
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,300,420,350, rgb(84,222,95))
      endif
   endif
rem exit
   if mx>220 and my>385 and mx<420 and my<435
      if mc=1
      remstart
      add code
      remend
      else
      UnfilledBox(220,385,420,435,rgb(84,222,95))
      endif
   endif
return

wait 3000


function UnfilledBox(x1,y1,x2,y2,colour)
paste image 1,0,0
ink Colour,0
line x1-1,y1-1,x2+1,y1-1
line x2+1,y1-1,x2+1,y2+1
line x2+1,y2+1,x1-1,y2+1
line x1-1,y2+1,x1-1,y1-1
EndFunction

if username$="Downer"or"downer"or"DOWNER"

if lower$(username$)="downer"

do
gosub login
loop
rem login
login:
paste image 8,0,0
set cursor 265,345
set text size 20
set text font "Arial Black"
input username$