Sorry your browser is not supported!

set display mode 320,240,32
sync on
sync rate 60
disable escapekey
set window on
set window title "X Adventure"
set window layout 0,0,0
maximize window
hide mouse

dim screens(100,20,13)
dim obj(300,10)
dim sprites(32,4,4)
dim exits(100,5,6)
dim speechs(100,5,2)
dim speech$(100,5,3)

restore exitdata
for red = 1 to 100
read s
if s < 0 then exit
for cs = 1 to 5 :  if exits(s,cs,1) = 0 then exit
next cs
for rd = 1 to 6 : read exits(s,cs,rd) : next rd
next red

restore speechdata
for rsp = 1 to 100
read s
if s < 0 then exit
for cs = 1 to 5 : if speech$(s,cs,1) = "" and speech$(s,cs,2) = ""  and speech$(s,cs,3) = "" then exit
next cs
read speechs(s,cs,1)
read speechs(s,cs,2)
read speech$(s,cs,1)
read speech$(s,cs,2)
read speech$(s,cs,3)
next rsp

restore spritedata
for rs = 0 to 32
read col
if col < 0 then exit
sprites(rs,0,0) = col
for ry = 1 to 4 : for rx = 1 to 4
read sprites(rs,rx,ry)
next rx : next ry
next rs

global health as integer
global magic as integer
global screen as integer
global jewels as integer
global keys as integer
global top as integer
global player as integer

menu:
opt = 1
x = 0
entp = 0
m$ = "                                                 The evil 'Z' has turned everyone and everything into 4x4 blocks and filled the world with monsters! The world has been pixelised! It is your job as 'X' to kill 'Z' and restore the world to its true resolution!"
do

ink rgb(0,128,0),0
box 0,0,320,207
ink rgb(255,255,255),0
line 0,208,320,208

for dbx = 0 to 304 step 16
draw(1,dbx,0)
draw(1,dbx,192)
next dbx
for dby = 16 to 176 step 16
draw(1,0,dby)
draw(1,304,dby)
next dby

ink 0,0
center text 160,20,"X's Adventure"
center text 160,35,"By John Price"
box 110,80,210,130
ink rgb(255,255,255),0

text 125,82,"Start"
text 125,97,"Password"
text 125,112,"Quit"
text 113,82+((opt-1)*15),">"
w = w - 1

if entp = 0
if w < 0
if opt = 2 and downkey() = 1 then opt = 3: w = 10
if opt = 1 and downkey() = 1 then opt = 2: w = 10
if opt = 2 and upkey() = 1 then opt = 1: w = 10
if opt = 3 and upkey() = 1 then opt = 2: w = 10
endif
else

ink 0,0
box 80,140,240,175
ink rgb(255,255,255),0
center text 160,142,"Enter Password:"

if w < 0
if scancode() = 14 then p$ = left$(p$,len(p$)-1) : w = 10
if scancode() > 0 and scancode() < 11 and len(p$) < 16
p$ = p$ + str$(scancode()-1)
w = 10
endif
if escapekey() = 1 then p$ = "" : entp = 0
if scancode() = 11 then p$ = p$ + "0" : w = 10
if returnkey() = 1 and len(p$) = 16
w = 10
n1 = val(left$(p$,2))
n2 = val(right$(p$,2))
if n2/3 = n1

px = 16*(val(mid$(p$,3)+mid$(p$,4))-1)
py = 16*(val(mid$(p$,5)+mid$(p$,6))-1)
screen = val(mid$(p$,7)+mid$(p$,8))
jewels = val(mid$(p$,9)+mid$(p$,10))
keys = val(mid$(p$,11))
health = val(mid$(p$,12))
magic = val(mid$(p$,13)+mid$(p$,14))

exit
else
ENTP = 0
p$ = ""
endif
endif
endif

center text 160,157,p$

endif

if returnkey() = 1 or spacekey() = 1 and w < 0
select opt

case 1
health = 5
magic = 14
screen = 1
keys = 0
jewels = 0
px = 8*16
py = 7*16

exit
endcase

case 2
entp = 1
endcase

case 3
end
endcase

endselect
w = 20
endif

ox = ox - 1
x = ox
for dm = 1 to len(m$)
c = sin(x*2)*255
ink rgb(0,c,255),0
text x,217+(sin(x*2)*3),mid$(m$,dm)
x = x + 10
next dm

sync
cls
loop

game:

restx = px/16
resty = py/16
restore screendata
for rs = 1 to 100
read se
screens(rs,0,0) = se
if se < 0 then exit
for ry = 1 to 13
for rx = 1 to 20
read screens(rs,rx,ry)
next rx
next ry
next rs
loadscreen()
makeob(6,px,py)
QUEST = 0

do

if quest = 1 then screens(11,4,5) = 0
if quest = 2
quest = 3
speech$(9,1,1) = "Thankyou"
speech$(9,1,2) = "Here is a pass to leave"
speech$(9,1,3) = "the village!"
endif

if screens(screen,0,0) = 1 then ink rgb(0,128,0),0
if screens(screen,0,0) = 2 then ink rgb(128,128,128),0
if screens(screen,0,0) = 3 then ink rgb(64,0,0),0
box 0,0,320,207
ink rgb(255,255,255),0
line 0,208,320,208
text 2,210,"HEALTH: "
ink rgb(255,0,0),0
for dh = 1 to health : text 50+(dh*15),210,"X" : next dh
ink rgb(255,255,255),0
text 2,224," MAGIC: "
ink rgb(0,255,0),0
for dm = 1 to magic : text 58+(dm*5),224,"|" : next dm
ink rgb(255,255,255),0
text 190,210,"JEWELS: "+str$(jewels)
if scancode() = 14
text 190,224,"  OBJS: "+str$(top)
else
text 190,224,"  KEYS: "+str$(keys)
endif

ani = ani + 1
if ani > 10
ani = 0
af = af + 1
if af > 1 then af = 0
endif

sma = sma + 3
smy = sin(sma)*2

if af = 0
sprites(11,2,2) = 8
sprites(11,3,3) = 8
sprites(11,3,2) = 1
sprites(11,2,3) = 1

sprites(10,1,1) = 7
sprites(10,4,4) = 7
sprites(10,4,1) = 1
sprites(10,1,4) = 1

sprites(15,2,2) = 4
sprites(15,3,2) = 1
sprites(15,2,3) = 1
sprites(15,3,3) = 4

sprites(4,1,1) = 3
sprites(4,3,1) = 12
sprites(4,2,3) = 3
sprites(4,4,3) = 12


else
sprites(11,2,2) = 1
sprites(11,3,3) = 1
sprites(11,3,2) = 8
sprites(11,2,3) = 8

sprites(10,1,1) = 1
sprites(10,4,4) = 1
sprites(10,4,1) = 7
sprites(10,1,4) = 7

sprites(15,2,2) = 1
sprites(15,3,2) = 4
sprites(15,2,3) = 4
sprites(15,3,3) = 1

sprites(4,1,1) = 12
sprites(4,3,1) = 3
sprites(4,2,3) = 12
sprites(4,4,3) = 3
endif

`Draw terrain
for dsx = 1 to 20
for dsy = 1 to 13
   if screens(screen,dsx,dsy) > 0 and screens(screen,dsx,dsy) <= 5
   s = screens(screen,dsx,dsy)
   draw(s,(dsx-1)*16,(dsy-1)*16)
   endif
next dsy
next dsx

`Draw objects
for dob = 1 to top
   if obj(dob,1) > 0

      ox = obj(dob,2)
      oy = obj(dob,3)
      cc = 0

      `Enemy 2
      if obj(dob,1) = 11

         obj(dob,5) = obj(dob,5) + 1

         if obj(dob,5) > 1
         if obj(dob,2) > obj(player,2) then obj(dob,2) = obj(dob,2) - 1
         if obj(dob,2) < obj(player,2) then obj(dob,2) = obj(dob,2) + 1
         if obj(dob,3) > obj(player,3) then obj(dob,3) = obj(dob,3) - 1
         if obj(dob,3) < obj(player,3) then obj(dob,3) = obj(dob,3) + 1
         obj(dob,5) = 0
         endif

      if obj(dob,7) = 2
      drop = rnd(2)
      if drop = 0 then makeob(7,obj(dob,2),obj(dob,3))
      if drop = 1 then makeob(25,obj(dob,2),obj(dob,3))
      if drop = 2 then makeob(26,obj(dob,2),obj(dob,3))
      deleteob(dob)
      endif

      cc = 2
      endif

      `Enemy 1
      if obj(dob,1) = 10

      select obj(dob,6)
         case 0 : obj(dob,3) = obj(dob,3) - 1 : endcase
         case 1 : obj(dob,2) = obj(dob,2) + 1 : endcase
         case 2 : obj(dob,3) = obj(dob,3) + 1 : endcase
         case 3 : obj(dob,2) = obj(dob,2) - 1 : endcase
      endselect

      obj(dob,5) = obj(dob,5) + 1
      if obj(dob,5) > 30 or obj(dob,4) <> 0 then obj(dob,6) = rnd(3) : obj(dob,5) = 0

      if obj(dob,7) = 1
      drop = rnd(2)
      if drop = 0 then makeob(7,obj(dob,2),obj(dob,3))
      if drop = 1 then makeob(25,obj(dob,2),obj(dob,3))
      if drop = 2 then makeob(26,obj(dob,2),obj(dob,3))
      deleteob(dob)
      endif

      cc = 2
      endif

      `Block
      if obj(dob,1) = 14
      if obj(obj(dob,4),1) = 6

         if coll(obj(player,2),obj(player,3),16,obj(dob,2)-16,obj(dob,3),16) = 1 then obj(dob,2) = obj(dob,2) + 1
         if coll(obj(player,2),obj(player,3),16,obj(dob,2)+16,obj(dob,3),16) = 1 then obj(dob,2) = obj(dob,2) - 1
         if coll(obj(player,2),obj(player,3),16,obj(dob,2),obj(dob,3)-16,16) = 1 then obj(dob,3) = obj(dob,3) + 1
         if coll(obj(player,2),obj(player,3),16,obj(dob,2),obj(dob,3)+16,16) = 1 then obj(dob,3) = obj(dob,3) - 1

      endif
      cc = 2
      endif

      `SEA MONSTERRR LOL
      if obj(dob,1) = 27
      if obj(dob,5) = 0 then obj(dob,5) = rnd(40)
      obj(dob,5) = obj(dob,5) + 1
      if obj(dob,5) > 40
      obj(dob,5) = rnd(10)+1

      a = rnd(7)

      if a = 1 then mx = obj(dob,2)+16 : my = obj(dob,3)+16
      if a = 3 then mx = obj(dob,2)+16 : my = obj(dob,3)+16
      if a = 5 then mx = obj(dob,2)-16 : my = obj(dob,3)+16
      if a = 7 then mx = obj(dob,2)-16 : my = obj(dob,3)-16
      if a = 0 then mx = obj(dob,2) : my = obj(dob,3)-16
      if a = 2 then mx = obj(dob,2)+16 : my = obj(dob,3)
      if a = 4 then mx = obj(dob,2) : my = obj(dob,3)+16
      if a = 6 then mx = obj(dob,2)-16 : my = obj(dob,3)

      bob = makeob(28,mx,my)
      obj(bob,5) = a

      endif
      if obj(dob,7) = 2 then wx = obj(dob,9) : wy = obj(dob,10) : deleteob(dob) : screens(screen,wx,wy) = 4
      endif

      `super bullet
      if obj(dob,1) = 28

      select obj(dob,5)
         case 1 : obj(dob,2) = obj(dob,2) + 2  : obj(dob,3) = obj(dob,3) + 2 : endcase
         case 3 : obj(dob,2) = obj(dob,2) + 2  : obj(dob,3) = obj(dob,3) - 2 : endcase
         case 5 : obj(dob,2) = obj(dob,2) - 2  : obj(dob,3) = obj(dob,3) + 2 : endcase
         case 7 : obj(dob,2) = obj(dob,2) - 2  : obj(dob,3) = obj(dob,3) - 2 : endcase

         case 0 : obj(dob,3) = obj(dob,3) - 2 : endcase
         case 2 : obj(dob,2) = obj(dob,2) + 2 : endcase
         case 4 : obj(dob,3) = obj(dob,3) + 2 : endcase
         case 6 : obj(dob,2) = obj(dob,2) - 2 : endcase
      endselect

      if obj(dob,4) <> 0
      if obj(obj(dob,4),1) = 6 then health = health - 1
      deleteob(dob)
      endif
      cc = 2
      endif

      `Evil Eye
      if obj(dob,1) = 15
      bs = 0
      bd = 0

      if obj(dob,5) > 0 then obj(dob,5) = obj(dob,5) - 1
      if obj(dob,5) = 0
      if obj(player,3)+16 > obj(dob,3) and obj(player,3) < obj(dob,3)+16
      if obj(player,2) < obj(dob,2) and screens(screen,obj(dob,9)-1,obj(dob,10)) = 0 then bx = obj(dob,2)-8 : by = obj(dob,3) : bd = 4 : bs = 1
      if obj(player,2) > obj(dob,2)+16 and screens(screen,obj(dob,9)+1,obj(dob,10)) = 0 then bx = obj(dob,2)+8 : by = obj(dob,3) : bd = 2 : bs = 1
      endif

      if obj(player,2)+16 > obj(dob,2) and obj(player,2) < obj(dob,2)+16
      if obj(player,3) < obj(dob,3) and screens(screen,obj(dob,9),obj(dob,10)-1) = 0 then bx = obj(dob,2) : by = obj(dob,3)-8 : bd = 1 : bs = 1
      if obj(player,3) > obj(dob,3)+16 and screens(screen,obj(dob,9),obj(dob,10)+1) = 0 then bx = obj(dob,2) : by = obj(dob,3)+8 : bd = 3 : bs = 1
      endif
      endif

      if bs = 1 then obj(dob,5) = 30:bob = makeob(16,bx,by):obj(bob,5) = bd

      endif

      `EVIL bullet
      if obj(dob,1) = 16

      select obj(dob,5)
         case 1 : obj(dob,3) = obj(dob,3) - 4 : endcase
         case 2 : obj(dob,2) = obj(dob,2) + 4 : endcase
         case 3 : obj(dob,3) = obj(dob,3) + 4 : endcase
         case 4 : obj(dob,2) = obj(dob,2) - 4 : endcase
      endselect



      if obj(dob,4) <> 0 and obj(obj(dob,4),1) <> 6 and obj(obj(dob,4),1) <> 15
      deleteob(dob)
      endif
      if sqrt((obj(dob,2)-obj(player,2))^2+(obj(dob,3)-obj(player,3))^2) < 14
      deleteob(dob)
      health = 0
      endif

      cc = 1
      endif

      `Bullet
      if obj(dob,1) = 9

      select obj(dob,5)
         case 1 : obj(dob,3) = obj(dob,3) - 4 : endcase
         case 2 : obj(dob,2) = obj(dob,2) + 4 : endcase
         case 3 : obj(dob,3) = obj(dob,3) + 4 : endcase
         case 4 : obj(dob,2) = obj(dob,2) - 4 : endcase
      endselect

      if obj(dob,4) <> 0
         if obj(obj(dob,4),1) = 10 or obj(obj(dob,4),1) = 11 or obj(obj(dob,4),1) = 27
         obj(obj(dob,4),7) = obj(obj(dob,4),7) + 1
         endif
      deleteob(dob)
      endif

      cc = 2
      endif

      `Player
      if obj(dob,1) = 6

         player = dob

         if iw > 0 then iw = iw - 1

         if iw = 0
         if upkey() = 1 then obj(dob,3) = obj(dob,3) - 1 : obj(dob,5) = 1
         if downkey() = 1 then obj(dob,3) = obj(dob,3) + 1 : obj(dob,5) = 3
         if leftkey() = 1 then obj(dob,2) = obj(dob,2) - 1 : obj(dob,5) = 4
         if rightkey() = 1 then obj(dob,2) = obj(dob,2) + 1 : obj(dob,5) = 2
         endif

         if obj(dob,6) > 0 then obj(dob,6) = obj(dob,6) - 1

         if controlkey() = 1 and obj(dob,6) = 0
            if magic > 0
            magic = magic - 1
            if obj(dob,5) = 1 then bx = obj(dob,2) : by = obj(dob,3) - 18
            if obj(dob,5) = 2 then bx = obj(dob,2) + 18 : by = obj(dob,3)
            if obj(dob,5) = 3 then bx = obj(dob,2) : by = obj(dob,3) + 18
            if obj(dob,5) = 4 then bx = obj(dob,2) - 18 : by = obj(dob,3)
            bob = makeob(9,bx,by)
            obj(bob,5) = obj(dob,5)
            obj(dob,6) = 20
           else
            obj(dob,8) = 30
           endif

         endif

         if obj(dob,7) > 0 then obj(dob,7) = obj(dob,7) - 1
         if obj(dob,8) > 0
         obj(dob,8) = obj(dob,8) - 1
         ink rgb(255,255,255),0
         center text obj(dob,2)+8,obj(dob,3)-15,"!"
         endif

         if obj(dob,4) > 0
         co = obj(dob,4)

         if obj(co,1) = 21 or obj(co,1) = 22
         f = 0
         for chk = 1 to 5
         if speechs(screen,chk,1) = obj(co,9) and speechs(screen,chk,2) = obj(co,10) then f = 1 : exit
         next chk
         talk(speech$(screen,chk,1),speech$(screen,chk,2),speech$(screen,chk,3))
         if screen = 9 and obj(co,9) = 11 and obj(co,10) = 9 and quest = 0 then quest = 1
         if screen = 9 and obj(co,9) = 11 and obj(co,10) = 9 and quest = 3
         screens(9,12,9) = 30
         speech$(9,1,1) = ""
         speech$(9,1,2) = "Thankyou"
         speech$(9,1,3) = ""
         screens(10,4,2) = 0
         screens(10,5,3) = 22
         quest = 4
         endif
         endif

         if obj(co,1) = 10 and obj(dob,7) = 0
         obj(dob,7) = 20
         obj(dob,8) = 30
         health = health - 1
         endif

         if obj(co,1) = 11 and obj(dob,7) = 0
         obj(dob,7) = 20
         obj(dob,8) = 30
         health = health - 1
         endif

         if obj(co,1) = 30 and screen = 15
         talk("You have found","the crystal ball","")
         quest = 2
         deleteob(co)
         endif

         if obj(co,1) = 25
         deleteob(co)
         if health < 5
         health = health + 1
         endif
         endif

         if obj(co,1) = 26
         deleteob(co)
         if magic < 14
         magic = magic + 2
         if magic > 14 then magic = 14
         endif
         endif

         if obj(co,1) = 12
         deleteob(co)
         keys = keys + 1
         endif

         if obj(co,1) = 23
         shop()
         endif

         if obj(co,1) = 13
         if keys > 0
         deleteob(co)
         keys = keys - 1
         else
         talk("","You need a key!","")
         endif
         endif

         if obj(co,1) = 24
         if jewels => 10
         jewels = jewels - 10
         deleteob(co)
         else
         talk("You need ten","jewels to pass","")
         endif
         endif

         if obj(co,1) = 7
         deleteob(co)
         jewels = jewels + 1
         endif

         if obj(co,1) = 8 or obj(co,1) = 29
         ef = 0
         for ce = 1 to 5
         if exits(screen,ce,1) = obj(co,9) and exits(screen,ce,2) = obj(co,10)

            oscreen = screen
            screen = exits(oscreen,ce,3)
            loadscreen()
            makeob(6,(exits(oscreen,ce,4)-1)*16,(exits(oscreen,ce,5)-1)*16)

            restx = exits(oscreen,ce,4)
            resty = exits(oscreen,ce,5)
            resth = health
            restm = magic
            iw = 30

            if exits(oscreen,ce,6) = 1

            if len(str$(exits(oscreen,ce,4))) = 1 : sx$ = "0"+str$(exits(oscreen,ce,4)) : else : sx$ = str$(exits(oscreen,ce,4)) : endif
            if len(str$(exits(oscreen,ce,5))) = 1 : sy$ = "0"+str$(exits(oscreen,ce,5)) : else : sy$ = str$(exits(oscreen,ce,5)) : endif
            if len(str$(screen)) = 1 : ss$ = "0"+str$(screen) : else : ss$ = str$(screen) : endif
            if len(str$(jewels)) = 1 : sj$ = "0"+str$(jewels) : else : sj$ = str$(jewels) : endif
            if len(str$(magic)) = 1 : sm$ = "0"+str$(magic) : else : sm$ = str$(magic) : endif
            sk$ = str$(keys)
            sh$ = str$(health)
            n1 = rnd(23)+10
            n2$ = str$(n1*3)
            n1$ = str$(n1)

            pass$ = n1$+sx$+sy$+ss$+sj$+sk$+sh$+sm$+n2$

            talk("Level Passed!","Password:",pass$)
            endif
            ef = 1
            exit

         endif
         next ce
         if ef = 0 then talk("Better not go","in here.","")
         endif

         endif

         cc = 2
      endif

      `Collision
      obj(dob,4) = 0
      if cc > 0
      for cob = 1 to top
      if cob <> dob
      if obj(cob,1) > 0
         if coll(obj(dob,2),obj(dob,3),16,obj(cob,2),obj(cob,3),16) = 1
         if cc = 2
         if coll(obj(dob,2),oy,16,obj(cob,2),obj(cob,3),16) = 1 then obj(dob,2) = ox
         if coll(ox,obj(dob,3),16,obj(cob,2),obj(cob,3),16) = 1 then obj(dob,3) = oy
         endif
         obj(dob,4) = cob
         obj(cob,4) = dob
         endif
      endif
      endif
      next cob

      for dsx = 1 to 20
      for dsy = 1 to 13
         if screens(screen,dsx,dsy) > 0 and screens(screen,dsx,dsy) <= 5
         if obj(dob,1) = 9 and screens(screen,dsx,dsy) = 4 or obj(dob,1) = 28 and screens(screen,dsx,dsy) = 4
         else
         if coll(obj(dob,2),obj(dob,3),16,(dsx-1)*16,(dsy-1)*16,16) = 1
         obj(dob,4) = -1
         if cc = 2
         if coll(obj(dob,2),oy,16,(dsx-1)*16,(dsy-1)*16,16) = 1 then obj(dob,2) = ox
         if coll(ox,obj(dob,3),16,(dsx-1)*16,(dsy-1)*16,16) = 1 then obj(dob,3) = oy
         endif
         endif
         endif
         endif
      next dsy
      next dsx

      endif

      draw(obj(dob,1),obj(dob,2),obj(dob,3))
`      if obj(dob,1) = 27 then draw(4,(obj(dob,9)-1)*16,16+(obj(dob,10)-1)*16)

   endif
next dob

if escapekey() = 1
do
ink 0,0
box 80,80,240,145

ink rgb(255,255,255),0
center text 160,82, "Want To Quit?"
center text 160,104,  "1- Yes"
center text 160,120, "2- No "

if scancode() = 2 then goto menu
if scancode() = 3 then exit

sync
loop
endif

if health <= 0
talk("","You died.","")
loadscreen()
px = (restx-1)*16
py = (resty-1)*16
makeob(6,px,py)
health = resth
magic = restm
endif

sync
cls

loop

function coll(x1,y1,s1,x2,y2,s2)
if x1+s1 > x2 and x1 < x2+s2
if y1+s1 > y2 and y1 < y2+s2
   col = 1
endif
endif
endfunction col

function deleteob(o)
if obj(o,9) > 0 and obj(o,10) > 0 then screens(screen,obj(o,9),obj(o,10)) = 0
obj(o,1) = 0
endfunction

function loadscreen()
for cob = 1 to 300 : obj(cob,1) = 0 : next cob
top = 0
for dy = 1 to 13
for dx = 1 to 20
   if screens(screen,dx,dy) > 5
   obm = makeob(screens(screen,dx,dy),(dx-1)*16,(dy-1)*16)
   obj(obm,9) = dx
   obj(obm,10) = dy
   if screens(screen,dx,dy) = 27 then screens(screen,dx,dy) = 4
   endif
next dx
next dy
endfunction

function makeob(t,x,y)
for ffs = 1 to 300
if obj(ffs,1) = 0 then exit
next ffs
if ffs > top then top = ffs
for dd = 1 to 10
obj(ffs,dd) = 0
next dd
obj(ffs,1) = t
obj(ffs,2) = x
obj(ffs,3) = y
endfunction ffs

function draw(s,x,y)

for dx = 0 to 3
for dy = 0 to 3
if sprites(s,dx+1,dy+1) > 0

select sprites(s,dx+1,dy+1)
case 1 : r = 0: g = 0: b = 0: endcase
case 2 : r = 128: g = 0: b = 0: endcase
case 3 : r = 0: g = 128: b = 255: endcase
case 4 : r = 0: g = 255: b = 0: endcase
case 5 : r = 255: g = 0: b = 0: endcase
case 6 : r = 255: g = 0: b = 255: endcase
case 7 : r = 255: g = 0: b = 0: endcase
case 8 : r = 255: g = 255: b = 0: endcase
case 9 : r = 128: g = 128: b = 128: endcase
case 10 : r = 198: g = 198: b = 198: endcase
case 11 : r = 255: g = 198: b = 0: endcase
case 12 : r = 0: g = 196: b = 255: endcase
case 13 : r = 255: g = 255: b = 255: endcase
endselect

ink rgb(r,g,b),0

box x+(dx*4),y+(dy*4),x+(dx*4)+4,y+(dy*4)+4
endif
next dy:next dx

endfunction

function shop()
notbuy = 0
do
ink 0,0
box 80,80,240,145

ink rgb(255,255,255),0
center text 160,82,"Shop"

ink rgb(255,255,255),0
if scancode() = 2
if jewels => 10
jewels = jewels - 10
health = 5 : exit
else
ink rgb(255,0,0),0
endif
endif
text 82,97, "1- Healing   (10J)"

ink rgb(255,255,255),0
text 82,127,"SPACE - Exit"
if scancode() = 3
if jewels => 10
jewels = jewels - 10
magic = 14 : exit
else
ink rgb(255,0,0),0
endif
endif
text 82,112,"2- Magic     (10J)"
ink rgb(255,255,255),0

if spacekey() = 1 then exit

sync
loop

talk("Thankyou","Come again","")

endfunction

function talk(t1$,t2$,t3$)

do
ink 0,0
box 80,80,240,130

ink rgb(255,255,255),0
center text 160,82,t1$
center text 160,97,t2$
center text 160,112,t3$

if spacekey() = 1 or returnkey() = 1 then exit

sync
loop

endfunction

exitdata:
`        Screen1   X    Y       Screen2  X    Y     LP
data     1,        17,  1,      2,       17, 12,    0
data     2,        17, 13,      1,       17, 02,    0

data     2,        19,  1,      3,       19, 12,    0
data     3,        19, 13,      2,       19,  2,    0
data     3,         3, 13,      2,        3,  2,    0
data     2,         3,  1,      3,        3, 12,    0

data     2,         1,  7,      4,       19,  7,    0
data     4,        20,  7,      2,        2,  7,    0

data     4,         3,  1,      5,        3, 12,    0
data     5,         3, 13,      4,        3,  2,    0

data     5,        20,  7,      6,        2,  7,    0
data     6,        1,   7,      5,       19,  7,    0

data     6,        19,  1,      7,       19, 11,    1

data     7,        11,  1,      8,       11, 12,    0
data     8,        11, 13,      7,       11,  2,    0

data     8,        11,  5,      9,       11, 12,    0
data     9,        11, 13,      8,       11,  6,    0

data     8,        1,   3,      10,      19,  3,    0
data    10,       20,   3,       8,       2,  3,    0

data    10,       18,   13,     11,      18,  2,    0
data    11,       18,    1,     10,      18, 12,    0

data    11,        20,   6,     7,        2,  6,    0
data    7,         1,   6,     11,       19,  6,    0

data    11,        3,   3,     12,   3, 3, 0
data    12,        3,   1,     11,   3, 2, 0

data    12,       18,   1,     13,  18, 12, 0
data    13,       18,  13,     13,  18,  2, 0

data    13,       10,  1,      14,  10,  12, 0
data    14,       10, 13,      13,  10,   2, 0

data    14,       1, 6,      15,  19, 7 ,0
DATA    15,      20, 7,      14,   2, 6 ,0

DATA    15,    4,  1,  11, 17, 11 ,0

data    10,    4, 1,   16, 4, 12, 1

data     -1

speechdata:
`        Screen    X    Y     Words
data     1,        4,   11,   "There is a village","to the North.     ","                  "
data     1,       15,    3,   "NORTH: Village    ","Beware of monsters","                  "
DATA     5,        5,    5,   "Beware","Evil Sea Monsters",""
data     6,       18,   10,   "                  ","THIS WAY: Village ","                  "
data     7,       19,   12,   "It is much too","dangerous to leave","the village."
data     7,        6,    8,   "Life sure is tough","since we were","pixelised."
data     8,       10,    7,   "Village Elder's",     "House","Vistors Welcome"
data     9,       11,    9,   "My crystal ball   ","was stolen. Please","get it back for me"
data     8,       13,    7,   "We don't see much ","of the Village   ","Elder these days."
data    11,        5,    3,   "Danger!",        "This hole is full ","of monsters."
data    10,        4,    2,   "You need a pass   ","to leave the      ","village.          "
data    10,        5,    3,   "","Be careful!",""
data    10,        6,    9,   "Its a bummer not  ","being able to     ","leave!            "
data    10,       11,    4,   "You can only leave","with permission   ","from the elder!   "
data    11,       11,    7,   "The monsters steal","things and hide   ","them underground. "

data -1

`HOUSE
`19,18,18,18,20
`02,17,08,17,03

screendata:
`1
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,21,00,00,05,00,01
data 01,00,00,00,05,00,00,00,00,00,05,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,00,01
data 01,00,19,18,18,18,20,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,02,17,08,17,03,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,01
data 01,00,00,22,00,00,00,00,05,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`2
data 1
data 01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01
data 01,00,00,00,00,01,01,01,01,01,01,01,01,15,00,00,05,00,00,01
data 01,00,00,00,00,01,01,01,01,01,01,01,01,00,00,12,05,00,00,01
data 01,00,00,00,00,01,01,01,01,01,01,01,03,00,00,05,05,00,10,01
data 01,00,00,00,00,02,01,01,01,01,03,00,00,00,05,05,00,00,00,01
data 01,05,00,00,00,00,01,01,01,01,00,00,00,00,05,00,00,00,00,01
data 08,24,00,00,00,00,02,01,01,03,00,00,00,00,05,10,00,00,00,01
data 01,05,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,10,00,01
data 01,00,00,00,00,00,00,14,00,00,00,00,00,00,05,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01,01

`3
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,00,00,00,05,00,11,00,05,00,10,07,05,00,11,26,05,00,00,01
data 01,00,00,00,05,00,00,00,05,00,00,07,05,00,00,26,05,00,00,01
data 01,00,00,00,05,00,00,00,05,00,00,07,05,00,00,26,05,00,00,01
data 01,00,00,00,05,00,00,00,05,00,00,07,05,00,00,26,05,00,00,01
data 01,00,00,00,05,00,00,00,00,00,00,07,05,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,05,00,00,00,00,00,00,07,05,00,00,01
data 01,00,00,00,05,00,00,07,05,00,00,00,05,00,00,07,05,00,00,01
data 01,00,00,00,05,00,00,07,05,00,00,00,05,00,00,07,05,00,00,01
data 01,00,00,00,05,00,00,07,05,00,00,00,05,00,00,07,05,00,00,01
data 01,00,00,00,05,00,10,07,05,00,11,00,05,00,10,07,05,00,00,01
data 01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01

`4
data 1
data 01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,03,00,02,03,00,00,00,13,00,00,00,00,02,01,01,01,01,01,01
data 01,00,00,00,00,00,05,05,05,05,05,00,00,00,01,01,01,01,01,01
data 01,00,00,00,00,05,00,00,00,00,00,05,00,00,01,01,01,01,01,01
data 01,00,00,00,00,05,00,11,00,00,00,05,00,00,02,01,01,01,01,01
data 01,00,00,00,00,05,00,00,00,00,00,00,00,00,00,02,01,01,01,01
data 01,10,00,00,00,05,00,00,00,00,00,00,00,00,00,00,00,00,00,08
data 01,00,00,00,00,05,00,00,00,11,00,05,00,00,01,01,01,01,01,01
data 01,00,00,10,00,00,05,05,05,05,05,00,00,00,01,01,01,01,01,01
data 01,00,00,00,00,05,07,07,00,00,00,00,00,00,01,01,01,01,01,01
data 01,00,00,00,00,05,07,07,00,00,00,00,00,00,01,01,01,01,01,01
data 01,00,00,00,10,05,07,07,00,00,00,00,00,00,01,01,01,01,01,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`5
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,26,26,26,00,00,00,00,00,00,14,00,00,00,00,00,00,00,15,01
data 01,26,26,26,00,00,00,00,04,04,04,04,04,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,04,04,04,04,04,04,04,00,00,00,00,00,01
data 01,00,00,00,21,00,04,04,04,04,04,04,04,04,04,00,00,00,00,01
data 01,00,00,00,00,00,04,04,27,04,04,04,27,04,04,00,00,00,05,01
data 01,00,00,00,00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,08
data 01,00,00,00,00,00,04,04,04,04,04,04,04,04,04,00,00,00,05,01
data 01,00,00,00,00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,01
data 01,00,00,00,00,00,00,04,04,04,04,04,04,04,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,04,04,04,04,04,00,00,00,00,00,00,01
data 01,05,00,05,00,00,00,00,00,00,14,00,00,00,00,00,00,00,15,01
data 01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`6
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01
data 01,00,05,07,07,07,05,00,15,00,01,01,01,01,01,01,01,01,00,01
data 01,00,05,00,00,00,05,00,00,00,01,01,01,01,01,01,01,01,24,01
data 01,00,05,07,00,07,05,00,00,00,01,01,01,01,01,01,01,01,00,01
data 01,00,05,05,14,05,05,00,00,00,01,01,01,01,01,01,01,01,24,01
data 01,00,00,00,00,00,10,00,00,00,01,01,01,01,01,01,01,01,00,01
data 08,00,00,00,00,00,00,00,00,00,01,01,01,01,01,01,01,01,00,01
data 01,00,00,00,00,00,10,00,00,00,02,01,01,01,01,01,01,03,00,01
data 01,00,05,05,14,05,05,00,00,00,00,00,02,01,01,01,03,00,00,01
data 01,00,05,07,00,07,05,00,00,00,00,00,00,00,00,00,00,21,00,01
data 01,00,05,00,00,00,05,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,05,07,07,07,05,00,15,00,01,01,01,01,01,01,01,01,01,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`7
data 1
data 01,01,01,01,01,01,01,01,01,01,08,01,01,01,01,01,01,01,01,01
data 01,00,00,05,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,05,00,00,00,00,04,04,04,04,04,04,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,00,01
data 01,00,00,19,18,18,18,20,00,00,00,00,04,04,04,04,04,04,00,01
data 08,00,00,02,17,08,17,03,00,00,00,00,04,04,04,04,04,04,00,01
data 01,00,00,00,00,00,00,00,00,00,05,00,00,04,04,04,04,00,00,01
data 01,00,00,00,00,22,00,05,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,05,00,00,00,00,00,19,18,18,18,20,00,00,00,00,01
data 01,00,00,00,00,00,00,05,00,00,02,17,08,17,03,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,22,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01

`8
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,00,00,00,00,00,19,18,18,18,18,18,18,18,20,00,00,00,00,01
data 08,00,00,00,00,00,01,17,01,17,01,17,01,17,01,00,05,00,00,01
data 01,00,00,00,00,00,01,17,01,17,01,17,01,17,01,00,00,00,00,01
data 01,00,00,00,00,00,02,17,01,17,08,17,01,17,03,00,00,05,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,21,00,00,22,00,00,05,00,00,00,01
data 01,00,19,18,18,18,20,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,02,17,08,17,03,05,00,00,00,00,00,19,18,18,18,20,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,02,17,08,17,03,00,01
data 01,00,00,00,00,05,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,08,01,01,01,01,01,01,01,01,01

`Elder's hosue
`9
data 2
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08
data 08,08,08,08,08,08,01,01,01,01,01,01,01,01,01,08,08,08,08,08
data 08,08,08,08,08,08,01,04,04,00,22,00,04,04,01,08,08,08,08,08
data 08,08,08,08,08,08,01,04,04,00,00,00,04,04,01,08,08,08,08,08
data 08,08,08,08,08,08,01,00,00,00,00,00,00,00,01,08,08,08,08,08
data 08,08,08,08,08,08,01,00,00,00,00,00,00,00,01,08,08,08,08,08
data 08,08,08,08,08,08,01,01,01,01,08,01,01,01,01,08,08,08,08,08

`10
data 1
data 01,01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,00,02,22,03,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08
data 01,00,00,00,00,00,00,00,00,00,22,00,19,18,18,18,20,00,00,01
data 01,00,00,19,18,18,18,20,00,00,00,00,01,17,01,17,01,00,00,01
data 01,00,00,01,17,01,17,01,00,00,00,00,02,17,08,17,03,00,00,01
data 01,00,00,02,17,08,17,03,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,00,01
data 01,00,00,00,00,22,00,00,00,00,00,00,05,05,05,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,05,05,05,05,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01

`19,18,18,18,20
`02,17,08,17,03

`11
data 1
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01
data 01,00,00,00,00,00,05,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,29,00,21,00,05,00,00,00,00,19,18,18,18,20,00,00,00,01
data 01,00,00,00,00,00,05,00,23,00,00,02,17,08,17,03,00,00,00,01
data 01,05,05,05,05,05,05,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08
data 01,00,00,00,00,00,00,00,00,00,22,00,00,00,00,00,00,00,00,01
data 01,00,00,19,18,18,18,20,00,00,00,00,00,00,05,05,14,05,05,01
data 01,00,00,01,17,01,17,01,00,00,00,00,00,00,05,00,14,00,00,01
data 01,00,00,02,17,08,17,03,00,00,00,00,00,00,05,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,29,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,05,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`12
data 3
data 01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01
data 01,00,00,00,01,01,01,01,01,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,01
data 01,00,00,00,01,01,01,01,01,00,00,00,00,00,00,01,07,00,00,01
data 01,00,00,00,01,01,01,01,01,00,01,01,00,01,00,01,07,00,00,01
data 01,00,00,00,00,00,00,00,01,00,01,00,00,14,00,01,07,00,00,01
data 01,00,00,00,00,00,00,00,14,00,00,00,00,01,01,01,07,00,00,01
data 01,00,00,00,00,00,00,00,01,01,01,01,00,00,01,01,01,01,00,01
data 01,00,00,00,01,01,01,01,01,15,00,00,00,00,00,00,12,01,00,01
data 01,00,00,00,01,01,01,01,01,01,01,00,00,00,00,01,01,01,00,01
data 01,26,26,26,01,01,01,01,01,15,00,00,00,00,00,00,13,00,00,01
data 01,26,26,26,01,01,01,01,01,01,01,01,01,01,01,01,01,01,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`13
data 3
data 01,01,01,01,01,01,01,01,01,08,01,01,01,01,01,01,01,01,01,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,01,01,01,01,00,00,01,01,01,01,00,00,01,01,01,01,00,01
data 01,00,01,00,10,01,00,00,01,11,00,01,00,00,01,00,10,01,00,01
data 01,00,01,00,00,01,00,00,01,00,00,01,00,00,01,00,00,01,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,01,01,01,01,00,00,01,01,01,01,00,00,01,01,01,01,00,01
data 01,00,01,11,00,01,00,00,01,00,10,01,00,00,01,11,00,01,00,01
data 01,00,01,00,00,01,00,00,01,00,00,01,00,00,01,00,00,01,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08,01,01

`14
data 3
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,04,04,04,04,01,00,00,00,00,00,00,02,01,01,01,01,01,01,01
data 01,04,04,04,04,01,15,00,00,00,00,00,00,02,01,01,01,01,01,01
data 01,04,04,04,04,01,00,00,00,00,00,00,00,00,01,01,01,01,01,01
data 01,26,25,26,25,01,00,00,00,00,00,00,00,00,01,01,01,01,01,01
data 08,00,00,00,00,13,00,00,00,00,00,00,14,00,01,01,01,01,01,01
data 01,25,26,25,26,01,00,00,00,00,00,00,00,00,01,01,01,01,01,01
data 01,04,04,04,04,01,00,00,14,00,00,00,00,00,15,00,00,12,02,01
data 01,04,04,04,04,01,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,04,04,04,04,01,15,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,04,04,04,04,01,00,00,14,00,00,00,00,14,00,14,00,00,00,01
data 01,04,04,04,04,01,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,08,01,01,01,01,01,01,01,01,01,01

`15
data 3
data 01,01,01,08,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,04,04,00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,01
data 01,04,04,00,04,04,04,27,04,04,04,27,04,04,04,04,04,04,04,01
data 01,04,04,00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,30,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,01
data 01,04,04,04,04,04,04,27,04,04,04,27,04,04,04,04,04,04,04,01
data 01,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

`16 mountains
data 2
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01

remstart
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01
data 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
remend

data -1

spritedata:

`0 - player
data 0
data 0,0,0,0
data 0,1,1,0
data 0,1,1,0
data 0,0,0,0

`1 - wall right
data 2
data 2,2,2,2
data 2,2,2,2
data 2,2,2,2
data 2,2,2,2

`2 - wall left
data 2
data 2,2,2,2
data 0,2,2,2
data 0,0,2,2
data 0,0,0,2

`3 - wall right
data 2
data 2,2,2,2
data 2,2,2,0
data 2,2,0,0
data 2,0,0,0

`4 - water
data 3
data 3,12,3,3
data 3,3,3,3
data 3,3,12,3
data 3,3,3,3

`5 - bush
data 4
data 0,4,4,0
data 4,4,4,4
data 4,4,4,4
data 0,4,4,0

`6 - player
data 1
data 1,0,0,1
data 0,1,1,0
data 0,1,1,0
data 1,0,0,1

`7 - jewel
data 5
data 0,0,0,0
data 0,5,5,0
data 0,5,5,0
data 0,0,0,0

`8 - exit
data 1
data 1,1,1,1
data 1,1,1,1
data 1,1,1,1
data 1,1,1,1

`9 - magic bullet
data 6
data 0,0,0,0
data 0,6,6,0
data 0,6,6,0
data 0,0,0,0

`10 - bad guy 1
data 7
data 7,0,0,7
data 0,7,7,0
data 0,7,7,0
data 7,0,0,7

`11 - bad guy 2
data 8
data 0,8,8,0
data 8,0,0,8
data 8,0,0,8
data 0,8,8,0

`12 - key
data 10
data 0,0,0,0
data 0,10,10,0
data 0,10,10,0
data 0,0,0,0

`13 - door
data 9
data 10,10,10,10
data 10,1,1,10
data 10,1,1,10
data 10,10,10,10

`14 - block
data 10
data 00,10,10,00
data 10,10,10,10
data 10,10,10,10
data 00,10,10,00

`15 - evil eye
data 4
data 4,4,4,4
data 4,0,0,4
data 4,0,0,4
data 4,4,4,4

`16 - evil bullet
data 5
data 0,0,0,0
data 0,5,0,0
data 0,0,5,0
data 0,0,0,0

`17 - house window
data 2
data 2,2,2,2
data 2,1,1,2
data 2,1,1,2
data 2,2,2,2

`18 - house roof
data 11
data 0,0,0,0
data 11,11,11,11
data 11,11,11,11
data 11,11,11,11

`19 - house roof l
data 11
data 0,0,0,0
data 0,0,11,11
data 0,11,11,11
data 11,11,11,11

`20 - house roof r
data 10
data 10,10,0,0
data 10,10,0,0
data 10,10,11,0
data 11,11,11,11

`21 - sign
data 11
data 2,2,2,2
data 2,1,1,2
data 2,2,2,2
data 0,2,2,0

`22 - person
data 1
data 1,0,0,1
data 0,1,1,0
data 0,1,1,0
data 1,0,0,1

`23 - shop
data 1
data 3,3,3,3
data 2,0,0,2
data 3,3,3,3
data 3,3,3,3

`24 - jdoor
data 9
data 10,10,10,10
data 10,5,5,10
data 10,5,5,10
data 10,10,10,10

`25 - health pickup
data 5
data 0,0,0,0
data 0,5,0,0
data 0,5,5,0
data 0,0,0,0

`26 - magic pickup
data 4
data 0,0,0,0
data 0,4,4,0
data 0,0,4,0
data 0,0,0,0

`27 - sea monster
data 4
data 4,3,3,4
data 3,4,4,3
data 4,4,4,4
data 4,4,4,4

`28 - super evil bullet
data 4
data 0,0,0,0
data 0,8,8,0
data 0,8,8,0
data 0,0,0,0

`29 - hole
data 2
data 0,2,2,0
data 2,1,1,2
data 2,1,1,2
data 0,2,2,0

`30 - crystal ball
data 3
data 0,3,3,0
data 3,13,13,3
data 3,13,13,3
data 0,3,3,0


data -1

sync on 
sync rate 0
autocam off

randomize timer()

set text font "Arial"
set text size 16

//set display mode 1024,768,32

set camera range 0.15,600
color backdrop rgb(80,80,255)

sw=screen width()
sh=screen height()

width=10
height=10

dim tilenumbers(2,16) //1=square tile, 2=path
dim tileobjects(16)
dim creatureobjects(16)

  ink rgb(0,150,0),0
  box 0,0,64,64
  
  ink rgb(0,100,0),0
  for count=1 to 200
    x=rnd(64)
    y=rnd(64)
    dot x,y,rgb(0,130,0)
    dot x-1,y,rgb(0,140,0)
    dot x+1,y,rgb(0,140,0)
    dot x,y+1,rgb(0,140,0)
    dot x,y-1,rgb(0,140,0)
  next count
  
  tilenumbers(0,0)=findimage()
  get image tilenumbers(0,0),0,0,64,64,1
  
  ink rgb(170,100,0),0
  box 0,0,64,64
  
  for count=1 to 200
    x=rnd(64)
    y=rnd(64)
    dot x,y,rgb(150,90,0)
    dot x-1,y,rgb(160,95,0)
    dot x+1,y,rgb(160,95,0)
    dot x,y+1,rgb(160,95,0)
    dot x,y-1,rgb(160,95,0)
  next count
  
  for count=1 to 20
    x=rnd(64)
    y=rnd(64)
    dot x,y,rgb(170,120,70)
    dot x-1,y,rgb(175,120,35)
    dot x+1,y,rgb(175,120,35)
    dot x,y+1,rgb(175,120,35)
    dot x,y-1,rgb(175,120,35)
  next count
  
  tilenumbers(0,1)=findimage()
  get image tilenumbers(0,1),0,0,64,64,1



  tileobjects(1)=findobj()
  make object triangle tileobjects(1),0,0,0,0,0,0,0,0,0
    
  for count=1 to 99 step 2
    x#=rnd(1000)/1000.0
    y#=rnd(1000)/1000.0
    xo#=rnd(10)/1000.0
    yo#=rnd(10)/1000.0
    height#=(rnd(100)/1000.0)+0.3
    tempobj=findobj()
    make object triangle tempobj,xo#,0,yo#,-xo#,0,-yo#,(rnd(50)/1000.0)-0.025,height#,(rnd(50)/1000.0)-0.025
    tempmesh=findmesh()
    make mesh from object tempmesh,tempobj
    delete object tempobj
    add limb tileobjects(1),count,tempmesh
    offset limb tileobjects(1),count,x#,0,y#
    delete mesh tempmesh
    tempobj=findobj()
    make object triangle tempobj,xo#,0,yo#,-xo#,0,-yo#,(rnd(100)/1000.0)-0.025,height#,(rnd(100)/1000.0)-0.025
    tempmesh=findmesh()
    make mesh from object tempmesh,tempobj
    delete object tempobj
    add limb tileobjects(1),count+1,tempmesh
    offset limb tileobjects(1),count+1,x#,0,y#
    delete mesh tempmesh
  next count
  //tempmesh=findmesh()
  //make mesh from object tempmesh,tileobjects(1)
  //delete object tileobjects(1)
  //make object tileobjects(1),tempmesh,0
  //color object tileobjects(1),rgb(0,130,0)
  set object emissive tileobjects(1),rgb(0,55,0)
  set object diffuse tileobjects(1),rgb(0,45,0)
  set object ambience tileobjects(1),rgb(0,45,0)
  set object specular tileobjects(1),rgb(0,0,0)
  set object specular power tileobjects(1),0
  set object cull tileobjects(1),0
  set object normals tileobjects(1)
  hide object tileobjects(1)
  
  creatureobjects(0)=findobj()
  make object triangle creatureobjects(0),0,0,0,0,0,0,0,0,0
  tempobj=findobj()
  make object triangle tempobj,0,0,0,-0.03,0,-0.1,-0.08,0,-0.05
  tempobj2=findobj()
  make object triangle tempobj2,0,0,0,0.08,0,-0.05,0.03,0,-0.1
  tempmesh=findmesh()
  make mesh from object tempmesh,tempobj2
  add limb tempobj,1,tempmesh
  delete mesh tempmesh
  make mesh from object tempmesh,tempobj
  add limb creatureobjects(0),1,tempmesh
  delete mesh tempmesh
  delete object tempobj
  delete object tempobj2 
  
  make object triangle tempobj,0,0,0,-0.08,0,0.05,-0.03,0,0.1
  make object triangle tempobj2,0,0,0,0.03,0,0.1,0.08,0,0.05
  make mesh from object tempmesh,tempobj2
  add limb tempobj,1,tempmesh
  delete mesh tempmesh
  make mesh from object tempmesh,tempobj
  add limb creatureobjects(0),2,tempmesh
  delete mesh tempmesh
  delete object tempobj
  delete object tempobj2 
  
  set object cull creatureobjects(0),0
  set object normals creatureobjects(0)
  hide object creatureobjects(0)
  //position object creatureobjects(0),5,1,5
  //rotate limb creatureobjects(0),1,60,0,0
  //rotate limb creatureobjects(0),2,-60,0,0
  
type button
  text$ as string
  x as integer
  y as integer
  width as integer
  height as integer
  clickx as integer
  clicky as integer
  state as integer //0=none 1=over 2=clicked
endtype

type creature
  posx# as float
  posy# as float
  posz# as float
  tilex as integer
  tiley as integer
  nextx as integer
  nexty as integer
  motion as integer //0=still 1=moving
  variation as integer
  creatureobj as integer
  obj as integer
endtype

type tool
  tileset as integer
  index as integer
  tooltype as integer //0-erase all objects 1-place tile 2-place object 3-erase object 4-add creature
  imagenum as integer
  tooltip$ as string
endtype


dim buttons(0) as button

dim creatures(0) as creature

dim heightmap(width+1,height+1)
dim tilemap(width,height)
dim objectmap(width,height)
dim mapobjects(width,height,3)

dim tools(5) as tool


tools(0).tooltype=0
tools(0).imagenum=findimage()
tools(0).tooltip$="Erase all objects"
ink rgb(25,50,100),0
box 0,0,50,50
ink rgb(255,128,128),0
line 7,23,15,15
line 15,15,40,40
line 40,40,32,48
line 32,48,7,23
line 7,23,12,13
line 15,15,20,5
line 40,40,45,30
line 12,13,20,5
line 20,5,45,30
get image tools(0).imagenum,0,0,50,50,1

tools(1).tooltype=1
tools(1).imagenum=findimage()
tools(1).tileset=0
tools(1).index=0
tools(1).tooltip$="Place grass tile"
sprite 1,0,0,tilenumbers(0,0)
paste sprite 1,0,0
delete sprite 1
get image tools(1).imagenum,0,0,50,50,1

tools(2).tooltype=1
tools(2).imagenum=findimage()
tools(2).tileset=0
tools(2).index=1
tools(2).tooltip$="Place dirt tile"
sprite 1,0,0,tilenumbers(0,1)
paste sprite 1,0,0
delete sprite 1
get image tools(2).imagenum,0,0,50,50,1

tools(3).tooltype=4
tools(3).imagenum=findimage()
tools(3).index=0
tools(3).tooltip$="Place butterfly creature"
ink rgb(25,50,100),0
box 0,0,50,50
ink rgb(255,255,255),0
line 10,23,25,35
line 25,35,20,17
line 20,17,10,23

line 40,23,25,35
line 25,35,30,17
line 30,17,40,23
get image tools(3).imagenum,0,0,50,50,1

tools(4).tooltype=2
tools(4).imagenum=findimage()
tools(4).index=1
tools(4).tooltip$="Place grass object"
ink rgb(25,50,100),0
box 0,0,50,50

for count=1 to 30
  x=rnd(50)
  ink rgb(0,100+rnd(50),0),0
  line x,50,x+(rnd(6)-3),15+rnd(5)
next count
get image tools(4).imagenum,0,0,50,50,1


for countx=0 to width-1
  for county=0 to height-1
    tilemap(countx,county)=-1
    objectmap(countx,county)=-1
  next county
next countx

for countx=0 to width-1
  for county=0 to height-1
    maketile(countx,county)
  next county
next countx

for countx=0 to width-1
  for county=0 to height-1
    changetile(countx,county,0,0,1)
  next county
next countx


  

changetile(1,0,0,1,0)
changetile(1,1,0,1,0)
changetile(1,2,0,1,0)
changetile(1,3,0,1,0)
changetile(1,4,0,1,0)
changetile(2,4,0,1,0)
changetile(3,4,0,1,0)
changetile(3,5,0,1,0)
changetile(4,5,0,1,0)
changetile(5,5,0,1,0)
changetile(6,5,0,1,0)
changetile(6,4,0,1,0)
changetile(6,3,0,1,0)
changetile(6,2,0,1,0)
changetile(5,4,0,0,0)
changetile(5,3,0,0,0)
changetile(5,2,0,0,0)
update=1

position camera 0,3,-2
point camera 0,0,0
camx#=1
camz#=0
camrot#=0
campitch#=25
camdist#=5

dim clouds(40)

for count=0 to 39
  clouds(count)=makecloud(rnd(400)-200,10,rnd(400)-200)
next count

for count=0 to 2
  addcreature(rnd(9),rnd(9),0)
next count

tempobj=findobj()
make object cylinder tempobj,0.2
scale object tempobj,100,500,100
position object tempobj,4,0.5,2
color object tempobj,rgb(150,100,0)
set object ambience tempobj,rgb(150,100,0)

for count=0 to 20
  tempobj=findobj()
  make object sphere tempobj,0.6
  position object tempobj,4+((rnd(1000)/1000.0)*0.6)-0.3,1.2+((rnd(1000)/1000.0)*0.4)-0.2,2+((rnd(1000)/1000.0)*0.6)-0.3
  color object tempobj,rgb(0,60,0)
  set object ambience tempobj,rgb(0,60,0)
next count


cursorx=1
cursorz=1

cursorobj=findobj()
make object sphere cursorobj,0.05
tempobj=findobj()
make object sphere tempobj,0.05
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
add limb cursorobj,1,tempmesh
add limb cursorobj,2,tempmesh
add limb cursorobj,3,tempmesh
offset limb cursorobj,1,1,0,0
offset limb cursorobj,2,1,0,1
offset limb cursorobj,3,0,0,1
delete mesh tempmesh
delete object tempobj
make object cylinder tempobj,0.02
scale object tempobj,100,5000,100
make mesh from object tempmesh,tempobj
add limb cursorobj,4,tempmesh
add limb cursorobj,5,tempmesh
add limb cursorobj,6,tempmesh
add limb cursorobj,7,tempmesh
offset limb cursorobj,4,1,0,0.5
rotate limb cursorobj,4,90,0,0
offset limb cursorobj,5,0,0,0.5
rotate limb cursorobj,5,90,0,0
offset limb cursorobj,6,0.5,0,1
rotate limb cursorobj,6,90,90,0
offset limb cursorobj,7,0.5,0,0
rotate limb cursorobj,7,90,90,0




delete mesh tempmesh
delete object tempobj
make mesh from object tempmesh,cursorobj
delete object cursorobj
make object cursorobj,tempmesh,0
delete mesh tempmesh


position object cursorobj,cursorx,0.05,cursorz
color object cursorobj,rgb(50,100,200)
set object ambience cursorobj,rgb(50,100,200)
//ghost object on cursorobj,1


windscroll=addbutton(sw-240,sh-45,25,25,"")


windangle#=0
windspeed#=0.5
grassbendrot#=0
grassbendx#=0
grassbendz#=0

turnlength#=1
turntime#=0
turn#=0

lefttool=1
righttool=2

oldtime=timer()

do
  temptime=timer()
  time#=(temptime-oldtime)/1000.0
  oldtime=temptime

  turntime#=turntime#+time#
  turn#=turntime#/turnlength#
  
  
  clicked=0
  movingcam=0
  lmb=0
  mmb=0
  rmb=0

  mv=mouseclick()
  if int(mv/8)=1
    mv=mv-8
  endif
  if int(mv/4)=1
    mv=mv-4
    mmb=1
  endif
  if int(mv/2)=1
    mv=mv-2
    rmb=1
  endif
  if mv=1
    lmb=1
  endif 
  mx=mousex()
  my=mousey()
  
  if (controlkey()) OR (mmb=1)
    movingcam=1
    if leftkey()
      camrot#=wrapvalue(camrot#+(70.0*time#))
    endif
    if rightkey()
      camrot#=wrapvalue(camrot#-(70.0*time#))
    endif
    if shiftkey()
      if upkey()
        camdist#=camdist#-(5.0*time#)
        if camdist#<1.5 then camdist#=1.5
      endif
      if downkey()
        camdist#=camdist#+(5.0*time#)
        if camdist#>50 then camdist#=50
      endif
    else
      if upkey()
        campitch#=campitch#+(50.0*time#)
        if campitch#>90 then campitch#=90
      endif
      if downkey()
        campitch#=campitch#-(50.0*time#)
        if campitch#<5 then campitch#=5
      endif
    endif
  else 
    if leftkey()
      camx#=camx#+(sin(camrot#-90)*time#*5)
      camz#=camz#+(cos(camrot#-90)*time#*5)
    endif
    if rightkey()
      camx#=camx#+(sin(camrot#+90)*time#*5)
      camz#=camz#+(cos(camrot#+90)*time#*5)
    endif
    if upkey()
      camx#=camx#+(sin(camrot#)*time#*5)
      camz#=camz#+(cos(camrot#)*time#*5)
    endif
    if downkey()
      camx#=camx#+(sin(camrot#+180)*time#*5)
      camz#=camz#+(cos(camrot#+180)*time#*5)
    endif
  endif
  
  if mx<20
    camx#=camx#+(sin(camrot#-90)*time#*(20-mx)*0.25)
    camz#=camz#+(cos(camrot#-90)*time#*(20-mx)*0.25) 
  endif
  if mx>(sw-20)
    camx#=camx#+(sin(camrot#+90)*time#*(mx-(sw-20))*0.25)
    camz#=camz#+(cos(camrot#+90)*time#*(mx-(sw-20))*0.25) 
  endif
  if my<20
    camx#=camx#+(sin(camrot#)*time#*(20-my)*0.25)
    camz#=camz#+(cos(camrot#)*time#*(20-my)*0.25) 
  endif
  if my>(sh-20)
    camx#=camx#+(sin(camrot#+180)*time#*(my-(sh-20))*0.25)
    camz#=camz#+(cos(camrot#+180)*time#*(my-(sh-20))*0.25) 
  endif
  
  position camera camx#,0,camz# 
  xrotate camera campitch#
  yrotate camera camrot#
  move camera -camdist#
  
      closest=1
  cursorx=-1
  cursory=-1
  if movingcam=0
    obj=pick object (mx,my,mapobjects(0,0,0),mapobjects(width-1,height-1,1))
    if obj<>0
      cursorx=object position x(obj)
      cursorz=object position z(obj)
      position object cursorobj,cursorx,0.025,cursorz
      show object cursorobj
      text sw-150,10,"cursor x: "+str$(cursorx)
      text sw-150,30,"cursor y: "+str$(cursorz)
    else
      hide object cursorobj
    endif
  else
    hide object cursorobj
  endif
  
  
  for count=0 to array count(buttons(0))-1
    if ((mx>buttons(count).x) AND (mx<(buttons(count).x+buttons(count).width))) AND ((my>buttons(count).y) AND (my<(buttons(count).y+buttons(count).height)))
      if lmb=1
        if buttons(count).state<>2
          buttons(count).clickx=mx-buttons(count).x
          buttons(count).clicky=my-buttons(count).y
          
        endif
        clicked=1
        buttons(count).state=2
      else
        buttons(count).state=1
      endif
    else
      buttons(count).state=0
    endif
  next count
  
  //windangle#=0
  //grassbendrot#=0
  //grassbendx#=0
  //grassbendz#=0

  if buttons(windscroll).state=2
    windspeed#=(int(((245-(sw-(mx-buttons(windscroll).clickx)))/10.0)*2.0))/2.0
  endif
  if windspeed#<0 then windspeed#=0
  if windspeed#>20 then windspeed#=20
  buttons(windscroll).x=sw-(245-(windspeed#*10.0))
  
  grassbendrot#=grassbendrot#+((time#*30)*(windspeed#*2))
  grassbendx#=sin(windangle#)*((sin(grassbendrot#)*(((5)/(windspeed#))+1.0))-(windspeed#*1.5))
  grassbendz#=cos(windangle#)*((sin(grassbendrot#)*(((5)/(windspeed#))+1.0))-(windspeed#*1.5))
  
  for count=0 to 39
    if windspeed#<>0
      cx#=object position x(clouds(count))+(cos(windangle#)*((windspeed#/2.0)+0.5)*time#)
      cz#=object position z(clouds(count))-(sin(windangle#)*((windspeed#/2.0)+0.5)*time#)
    else
      cx#=object position x(clouds(count))
      cz#=object position z(clouds(count))
    endif
    if cx#>200 then cx#=-200
    if cx#<-200 then cx#=200
    if cz#>200 then cz#=-200
    if cz#<-200 then cz#=200
    position object clouds(count),cx#,10,cz#
  next count
  
  for count=1 to 100
    rotate limb tileobjects(1),count,grassbendx#,0,grassbendz#
  next count
  
  if turn#>1
    turn#=turn#-1.0
    turntime#=turntime#-turnlength#
    for count=0 to array count(creatures(0))-1
      creatures(count).motion=0//rnd(1)
      creatures(count).variation=rnd(4)
    next count
  endif
  
  text 10,50,str$(turn#)
  for count=0 to array count(creatures(0))-1
    select creatures(count).creatureobj
      case 0 //butterfly
        if creatures(count).motion=0
          rotate limb creatures(count).obj,1,60,0,0 
          rotate limb creatures(count).obj,2,-60,0,0
          if objectmap(creatures(count).tilex,creatures(count).tiley)=1
            creatures(count).posx#=(creatures(count).tilex+0.5)-(sin(grassbendz#)*0.3)
            creatures(count).posz#=(creatures(count).tiley+0.5)+(sin(grassbendx#)*0.3)
            creatures(count).posy#=cos(grassbendz#)*cos(grassbendx#)*0.3
          else
            creatures(count).posx#=(creatures(count).tilex+0.5)
            creatures(count).posz#=(creatures(count).tiley+0.5)
            creatures(count).posy#=0
          endif
          if creatures(count).variation=0
            rotate limb creatures(count).obj,1,(1.0+((sin(turn#*360)-abs(sin(turn#*360)))/2.0))*(60),0,0 
            rotate limb creatures(count).obj,2,(1.0+((sin(turn#*360)-abs(sin(turn#*360)))/2.0))*(-60),0,0
          endif
        else
        endif
        position object creatures(count).obj,creatures(count).posx#,creatures(count).posy#,creatures(count).posz# 
      endcase
    endselect
  next count

  ink rgb(63,125,250),0
  line sw-245,sh-19,sw-20,sh-19
  line sw-19,sh-20,sw-19,sh-45
  line sw-245,sh-46,sw-20,sh-46
  line sw-246,sh-45,sw-246,sh-20
  
  placetooltip=0
  for count=0 to array count(tools(0))-1
    px=20
    py=(count*55)+150
    ink rgb(50,100,200),0
    paste image tools(count).imagenum,px,py
    if ((mx>px) AND (mx<(px+50))) AND ((my>py) AND (my<(py+50)))
      line px,py,px+50,py
      line px+50,py,px+50,py+50
      line px+50,py+50,px,py+50
      line px,py+50,px,py
      ink rgb(25,50,100),0
      line px-1,py-1,px+51,py-1
      line px+51,py-1,px+51,py+51
      line px+51,py+51,px-1,py+51
      line px-1,py+51,px-1,py-1
      placetooltip=1
      tooltip$=tools(count).tooltip$
      if lmb=1
        lefttool=count
        clicked=1
      endif
      if rmb=1
        righttool=count
        clicked=1
      endif
    endif
  next count
  
  
  if placetooltip=1
    ink rgb(13,25,50),0
    text mx+10,my+3,tooltip$
  endif
  
  paste image tools(lefttool).imagenum,25,sh-160
  paste image tools(righttool).imagenum,85,sh-160
  
  
  ink rgb(63,125,250),0
  line 60,sh-100,100,sh-100
  line 100,sh-100,100,sh-45
  line 100,sh-45,90,sh-35
  line 90,sh-35,70,sh-35
  line 70,sh-35,60,sh-45
  line 60,sh-45,60,sh-100
  line 60,sh-75,100,sh-75
  line 80,sh-75,80,sh-100
  
  if ((cursorx>-1) AND (cursorz>-1)) AND (clicked=0)
    toolnum=-1
    newclick=0
    if (lmb=1)
      toolnum=lefttool
      if leftbutton=0 then newclick=1
      leftbutton=1
    else
      leftbutton=0
    endif
    if (rmb=1)  
      toolnum=righttool
      if rightbutton=0 then newclick=1
      rightbutton=1
    else
      rightbutton=0
    endif
    if (toolnum<>-1)     
      select tools(toolnum).tooltype 
        case 0:
          changetile(cursorx,cursorz,-1,-1,0)
        endcase
        case 1:
          changetile(cursorx,cursorz,tools(toolnum).tileset,tools(toolnum).index,-1)
        endcase
        case 2:
          changetile(cursorx,cursorz,-1,-1,1)
        endcase
        case 4:
          if newclick=1
            addcreature(cursorx,cursorz,tools(toolnum).index)
          endif
        endcase
      endselect
    endif
  endif


  for count=0 to array count(buttons(0))-1
    if buttons(count).state=0
      ink rgb(50,100,200),0
    else
      ink rgb(55,110,220),0
    endif
    box buttons(count).x+1,buttons(count).y+1,(buttons(count).x+buttons(count).width),(buttons(count).y+buttons(count).height)
    if buttons(count).state=2
      ink rgb(37,75,150),0
    else
      ink rgb(64,128,255),0
    endif
    line buttons(count).x,buttons(count).y,buttons(count).x,buttons(count).y+buttons(count).height
    line buttons(count).x,buttons(count).y,buttons(count).x+buttons(count).width,buttons(count).y
    if buttons(count).state=2
      ink rgb(64,128,255),0
    else
      ink rgb(37,75,150),0      
    endif
    line buttons(count).x,buttons(count).y+buttons(count).height,buttons(count).x+buttons(count).width,buttons(count).y+buttons(count).height
    line buttons(count).x+buttons(count).width,buttons(count).y,buttons(count).x+buttons(count).width,buttons(count).y+buttons(count).height 
  next count

  ink rgb(64,128,255),0
  if sqrt(((sw-350.0-mx)*(sw-350.0-mx))+((sh-70.0-my)*(sh-70.0-my)))<50
    circle sw-350,sh-70,51  
    ink rgb(50,100,200),0
    if lmb=1
      windangle#=wrapvalue((atanfull(my-(sh-70.0),mx-(sw-350.0)))+camrot#)
    endif
  endif
  circle sw-350,sh-70,50

  ink rgb(64,128,255),0
  line sw-350,sh-70,(sw-350)+(cos(windangle#-camrot#)*50.0),(sh-70)+(sin(windangle#-camrot#)*50.0)
  line (sw-350)+(cos(windangle#-camrot#)*50.0),(sh-70)+(sin(windangle#-camrot#)*50.0),(sw-350)+(cos((windangle#-camrot#)+8.0)*45.0),(sh-70)+(sin((windangle#-camrot#)+8.0)*45.0)
  line (sw-350)+(cos(windangle#-camrot#)*50.0),(sh-70)+(sin(windangle#-camrot#)*50.0),(sw-350)+(cos((windangle#-camrot#)-8.0)*45.0),(sh-70)+(sin((windangle#-camrot#)-8.0)*45.0)
  
  ink rgb(37,75,150),0
  text sw-420,sh-140,"Wind Direction: "+str$(windangle#,2)+" degrees"
  text sw-180,sh-65,"Wind Speed: "+str$(windspeed#)
  text 10,10,"Framerate: "+str$(screen fps())+" fps"
    
  sync
loop





function addbutton(x,y,width,height,text$)
  array insert at bottom buttons(0)
  ret=array count(buttons(0))-1
  buttons(ret).x=x
  buttons(ret).y=y
  buttons(ret).width=width
  buttons(ret).height=height
  buttons(ret).text$=text$
endfunction ret

function addcreature(tilex,tiley,creatureobj)
  array insert at bottom creatures(0)
  ret=array count(creatures(0))-1
  creatures(ret).tilex=tilex
  creatures(ret).tiley=tiley
  creatures(ret).creatureobj=creatureobj
  creatures(ret).motion=0
  creatures(ret).posx#=tilex+0.5
  creatures(ret).posy#=0
  creatures(ret).posz#=tiley+0.5
  creatures(ret).obj=findobj()
  clone object creatures(ret).obj,creatureobjects(creatureobj)
  position object creatures(ret).obj,creatures(ret).posx#,creatures(ret).posy#,creatures(ret).posz#
endfunction ret

function makecloud(x,y,z)
  ret=findobj()
  make object sphere ret,2
  xrange#=2.0+((rnd(1000)/1000.0)*5.0)
  zrange#=2.0+((rnd(1000)/1000.0)*5.0)
  yrange#=0.5+((rnd(1000)/1000.0)*1.0)
  for count=1 to (13+rnd(5))
    tempobj=findobj()
    make object sphere tempobj,2
    tempmesh=findmesh()
    make mesh from object tempmesh,tempobj
    add limb ret,count,tempmesh
    delete object tempobj
    delete mesh tempmesh
    offset limb ret,count,((rnd(1000)/1000.0)*xrange#)-(xrange#/2),((rnd(1000)/1000.0)*yrange#)-(yrange#/2),((rnd(1000)/1000.0)*zrange#)-(zrange#/2)
  next count
  position object ret,x,y,z
  set object emissive ret,rgb(100,100,100)
endfunction ret

function gettileset(x,y)
  ret=int(tilemap(x,y)/16)
endfunction ret

function gettile(x,y)
  ret=tilemap(x,y)-(int(tilemap(x,y)/16)*16)
endfunction ret

function changetile(x,y,tileset,tile,object)
  if tileset<>-1 
    if tilemap(x,y)<>(tileset*16)+tile 
      texture object mapobjects(x,y,0),tilenumbers(tileset,tile)
      texture object mapobjects(x,y,1),tilenumbers(tileset,tile)
      tilemap(x,y)=(tileset*16)+tile
    endif
  endif
  if object<>-1 
    if objectmap(x,y)<>object
      if object<>0 
        if mapobjects(x,y,2)<>0
          if object exist(mapobjects(x,y,2))=1
            delete object mapobjects(x,y,2)
          endif
        endif
        mapobjects(x,y,2)=findobj()
        instance object mapobjects(x,y,2),tileobjects(object)
        position object mapobjects(x,y,2),x,0,y
      else
        if mapobjects(x,y,2)<>0
          if object exist(mapobjects(x,y,2))=1
            delete object mapobjects(x,y,2)
            mapobjects(x,y,2)=0
          endif
        endif
      endif
      objectmap(x,y)=object
    endif
  endif
  
endfunction

function maketile(x,y)
  mapobjects(x,y,0)=findobj()
  make object triangle mapobjects(x,y,0),0,heightmap(x,y),0,0,heightmap(x,y+1),1,1,heightmap(x+1,y+1),1
  position object mapobjects(x,y,0),x,0,y
  mapobjects(x,y,1)=findobj()
  make object triangle mapobjects(x,y,1),0,heightmap(x,y),0,1,heightmap(x+1,y+1),1,1,heightmap(x+1,y),0
  tempmesh=findmesh()
  make mesh from object tempmesh,mapobjects(x,y,1)
  lock vertexdata for mesh tempmesh
  set vertexdata uv 0,0,0
  set vertexdata uv 1,1,1
  set vertexdata uv 2,0,1
  
  
  unlock vertexdata
  
  delete object mapobjects(x,y,1)
  make object mapobjects(x,y,1),tempmesh,0
  position object mapobjects(x,y,1),x,0,y
  delete mesh tempmesh 
endfunction

function findobj()
res=1
while object exist(res)=1
res=res+1
endwhile
endfunction res

function findmesh()
res=1
while mesh exist(res)=1
res=res+1
endwhile
endfunction res

function findimage()
  ret=1
  while image exist(ret)=1
    ret=ret+1
  endwhile
endfunction ret

function sqr(value)
ret=value*value
endfunction ret

display_mode()

Global tile
Global tile_texture
Global xchar#
Global zchar#
Global xcam#
Global ycam#
Global zcam#

xchar# = 50
zchar# = 35

xcam# = 61
ycam# = 30
zcam# = 35

dim tile(300,300)
dim tile_texture(300,300)


create_images()
set_textures()
place_tiles()
create_character()


REM /////////////////////////////////////////////
REM //         MAIN PROGRAM LOOP               //
REM /////////////////////////////////////////////
Sync Rate 70

Position Camera 61,30,35
Rotate Camera 61,0,0
Position Object char_hat,xchar,0,zchar

do

   if UpKEY() = 1
      inc zchar#,0.25
      rotate object char_hat,0,0,0
   endif

   if downKEY() = 1
      dec zchar#,0.25
      rotate object char_hat,0,-180,0
   endif

   if rightkey() = 1
      inc xchar#,0.25
      if upkey() = 0 then rotate object char_hat,0,90,0
      if upkey() = 1 then rotate object char_hat,0,45,0
      if downkey() = 1 then rotate object char_hat,0,135,0
   endif

   if leftkey() = 1
      dec xchar#,0.25
      if upkey() = 0 then rotate object char_hat,0,-90,0
      if upkey() = 1 then rotate object char_hat,0,-45,0
      if downkey() = 1 then rotate object char_hat,0,-135,0
   endif

   Position Object char_hat,xchar#,5,zchar#
   Position Camera xchar#,30,zchar#-10





   sync

loop

REM /////////////////////////////////////////////
REM //      END OF MAIN LOOP                   //
REM /////////////////////////////////////////////

function create_character()

   Global char_hat
   char_hat = free_object()
   Make Object Cone char_hat,1
   scale object char_hat,100,200,100
   Make Mesh From Object 1000,char_hat
   Delete Object char_hat
   Make Object char_hat,1000,0
   root_obj = char_hat
   color object root_obj,RGB(150,150,0)
   Scale Object root_obj,125,85,125
   Delete Mesh 1000

   Global char_body
   Global limb_body
   char_body = free_object()
   limb_body = free_limb(root_obj)
   Make Object Box char_body,1.75,2.5,1
   Make Mesh from object 1000,char_body
   Delete Object char_body
   add limb root_obj,limb_body,1000
   Color limb root_obj,limb_body,RGB(0,50,200)
   Delete mesh 1000
   offset limb root_obj,limb_body,0,-3,0

   Global char_head
   Global limb_head
   char_head = free_object()
   limb_head = free_limb(root_obj)
   Make Object Sphere char_head,1
   Make Mesh From Object 1000,char_head
   Delete Object char_head
   Add limb root_obj,limb_head,1000
   Color limb root_obj,limb_head,RGB(0,0,0)
   Offset limb root_obj,limb_head,0,-1,0
   Delete Mesh 1000

   Global char_cape
   Global limb_cape
   char_cape = free_object()
   limb_cape = free_limb(root_obj)
   Make Object box char_cape,2,2.5,0.1
   Make Mesh From Object 1000,char_cape
   Delete Object char_cape
   add limb root_obj,limb_cape,1000
   Delete Mesh 1000
   Offset Limb root_obj,limb_cape,0,-3,-1
   Rotate Limb root_obj,limb_cape,25,0,0
   Color limb root_obj,limb_cape,RGB(150,0,0)



endfunction

function place_tiles()

   for y = 1 to 20
      for x = 1 to 20
         tile(x,y) = free_object()
         Make Object Box tile(x,y),5,0.1,5
         Position Object tile(x,y),x*5,0,y*5
         if tile_texture(x,y) = grass then Texture Object tile(x,y),grass
         if tile_texture(x,y) = water then Texture Object tile(x,y),water
         if tile_texture(x,y) = dirt then Texture Object tile(x,y),dirt
         if tile_texture(x,y) = stone then Texture Object tile(x,y),stone
      next x
      sync
   next y

endfunction

function set_textures()

   for y = 1 to 2
      for x = 1 to 20
         tile_texture(x,y) = water
      next x
   next y

   for y = 3 to 3
      for x = 1 to 20
         tile_texture(x,y) = dirt
      next x
   next y

   for y = 4 to 20
      for x = 1 to 20
         tile_texture(x,y) = grass
      next x
   next y

   for y = 10 to 14
      for x = 10 to 14
         tile_texture(x,y) = stone
      next x
   next y
cls

endfunction

function create_images()

   REM CREATE STONE
   box 0,0,50,50
   for a = 1 to 120
      x = rnd(50) : y = rnd(50)
      for i = 1 to 6
         ink rgb(139,142,151),1
         if i  = 6 then ink RGB(50,50,50),1
         ellipse x,y,i,i
      next i
      x = rnd(50) : y = rnd(50)
      for i = 1 to 6
         ink rgb(146,143,165),1
         if i  = 6 then ink RGB(50,50,50),1
         ellipse x,y,i,i
      next i
   next a
   Global stone
   stone = free_image()
   get image stone,0,0,50,50
   CLS

   REM CREATE WATER
   ink rgb(0,155,203),1
   box 0,0,50,50
   for a = 1 to 100
      ink RGB(0,131,176),1
      x = RND(50) : y = RND(50)
      for i = 1 to 4
         ellipse x,y,i,i
      next i
      x = RND(50) : y = RND(50)
      ink rgb(167,202,230),1
      ellipse x,y,1,1
   next a
   global water
   water = free_image()
   get image water,0,0,50,50
   CLS

   REM CREATE THE GRASS TILE
   ink rgb(23,52,16),1
   box 0,0,50,50
   for a = 1 to 100
      ink RGB(104,145,43),1
      x = RND(50) : y = RND(50)
      line x,y,x,y-5
      line x+1,y-5,x+1,y-7
      x = RND(50) : y = RND(50)
      ink RGB(43,88,15),1
      line x,y,x,y-5
      line x+1,y-5,x+1,y-7
      ink rgb(17,62,19),1
      x = RND(50) : y = RND(50)
      line x-1,y,x-1,y-2
      line x-1,y-5,x-1,y-3
   next a
   Blur Bitmap 0,2
   Global grass
   grass = free_image()
   get image grass,0,0,50,50
   CLS

   REM CREATE THE DIRT TEXTURE
   ink rgb(50,24,0),1
   box 0,0,50,50
   for a = 1 to 200
      INK RGB(55,22,2),1
      x = RND(50) : y = RND(50)
      dot x,y
      Ink Rgb(148,103,62),1
      x = RND(50) : y = RND(50)
      dot x,y
      Ink Rgb(99,64,38),1
      x = RND(50) : y = RND(50)
      dot x,y
   next a
   Blur Bitmap 0,2
   Global dirt
   dirt = free_image()
   get image dirt,0,0,50,50
   cls

endfunction

REM FIND A FREE MESH
function free_mesh()

   repeat
      inc n,1
   until mesh exist(n) = 0

endfunction n

REM FIND A FREE LIMB NUMBER
function free_limb(obj)

   repeat
      inc n,1
   until limb exist(obj,n) = 0

endfunction n

REM FIND A FREE SPRITE NUMBER
function free_sprite()

   repeat
      inc n,1
   until sprite exist(n) = 0

endfunction n

REM FIND A FREE IMAGE NUMBER
function free_image()

   repeat
      inc n,1
   until image exist(n) = 0

endfunction n

REM FIND A FREE OBJECT
function free_object()

   repeat
      inc n,1
   until object exist(n) = 0

endfunction n

REM SET UP THE DISPLAY MODE
function display_mode()

   SET DISPLAY MODE 1024,769,32
   Sync On
   Color Backdrop RGB(0,0,0)

endfunction

Pricey's X Adventure!

set display mode 1024,768,32
backdrop on
color backdrop 0
sync rate 60
sync on
rem Images
global minimize=1
global maximize=2
global close=3
global window=4
global okbutton=5
global Cminimize=6
global Cmaximize=7
global Cclose=8
global Cwindow=9
global Cokbutton=10
global tinybutton=11
global Ctinybutton=12
global cancelbutton=13
global Ccancelbutton=14
global alert=15
global confirm=16
global prompt=17
global promptfield=18
global Imenu=19
rem Sprites
global popup=1
global click=2
global menu=3
global field=4
rem Variables
global popup_drag=0
global popup_offx
global popup_offy
global click_ok=0
global click_close=0
global click_cancel=0
global popup_type=0
global prompt_input$=""
global promptfieldw
global dim cur$(1)
cur$(0)=" "
cur$(1)="_"

make_buttons()
make_menu()
while not escapekey()
  mouse_input()
  keyboard_input()
  sync
endwhile
end

function keyboard_input()
  i$=entry$()
  if (popup_type>0)
    if popup_type=3
      if i$<>""
        if (asc(i$)>31 and asc(i$)<124)
          prompt_input$=prompt_input$+i$
        endif
        if asc(i$)=8 and len(prompt_input$)>0
          prompt_input$=left$(prompt_input$,len(prompt_input$)-1)
        endif
      endif
      blink=int((timer() mod 1000)/500)
      set current bitmap promptfield
      ink rgb(255,255,255),0:box 0,0,promptfieldw,16
      ink 0,0:set cursor 0,0:print prompt_input$;cur$(blink)
      get image promptfield,0,0,promptfieldw,16,3
      set current bitmap 0
      sprite field,sprite x(popup)+22,sprite y(popup)+112,promptfield
    endif
  else
    if i$="1"
      popup_type=1
      alert("AceLepage Alert","This is an alert. Click OK to continue.")
    endif
    if i$="2"
      popup_type=2
      confirm("AceLepage Confirm","Please confirm this window.")
    endif
    if i$="3"
      popup_type=3
      prompt("AceLepage Prompt","Enter your response below")
    endif
  endif
  clear entry buffer
endfunction

function make_menu()
  create bitmap 1,200,100
  ink rgb(255,255,255),0:set text font "arial":set text size 16
  text 0,0,"1) Open an 'alert' popup window"
  text 0,15,"2) Open a 'confirm' popup window"
  text 0,30,"3) Open a 'prompt' popup window"
  text 0,45,"ESC) Exit"
  text 0,75,"You can click and drag the popups"
  get image Imenu,0,0,200,100,3
  delete bitmap 1
  sprite menu,0,0,Imenu
endfunction
function mouse_input()
  if mouseclick()=1
    userx=mousex()
    usery=mousey()
    if sprite exist(popup)
      if popup_drag=0
        if sprite visible(popup)
          popupx=sprite x(popup):popupy=sprite y(popup):popupw=sprite width(popup)
          if (userx>popupx+2) and (usery>popupy+2) and (userx<popupx+popupw-18) and (usery<popupy+20)
            popup_drag=1:popup_offx=userx-popupx:popup_offy=usery-popupy
          endif
          if popup_type=1
            if (userx>popupx+popupw/2-35) and (usery>popupy+100) and (userx<popupx+popupw/2+35) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-35,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=2
            if (userx>popupx+popupw/2-72) and (usery>popupy+100) and (userx<popupx+popupw/2-2) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-72,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw/2+2) and (usery>popupy+100) and (userx<popupx+popupw/2+72) and (usery<popupy+125)
              click_cancel=1
              sprite click,popupx+popupw/2+2,popupy+100,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=3
            if (userx>popupx+popupw-80) and (usery>popupy+40) and (userx<popupx+popupw-10) and (usery<popupy+65)
              click_ok=1
              sprite click,popupx+popupw-80,popupy+40,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw-80) and (usery>popupy+70) and (userx<popupx+popupw-10) and (usery<popupy+95)
              click_cancel=1
              sprite click,popupx+popupw-80,popupy+70,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if (userx>popupx+popupw-18) and (usery>popupy+2) and (userx<popupx+popupw-2) and (usery<popupy+18)
            click_close=1
            sprite click,popupx+popupw-17,popupy+4,Cclose
            show sprite click
            set sprite priority click,1
          endif
        endif
      else
        sprite popup,userx-popup_offx,usery-popup_offy,alert
        if sprite exist(field)
          sprite field,userx-popup_offx+22,usery-popup_offy+112,promptfield
        endif
      endif
    endif
  else
    popup_drag=0
    if click_close=1 or click_ok=1 or click_cancel=1
      hide sprite click
      hide sprite popup:delete sprite popup
      if sprite exist(field)
        hide sprite field:delete sprite field
      endif
      click_close=0:click_ok=0:click_cancel=0:popup_type=0
    endif
  endif
endfunction

function alert(title$,message$)
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem OK button
  paste image okbutton,width/2-35,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
endfunction
function confirm(title$,message$)
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width/2-72,100
  paste image cancelbutton,width/2+2,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
endfunction
function prompt(title$,message$)
  width=100+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width-80,40
  paste image cancelbutton,width-80,70
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:text 20,50, message$
  rem Close window button
  paste image close,width-18,4
  rem Prompt field
  ink rgb(255,255,255),0:box 22,112,width-22,128:line 20,130,width-20,130:line width-20,110,width-20,130
  ink rgb(64,64,64),0:line 20,110,20,130:line 21,111,21,129:line 20,110,width-20,110:line 21,111,width-21,111
  get image alert,0,0,width,150,3
  delete bitmap 1
  promptfieldw=width-44
  create bitmap promptfield,promptfieldw,16
  ink rgb(255,255,255),0:box 0,0,promptfieldw,16
  get image promptfield,0,0,promptfieldw,16,3
  set current bitmap 0
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  set sprite priority popup,1
  sprite field,(screen width()-width)/2+22,screen height()/2+37,promptfield
  set sprite priority field,2
endfunction
function make_buttons()
  create bitmap 1,16,16
  rem Blank clicked button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 0,0,15,0:line 0,0,0,15
  ink rgb(255,255,255),0:line 1,14,14,14:line 14,1,14,14
  get image Ctinybutton,0,0,15,15,3
  rem Blank button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 1,14,14,14:line 14,1,14,14
  ink rgb(255,255,255),0:line 0,0,15,0:line 0,0,0,15
  get image tinybutton,0,0,15,15,3
  rem Minimize button
  ink 0,0:box 5,10,10,12
  get image minimize,0,0,15,15,3
  paste image Ctinybutton,0,0
  box 5,10,10,12
  get image Cminimize,0,0,15,15,3

  rem Maximize button
  paste image tinybutton,0,0
  ink 0,0:box 3,3,11,5:line 3,3,3,11:line 3,11,11,11:line 11,3,11,11
  get image maximize,0,0,15,15,3
  paste image Ctinybutton,0,0
  box 3,3,11,5:line 3,3,3,11:line 3,11,11,11:line 11,3,11,11
  get image Cmaximize,0,0,15,15,3

  rem Close button
  paste image tinybutton,0,0
  ink 0,0:line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image close,0,0,15,15,3
  paste image Ctinybutton,0,0
  line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image Cclose,0,0,15,15,3

  rem Window button
  paste image tinybutton,0,0
  ink 0,0:line 2,8,2,12:line 2,12,8,12:line 8,8,8,12:box 2,5,9,8:line 9,9,11,9:line 11,3,11,9:line 5,3,5,5:box 5,2,12,4
  get image window,0,0,15,15,3
  paste image Ctinybutton,0,0
  ink 0,0:line 2,8,2,12:line 2,12,8,12:line 8,8,8,12:box 2,5,9,8:line 9,9,11,9:line 11,3,11,9:line 5,3,5,5:box 5,2,12,4
  get image Cwindow,0,0,15,15,3

  delete bitmap 1

  rem OK button
  create bitmap 1,70,26
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"OK"
  get image okbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Cokbutton,0,0,70,26,3
  rem Cancel button
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"Cancel"
  get image cancelbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Ccancelbutton,0,0,70,26,3
  delete bitmap 1
endfunction

set display mode 1024,768,32
backdrop on
color backdrop 0
sync rate 60
sync on
rem Images
global close=3
global okbutton=5
global Cclose=8
global Cokbutton=10
global tinybutton=11
global Ctinybutton=12
global cancelbutton=13
global Ccancelbutton=14
global alert=15
global confirm=16
global prompt=17
global promptfield=18
global Imenu=19
rem Sprites
global popup=1
global click=2
global menu=3
global field=4
rem Variables
global popup_drag=0
global popup_offx
global popup_offy
global click_ok=0
global click_close=0
global click_cancel=0
global popup_type=0
global prompt_input$=""
global promptfieldw
global pressenter
global dim cur$(1)
cur$(0)=" "
cur$(1)="_"

make_buttons()
response=0
while response=0
  response$=prompt("AceLepage Prompt","Enter your name below")
  alert("AceLepage Alert","You typed in "+response$)
  response=confirm("AceLepage Confirm","Exit program now?")
endwhile
end

function keyboard_input()
  i$=entry$()
  if (popup_type>0)
    if popup_type=3
      if i$<>""
        if (asc(i$)>31 and asc(i$)<124)
          prompt_input$=prompt_input$+i$
        endif
        if asc(i$)=8 and len(prompt_input$)>0
          prompt_input$=left$(prompt_input$,len(prompt_input$)-1)
        endif
        if asc(i$)=13 then pressenter=1
      endif
      blink=int((timer() mod 1000)/500)
      set current bitmap promptfield
      ink rgb(255,255,255),0:box 0,0,promptfieldw,16
      ink 0,0:set cursor 0,0:print prompt_input$;cur$(blink)
      get image promptfield,0,0,promptfieldw,16,3
      set current bitmap 0
      sprite field,sprite x(popup)+22,sprite y(popup)+112,promptfield
    endif
  endif
  clear entry buffer
endfunction

function mouse_input()
  if mouseclick()=1 or pressenter=1
    userx=mousex()
    usery=mousey()
    if sprite exist(popup)
      if popup_drag=0
        if sprite visible(popup)
          popupx=sprite x(popup):popupy=sprite y(popup):popupw=sprite width(popup)
          if (userx>popupx+2) and (usery>popupy+2) and (userx<popupx+popupw-18) and (usery<popupy+20)
            popup_drag=1:popup_offx=userx-popupx:popup_offy=usery-popupy
          endif
          if popup_type=1
            if (userx>popupx+popupw/2-35) and (usery>popupy+100) and (userx<popupx+popupw/2+35) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-35,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=2
            if (userx>popupx+popupw/2-72) and (usery>popupy+100) and (userx<popupx+popupw/2-2) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-72,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw/2+2) and (usery>popupy+100) and (userx<popupx+popupw/2+72) and (usery<popupy+125)
              click_cancel=1
              sprite click,popupx+popupw/2+2,popupy+100,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=3
            if ((userx>popupx+popupw-80) and (usery>popupy+40) and (userx<popupx+popupw-10) and (usery<popupy+65)) or pressenter=1
              click_ok=1
              pressenter=0
              sprite click,popupx+popupw-80,popupy+40,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw-80) and (usery>popupy+70) and (userx<popupx+popupw-10) and (usery<popupy+95)
              click_cancel=1
              sprite click,popupx+popupw-80,popupy+70,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if (userx>popupx+popupw-18) and (usery>popupy+2) and (userx<popupx+popupw-2) and (usery<popupy+18)
            click_close=1
            sprite click,popupx+popupw-17,popupy+4,Cclose
            show sprite click
            set sprite priority click,1
          endif
        endif
      else
        sprite popup,userx-popup_offx,usery-popup_offy,alert
        if sprite exist(field)
          sprite field,userx-popup_offx+22,usery-popup_offy+112,promptfield
        endif
      endif
    endif
  else
    popup_drag=0
    if click_close=1 or click_ok=1 or click_cancel=1
      if click_ok=1
        result=1
      else
        result=0
      endif
      hide sprite click
      hide sprite popup:delete sprite popup
      if sprite exist(field)
        hide sprite field:delete sprite field
      endif
      click_close=0:click_ok=0:click_cancel=0:popup_type=0
    endif
  endif
endfunction result

function alert(title$,message$)
  popup_type=1
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem OK button
  paste image okbutton,width/2-35,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  while popup_type=1
    mouse_input()
    sync
  endwhile
endfunction
function confirm(title$,message$)
  popup_type=2
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width/2-72,100
  paste image cancelbutton,width/2+2,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  while popup_type=2
    result=mouse_input()
    sync
  endwhile
endfunction result
function prompt(title$,message$)
  popup_type=3
  prompt_input$=""
  width=100+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width-80,40
  paste image cancelbutton,width-80,70
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:text 20,50, message$
  rem Close window button
  paste image close,width-18,4
  rem Prompt field
  ink rgb(255,255,255),0:box 22,112,width-22,128:line 20,130,width-20,130:line width-20,110,width-20,130
  ink rgb(64,64,64),0:line 20,110,20,130:line 21,111,21,129:line 20,110,width-20,110:line 21,111,width-21,111
  get image alert,0,0,width,150,3
  delete bitmap 1
  promptfieldw=width-44
  create bitmap promptfield,promptfieldw,16
  ink rgb(255,255,255),0:box 0,0,promptfieldw,16
  get image promptfield,0,0,promptfieldw,16,3
  set current bitmap 0
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  set sprite priority popup,1
  sprite field,(screen width()-width)/2+22,screen height()/2+37,promptfield
  set sprite priority field,2
  clear entry buffer
  while popup_type=3
    keyboard_input()
    result=mouse_input()
    sync
  endwhile
  if result<>1
    prompt_input$=""
  endif
endfunction prompt_input$
function make_buttons()
  create bitmap 1,16,16
  rem Blank clicked button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 0,0,15,0:line 0,0,0,15
  ink rgb(255,255,255),0:line 1,14,14,14:line 14,1,14,14
  get image Ctinybutton,0,0,15,15,3
  rem Blank button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 1,14,14,14:line 14,1,14,14
  ink rgb(255,255,255),0:line 0,0,15,0:line 0,0,0,15
  get image tinybutton,0,0,15,15,3
  rem Close button
  paste image tinybutton,0,0
  ink 0,0:line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image close,0,0,15,15,3
  paste image Ctinybutton,0,0
  line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image Cclose,0,0,15,15,3

  delete bitmap 1

  rem OK button
  create bitmap 1,70,26
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"OK"
  get image okbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Cokbutton,0,0,70,26,3
  rem Cancel button
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"Cancel"
  get image cancelbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Ccancelbutton,0,0,70,26,3
  delete bitmap 1
endfunction

sync on : sync rate 60
color backdrop rgb(0,0,0)

remstart

ZWindow_MakeButton
ZWindow_MakeCheckbox
ZWindow_MakeText

ZWindow_Update

ZWindow_DeleteItem
ZWindow_LockItem
ZWindow_UnlockItem
ZWindow_PositionItem
ZWindow_SetItemLock

ZWindow_GetItemType
ZWindow_GetButtonState
ZWindow_GetCheckboxState
ZWindow_GetItemLocked

ZWindow_MouseOnSprite
ZWindow_WordWrap
ZWindow_OpenBitmap
ZWindow_OpenSprite
ZWindow_OpenImage

remend

`|===============================|
`/====== ZWINDOW VARIABLES ======

type ZWindow_ItemArray
    ItemType as byte
    Sprite1 as Integer
    Sprite2 as Integer
    Sprite3 as Integer
    Image1 as Integer
    Image2 as Integer
    Image3 as Integer
    Image4 as Integer
    Locked as Boolean
    Text$ as String
    Delimiter$ as String
    State as byte
    XPos as float
    YPos as float
endtype
global zwindow_NumberOfItems
global zwindow_clickedin
global zwindow_lines
global DIM ZWindow_Items(0) as ZWindow_ItemArray
CR$ = chr$(13)
LF$ = chr$(10)
#constant zwindow_LINEBREAK CR$+LF$

`======                   ======/
`|===============================|

CheckboxLabel=ZWindow_MakeText(0,0,"Lock button: ",10,10,80,210,110,0,100)
Button=ZWindow_MakeButton(0,0,0,0,"Click Me!",80,210,110,200,50,100,100,1)
Checkbox=ZWindow_MakeCheckbox(0,0,0,0,0,80,210,110,0,0,120,10)

do

if spacekey()=1 and pressed=0
    pressed=1
    if zwindow_GetItemLocked(Checkbox)=1
        zwindow_UnlockItem(Checkbox)
        else
        zwindow_LockItem(Checkbox)
    endif
endif
if scancode()=0 then pressed=0
ZWindow_SetItemLock(Button,ZWindow_GetCheckboxState(Checkbox))

ZWindow_Update()
sync
loop


`=====================================
`========== Functions! ===============

`***** ZWindow_MakeButton() *****
`This command will make a button with the specified properties and characteristics.

function ZWindow_MakeButton(SpriteNo,Image1,Image2,Image3,Label$,R,G,B,Width,Height,X,Y,Locked)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)

zwindow_MainColor=rgb(R,G,B)
zwindow_InnestColor=rgb(R+50,G+50,B+50)
zwindow_InnerColor=rgb(R+25,G+25,B+25)
zwindow_OuterColor=rgb(R-25,G-25,B-25)
zwindow_OutestColor=rgb(R-50,G-50,B-50)

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_InnestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_InnerColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_OutestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_OuterColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
text zwindow_labelxpos,zwindow_labelypos,Label$
if Image1=0 then Image1=ZWindow_OpenImage(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(200,200,200),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(175,175,175),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(100,100,100),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(125,125,125),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
ink rgb(200,200,200),0
text zwindow_labelxpos,zwindow_labelypos,Label$
if Image3=0 then Image3=ZWindow_OpenImage(1)
get image Image3,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
text zwindow_labelxpos+2,zwindow_labelypos+2,Label$
if Image2=0 then Image2=ZWindow_OpenImage(1)
get image Image2,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=1
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).Image2=Image2
ZWindow_Items(zwindow_NumberOfItems).Image3=Image3
ZWindow_Items(zwindow_NumberOfItems).Locked=Locked
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
SpriteNo=0 : Image1=0 : Image2=0 : Image3=0 : Image4=0

endfunction zwindow_NumberOfItems


`***** ZWindow_MakeCheckbox *****
`This command will create a checkbox with the specified properties
`It returns a handle you'll need to manipulate the checkbox

function ZWindow_MakeCheckbox(SpriteNo,Image1,Image2,Image3,Image4,R,G,B,State,Locked,X,Y)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)

zwindow_MainColor=rgb(R,G,B)
zwindow_InnestColor=rgb(R+50,G+50,B+50)
zwindow_InnerColor=rgb(R+25,G+25,B+25)
zwindow_OuterColor=rgb(R-25,G-25,B-25)
zwindow_OutestColor=rgb(R-50,G-50,B-50)

Width=20 : Height=20

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
if Image1=0 then Image1=ZWindow_OpenImage(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
line 3,3,Width-2,Height-2 : line 4,3,Width-2,Height-3 : line 3,4,Width-3,Height-2
line Width-2,3,3,Height-2 : line Width-3,3,3,Height-3 : line Width-2,4,4,Height-2
if Image2=0 then Image2=ZWindow_OpenImage(1)
get image Image2,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(100,100,100),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(125,125,125),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(200,200,200),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(175,175,175),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
if Image3=0 then Image3=ZWindow_OpenImage(1)
get image Image3,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(100,100,100),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(125,125,125),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(200,200,200),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(175,175,175),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
ink rgb(200,200,200),0
line 3,3,Width-2,Height-2 : line 4,3,Width-2,Height-3 : line 3,4,Width-3,Height-2
line Width-2,3,3,Height-2 : line Width-3,3,3,Height-3 : line Width-2,4,4,Height-2
if Image4=0 then Image4=ZWindow_OpenImage(1)
get image Image4,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=2
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).Image2=Image2
ZWindow_Items(zwindow_NumberOfItems).Image3=Image3
ZWindow_Items(zwindow_NumberOfItems).Image4=Image4
ZWindow_Items(zwindow_NumberOfItems).State=State
ZWindow_Items(zwindow_NumberOfItems).Locked=Locked
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
SpriteNo=0 : Image1=0 : Image2=0 : Image3=0 : Image4=0

endfunction zwindow_NumberOfItems


`***** ZWindow_MakeText *****
`This command will make some text with the specified properties, so it can be attached
`onto a window.

function ZWindow_MakeText(SpriteNo,Image1,Text$,X,Y,R,G,B,Shadow,Width)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)
zwindow_bitmap=ZWindow_OpenBitmap(1)

zwindow_Text$=ZWindow_WordWrap(Text$,Width)
Height=zwindow_lines*text height(zwindow_Text$)
zwindow_lines=0

create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink rgb(R,G,B),0
text 1,1,zwindow_Text$
if Image1=0 then Image1=ZWindow_OpenSprite(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=3
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
SpriteNo=0 : Image1=0

endfunction zwindow_NumberOfItems


`***** ZWindow_Update *****
`This command will automatically update all items based on mouseclicks

function ZWindow_Update()
ink rgb(200,200,200),0
for c=1 to zwindow_NumberOfItems
    Select ZWindow_Items(c).ItemType
        Case 1
            if ZWindow_Items(c).Locked=0
                if mouseclick()=1 and ZWindow_MouseOnSprite(ZWindow_Items(c).Sprite1)=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image2
                    ZWindow_Items(c).State=1
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
                    ZWindow_Items(c).State=0
                endif
                else
                sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image3
            endif
        Endcase
        Case 2
            if ZWindow_Items(c).Locked=0
                if ZWindow_MouseOnSprite(ZWindow_Items(c).Sprite1)=1 and mouseclick()=1 and zwindow_clickedin=0
                    zwindow_clickedin=1
                    ZWindow_Items(c).State=1-(ZWindow_Items(c).State)
                endif
                if ZWindow_Items(c).State=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image2
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
                endif
                else
                if ZWindow_Items(c).State=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image4
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image3
                endif
            endif
        Endcase
        Case 3
            Sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
        Endcase
    Endselect
next c
if mouseclick()=0 then zwindow_clickedin=0
endfunction


`***** ZWindow_DeleteItem *****
`This command will delete the specified item

function ZWindow_DeleteItem(ID)

ZWindow_Items(ID).ItemType=0
if sprite exist(ZWindow_Items(ID).Sprite1)=1 then delete sprite ZWindow_Items(ID).Sprite1
if sprite exist(ZWindow_Items(ID).Sprite2)=1 then delete sprite ZWindow_Items(ID).Sprite2
if sprite exist(ZWindow_Items(ID).Sprite3)=1 then delete sprite ZWindow_Items(ID).Sprite3
if image exist (ZWindow_Items(ID).Image1)=1 then delete image ZWindow_Items(ID).Image1
if image exist (ZWindow_Items(ID).Image2)=1 then delete image ZWindow_Items(ID).Image2
if image exist (ZWindow_Items(ID).Image3)=1 then delete image ZWindow_Items(ID).Image3
if image exist (ZWindow_Items(ID).Image4)=1 then delete image ZWindow_Items(ID).Image4

endfunction


`***** ZWindow_GetButtonState *****
`This command will return a 1 if the button is pressed

function ZWindow_GetButtonState(ID)
if ZWindow_Items(ID).State=1 and ZWindow_Items(ID).ItemType=1
    exitfunction 1
endif
endfunction 0


`***** ZWindow_GetCheckboxState *****
`This command returns a 1 if the checkbox is checked

function ZWindow_GetCheckboxState(ID)
if ZWindow_Items(ID).State=1 and ZWindow_Items(ID).ItemType=2
    exitfunction 1
endif
endfunction 0


`**** ZWindow_GetItemLocked *****
`This command will return a 1 if the specified item is locked

function ZWindow_GetItemLocked(ID)
returnforzwindow=ZWindow_Items(ID).Locked
endfunction returnforzwindow


`***** ZWindow_LockItem *****
`This command will lock the item so the user cannot alter it

function ZWindow_LockItem(ID)
ZWindow_Items(ID).Locked=1
endfunction


`***** ZWindow_UnlockItem *****
`This command will unlock the specified item so the user can aler it

function ZWindow_UnlockItem(ID)
ZWindow_Items(ID).Locked=0
endfunction

`***** ZWindow_SetItemLock *****
`This command will lock or unlock the item.  A 1 locks it, a 0 unlocks it.

function ZWindow_SetItemLock(ID,LockState)
if LockState=0 then ZWindow_UnlockItem(ID)
if LockState=1 then ZWindow_LockItem(ID)
endfunction


`***** ZWindow_GetItemType *****
`This command will return a 1 if the item is a button, 2 for checkbox, 3 for radio
`button, 4 for Entry Line, 5 for Entry Field, 6 for numeric Entry Line, 7 for dropdowm
`menu, and 8 for text.

function ZWindow_GetItemType(ID)
returnforzwindow=ZWindow_Items(ID).ItemType
endfunction returnforzwindow


`***** ZWindow_PositionItem *****
`This command will set the item's position

function ZWindow_PositionItem(ID,X,Y)
ZWindow_Items(ID).XPos=X
ZWindow_Items(ID).YPos=Y
endfunction


`***** Other Functions *****
`These are mostly just to supplement the commands above

function ZWindow_MouseOnSprite(spriteno)
if mousex()>sprite x(spriteno)
    if mousex()<sprite x(spriteno)+sprite width(spriteno)
        if mousey()<sprite y(spriteno)+sprite height(spriteno)
            if mousey()>sprite y(spriteno)
                exitfunction 1
            endif
        endif
    endif
endif
endfunction 0

function ZWindow_WordWrap(s$,Width)
EndPosition=Width
zwindow_lines=1
if text width(s$)<EndPosition
   exitfunction s$
endif
for lg=1 to len(s$)
   currentchar$=mid$(s$,lg)
   currentword$=currentword$+currentchar$
   if currentchar$=" " or currentchar$="," or currentchar$="." or currentchar$="/" or currentchar$="-" or currentchar$="_" or currentchar$="?" or currentchar$="!"
      currentline$=currentline$+currentword$
      if text width(currentline$)>EndPosition
         currentline$=left$(currentline$,(len(currentline$)-len(currentword$)))
         WrappedString$=WrappedString$+currentline$+zwindow_LINEBREAK
         currentline$=currentword$
         inc zwindow_lines
      endif
      currentword$=""
   endif
next lg
if currentline$=""
   currentline$=""
   else
   WrappedString$=WrappedString$+currentline$
   inc zwindow_lines
endif
currentline$=""
currentword$=""
endfunction WrappedString$

function ZWindow_OpenBitmap(Start)
zwindow_bitmapnumber=Start
repeat
    inc zwindow_bitmapnumber
until bitmap exist(zwindow_bitmapnumber)=0
endfunction zwindow_bitmapnumber

function ZWindow_OpenImage(Start)
zwindow_imagenumber=Start
repeat
    inc zwindow_imagenumber
until image exist(zwindow_imagenumber)=0
endfunction zwindow_imagenumber

function ZWindow_OpenSprite(Start)
zwindow_spritenumber=Start
repeat
    inc zwindow_spritenumber
until sprite exist(zwindow_spritenumber)=0
endfunction zwindow_spritenumber

display_mode()
gui_config()

REM window(X SIZE, Y SIZE, X POSITION, Y POSITION, WINDOW TITLE)
window(200,600,1,0,"Control Pannel")

REM button(X SIZE, Y SIZE,X BUTTON OFFSET, Y BUTTON OFFSET, TEXT)
button(90,20,10,10,"Zoom Out")
button(90,20,10,35,"Zoom In")
button(90,20,10,60,"New Window")
button(90,20,10,85,"White BG")
button(90,20,10,110,"Black BG")
button(90,20,10,135,"Transparent")
button(90,20,10,160,"Invisible")
button(90,20,10,185,"Solid")


Position Camera 0,0,-10
global z#
z# = -10
make object sphere 1,2

do

   REM Draws all active elements
   GUI()
   position camera 0,0,z#
   sync

loop

function GUI()

   for id = 1 to win_id
      draw_window(id,win_x(id),win_y(id),win_xpos(id),win_ypos(id),win_title$(id))

      REM If the window has any buttons then draw them
      if button_count(id) > 0
         for a = 1 to button_count(id) ` From the first button to the last in window
             draw_button(a,id,button_x(id,a),button_y(id,a),button_xpos(id,a)+win_xpos(id),button_ypos(id,a)+win_ypos(id),button_title$(id,a))
         next a
      endif

      REM Drag the window
      if win_drag(id) = 1 then drag(id,click_x,click_y)
   next id

endfunction

function message(title$,msg$)
   window(400,150,screen width()/2-200,screen height()/2-75,title$)
endfunction

function draw_window(id,x,y,xpos,ypos,title$)

   if win_drag(id) = 0
      if win_drag(id) = 0 and dragging = 0
         if mouseclick() = 1
            if mouseX()>=xpos and mouseX()<=x+xpos
               if mouseY()>=ypos and mouseY()<=ypos+16
                  win_drag(id) = 1
                  click_x = mouseX() - xpos
                  click_y = mouseY() - ypos
                  dragging = 1
               endif
            endif
         endif
      endif
   endif

endfunction

function draw_button(a,id,x,y,xpos,ypos,title$)

      if mouseX()>=xpos and mouseX()<=x+xpos
         if mouseY()>=ypos and mouseY()<=ypos+16
            Hide Sprite spr_button(id,a)
            Show Sprite spr_button_h(id,a)
            if mouseclick() = 1 and dragging = 0
               if title$ = "Zoom Out" then dec z#,0.1
               if title$ = "New Window" then window(300,200,xpos,ypos,"window")
               if title$ = "Zoom In" then inc z#,0.1
               if title$ = "White BG" then color backdrop RGB(255,255,255)
               if title$ = "Black BG" then color backdrop RGB(0,0,0)
               if title$ = "Transparent" then Set Sprite Alpha id,150
               if title$ = "Invisible" then Set Sprite Alpha id,0
               if title$ = "Solid" then set Sprite Alpha id,255
            endif
         else
            Hide sprite spr_button_h(id,a)
            Show Sprite spr_button(id,a)
         endif
         else
            Hide sprite spr_button_h(id,a)
            Show Sprite spr_button(id,a)
      endif

endfunction

function drag(id,x,y)

   win_xpos(id) = mouseX() - x
   win_ypos(id) = mouseY() - y

   ink rgb (100,100,100),1

   Lock pixels
   for xpos = win_xpos(id) to win_xpos(id)+win_x(id) step 3
      dot xpos,win_ypos(id)
      dot xpos-1,win_ypos(id)+1
      dot xpos,win_ypos(id)+win_y(id)
      dot xpos-1,win_ypos(id)+win_y(id)+1
   next xpos

   for ypos = win_ypos(id) to win_ypos(id)+win_y(id) step 3
      dot win_xpos(id),ypos
      dot win_xpos(id)-1,ypos+1
      dot win_xpos(id)+win_x(id),ypos
      dot win_xpos(id)+win_x(id)-1,ypos+1
   next ypos
   Unlock pixels

   if mouseclick() = 0
      win_drag(id) = 0
      dragging = 0
      show sprite spr_window(id)
      sprite spr_window(id),win_xpos(id),win_ypos(id),img_window(id)

      REM If the window has any buttons then draw them
      for a = 1 to button_count(id)
         if button_count(id) > 0
            sprite spr_button(id,a),win_xpos(id)+button_xpos(id,a),win_ypos(id)+button_ypos(id,a),img_button(id,a)
            sprite spr_button_h(id,a),win_xpos(id)+button_xpos(id,a),win_ypos(id)+button_ypos(id,a),img_button_h(id,a)
         endif
      next a
   endif

endfunction

function button(x,y,xpos,ypos,title$)

   if button_count(win_id) = 0 then button_id = 1

   button_x(win_id,button_id) = x
   button_y(win_id,button_id) = y
   button_xpos(win_id,button_id) = xpos+win_xpos(win_id)
   button_ypos(win_id,button_id) = ypos+win_ypos(win_id)+16
   button_title$(win_id,button_id) = title$

   lock pixels
   ink rgb(133,133,133),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(67,67,67),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(25,25,25),1
   text xpos+6,ypos+2,title$
   ink rgb(255,255,255),1
   text xpos+5,ypos+1,title$
   unlock pixels

   img_button(win_id,button_id) = free_image()
   spr_button(win_id,button_id) = free_sprite()
   get image img_button(win_id,button_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_button(win_id,button_id),button_xpos(win_id,button_id),button_ypos(win_id,button_id),img_button(win_id,button_id)
   hide sprite spr_button(win_id,button_id)
   CLS

   lock pixels
   ink rgb(100,200,100),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(50,100,50),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(25,25,25),1
   text xpos+6,ypos+2,title$
   ink rgb(255,255,255),1
   text xpos+5,ypos+1,title$
   unlock pixels

   img_button_h(win_id,button_id) = free_image()
   spr_button_h(win_id,button_id) = free_sprite()
   get image img_button_h(win_id,button_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_button_h(win_id,button_id),button_xpos(win_id,button_id),button_ypos(win_id,button_id),img_button_h(win_id,button_id)
   Hide Sprite spr_button_h(win_id,button_id)

   Rem Number of buttons to this window
   button_count(win_id) = button_id
   if button_count(win_id) > 0 then inc button_id,1

endfunction

function window(x,y,xpos,ypos,title$)

   REM Insert window information into variables
   inc win_id,1

   win_x(win_id) = x
   win_y(win_id) = y
   win_xpos(win_id) = xpos
   win_ypos(win_id) = ypos
   win_title$(win_id) = title$

   Lock Pixels
   REM Draw window border
   ink rgb(133,133,133),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(1,1,1),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(133,133,133),1
   `for a = 1 to 10
      `line xpos+x-a,ypos+y-1,xpos+x,ypos+y-a-1
   `next a

   REM Make title bar
   ink rgb(133,133,133),1
   line xpos,ypos+16,xpos+x,ypos+16
   ink rgb(67,67,67),1
   box xpos+1,ypos+1,xpos+x-1,ypos+16
   ink rgb(25,25,25),1
   text xpos+5,ypos+2,title$
   ink rgb(255,255,255),1
   text xpos+4,ypos,title$
   Unlock Pixels
   img_window(win_id) = free_image()
   spr_window(win_id) = free_sprite()
   get image img_window(win_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_window(win_id),xpos,ypos,img_window(win_id)


endfunction

function gui_config()

   Global dragging
   Global img_window
   Global spr_window
   Global win_id
   Global win_title$
   Global win_message$
   Global win_x
   Global win_y
   Global win_xpos
   Global win_ypos
   Global win_drag
   Global click_y
   Global click_x

   Global button_id
   Global button_count
   Global button_title$
   Global button_x
   Global button_y
   Global button_xpos
   Global button_ypos
   Global img_button_h
   Global spr_button_h
   Global img_button
   Global spr_button

   Dim spr_window(50)               ` Window sprite
   Dim img_window(50)               ` Window image
   Dim win_title$(50)               ` Window title
   Dim win_message$(50)             ` Message string for use of the message() function
   Dim win_x(50)                    ` Length of window in pixels
   Dim win_y(50)                    ` Height of window in pixels
   Dim win_xpos(50)                 ` Window position relative to screen in x axis
   Dim win_ypos(50)                 ` Window position relative to screen in y axis
   Dim win_drag(50)                 ` Boolean for window drag

   Dim button_count(50)             ` Number of buttons to a particular window
   Dim button_title$(50,50)         ` Button text
   Dim button_x(50,50)              ` Length of button in pixels
   Dim button_y(50,50)              ` Height of button in pixels
   Dim button_xpos(50,50)           ` Button offset relative to window by pixels in x axis
   Dim button_ypos(50,50)           ` Button offset relative to window by pixels in y axis
   Dim spr_button_h(50,50)          ` Button sprite on a mouse over
   Dim img_button_h(50,50)          ` Button image containing graphic for a mouse over
   Dim spr_button(50,50)            ` Button sprite
   Dim img_button(50,50)            ` Button image graphic

   Set Text Font "Tahoma"
   Set text size 17

endfunction

function free_image()

   repeat
      inc n,1
   until image exist(n) = 0

endfunction n

function free_sprite()

   repeat
      inc n,1
   until sprite exist(n) = 0

endfunction n

function display_mode()

   SYNC ON
   SET DISPLAY MODE 1024,768,32
   Color backdrop 0

endfunction

display_mode()
gui_config()

REM window(X SIZE, Y SIZE, X POSITION, Y POSITION, WINDOW TITLE)
window(200,600,1,1,"Control Panel")

REM button(X SIZE, Y SIZE,X BUTTON OFFSET, Y BUTTON OFFSET, TEXT)
button(90,20,10,10,"Zoom Out")
button(90,20,10,35,"Zoom In")
button(90,20,10,60,"New Window")
button(90,20,10,85,"White BG")
button(90,20,10,110,"Black BG")
button(90,20,10,135,"Transparent")
button(90,20,10,160,"Invisible")
button(90,20,10,185,"Solid")

window(100,60,screen width()-150,screen height()-60,"")
button(90,20,0,0,"Show CP")
window_invis(win_id)


Position Camera 0,0,-10
global z#
z# = -10
make object sphere 1,2

do

   REM Draws all active elements
   GUI()
   position camera 0,0,z#
   sync

loop

function GUI()

   for id = 1 to win_id
      if win_close(id) = 0
      draw_window(id,win_x(id),win_y(id),win_xpos(id),win_ypos(id),win_title$(id))

      `if win_close(id) = 1 then close_window(id)
      REM If the window has any buttons then draw them
      if button_count(id) > 0
         for a = 1 to button_count(id) ` From the first button to the last in window
             draw_button(a,id,button_x(id,a),button_y(id,a),button_xoffset(id,a)+win_xpos(id),button_yoffset(id,a)+win_ypos(id),button_title$(id,a))
         next a
      endif
      REM Drag the window
      if win_drag(id) = 1 then drag(id,click_x,click_y)
      endif
   next id

endfunction

function message(title$,msg$)
   window(400,150,screen width()/2-200,screen height()/2-75,title$)
endfunction

function draw_window(id,x,y,xpos,ypos,title$)

   if win_drag(id) = 0
      if win_drag(id) = 0 and dragging = 0
         if mouseclick() = 1
            if mouseX()>=xpos and mouseX()<=x+xpos-15
               if mouseY()>=ypos and mouseY()<=ypos+16
                  win_drag(id) = 1
                  click_x = mouseX() - xpos
                  click_y = mouseY() - ypos
                  dragging = 1
               endif
            endif
         endif
      endif
   endif

endfunction

function draw_button(a,id,x,y,xpos,ypos,title$)

   REM If the window is being dragged then no other buttons will function and if
   REM the window is close then all buttons will not be drawn
      if dragging = 0 and win_close(id) = 0
         if mouseX()>=xpos and mouseX()<=x+xpos
            if mouseY()>=ypos and mouseY()<=ypos+16
               Hide Sprite spr_button(id,a)
               Show Sprite spr_button_h(id,a)
               if mouseclick() = 1 and dragging = 0
                  if title$ = "Zoom Out" then dec z#,0.1
                  if title$ = "New Window"
                     window(300,200,xpos,ypos,"window")
                     button(90,20,10,10,"Transparent")
                     button(90,20,10,35,"Invisible")
                     button(90,20,10,60,"Solid")
                  endif
                  if title$ = "Show CP"
                     win_close(1) = 0
                     show sprite spr_window(1)
                  endif
                  if title$ = "Zoom In" then inc z#,0.1
                  if title$ = "White BG" then color backdrop RGB(255,255,255)
                  if title$ = "Black BG" then color backdrop RGB(0,0,0)
                  if title$ = "Transparent"
                     Set Sprite Alpha spr_window(id),150
                     for a = 1 to 1
                        Set Sprite Alpha spr_button(id,a),75
                        sprite spr_button(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button(id,a)
                        sprite spr_button_h(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button_h(id,a)
                     next a
                  endif
                  if title$ = "Invisible" then window_invis(id)
                  if title$ = "Solid"
                     set Sprite Alpha spr_window(id),255
                     invisible = 0
                  REM If the window has any buttons then draw them
                  for a = 1 to button_count(id)
                        Set Sprite Alpha spr_button(id,a),255
                        Set Sprite Alpha spr_button_h(id,a),255
                        sprite spr_button(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button(id,a)
                        sprite spr_button_h(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button_h(id,a)
                  next a
                  endif
                  if title$ = "x" then close_window(id)
               endif
            else
               Hide sprite spr_button_h(id,a)
               Show Sprite spr_button(id,a)
            endif
            else
               Hide sprite spr_button_h(id,a)
               Show Sprite spr_button(id,a)
         endif
      endif

endfunction

function window_invis(id)
                     Set Sprite Alpha spr_window(id),0
                     REM If the window has any buttons then hide them
                     Global invisible
                     invisible = 1
                     if invisible = 1
                        if button_count(id) > 0
                           for a = 1 to 1 ` the top three button
                              sprite spr_button(id,a),-100,0,img_button(id,a)
                              sprite spr_button_h(id,a),-100,0,img_button(id,a)
                           next a
                        endif
                     endif
endfunction
function close_window(id)

   win_close(id) = 1
   Hide Sprite spr_window(id)
   `Hide Sprite spr_button(id,1)

   REM If the window has any buttons then hide them
   if button_count(id) > 0
      for a = 1 to button_count(id) ` From the first button to the last in window
         Hide Sprite spr_button(id,a)
         Hide Sprite spr_button_h(id,a)
      next a
   endif


endfunction

function drag(id,x,y)

   win_xpos(id) = mouseX() - x
   win_ypos(id) = mouseY() - y

   ink rgb (100,100,100),1

   Lock pixels
   for xpos = win_xpos(id) to win_xpos(id)+win_x(id) step 3
      dot xpos,win_ypos(id)
      dot xpos-1,win_ypos(id)+1
      dot xpos,win_ypos(id)+win_y(id)
      dot xpos-1,win_ypos(id)+win_y(id)+1
   next xpos

   for ypos = win_ypos(id) to win_ypos(id)+win_y(id) step 3
      dot win_xpos(id),ypos
      dot win_xpos(id)-1,ypos+1
      dot win_xpos(id)+win_x(id),ypos
      dot win_xpos(id)+win_x(id)-1,ypos+1
   next ypos
   Unlock pixels

   if mouseclick() = 0
      win_drag(id) = 0
      dragging = 0
      show sprite spr_window(id)
      sprite spr_window(id),win_xpos(id),win_ypos(id),img_window(id)

      REM If the window has any buttons then draw them
      for a = 1 to button_count(id)
         if button_count(id) > 0
            sprite spr_button(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button(id,a)
            sprite spr_button_h(id,a),win_xpos(id)+button_xoffset(id,a),win_ypos(id)+button_yoffset(id,a),img_button_h(id,a)
         endif
      next a
   endif

endfunction

function button(x,y,xpos,ypos,title$)

   if button_count(win_id) = 0 then button_id = 1

   button_x(win_id,button_id) = x
   button_y(win_id,button_id) = y
   button_xpos(win_id,button_id) = xpos+win_xpos(win_id)
   button_ypos(win_id,button_id) = ypos+win_ypos(win_id)+16
   button_title$(win_id,button_id) = title$
   button_xoffset(win_id,button_id) = xpos
   button_yoffset(win_id,button_id) = ypos + 16
   if title$ = "x" then button_yoffset(win_id,button_id) = ypos
   if title$ = "o" then button_yoffset(win_id,button_id) = ypos
   if title$ = "_" then button_yoffset(win_id,button_id) = ypos
   if title$ = "x" then button_ypos(win_id,button_id) = ypos+win_ypos(win_id)
   if title$ = "o" then button_ypos(win_id,button_id) = ypos+win_ypos(win_id)
   if title$ = "_" then button_ypos(win_id,button_id) = ypos+win_ypos(win_id)

   lock pixels
   ink rgb(133,133,133),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(67,67,67),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(25,25,25),1
   if title$ <> "x" and title$ <> "o" and title$ <>  "_" then text xpos+6,ypos+2,title$
   ink rgb(255,255,255),1

   REM if the button is a close button
   if title$ = "x"
      Line xpos+2,ypos+2,xpos+x-2,ypos+y-2
      Line xpos+x-2,ypos+2,xpos+2,ypos+y-2
   endif

   REM if the button is a maximize button

   if title$ = "o"
      Line xpos+2,ypos+2,xpos+x-2,ypos+2 ` top line 1
      Line xpos+2,ypos+3,xpos+x-2,ypos+3 ` top line 2
      Line xpos+2,ypos+3,xpos+2,ypos+y-2 ` left line
      Line xpos+x-2,ypos+2,xpos+x-2,ypos+y-2 ` right line
      Line xpos+2,ypos+y-2,xpos+x-2,ypos+y-2 ` bottom line
   endif


   Rem if the button is a minimize button
   if title$ = "_"
      Line xpos+2,ypos+y-3,xpos+x-2,ypos+y-3 ` bottom line 1
      Line xpos+2,ypos+y-2,xpos+x-2,ypos+y-2 ` bottom line 2
   endif

   if title$ <> "x" and title$ <> "o" and title$ <> "_" then text xpos+5,ypos+1,title$

   unlock pixels

   img_button(win_id,button_id) = free_image()
   spr_button(win_id,button_id) = free_sprite()
   get image img_button(win_id,button_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_button(win_id,button_id),button_xpos(win_id,button_id),button_ypos(win_id,button_id),img_button(win_id,button_id)
   hide sprite spr_button(win_id,button_id)
   CLS

   lock pixels
   ink rgb(100,200,100),1
   if title$ = "x" then ink rgb(200,50,50),1
   if title$ = "o" then ink rgb(50,200,50),1
   if title$ = "_" then ink rgb(50,50,200),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(50,100,50),1
   if title$ = "x" then ink rgb(255,50,50),1
   if title$ = "o" then ink rgb(50,255,50),1
   if title$ = "_" then ink rgb(50,50,255),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(25,25,25),1
   if title$ <> "x" and title$ <> "o" and title$ <> "_" then text xpos+6,ypos+2,title$
   ink rgb(255,255,255),1

   REM if the button is a close button
   if title$ = "x"
      Line xpos+2,ypos+2,xpos+x-2,ypos+y-2
      Line xpos+x-2,ypos+2,xpos+2,ypos+y-2
   endif

   REM if the button is a maximize button
   if title$ = "o"
      Line xpos+2,ypos+2,xpos+x-2,ypos+2 ` top line 1
      Line xpos+2,ypos+3,xpos+x-2,ypos+3 ` top line 2
      Line xpos+2,ypos+3,xpos+2,ypos+y-2 ` left line
      Line xpos+x-2,ypos+2,xpos+x-2,ypos+y-2 ` right line
      Line xpos+2,ypos+y-2,xpos+x-2,ypos+y-2 ` bottom line
   endif

   REM if the button is a minimize button
   if title$ = "_"
      Line xpos+2,ypos+y-3,xpos+x-2,ypos+y-3 ` bottom line 1
      Line xpos+2,ypos+y-2,xpos+x-2,ypos+y-2 ` bottom line 2
   endif
   if title$ <> "x" and title$ <> "o" and title$ <> "_" then text xpos+5,ypos+1,title$

   unlock pixels

   img_button_h(win_id,button_id) = free_image()
   spr_button_h(win_id,button_id) = free_sprite()
   get image img_button_h(win_id,button_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_button_h(win_id,button_id),button_xpos(win_id,button_id),button_ypos(win_id,button_id),img_button_h(win_id,button_id)
   Hide Sprite spr_button_h(win_id,button_id)

   Rem Number of buttons to this window
   button_count(win_id) = button_id
   if button_count(win_id) > 0 then inc button_id,1


endfunction

function window(x,y,xpos,ypos,title$)

   REM Insert window information into variables
   inc win_id,1

   win_x(win_id) = x
   win_y(win_id) = y
   win_xpos(win_id) = xpos
   win_ypos(win_id) = ypos
   win_title$(win_id) = title$

   Lock Pixels
   REM Draw window border
   ink rgb(133,133,133),1
   box xpos,ypos,xpos+x,ypos+y
   ink rgb(1,1,1),1
   box xpos+1,ypos+1,xpos+x-1,ypos+y-1
   ink rgb(133,133,133),1
   `for a = 1 to 10
      `line xpos+x-a,ypos+y-1,xpos+x,ypos+y-a-1
   `next a

   REM Make title bar
   ink rgb(133,133,133),1
   line xpos,ypos+16,xpos+x,ypos+16
   ink rgb(67,67,67),1
   box xpos+1,ypos+1,xpos+x-1,ypos+16
   ink rgb(25,25,25),1
   text xpos+5,ypos+2,title$
   ink rgb(255,255,255),1
   text xpos+4,ypos,title$
   Unlock Pixels
   img_window(win_id) = free_image()
   spr_window(win_id) = free_sprite()
   get image img_window(win_id),xpos,ypos,xpos+x,ypos+y
   sprite spr_window(win_id),xpos,ypos,img_window(win_id)

   button(13,13,x-15,2,"x")
   `button(13,13,x-30,2,"o")
   `button(13,13,x-45,2,"_")

endfunction

function gui_config()

   Global dragging
   Global img_window
   Global spr_window
   Global win_id
   Global win_title$
   Global win_message$
   Global win_x
   Global win_y
   Global win_xpos
   Global win_ypos
   Global win_drag
   Global click_y
   Global click_x
   Global win_close

   Global button_id
   Global button_count
   Global button_title$
   Global button_x
   Global button_y
   Global button_xoffset
   Global button_yoffset
   Global button_xpos
   Global button_ypos
   Global img_button_h
   Global spr_button_h
   Global img_button
   Global spr_button

   Dim spr_window(50)               ` Window sprite
   Dim img_window(50)               ` Window image
   Dim win_title$(50)               ` Window title
   Dim win_message$(50)             ` Message string for use of the message() function
   Dim win_x(50)                    ` Length of window in pixels
   Dim win_y(50)                    ` Height of window in pixels
   Dim win_xpos(50)                 ` Window position relative to screen in x axis
   Dim win_ypos(50)                 ` Window position relative to screen in y axis
   Dim win_drag(50)                 ` Boolean for window drag
   Dim win_close(50)

   Dim button_count(50)             ` Number of buttons to a particular window
   Dim button_title$(50,50)         ` Button text
   Dim button_x(50,50)              ` Length of button in pixels
   Dim button_y(50,50)              ` Height of button in pixels
   Dim button_xoffset(50,50)
   Dim button_yoffset(50,50)
   Dim button_xpos(50,50)           ` Button offset relative to window by pixels in x axis
   Dim button_ypos(50,50)           ` Button offset relative to window by pixels in y axis
   Dim spr_button_h(50,50)          ` Button sprite on a mouse over
   Dim img_button_h(50,50)          ` Button image containing graphic for a mouse over
   Dim spr_button(50,50)            ` Button sprite
   Dim img_button(50,50)            ` Button image graphic

   Set Text Font "Tahoma"
   Set text size 17

endfunction

function free_image()

   repeat
      inc n,1
   until image exist(n) = 0

endfunction n

function free_sprite()

   repeat
      inc n,1
   until sprite exist(n) = 0

endfunction n

function display_mode()

   SYNC ON
   SET DISPLAY MODE 1024,768,32
   Color backdrop 0

endfunction

set display mode 1024,768,32
backdrop on
color backdrop 0
sync rate 60
sync on
rem Images
global leftscroll=1
global rightscroll=2
global close=3
global folder=4
global okbutton=5
global Cleftscroll=6
global Crightscroll=7
global Cclose=8
global doc=9
global Cokbutton=10
global tinybutton=11
global Ctinybutton=12
global cancelbutton=13
global Ccancelbutton=14
global alert=15
global confirm=16
global prompt=17
global promptfield=18
global Imenu=19
global browse=20
rem Sprites
global popup=1
global click=2
global menu=3
global field=4
rem Variables
global popup_drag=0
global popup_offx
global popup_offy
global click_ok=0
global click_close=0
global click_cancel=0
global popup_type=0
global prompt_input$=""
global promptfieldw
global pressenter
global dim cur$(1)
cur$(0)=" "
cur$(1)="_"
global dim filelist$(1024)
global dim filetype(1024)
global files=0
global scrollx
global scrollsize
global listspace=14
global listcolumn=100
global unclick=0
global fileSelect$
global curpos


rem Main loop --------------------------
make_buttons()
response=0
while response=0
  filename$=choosefile("c:\")
  if (filename$<>"")
    response$=prompt("AceLepage Prompt","Enter a description for "+filename$)
  endif
  if response$=""
    if filename$=""
      alert("AceLepage Alert","No filename selected")
    else
      alert("AceLepage Alert","No description entered")
    endif
  else
    alert("AceLepage Alert","Description: "+response$)
  endif
  response=confirm("AceLepage Confirm","Exit program now?")
endwhile
end
rem End of Main loop --------------------

function keyboard_input()
  i$=entry$()
  if (popup_type>0)
    if popup_type=3
      if i$<>""
        if (asc(i$)>31 and asc(i$)<124)
          prompt_input$=prompt_input$+i$
        endif
        if asc(i$)=8 and len(prompt_input$)>0
          prompt_input$=left$(prompt_input$,len(prompt_input$)-1)
        endif
        if asc(i$)=13 then pressenter=1
      endif
      blink=int((timer() mod 1000)/500)
      set current bitmap promptfield
      ink rgb(255,255,255),0:box 0,0,promptfieldw,16
      ink 0,0:set cursor 0,0:print prompt_input$;cur$(blink)
      get image promptfield,0,0,promptfieldw,16,3
      set current bitmap 0
      sprite field,sprite x(popup)+22,sprite y(popup)+112,promptfield
    endif
  endif
  clear entry buffer
endfunction

function mouse_input()
  if mouseclick()=1 or pressenter=1
    userx=mousex()
    usery=mousey()
    if sprite exist(popup)
      if popup_drag=0
        if sprite visible(popup)
          popupx=sprite x(popup):popupy=sprite y(popup):popupw=sprite width(popup)
          if (userx>popupx+2) and (usery>popupy+2) and (userx<popupx+popupw-18) and (usery<popupy+20)
            popup_drag=1:popup_offx=userx-popupx:popup_offy=usery-popupy
          endif
          if popup_type=1
            if (userx>popupx+popupw/2-35) and (usery>popupy+100) and (userx<popupx+popupw/2+35) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-35,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=2
            if (userx>popupx+popupw/2-72) and (usery>popupy+100) and (userx<popupx+popupw/2-2) and (usery<popupy+125)
              click_ok=1
              sprite click,popupx+popupw/2-72,popupy+100,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw/2+2) and (usery>popupy+100) and (userx<popupx+popupw/2+72) and (usery<popupy+125)
              click_cancel=1
              sprite click,popupx+popupw/2+2,popupy+100,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=3
            if ((userx>popupx+popupw-80) and (usery>popupy+40) and (userx<popupx+popupw-10) and (usery<popupy+65)) or pressenter=1
              click_ok=1
              pressenter=0
              sprite click,popupx+popupw-80,popupy+40,Cokbutton
              show sprite click
              set sprite priority click,1
            endif
            if (userx>popupx+popupw-80) and (usery>popupy+70) and (userx<popupx+popupw-10) and (usery<popupy+95)
              click_cancel=1
              sprite click,popupx+popupw-80,popupy+70,Ccancelbutton
              show sprite click
              set sprite priority click,1
            endif
          endif
          if popup_type=4
            if ((userx>popupx+20) and (usery>popupy+30) and (userx<popupx+popupw-20) and (usery<popupy+232))
              xfile=int((userx-popupx-20)/listcolumn)+scrollx
              yfile=int((usery-popupy-36)/listspace)
              f=(int(200/listspace))*xfile+yfile
              if filetype(f)=1 and unclick=1
                getfiles(filelist$(f))
                showfiles()
                sprite browse,popupx+21,popupy+31,browse
                set current bitmap promptfield
                ink rgb(255,255,255),0:box 0,0,promptfieldw,16
                get image promptfield,0,0,promptfieldw,16,3
                set current bitmap 0
                sprite field,sprite x(popup)+22,sprite y(popup)+261,promptfield
                unclick=0
              endif
              if filetype(f)=0 and unclick=1
                set current bitmap promptfield
                ink rgb(255,255,255),0:box 0,0,promptfieldw,16
                ink 0,0:set cursor 1,0:print filelist$(f)
                fileSelect$=filelist$(f)
                get image promptfield,0,0,promptfieldw,16,3
                set current bitmap 0
                showfiles()
                sprite field,sprite x(popup)+22,sprite y(popup)+261,promptfield
                unclick=0
              endif
            endif
            if (userx>sprite x(browse)) and (usery>sprite y(browse)+sprite height(browse)-16) and (userx<sprite x(browse)+curpos) and (usery<sprite y(browse)+sprite height(browse)) and unclick=1
              dec scrollx
              if scrollx<0 then scrollx=0
              showfiles()
              unclick=0
            endif
            if (userx>sprite x(browse)+curpos+32) and (usery>sprite y(browse)+sprite height(browse)-16) and (userx<sprite x(browse)+sprite width(browse)) and (usery<sprite y(browse)+sprite height(browse)) and unclick=1
              inc scrollx
              if scrollx>int(files/listspace) then dec scrollx
              showfiles()
              unclick=0
            endif
            if (userx>popupx+popupw-160) and (usery>popupy+260) and (userx<popupx+popupw-90) and (usery<popupy+290)
              click_ok=1
              sprite click,popupx+popupw-160,popupy+260,Cokbutton
              show sprite click
              set sprite priority click,4
            endif
            if (userx>popupx+popupw-85) and (usery>popupy+260) and (userx<popupx+popupw-15) and (usery<popupy+290)
              click_cancel=1
              sprite click,popupx+popupw-85,popupy+260,Ccancelbutton
              show sprite click
              set sprite priority click,4
            endif
          endif
          if (userx>popupx+popupw-18) and (usery>popupy+2) and (userx<popupx+popupw-2) and (usery<popupy+18)
            click_close=1
            sprite click,popupx+popupw-17,popupy+4,Cclose
            show sprite click
            set sprite priority click,1
          endif
        endif
      else
        sprite popup,userx-popup_offx,usery-popup_offy,alert
        if sprite exist(field)
          if popup_type=3
            sprite field,userx-popup_offx+22,usery-popup_offy+112,promptfield
          endif
          if popup_type=4
            sprite field,sprite x(popup)+22,sprite y(popup)+261,promptfield
          endif
        endif
        if sprite exist(browse)
          sprite browse,userx-popup_offx+21,usery-popup_offy+31,browse
        endif
      endif
    endif
  else
    popup_drag=0
    if click_close=1 or click_ok=1 or click_cancel=1
      if click_ok=1
        result=1
      else
        result=0
      endif
      hide sprite click
      delete sprite popup
      if sprite exist(field)
        delete sprite field
      endif
      if sprite exist(browse)
        delete sprite browse
      endif
      click_close=0:click_ok=0:click_cancel=0:popup_type=0
    endif
    unclick=1
  endif
endfunction result

function alert(title$,message$)
  popup_type=1
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem OK button
  paste image okbutton,width/2-35,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  while popup_type=1
    mouse_input()
    sync
  endwhile
endfunction
function confirm(title$,message$)
  popup_type=2
  width=60+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width/2-72,100
  paste image cancelbutton,width/2+2,100
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:center text int(width/2),50, message$
  rem Close window button
  paste image close,width-18,4
  get image alert,0,0,width-1,149,3
  delete bitmap 1
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  while popup_type=2
    result=mouse_input()
    ink rgb(255,255,255),0
    sync
  endwhile
endfunction result
function prompt(title$,message$)
  popup_type=3
  prompt_input$=""
  width=100+len(message$)*7
  pos=int(width/2)-int(len(message$)/2)*7
  create bitmap 1,width,150
  ink rgb(192,192,192),0:box 0,0,width-1,149
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,147
  ink rgb(64,64,64),0:line 1,148,width-2,148:line 2,147,width-3,147:line width-2,1,width-2,148:line width-3,2,width-3,147
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  rem buttons
  paste image okbutton,width-80,40
  paste image cancelbutton,width-80,70
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,title$
  ink 0,0:set text font "arial":set text size 15:text 20,50, message$
  rem Close window button
  paste image close,width-18,4
  rem Prompt field
  ink rgb(255,255,255),0:box 22,112,width-22,128:line 20,130,width-20,130:line width-20,110,width-20,130
  ink rgb(64,64,64),0:line 20,110,20,130:line 21,111,21,129:line 20,110,width-20,110:line 21,111,width-21,111
  get image alert,0,0,width,150,3
  delete bitmap 1
  promptfieldw=width-44
  create bitmap promptfield,promptfieldw,16
  ink rgb(255,255,255),0:box 0,0,promptfieldw,16
  get image promptfield,0,0,promptfieldw,16,3
  set current bitmap 0
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  set sprite priority popup,1
  sprite field,(screen width()-width)/2+22,screen height()/2+37,promptfield
  set sprite priority field,2
  clear entry buffer
  while popup_type=3
    keyboard_input()
    result=mouse_input()
    sync
  endwhile
  if result<>1
    prompt_input$=""
  endif
endfunction prompt_input$
function choosefile(path$)
  getfiles(path$)
  popup_type=4
  width=400
  height=300
  create bitmap 1,400,300
  ink rgb(192,192,192),0:box 0,0,width-1,height-1
  ink rgb(255,255,255),0:line 2,2,width-3,2:line 2,2,2,height-3
  ink rgb(64,64,64),0:line 1,height-2,width-2,height-2:line 2,height-3,width-3,height-3:line width-2,1,width-2,height-2:line width-3,2,width-3,height-3
  rem Title bar
  for c=3 to width-4
    d=c/((width-4.0)/196.0)
    ink rgb(d,d,255),0:line c,3,c,20
  next c
  ink rgb(255,255,255),0:set text font "system":set text size 10:text 5,4,"Choose file"
  rem Close window button
  paste image close,width-18,4
  rem buttons
  paste image okbutton,width-160,height-40
  paste image cancelbutton,width-85,height-40
  ink rgb(0,0,255),0
  line 20,30,width-20,30:line width-20,30,width-20,height-50:line 20,30,20,height-50:line 20,height-50,width-20,height-50
  promptfieldw=width-200
  ink rgb(255,255,255),0:box 22,261,22+promptfieldw,277:line 20,278,23+promptfieldw,278:line 23+promptfieldw,260,23+promptfieldw,278
  ink rgb(64,64,64),0:line 20,259,20,277:line 21,260,21,276:line 20,259,23+promptfieldw,259:line 21,260,22+promptfieldw,260
  get image alert,0,0,width,height,3
  delete bitmap 1
  create bitmap browse,width-40,height-80
  showfiles()
  rem Filename field
  create bitmap promptfield,promptfieldw,16
  ink rgb(255,255,255),0:box 0,0,promptfieldw,16
  get image promptfield,0,0,promptfieldw,16,3
  set current bitmap 0
  sprite popup,(screen width()-width)/2,screen height()/2-75,alert
  sprite browse,(screen width()-width)/2+21,screen height()/2-44,browse
  sprite field,(screen width()-width)/2+22,screen height()/2+186,promptfield
  set sprite priority popup,1
  set sprite priority browse,2
  set sprite priority field,3
  while popup_type=4
    result=mouse_input()
    sync
  endwhile
  if result=1
    path$=get dir$()
    if right$(path$,1)<>"\" then path$=path$+"\"
    fullname$=path$+fileSelect$
  else
    fullname$=""
  endif
endfunction fullname$
function getfiles(myPath$)
  if (myPath$ = "")
    myPath$=get dir$()
  endif
  set dir myPath$
  find first
  empty array filelist$(0)
  empty array filetype(0)
  maxarray=8196
  dim filelist$(maxarray)
  dim filetype(maxarray)
  continue=0
  files=0
  listcolumn=0
  while continue>-1
    file$=get file name$()
    continue=get file type()
    if (file$<>".") and (continue>-1)
      filelist$(files)=file$
      filetype(files)=continue
      if len(file$)*12>listcolumn then listcolumn=len(file$)*12
      inc files
      if files>maxarray then continue=-1
    endif
    if continue>-1 then find next
  endwhile
  dim name1$(files)
  dim name2$(files)
  x=0:y=0
  for f=0 to files-1
    if filetype(f)=1
      name1$(x)=filelist$(f)
      inc x
    else
      name2$(y)=filelist$(f)
      inc y
    endif
  next f
  empty array filelist$(0)
  empty array filetype(0)
  dim filelist$(maxarray)
  dim filetype(maxarray)
  files=0
  for f=0 to x-1
    filelist$(files)=name1$(f)
    filetype(files)=1
    inc files
  next f
  for f=0 to y-1
    filelist$(files)=name2$(f)
    filetype(files)=0
    inc files
  next f
  scrollx=0
endfunction
function showfiles()
  set current bitmap browse
  ink rgb(255,255,255),0
  box 0,0,bitmap width(browse),bitmap height(browse)
  x=5:y=5
  set text font "arial":set text size 14:set text opaque
  for f=(int(200/listspace))*scrollx to files-1
    if filetype(f)=1
      paste image folder,x,y
    else
      paste image doc,x,y
    endif
    set cursor x+listspace+2,y
    if filelist$(f)=fileSelect$
      ink 0,rgb(128,128,255)
    else
      ink 0,rgb(255,255,255)
    endif
    print filelist$(f)
    y=y+listspace
    if y>bitmap height(browse)-32
      x=x+listcolumn
      y=5
    endif
  next f
  set text transparent
  paste image leftscroll,0,bitmap height(browse)-16
  paste image rightscroll,bitmap width(browse)-16,bitmap height(browse)-16
  ink rgb(220,220,220),0:box 15,205,345,219
  rem Scroll bar
  maxcolumns=int(files/listspace)
  if maxcolumns=0
    stepunit=0
  else
    stepunit=314/maxcolumns
  endif
  curpos=stepunit*scrollx
  ink rgb(192,192,192),0:box 17+curpos,206,29+curpos,218
  ink rgb(64,64,64),0:line 16+curpos,218,29+curpos,218:line 29+curpos,205,29+curpos,218
  get image browse,0,0,bitmap width(browse),bitmap height(browse),3
  set current bitmap 0
endfunction
function make_buttons()
  create bitmap 1,16,16
  rem Blank clicked button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 0,0,15,0:line 0,0,0,15
  ink rgb(255,255,255),0:line 1,14,14,14:line 14,1,14,14
  get image Ctinybutton,0,0,15,15,3
  rem Blank button
  ink rgb(192,192,192),0:box 0,0,15,15
  ink rgb(64,64,64),0:line 0,15,15,15:line 15,0,15,15:line 1,14,14,14:line 14,1,14,14
  ink rgb(255,255,255),0:line 0,0,15,0:line 0,0,0,15
  get image tinybutton,0,0,15,15,3
  rem Left scroll button
  ink rgb(64,64,64),0:line 3,7,8,2:line 3,7,8,12:line 4,7,9,2:line 4,7,9,12:line 5,7,9,3:line 5,7,9,11
  get image leftscroll,0,0,15,15,3
  paste image Ctinybutton,0,0
  line 3,7,8,2:line 3,7,8,12:line 4,7,9,2:line 4,7,9,12:line 5,7,9,3:line 5,7,9,11
  get image Cleftscroll,0,0,15,15,3

  rem Right scroll button
  paste image tinybutton,0,0
  ink rgb(64,64,64),0:line 7,3,12,8:line 7,12,12,7:line 6,3,11,8:line 6,12,11,7:line 6,4,10,8:line 6,11,10,7
  get image rightscroll,0,0,15,15,3
  paste image Ctinybutton,0,0
  line 12,7,7,2:line 12,7,7,12:line 11,7,6,2:line 11,7,6,12:line 10,7,6,3:line 10,7,6,11
  get image Crightscroll,0,0,15,15,3

  rem Close button
  paste image tinybutton,0,0
  ink 0,0:line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image close,0,0,15,15,3
  paste image Ctinybutton,0,0
  line 3,3,12,12:line 4,3,12,11:line 3,4,11,12:line 3,11,12,2:line 3,10,11,2:line 4,11,12,3
  get image Cclose,0,0,15,15,3

  delete bitmap 1

  rem Folder icon
  create bitmap 1,10,10
  ink rgb(255,255,255),0
  box 0,0,12,12
  ink rgb(255,255,65),0
  box 1,2,9,9
  ink rgb(96,96,64),0
  line 0,2,0,7:line 0,7,2,9:line 2,9,9,9:line 9,9,9,7:line 9,7,9,4:line 9,4,7,2:line 7,2,5,2:line 5,2,3,0:line 3,0,2,0:line 2,0,0,2
  get image folder,0,0,10,10,3
  ink rgb(255,255,255),0
  box 0,0,12,12
  ink rgb(64,64,64),0
  line 2,0,8,0:line 9,1,9,8:line 1,1,1,8:line 2,9,8,9
  line 4,3,7,3:line 4,5,7,5:line 4,7,7,7
  get image doc,0,0,10,10
  delete bitmap 1
  rem OK button
  create bitmap 1,70,26
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"OK"
  get image okbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Cokbutton,0,0,70,26,3
  rem Cancel button
  ink rgb(192,192,192),0:box 0,0,69,25
  ink rgb(255,255,255),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(64,64,64),0:line 69,1,69,25:line 1,25,68,25
  ink rgb(128,128,128),0:line 68,2,68,24:line 2,24,67,24
  ink 0,0:set text font "arial":set text size 15:center text 35,6,"Cancel"
  get image cancelbutton,0,0,70,26,3
  ink rgb(64,64,64),0:line 0,0,69,0:line 0,0,0,25
  ink rgb(255,255,255),0:line 69,1,69,25:line 1,25,68,25
  get image Ccancelbutton,0,0,70,26,3
  delete bitmap 1
endfunction

REM Jimmy's Gooey. U LUBIT
REM Created: 5/10/2007 4:07:03 PM
REM
REM ***** Main Source File *****
REM

SET DISPLAY MODE 1024, 768, 32
SYNC ON : SYNC RATE 0 : AUTOCAM OFF : HIDE MOUSE
HIDE LIGHT 0


GLOBAL shadows
GLOBAL desktopColor
GLOBAL windowColor
GLOBAL windowActiveColor
GLOBAL windowBorderColor
GLOBAL windowBorderActiveColor
GLOBAL windowTitleColor
GLOBAL windowTitleTextColor
GLOBAL windowTitleActiveColor
GLOBAL windowTitleTextActiveColor
GLOBAL titleButtonColor1
GLOBAL titleButtonColor2
GLOBAL titleButtonActiveColor1
GLOBAL titleButtonActiveColor2
GLOBAL titleBarHeight AS FLOAT

` *** FREAKING OPTIONS ***
shadows = 1
desktopColor = RGB(0,0,150)
windowColor = RGB(0,0,0)
windowActiveColor = RGB(0,0,50)
windowBorderColor = RGB(0,50,155)
windowBorderActiveColor = RGB(0,150,255)
windowTitleColor = RGB(0,0,75)
windowTitleTextColor = RGB(255,255,255)
windowTitleActiveColor = RGB(0,0,150)
windowTitleTextActiveColor = RGB(255,255,255)
titleButtonColor1 = RGB(0,0,150)
titleButtonColor2 = RGB(0,0,75)
titleButtonActiveColor1 = RGB(0,0,255)
titleButtonActiveColor2 = RGB(0,0,50)
titleBarHeight = 15.0

debug = 0
` ***

GLOBAL oTITLE
GLOBAL oWINDOW
GLOBAL oTOPBORDER
GLOBAL oBOTBORDER
GLOBAL oLEFTBORDER
GLOBAL oRIGHTBORDER
GLOBAL oCLOSEBUTTON
GLOBAL oMINBUTTON
GLOBAL oMAXBUTTON

oWINDOW = 1
oTITLE = 2
oTOPBORDER = 3
oBOTBORDER = 4
oLEFTBORDER = 5
oRIGHTBORDER = 6
oCLOSEBUTTON = 7
oMINBUTTON = 8
oMAXBUTTON = 9

TYPE window
   obj AS INTEGER
   titleObj AS INTEGER
   caption3dt AS INTEGER
   topBorder AS INTEGER
   botBorder AS INTEGER
   leftBorder AS INTEGER
   rightBorder AS INTEGER
   closeButton AS INTEGER
   width AS FLOAT
   height AS FLOAT
   x AS FLOAT
   y AS FLOAT
ENDTYPE

TYPE object
   obj AS INTEGER
   oType AS INTEGER
   parent AS INTEGER
ENDTYPE

TYPE threedt
   obj AS INTEGER
   width AS FLOAT
   height AS FLOAT
   txt AS STRING
ENDTYPE

DIM windows(99) AS window
DIM objects(2550) AS object
DIM threedts(2550) AS threedt

GLOBAL numWindows
GLOBAL numObjects
GLOBal num3dts
numWindows = 0
numObjects = 0
num3dts = 0

GLOBAL pt
GLOBAL lastPointerX# AS FLOAT
GLOBAL lastPointerY# AS FLOAT

GLOBAL lastTime
GLOBAL loopTime

lastTime = TIMER()
MAKE OBJECT PLAIN 1, 1000, 500
COLOR OBJECT 1, desktopColor

XROTATE OBJECT 1, -90.0

POSITION CAMERA 0, 410, 0
POINT CAMERA 0, 0, 0

pointerSize = 10
pointer = CreateMousePointer(pointerSize)
curPointer = pointer
pt = NextObj(1)
MAKE OBJECT SPHERE pt, 2
HIDE OBJECT pt

IF shadows = 1 
   SET SHADOW SHADING ON 1,-1,1000,1
   SET SHADOW SHADING ON pointer,-1,1000,1
ENDIF

MAKE LIGHT 1
SET POINT LIGHT 1,0,0,0
SET LIGHT RANGE 1,6000
COLOR LIGHT 1, RGB(155, 155, 155)

IF shadows = 1 THEN SET SHADOW POSITION 1,0,0,0
POSITION LIGHT 1, 100, 575, 100


CreateWindow(1, -100, 100, 150, 100, "Hellow Window...")

DO
   UpdateDelta()
   GOSUB _DoMouse

   TEXT 5, 5, "FPS: "+STR$(SCREEN FPS())
   SYNC
LOOP

_DoMouse:
   yep = PICK OBJECT(MOUSEX(), MOUSEY(), 1, 1)

   pickX = GET PICK VECTOR X()
   pickY = GET PICK VECTOR Y()
   pickZ = GET PICK VECTOR Z()
   POSITION OBJECT curPointer, pickX, 430+pickY, pickZ
   ptX# = LIMB POSITION X(curPointer, 2)
   ptY# = LIMB POSITION Z(curPointer, 2)
   POSITION OBJECT pt, ptX#, LIMB POSITION Y(curPointer, 2), ptY#
   mmx# = PointerMoveX()
   mmy# = PointerMoveY()
   pickpick = PICK OBJECT(OBJECT SCREEN X(pt), OBJECT SCREEN Y(pt), 50, 255)
   pickType = 0
   IF windowLock <> 0
      PositionWindow(windowLock, windows(windowLock).x+mmx#, 15, windows(windowLock).y+mmy#) 
   ENDIF
   IF pickpick <> 0
      pickType = GetObjectType(pickpick)
      IF pickType = oTITLE
         IF MOUSECLICK() = 1
            o = GetObject(pickpick)
            windowLock = GetWindowFromObject(objects(o).parent)
         ELSE
            windowLock = 0
         ENDIF     
      ENDIF
   ENDIF
   IF debug = 1
      TEXT 5, 25, "PickX: "+STR$(pickX)
      TEXT 5, 45, "PickY: "+STR$(pickY)
      TEXT 5, 65, "PickZ: "+STR$(pickZ)
      TEXT 5, 85, "PtX: "+STR$(ptX#)
      TEXT 5, 105, "PtY: "+STR$(ptY#)
      TEXT 5, 125, "PickPick: "+STR$(pickpick)
      TEXT 5, 145, "PickType: "+STR$(pickType)
      TEXT 5, 165, "MMX: "+STR$(mmx#)
      TEXT 5, 185, "MMY: "+STR$(mmy#)
   ENDIF
RETURN

FUNCTION PointerMoveX()
   move# = OBJECT POSITION X(pt)-lastPointerX#
   lastPointerX# = OBJECT POSITION X(pt)
ENDFUNCTION move#

FUNCTION PointerMoveY()
   move# = OBJECT POSITION Z(pt)-lastPointerY#
   lastPointerY# = OBJECT POSITION Z(pt)
ENDFUNCTION move#

FUNCTION GetObjectType(o)
   objNum = GetObject(o)
   ptype = objects(objNum).oType
ENDFUNCTION ptype

FUNCTION GetWindowFromObject(o)
   FOR i = 1 TO numWindows
      IF windows(i).obj = objects(o).obj THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION GetObject(o)
   FOR i = 1 TO numObjects
      IF objects(i).obj = o THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION NewThreeDeeText(txt$)
   obj = NextObj(5000)
   MAKE OBJECT PLAIN obj, 1, 1
   XROTATE OBJECT obj, -90
   INC num3dts
   threedts(num3dts).obj = obj
   ThreeDeeText(num3dts, txt$)
ENDFUNCTION num3dts

FUNCTION ThreeDeeText(dddt, txt$)
   w = TEXT WIDTH(txt$)
   h = TEXT HEIGHT(txt$)
   
   SCALE OBJECT threedts(dddt).obj, 60.0*(w), 60.0*h, 100.0
   threedts(dddt).width = (60.0*w)/100.0
   CREATE BITMAP 1, w, h
   CENTER TEXT w/2, 0, txt$
   IF IMAGE EXIST(threedts(dddt).obj) THEN DELETE IMAGE threedts(dddt).obj
   GET IMAGE threedts(dddt).obj, 0, 0, w, h, 1
   TEXTURE OBJECT threedts(dddt).obj, threedts(dddt).obj
   SET OBJECT TRANSPARENCY threedts(dddt).obj, 1
   DELETE BITMAP 1
ENDFUNCTION 

FUNCTION CreateWindow(win, x, y, w, h, caption$)
   INC numWindows
   windows(win).height = h
   windows(win).width = w
   windows(win).obj = NextObj(50)
   MAKE OBJECT PLAIN windows(win).obj, w, h
   XROTATE OBJECT windows(win).obj, -90
   COLOR OBJECT windows(win).obj, windowActiveColor
   winObj = AddObject(windows(win).obj, oWINDOW, 0)
   windows(win).titleObj = NextObj(50)
   
   windows(win).caption3dt = NewThreeDeeText(caption$)
   
   MAKE OBJECT PLAIN windows(win).titleObj, w, titleBarHeight
   XROTATE OBJECT windows(win).titleObj, -90
   COLOR OBJECT windows(win).titleObj, windowTitleActiveColor
   titObj = AddObject(windows(win).titleObj, oTITLE, winObj)
   
   windows(win).topBorder = NextObj(50)
   MAKE OBJECT CYLINDER windows(win).topBorder, 1
   SCALE OBJECT windows(win).topBorder, 100.0, 100.0*w, 100.0
   XROTATE OBJECT windows(win).topBorder, 90
   YROTATE OBJECT windows(win).topBorder, 90
   COLOR OBJECT windows(win).topBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).topBorder, oTOPBORDER, winObj)
   
   windows(win).botBorder = NextObj(50)
   MAKE OBJECT CYLINDER windows(win).botBorder, 1
   SCALE OBJECT windows(win).botBorder, 100.0, 100.0*w, 100.0
   XROTATE OBJECT windows(win).botBorder, 90
   YROTATE OBJECT windows(win).botBorder, 90
   COLOR OBJECT windows(win).botBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).botBorder, oBOTBORDER, winObj)
   
   windows(win).leftBorder = NextObj(50)
   MAKE OBJECT CYLINDER windows(win).leftBorder, 1
   SCALE OBJECT windows(win).leftBorder, 100.0, 100.0*h, 100.0
   XROTATE OBJECT windows(win).leftBorder, 90
   COLOR OBJECT windows(win).leftBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).leftBorder, oLEFTBORDER, winObj)
   
   windows(win).rightBorder = NextObj(50)
   MAKE OBJECT CYLINDER windows(win).rightBorder, 1
   SCALE OBJECT windows(win).rightBorder, 100.0, 100.0*h, 100.0
   XROTATE OBJECT windows(win).rightBorder, 90
   COLOR OBJECT windows(win).rightBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).rightBorder, oRIGHTBORDER, winObj)
   
   windows(win).closeButton = NextObj(50)
   MAKE OBJECT CUBE windows(win).closeButton, titleBarHeight-8
   x1 = NextObj(1)
   MAKE OBJECT CYLINDER x1, 2
   x2 = NextObj(1)
   MAKE OBJECT CYLINDER x2, 2
   MAKE MESH FROM OBJECT 1, x1
   MAKE MESH FROM OBJECT 2, x2
   ADD LIMB windows(win).closeButton, 1, 1
   ADD LIMB windows(win).closeButton, 2, 2
   DELETE MESH 1
   DELETE MESH 2
   DELETE OBJECT x1
   DELETE OBJECT x2
   
   SCALE LIMB windows(win).closeButton, 1, 100.0, 100.0*(titleBarHeight-8), 100.0
   SCALE LIMB windows(win).closeButton, 2, 100.0, 100.0*(titleBarHeight-8), 100.0
   
   ROTATE LIMB windows(win).closeButton, 1, 90, 45, 0
   ROTATE LIMB windows(win).closeButton, 2, 90, -45, 0
   
   OFFSET LIMB windows(win).closeButton, 1, 0, OBJECT SIZE Y(windows(win).closeButton)/2, 0
   OFFSET LIMB windows(win).closeButton, 2, 0, OBJECT SIZE Y(windows(win).closeButton)/2, 0
   COLOR OBJECT windows(win).closeButton, titleButtonActiveColor2
   COLOR LIMB windows(win).closeButton, 1, titleButtonActiveColor1
   COLOR LIMB windows(win).closeButton, 2, titleButtonActiveColor1
   
   IF shadows = 1 
      SET SHADOW SHADING ON windows(win).obj,-1,1000,1
      SET SHADOW SHADING ON windows(win).titleObj,-1,1000,1
      SET SHADOW SHADING ON windows(win).topBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).botBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).leftBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).rightBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).closeButton,-1,1000,1
   ENDIF
   PositionWindow(win, x, 15, y)
ENDFUNCTION

FUNCTION AddObject(o, ot, parent)
   INC numObjects
   objects(numObjects).obj = o
   objects(numObjects).oType = ot
   objects(numObjects).parent = parent
ENDFUNCTION numObjects

FUNCTION PositionWindow(win, x, y, z)
   h# = windows(win).height
   w# = windows(win).width
   windows(win).x = x
   windows(win).y = z
   POSITION OBJECT windows(win).obj, x, y, z
   POSITION OBJECT windows(win).titleObj, x, y+0.1, z+(h#/2)-(titleBarHeight/2)
   POSITION OBJECT windows(win).topBorder, x, y, z+(h#/2)
   POSITION OBJECT windows(win).botBorder, x, y, z-(h#/2)
   POSITION OBJECT windows(win).leftBorder, x-(w#/2), y, z
   POSITION OBJECT windows(win).rightBorder, x+(w#/2), y, z
   POSITION OBJECT windows(win).closeButton, x+(w#/2)-titleBarHeight/2, y, z+(h#/2)-(titleBarHeight/2)
   POSITION OBJECT threedts(windows(win).caption3dt).obj, x-(w#/2)+(threedts(windows(win).caption3dt).width/2)+8, y+0.2, z+(h#/2)-(titleBarHeight/2)
ENDFUNCTION

FUNCTION CreateMousePointer(size)
   tip = NextObj(1)
   MAKE OBJECT CONE tip, size
   shaft = NextObj(1)
   MAKE OBJECT CYLINDER shaft, size/2
   pt = NextObj(1)
   MAKE OBJECT SPHERE pt, 1.0
   
   MAKE MESH FROM OBJECT 1, shaft
   ADD LIMB tip, 1, 1
   OFFSET LIMB tip, 1, 0, (size/2)*-1, 0
   MAKE MESH FROM OBJECT 2, pt
   ADD LIMB tip, 2, 2
   OFFSET LIMB tip, 2, 0, size/2, 0
   HIDE LIMB tip, 2
   
   XROTATE OBJECT tip, 90
   YROTATE OBJECT tip, -25
   DELETE OBJECT shaft
   DELETE OBJECT pt
   DELETE MESH 1
   DELETE MESH 2

ENDFUNCTION tip

FUNCTION UpdateDelta()
   dTimer = TIMER()
   loopTime = dTimer-lastTime
   lastTime= dTimer
ENDFUNCTION

FUNCTION Delta(val#)
   res# = val#*0.060*loopTime
ENDFUNCTION res#

FUNCTION NextObj(start)
   FOR i = start TO 65535
      IF OBJECT EXIST(i) = 0 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

sync on : sync rate 60
color backdrop rgb(0,0,0)

remstart

**Creation Commands**
ZWindow_MakeWindow
ZWindow_MakeAlertBox
ZWindow_MakeButton
ZWindow_MakeCheckbox
ZWindow_MakeText

**General Commands**
ZWindow_Update

**Window Expressions**
ZWindow_GetWindowMainSprite
ZWindow_GetWindowBarSprite
ZWindow_GetWindowCloseSprite

**Item Commands**
ZWindow_DeleteItem
ZWindow_LockItem
ZWindow_UnlockItem
ZWindow_PositionItem
ZWindow_SetItemLock
ZWindow_AttachItemToWindow
ZWindow_DetachItemFromWindow

**Item Expressions**
ZWindow_GetItemType
ZWindow_GetItemState
ZWindow_GetItemLocked

**Other**
ZWindow_MouseOnSprite
ZWindow_WordWrap
ZWindow_OpenBitmap
ZWindow_OpenSprite
ZWindow_OpenImage

remend

`|===============================|
`/====== ZWINDOW VARIABLES ======

type ZWindow_ItemArray
    ItemType as byte
    Sprite1 as Integer
    Sprite2 as Integer
    Sprite3 as Integer
    Image1 as Integer
    Image2 as Integer
    Image3 as Integer
    Image4 as Integer
    Locked as Boolean
    Text$ as String
    Delimiter$ as String
    State as byte
    XPos as float
    YPos as float
    Attached as integer
endtype
type ZWindow_WindowArray
    Sprite1 as Integer
    Sprite2 as Integer
    Sprite3 as Integer
    Image1 as Integer
    Image2 as Integer
    Image3 as Integer
    Image4 as Integer
    Closeable as boolean
    Moveable as boolean
    XPos as float
    YPos as float
    Width as Integer
    Height as Integer
endtype
global zwindow_NumberOfItems
global zwindow_NumberOfWindows
global zwindow_clickedin
global zwindow_clickedin2
global zwindow_clickedin3
global zwindow_lines
global zwindow_mousexoffset
global zwindow_mouseyoffset
global DIM ZWindow_Windows(0) as ZWindow_WindowArray
global DIM ZWindow_Items(0) as ZWindow_ItemArray
zwindow_CR$ = chr$(13)
zwindow_LF$ = chr$(10)
#constant zwindow_LINEBREAK zwindow_CR$+zwindow_LF$

`======                   ======/
`|===============================|

CheckboxLabel=ZWindow_MakeText(0,0,"Lock button: ",10,10,80,170,70,0,100)
Button=ZWindow_MakeButton(0,0,0,0,"Click Me!",120,210,110,200,50,100,100,1)
Checkbox=ZWindow_MakeCheckbox(0,0,0,0,0,120,210,110,0,0,120,10)

Window1=ZWindow_MakeWindow(0,0,0,0,0,0,0,"I am a Window!",450,400,1,1,-20,-20,120,210,110)
`AlertBox=ZWindow_MakeAlertBox(0,0,0,0,0,0,0,0,0,0,0,0,0,"Warning! This alert box has opened!",120,210,110,"Alert!",400,100,0,0,500,600)
`Window2=ZWindow_MakeWindow(0,0,0,0,0,0,0,"I am a Window!",450,400,1,1,600,500,120,210,110)

ZWindow_AttachItemToWindow(Button,Window1)
ZWindow_AttachItemToWindow(Checkbox,Window1)
ZWindow_AttachItemToWindow(CheckboxLabel,Window1)

ZWindow_PositionWindow(Window1,100,100)

do

ZWindow_SetItemLock(Button,ZWindow_GetItemState(Checkbox))
if ZWindow_GetItemState(Button)=1 then text 100,300,"Thank you for making a simple button very happy!"


ZWindow_Update()
sync
loop


`=====================================
`========== Functions! ===============

`***** ZWindow_MakeButton() *****
`This command will make a button with the specified properties and characteristics.

function ZWindow_MakeButton(SpriteNo,Image1,Image2,Image3,Label$,R,G,B,Width,Height,X,Y,Locked)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)

zwindow_MainColor=rgb(R,G,B)
zwindow_InnestColor=rgb(R+50,G+50,B+50)
zwindow_InnerColor=rgb(R+25,G+25,B+25)
zwindow_OuterColor=rgb(R-25,G-25,B-25)
zwindow_OutestColor=rgb(R-50,G-50,B-50)

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_InnestColor,0
line 1,1,1,Height : line 1,1,Width,1
ink zwindow_InnerColor,0
line 2,2,2,Height : line 2,2,Width,2
ink zwindow_OutestColor,0
line Width,1,Width,Height : line 1,Height,Width,Height
ink zwindow_OuterColor,0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
text zwindow_labelxpos,zwindow_labelypos,Label$
if Image1=0 then Image1=ZWindow_OpenImage(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(200,200,200),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(175,175,175),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(100,100,100),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(125,125,125),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
ink rgb(200,200,200),0
text zwindow_labelxpos,zwindow_labelypos,Label$
if Image3=0 then Image3=ZWindow_OpenImage(1)
get image Image3,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height : line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height : line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height : line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
zwindow_labelxpos=bitmap width(zwindow_bitmap)/2-text width(Label$)/2
zwindow_labelypos=bitmap height(zwindow_bitmap)/2-text height(Label$)/2
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
text zwindow_labelxpos+2,zwindow_labelypos+2,Label$
if Image2=0 then Image2=ZWindow_OpenImage(1)
get image Image2,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=1
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).Image2=Image2
ZWindow_Items(zwindow_NumberOfItems).Image3=Image3
ZWindow_Items(zwindow_NumberOfItems).Locked=Locked
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
set sprite priority SpriteNo,1

endfunction zwindow_NumberOfItems


`***** ZWindow_MakeCheckbox *****
`This command will create a checkbox with the specified properties
`It returns a handle you'll need to manipulate the checkbox

function ZWindow_MakeCheckbox(SpriteNo,Image1,Image2,Image3,Image4,R,G,B,State,Locked,X,Y)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)

zwindow_MainColor=rgb(R,G,B)
zwindow_InnestColor=rgb(R+50,G+50,B+50)
zwindow_InnerColor=rgb(R+25,G+25,B+25)
zwindow_OuterColor=rgb(R-25,G-25,B-25)
zwindow_OutestColor=rgb(R-50,G-50,B-50)

Width=20 : Height=20

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
if Image1=0 then Image1=ZWindow_OpenImage(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

zwindow_bitmap=ZWindow_OpenBitmap(1)
create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink zwindow_MainColor,0
box 1,1,Width,Height
ink zwindow_OutestColor,0
line 1,1,1,Height
line 1,1,Width,1
ink zwindow_OuterColor,0
line 2,2,2,Height
line 2,2,Width,2
ink zwindow_InnestColor,0
line Width,1,Width,Height
line 1,Height,Width,Height
ink zwindow_InnerColor,0
line Width-1,2,Width-1,Height-1
line 2,Height-1,Width-1,Height-1
if (R+G+B)/3>122
    ink OutestColor,0
    else
    ink InnestColor,0
endif
line 3,3,Width-2,Height-2 : line 4,3,Width-2,Height-3 : line 3,4,Width-3,Height-2
line Width-2,3,3,Height-2 : line Width-3,3,3,Height-3 : line Width-2,4,4,Height-2
if Image2=0 then Image2=ZWindow_OpenImage(1)
get image Image2,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(100,100,100),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(125,125,125),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(200,200,200),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(175,175,175),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
if Image3=0 then Image3=ZWindow_OpenImage(1)
get image Image3,1,1,Width,Height,1
delete bitmap zwindow_bitmap

create bitmap zwindow_bitmap,Width,Height : set current bitmap zwindow_bitmap
ink rgb(150,150,150),0
box 1,1,Width,Height
ink rgb(100,100,100),0
line 1,1,1,Height : line 1,1,Width,1
ink rgb(125,125,125),0
line 2,2,2,Height : line 2,2,Width,2
ink rgb(200,200,200),0
line Width,1,Width,Height : line 1,Height,Width,Height
ink rgb(175,175,175),0
line Width-1,2,Width-1,Height-1 : line 2,Height-1,Width-1,Height-1
ink rgb(200,200,200),0
line 3,3,Width-2,Height-2 : line 4,3,Width-2,Height-3 : line 3,4,Width-3,Height-2
line Width-2,3,3,Height-2 : line Width-3,3,3,Height-3 : line Width-2,4,4,Height-2
if Image4=0 then Image4=ZWindow_OpenImage(1)
get image Image4,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=2
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).Image2=Image2
ZWindow_Items(zwindow_NumberOfItems).Image3=Image3
ZWindow_Items(zwindow_NumberOfItems).Image4=Image4
ZWindow_Items(zwindow_NumberOfItems).State=State
ZWindow_Items(zwindow_NumberOfItems).Locked=Locked
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
set sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,1,0
set sprite priority SpriteNo,1

endfunction zwindow_NumberOfItems


`***** ZWindow_MakeText *****
`This command will make some text with the specified properties, so it can be attached
`onto a window.

function ZWindow_MakeText(SpriteNo,Image1,Text$,X,Y,R,G,B,Shadow,Width)

if SpriteNo=0 then SpriteNo=ZWindow_OpenSprite(1)
zwindow_bitmap=ZWindow_OpenBitmap(1)

zwindow_Text$=ZWindow_WordWrap(Text$,Width)
Height=zwindow_lines*text height(zwindow_Text$)
zwindow_lines=0

create bitmap zwindow_bitmap,Width,Height
set current bitmap zwindow_bitmap
ink rgb(R,G,B),0
text 1,1,zwindow_Text$
if Image1=0 then Image1=ZWindow_OpenSprite(1)
get image Image1,1,1,Width,Height,1
delete bitmap zwindow_bitmap

inc zwindow_NumberOfItems
array insert at bottom ZWindow_Items(0)
ZWindow_Items(zwindow_NumberOfItems).ItemType=3
ZWindow_Items(zwindow_NumberOfItems).Sprite1=SpriteNo
ZWindow_Items(zwindow_NumberOfItems).Image1=Image1
ZWindow_Items(zwindow_NumberOfItems).XPos=X
ZWindow_Items(zwindow_NumberOfItems).YPos=Y

sprite ZWindow_Items(zwindow_NumberOfItems).Sprite1,ZWindow_Items(zwindow_NumberOfItems).XPos,ZWindow_Items(zwindow_NumberOfItems).YPos,ZWindow_Items(zwindow_NumberOfItems).Image1
set sprite priority SpriteNo,1

endfunction zwindow_NumberOfItems


`***** ZWindow_MakeWindow *****
`This command will create a window with the specified properties

function ZWindow_MakeWindow(Sprite1,Sprite2,Sprite3,Image1,Image2,Image3,Image4,Title$,Width,Height,Moveable,Closeable,X,Y,R,G,B)

zwindow_MainColor=rgb(R,G,B)
zwindow_InnestColor=rgb(R+50,G+50,B+50)
zwindow_InnerColor=rgb(R+25,G+25,B+25)
zwindow_OuterColor=rgb(R-25,G-25,B-25)
zwindow_OutestColor=rgb(R-50,G-50,B-50)

zwindow_bitmap=ZWindow_OpenBitmap(1)

if Moveable=1
    if Closeable=1
        zwindow_BarWidth=Width-20
        else
        zwindow_BarWidth=Width
    endif
    create bitmap zwindow_bitmap,zwindow_BarWidth,20
    set current bitmap zwindow_bitmap
    ink zwindow_MainColor,0
    box 1,1,zwindow_BarWidth,20
    ink zwindow_InnestColor,0
    line 1,1,1,20 : line 1,1,zwindow_BarWidth,1
    ink zwindow_InnerColor,0
    line 2,2,2,20 : line 2,2,zwindow_BarWidth,2
    ink zwindow_OutestColor,0
    line zwindow_BarWidth,1,zwindow_BarWidth,20 : line 1,20,zwindow_BarWidth,20
    ink zwindow_OuterColor,0
    line zwindow_BarWidth-1,2,zwindow_BarWidth-1,19 : line 2,19,zwindow_BarWidth-1,19
    if (R+G+B)/3>122
        ink OutestColor,0
        else
        ink InnestColor,0
    endif
    text 3,3,Title$
    if Image2=0 then Image2=ZWindow_OpenImage(1)
    get image Image2,1,1,zwindow_BarWidth,20,1
    delete bitmap zwindow_bitmap

    create bitmap zwindow_bitmap,Width,Height-20
    set current bitmap zwindow_bitmap
    ink zwindow_MainColor,0
    box 1,1,Width,Height-20
    ink zwindow_InnestColor,0
    line 1,1,1,Height-20 : line 1,1,Width,1
    ink zwindow_InnerColor,0
    line 2,2,2,Height-20 : line 2,2,Width,2
    ink zwindow_OutestColor,0
    line Width,1,Width,Height-20 : line 1,Width,Width,Height-20
    ink zwindow_OuterColor,0
    line Width-1,2,Width-1,Height-21 : line 2,Width-1,Width-1,Height-21
    if Image1=0 then Image1=ZWindow_OpenImage(1)
    get image Image1,1,1,Width,Height-20,1
    delete bitmap zwindow_bitmap
    
    else
    
    create bitmap zwindow_bitmap,Width,Height
    set current bitmap zwindow_bitmap
    ink zwindow_MainColor,0
    box 1,1,Width,Height
    ink zwindow_InnestColor,0
    line 1,1,1,Height : line 1,1,Width,1
    ink zwindow_InnerColor,0
    line 2,2,2,Height : line 2,2,Width,2
    ink zwindow_OutestColor,0
    line Width,1,Width,Height : line 1,Width,Width,Height
    ink zwindow_OuterColor,0
    line Width-1,2,Width-1,Height-1 : line 2,Width-1,Width-1,Height-1
    if Image1=0 then Image1=ZWindow_OpenImage(1)
    get image Image1,1,1,Width,Height,1
    delete bitmap zwindow_bitmap
    
endif
if Closeable=1
    create bitmap zwindow_bitmap,20,20
    set current bitmap zwindow_bitmap
    ink zwindow_MainColor,0
    box 1,1,20,20
    ink zwindow_InnestColor,0
    line 1,1,1,20 : line 1,1,20,1
    ink zwindow_InnerColor,0
    line 2,2,2,20 : line 2,2,20,2
    ink zwindow_OutestColor,0
    line 20,1,20,20 : line 1,20,20,20
    ink zwindow_OuterColor,0
    line 19,2,19,19 : line 2,19,19,19
    if (R+G+B)/3>122
        ink OutestColor,0
        else
        ink InnestColor,0
    endif
    line 3,3,18,18 : line 4,3,18,17 : line 3,4,17,18
    line 18,3,3,18 : line 17,3,3,17 : line 18,4,4,18
    if Image3=0 then Image3=ZWindow_OpenImage(1)
    get image Image3,1,1,20,20,1
    delete bitmap zwindow_bitmap
    
    create bitmap zwindow_bitmap,20,20
    set current bitmap zwindow_bitmap
    ink zwindow_MainColor,0
    box 1,1,20,20
    ink zwindow_OutestColor,0
    line 1,1,1,20
    line 1,1,20,1
    ink zwindow_OuterColor,0
    line 2,2,2,20
    line 2,2,20,2
    ink zwindow_InnestColor,0
    line 20,1,20,20
    line 1,20,20,20
    ink zwindow_InnerColor,0
    line 19,2,19,19
    line 2,19,19,19
    if (R+G+B)/3>122
        ink OutestColor,0
        else
        ink InnestColor,0
    endif
    line 3,3,18,18 : line 4,3,18,17 : line 3,4,17,18
    line 18,3,3,18 : line 17,3,3,17 : line 18,4,4,18
    if Image4=0 then Image4=ZWindow_OpenImage(1)
    get image Image4,1,1,20,20,1
    delete bitmap zwindow_bitmap
endif

inc ZWindow_NumberOfWindows
array insert at bottom ZWindow_Windows(0)
ZWindow_Windows(zwindow_NumberOfWindows).Image1=Image1 `Window
ZWindow_Windows(zwindow_NumberOfWindows).Image2=Image2 `Bar
ZWindow_Windows(zwindow_NumberOfWindows).Image3=Image3 `X out
ZWindow_Windows(zwindow_NumberOfWindows).Image4=Image4 `X In
ZWindow_Windows(zwindow_NumberOfWindows).Width=Width
ZWindow_Windows(zwindow_NumberOfWindows).Height=Height
ZWindow_Windows(zwindow_NumberOfWindows).XPos=X
ZWindow_Windows(zwindow_NumberOfWindows).YPos=Y
ZWindow_Windows(zwindow_NumberOfWindows).Moveable=Moveable
ZWindow_Windows(zwindow_NumberOfWindows).Closeable=Closeable

Sprite1=ZWindow_OpenSprite(1)
ZWindow_Windows(zwindow_NumberOfWindows).Sprite1=Sprite1 `Window
sprite Sprite1,X,Y+20,Image1
set sprite priority Sprite1,0
set sprite ZWindow_Windows(zwindow_NumberOfWindows).Sprite1,1,0
if Moveable=1
    Sprite2=ZWindow_OpenSprite(1)
    ZWindow_Windows(zwindow_NumberOfWindows).Sprite2=Sprite2 `Bar
    sprite Sprite2,X,Y,Image2
    set sprite priority Sprite2,0
    set sprite ZWindow_Windows(zwindow_NumberOfWindows).Sprite2,1,0
endif
if Closeable=1
    Sprite3=ZWindow_OpenSprite(1)
    ZWindow_Windows(zwindow_NumberOfWindows).Sprite3=Sprite3 `X
    sprite Sprite3,X+Width-20,Y,Image3
    set sprite priority Sprite3,0
    set sprite ZWindow_Windows(zwindow_NumberOfWindows).Sprite3,1,0
endif

endfunction zwindow_NumberOfWindows


`***** ZWindow_MakeAlertBox *****
`This command will make an automatic window with the specified text and an OK button.

function ZWindow_MakeAlertBox(Sprite1,Sprite2,Sprite3,Sprite4,Sprite5,Image1,Image2,Image3,Image4,Image5,Image6,Image7,Image8,Label$,R,G,B,Title$,Width,Height,Moveable,Closeable,X,Y)

TempWindow=ZWindow_MakeWindow(Sprite1,Sprite2,Sprite3,Image1,Image2,Image3,Image4,Title$,Width,Height,Moveable,Closeable,X,Y,R,G,B)
TempButton=ZWindow_MakeButton(Sprite4,Image5,Image6,Image7,"Ok",R,G,B,Width/4,Height/4,X+Width/4,Y+Height*(3/4),0)
TempText=ZWindow_MakeText(Sprite5,Image8,Label$,X+5,Y+Height/4,R,G,B,0,Width-10)

ZWindow_AttachItemToWindow(TempButton,TempWindow)
ZWindow_AttachItemToWindow(TempText,TempWindow)

endfunction TempWindow


`***** ZWindow_Update *****
`This command will automatically update all items and windows based on mouseclicks

function ZWindow_Update()
ink rgb(200,200,200),0
for c=1 to zwindow_NumberOfWindows
if ZWindow_Windows(c).Sprite1>0
    if mouseclick()=0
        if ZWindow_Windows(c).Closeable=1 and zwindow_clickedin3=1 and ZWindow_MouseOnSprite(ZWindow_Windows(c).Sprite3)=1
            ZWindow_DeleteWindow(c)
        endif
        else
        if ZWindow_Windows(c).Moveable=1
            if ZWindow_MouseOnSprite(ZWindow_Windows(c).Sprite2)=1 and zwindow_clickedin=0
                zwindow_clickedin=1
                zwindow_mousexoffset=mousex()-ZWindow_Windows(c).XPos
                zwindow_mouseyoffset=mousey()-ZWindow_Windows(c).YPos
            endif
        endif
        if zwindow_clickedin=1
            prevx=ZWindow_Windows(c).XPos
            prevy=ZWindow_Windows(c).YPos
            attachoed=c
            ZWindow_Windows(c).XPos=mousex()-zwindow_mousexoffset
            ZWindow_Windows(c).YPos=mousey()-zwindow_mouseyoffset
        endif
        if ZWindow_Windows(c).Closeable=1
            if ZWindow_MouseOnSprite(ZWindow_Windows(c).Sprite3)=1
                zwindow_clickedin3=1
                sprite ZWindow_Windows(c).Sprite3,ZWindow_Windows(c).XPos+ZWindow_Windows(c).Width-20,ZWindow_Windows(c).YPos,ZWindow_Windows(c).Image4
                else
                sprite ZWindow_Windows(c).Sprite3,ZWindow_Windows(c).XPos+ZWindow_Windows(c).Width-20,ZWindow_Windows(c).YPos,ZWindow_Windows(c).Image3
            endif
        endif
    endif
    if ZWindow_Windows(c).Sprite1>0 then sprite ZWindow_Windows(c).Sprite1,ZWindow_Windows(c).XPos,ZWindow_Windows(c).YPos+19,ZWindow_Windows(c).Image1
    if ZWindow_Windows(c).Moveable=1 and ZWindow_Windows(c).Sprite2>0 and ZWindow_Windows(c).Image2>0
        if Image Exist(ZWindow_Windows(c).Image2)=1 then sprite ZWindow_Windows(c).Sprite2,ZWindow_Windows(c).XPos,ZWindow_Windows(c).YPos,ZWindow_Windows(c).Image2
    endif
endif
CharPos=0
next c
for c=1 to zwindow_NumberOfItems
    Select ZWindow_Items(c).ItemType
        Case 1
            if ZWindow_Items(c).Locked=0
                if mouseclick()=1 and ZWindow_MouseOnSprite(ZWindow_Items(c).Sprite1)=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image2
                    ZWindow_Items(c).State=1
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
                    ZWindow_Items(c).State=0
                endif
                else
                sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image3
            endif
        Endcase
        Case 2
            if ZWindow_Items(c).Locked=0
                if ZWindow_MouseOnSprite(ZWindow_Items(c).Sprite1)=1 and mouseclick()=1 and zwindow_clickedin2=0
                    zwindow_clickedin2=1
                    ZWindow_Items(c).State=1-(ZWindow_Items(c).State)
                endif
                if ZWindow_Items(c).State=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image2
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
                endif
                else
                if ZWindow_Items(c).State=1
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image4
                    else
                    sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image3
                endif
            endif
        Endcase
        Case 3
            Sprite ZWindow_Items(c).Sprite1,ZWindow_Items(c).XPos,ZWindow_Items(c).YPos,ZWindow_Items(c).Image1
        Endcase
    Endselect
    if ZWindow_Items(c).Attached=Attachoed and ZWindow_Items(c).ItemType>0
        inc ZWindow_Items(c).XPos,ZWindow_Windows(Attachoed).XPos-prevx
        inc ZWindow_Items(c).YPos,ZWindow_Windows(Attachoed).YPos-prevy
    endif
next c
if mouseclick()=0
    zwindow_clickedin=0 : zwindow_clickedin2=0
    zwindow_mousexoffset=0 : zwindow_mouseyoffset=0
endif
endfunction


`***** ZWindow_AttachItemToWindow *****
`This command attaches the specified item to the specified window, if it isn't attached
`Attaching items to multiple windows will do weird things, don't do it.

function ZWindow_AttachItemToWindow(ItemID,WindowID)

ZWindow_Items(ItemID).Attached=WindowID

endfunction


`***** ZWindow_DetachItemFromWindow *****
`This command detaches the specified item from the specified window, if it is attached

function ZWindow_DetachItemFromWindow(ItemID,WindowID)

for g=1 to zwindow_NumberOfItems
    if g=ItemID and ZWindow_Items(g).Attached=WindowID
        ZWindow_Items(g).Attached=0
    endif
next g

endfunction


`***** ZWindow_PositionWindow *****
`Duh

function ZWindow_PositionWindow(ID,X,Y)

for g=1 to zwindow_NumberOfItems
    if ZWindow_Items(g).Attached=ID
        ZWindow_Items(g).XPos=ZWindow_Items(g).XPos+X-ZWindow_Windows(ID).XPos
        ZWindow_Items(g).YPos=ZWindow_Items(g).YPos+Y-ZWindow_Windows(ID).YPos
    endif
next g
ZWindow_Windows(ID).XPos=X
ZWindow_Windows(ID).YPos=Y
sprite ZWindow_Windows(ID).Sprite3,ZWindow_Windows(ID).XPos+ZWindow_Windows(ID).Width-20,ZWindow_Windows(ID).YPos,ZWindow_Windows(ID).Image3

endfunction


`***** ZWindow_GetWindowMainSprite *****
`This command will return the sprite number of the body of the window

function ZWindow_GetWindowMainSprite(ID)
if ZWindow_Windows(ID).Sprite1>0
    if sprite exist(ZWindow_Windows(ID).Sprite1)=1 then zwindow_sprite=ZWindow_Windows(ID).Sprite1
endif
endfunction zwindow_sprite


`***** ZWindow_GetWindowBarSprite *****
`This command will return the sprite number of the bar on the window

function ZWindow_GetWindowBarSprite(ID)
if ZWindow_Windows(ID).Sprite2>0
    if sprite exist(ZWindow_Windows(ID).Sprite2)=1 then zwindow_sprite=ZWindow_Windows(ID).Sprite2
endif
endfunction zwindow_sprite


`***** ZWindow_GetWindowCloseSprite *****
`This command will return the sprite number of the exit button on the window

function ZWindow_GetWindowCloseSprite(ID)
if ZWindow_Windows(ID).Sprite3>0
    if sprite exist(ZWindow_Windows(ID).Sprite3)=1 then zwindow_sprite=ZWindow_Windows(ID).Sprite3
endif
endfunction zwindow_sprite


`***** ZWindow_DeleteItem *****
`This command will delete the specified item

function ZWindow_DeleteItem(ID)

if ZWindow_Items(ID).ItemType>0
    ZWindow_Items(ID).ItemType=0
    if sprite exist(ZWindow_Items(ID).Sprite1)=1 then delete sprite ZWindow_Items(ID).Sprite1
    if ZWindow_Items(ID).Sprite2>0
        if sprite exist(ZWindow_Items(ID).Sprite2)=1 then delete sprite ZWindow_Items(ID).Sprite2
    endif
    if ZWindow_Items(ID).Sprite3>0
        if sprite exist(ZWindow_Items(ID).Sprite3)=1 then delete sprite ZWindow_Items(ID).Sprite3
    endif
    if image exist (ZWindow_Items(ID).Image1)=1  then delete image ZWindow_Items(ID).Image1
    if ZWindow_Items(ID).Image2>0
        if image exist (ZWindow_Items(ID).Image2)=1  then delete image ZWindow_Items(ID).Image2
    endif
    if ZWindow_Items(ID).Image3>0
        if image exist (ZWindow_Items(ID).Image3)=1  then delete image ZWindow_Items(ID).Image3
    endif
    if ZWindow_Items(ID).Image4>0
        if image exist (ZWindow_Items(ID).Image4)=1  then delete image ZWindow_Items(ID).Image4
    endif
endif

endfunction


`***** ZWindow_DeleteWindow *****
`This command will delete the specified window

function ZWindow_DeleteWindow(ID)

for c=1 to zwindow_NumberOfItems
    if ZWindow_Items(c).Attached=ID
        ZWindow_DeleteItem(c)
    endif
next c
if sprite exist(ZWindow_Windows(ID).Sprite1)=1 then delete sprite ZWindow_Windows(ID).Sprite1
if sprite exist(ZWindow_Windows(ID).Sprite2)=1 then delete sprite ZWindow_Windows(ID).Sprite2
if sprite exist(ZWindow_Windows(ID).Sprite3)=1 then delete sprite ZWindow_Windows(ID).Sprite3
if image exist(ZWindow_Windows(ID).Image1)=1 then delete image ZWindow_Windows(ID).Image1
if image exist(ZWindow_Windows(ID).Image2)=1 then delete image ZWindow_Windows(ID).Image2
if image exist(ZWindow_Windows(ID).Image3)=1 then delete image ZWindow_Windows(ID).Image3
if image exist(ZWindow_Windows(ID).Image4)=1 then delete image ZWindow_Windows(ID).Image4
ZWindow_Windows(ID).Sprite1=0

endfunction


`***** ZWindow_GetItemState *****
`This command will return a 1 if the item is pressed or active

function ZWindow_GetItemState(ID)
if ZWindow_Items(ID).State=1
    exitfunction 1
endif
endfunction 0


`**** ZWindow_GetItemLocked *****
`This command will return a 1 if the specified item is locked

function ZWindow_GetItemLocked(ID)
returnforzwindow=ZWindow_Items(ID).Locked
endfunction returnforzwindow


`***** ZWindow_LockItem *****
`This command will lock the item so the user cannot alter it

function ZWindow_LockItem(ID)
ZWindow_Items(ID).Locked=1
endfunction


`***** ZWindow_UnlockItem *****
`This command will unlock the specified item so the user can aler it

function ZWindow_UnlockItem(ID)
ZWindow_Items(ID).Locked=0
endfunction

`***** ZWindow_SetItemLock *****
`This command will lock or unlock the item.  A 1 locks it, a 0 unlocks it.

function ZWindow_SetItemLock(ID,LockState)
if LockState=0 then ZWindow_UnlockItem(ID)
if LockState=1 then ZWindow_LockItem(ID)
endfunction


`***** ZWindow_GetItemType *****
`This command will return a 1 if the item is a button, 2 for checkbox, 3 for radio
`button, 4 for Entry Line, 5 for Entry Field, 6 for numeric Entry Line, 7 for dropdowm
`menu, and 8 for text.

function ZWindow_GetItemType(ID)
returnforzwindow=ZWindow_Items(ID).ItemType
endfunction returnforzwindow


`***** ZWindow_PositionItem *****
`This command will set the item's position

function ZWindow_PositionItem(ID,X,Y)
ZWindow_Items(ID).XPos=X
ZWindow_Items(ID).YPos=Y
endfunction


`***** Other Functions *****
`These are mostly just to supplement the commands above

function ZWindow_MouseOnSprite(spriteno)
if spriteno>0
if sprite exist(spriteno)=1
if mousex()>sprite x(spriteno)
    if mousex()<sprite x(spriteno)+sprite width(spriteno)
        if mousey()<sprite y(spriteno)+sprite height(spriteno)
            if mousey()>sprite y(spriteno)
                exitfunction 1
            endif
        endif
    endif
endif
endif
endif
endfunction 0

function ZWindow_WordWrap(s$,Width)
EndPosition=Width
zwindow_lines=1
if text width(s$)<EndPosition
   exitfunction s$
endif
for lg=1 to len(s$)
   currentchar$=mid$(s$,lg)
   currentword$=currentword$+currentchar$
   if currentchar$=" " or currentchar$="," or currentchar$="." or currentchar$="/" or currentchar$="-" or currentchar$="_" or currentchar$="?" or currentchar$="!"
      currentline$=currentline$+currentword$
      if text width(currentline$)>EndPosition
         currentline$=left$(currentline$,(len(currentline$)-len(currentword$)))
         WrappedString$=WrappedString$+currentline$+zwindow_LINEBREAK
         currentline$=currentword$
         inc zwindow_lines
      endif
      currentword$=""
   endif
next lg
if currentline$=""
   currentline$=""
   else
   WrappedString$=WrappedString$+currentline$
   inc zwindow_lines
endif
currentline$=""
currentword$=""
endfunction WrappedString$

function ZWindow_OpenBitmap(Start)
zwindow_bitmapnumber=Start
repeat
    inc zwindow_bitmapnumber
until bitmap exist(zwindow_bitmapnumber)=0
endfunction zwindow_bitmapnumber

function ZWindow_OpenImage(Start)
zwindow_imagenumber=Start
repeat
    inc zwindow_imagenumber
until image exist(zwindow_imagenumber)=0
endfunction zwindow_imagenumber

function ZWindow_OpenSprite(Start)
zwindow_spritenumber=Start
repeat
    inc zwindow_spritenumber
until sprite exist(zwindow_spritenumber)=0
endfunction zwindow_spritenumber

REM Jimmy's Gooey. U LUBIT
REM Created: 5/10/2007 4:07:03 PM
REM
REM ***** Main Source File *****
REM

SET DISPLAY MODE 1024, 768, 32
SYNC ON : SYNC RATE 0 : AUTOCAM OFF : HIDE MOUSE
HIDE LIGHT 0

GLOBAL shadows
GLOBAL minWindowObjectNumber
GLOBAL min3DTextObjectNumber
GLOBAL desktopColor
GLOBAL windowColor
GLOBAL windowActiveColor
GLOBAL windowBorderColor
GLOBAL windowBorderActiveColor
GLOBAL windowTitleColor
GLOBAL windowTitleTextColor
GLOBAL windowTitleActiveColor
GLOBAL windowTitleTextActiveColor
GLOBAL titleButtonColor1
GLOBAL titleButtonColor2
GLOBAL titleButtonActiveColor1
GLOBAL titleButtonActiveColor2
GLOBAL titleButtonHiColor1
GLOBAL titleButtonHiColor2
GLOBAL buttonColor1
GLOBAL buttonColor2
GLOBAL buttonActiveColor1
GLOBAL buttonActiveColor2
GLOBAL buttonHiColor1
GLOBAL buttonHiColor2
GLOBAL textBoxColor1
GLOBAL textBoxColor2
GLOBAL textBoxHiColor1
GLOBAL textBoxHiColor2
GLOBAL textBoxActiveColor1
GLOBAL textBoxActiveColor2

GLOBAL titleBarHeight AS FLOAT

` *** FREAKING OPTIONS ***
shadows = 1
minWindowObjectNumber = 50 `Anything between these two numbers is going to be checked in the pick object function
min3DTextObjectNumber = 5000 `Everything I don't want to be picked by the mouse is given a number greater than this

desktopColor = RGB(0,0,150)
windowColor = RGB(0,0,0)
windowActiveColor = RGB(0,0,50)
windowBorderColor = RGB(0,50,155)
windowBorderActiveColor = RGB(0,150,255)
windowTitleColor = RGB(0,0,75)
windowTitleTextColor = RGB(255,255,255)
windowTitleActiveColor = RGB(0,0,150)
windowTitleTextActiveColor = RGB(255,255,255)
titleButtonColor1 = RGB(0,0,150)
titleButtonColor2 = RGB(0,0,50)
titleButtonActiveColor1 = RGB(0,0,255)
titleButtonActiveColor2 = RGB(0,0,100)
titleButtonHiColor1 = RGB(155,155,255)
titleButtonHiColor2 = RGB(50,50,150)
buttonColor1 = RGB(0,0,150)
buttonColor2 = RGB(0,0,50)
buttonActiveColor1 = RGB(0,0,255)
buttonActiveColor2 = RGB(0,0,100)
buttonHiColor1 = RGB(155,155,255)
buttonHiColor2 = RGB(50,50,150)
textBoxColor1 = RGB(0,0,150)
textBoxColor2 = RGB(0,0,0)
textBoxActiveColor1 = RGB(0,0,255)
textBoxActiveColor2 = RGB(0,0,0)
textBoxHiColor1 = RGB(155,155,255)
textBoxHiColor2 = RGB(100,100,100)

titleBarHeight = 15.0

debug = 0
` ***

GLOBAL oTITLE
GLOBAL oWINDOW
GLOBAL oTOPBORDER
GLOBAL oBOTBORDER
GLOBAL oLEFTBORDER
GLOBAL oRIGHTBORDER
GLOBAL oCLOSEBUTTON
GLOBAL oMINBUTTON
GLOBAL oMAXBUTTON
GLOBAL oTASKBUTTON
GLOBAL oBUTTON
GLOBAL oTEXTBOX

oWINDOW = 1
oTITLE = 2
oTOPBORDER = 3
oBOTBORDER = 4
oLEFTBORDER = 5
oRIGHTBORDER = 6
oCLOSEBUTTON = 7
oMINBUTTON = 8
oMAXBUTTON = 9
oTASKBUTTON = 10
oBUTTON = 31
oTEXTBOX = 32

TYPE window
   obj AS INTEGER
   titleObj AS INTEGER
   caption3dt AS INTEGER
   topBorder AS INTEGER
   botBorder AS INTEGER
   leftBorder AS INTEGER
   rightBorder AS INTEGER
   closeButton AS INTEGER
   minButton AS INTEGER
   taskButton AS INTEGER
   active AS INTEGER
   visible AS INTEGER
   width AS FLOAT
   height AS FLOAT
   x AS FLOAT
   y AS FLOAT
   name AS STRING
ENDTYPE

TYPE object
   obj AS INTEGER
   oType AS INTEGER
   parent AS INTEGER
   caption3dt AS INTEGER
   width AS FLOAT
   height AS FLOAT
   active AS INTEGER
   visible AS INTEGER
   x AS FLOAT
   y AS FLOAT
   name AS STRING
   txt AS STRING
ENDTYPE

TYPE threedt
   obj AS INTEGER
   width AS FLOAT
   height AS FLOAT
   txt AS STRING
ENDTYPE

DIM windows(99) AS window
DIM objects(255) AS object
DIM threedts(255) AS threedt

GLOBAL hiliting
GLOBAL hibutton
GLOBAL numWindows
GLOBAL numObjects
GLOBAL num3dts
GLOBAL taskButtons

numWindows = 0
numObjects = 0
num3dts = 0
taskButtons = 0

GLOBAL pt
GLOBAL lastPointerX# AS FLOAT
GLOBAL lastPointerY# AS FLOAT
GLOBAL mClick
GLOBAL lastTime
GLOBAL loopTime

mClick = -1
lastTime = TIMER()
plainObj = NextObj(min3DTextObjectNumber)
MAKE OBJECT PLAIN plainObj, 1000, 500
COLOR OBJECT plainObj, desktopColor

XROTATE OBJECT plainObj, -90.0

POSITION CAMERA 0, 410, 0
POINT CAMERA 0, 0, 0

pointerSize = 10
pointer = CreateMousePointer(pointerSize)
curPointer = pointer
pt = NextObj(min3DTextObjectNumber)
MAKE OBJECT SPHERE pt, 2
HIDE OBJECT pt

IF shadows = 1 
   SET SHADOW SHADING ON plainObj,-1,1000,1
   SET SHADOW SHADING ON pointer,-1,1000,1
ENDIF

lightObj = NextLight()
MAKE LIGHT lightObj
SET POINT LIGHT lightObj,0,0,0
SET LIGHT RANGE lightObj,6000
COLOR LIGHT lightObj, RGB(155, 155, 155)

IF shadows = 1 THEN SET SHADOW POSITION lightObj,0,0,0
POSITION LIGHT lightObj, 100, 575, 100


CreateWindow(1, 150, 100, "Hellow Window...", "hello")
AddTextBox(1, -32, -25, 75, 14, "It SHANGES", "buttxt")
AddButton(1, -40, 0, 60, 16, "Button Text", "butwittxt")
PositionWindow(1, -100, 15, 100)

DO
   UpdateDelta()
   GOSUB _DoMouse

   TEXT 5, 5, "FPS: "+STR$(SCREEN FPS())
   SYNC
LOOP

_DoMouse:
   yep = PICK OBJECT(MOUSEX(), MOUSEY(), plainObj, plainObj)

   pickX = GET PICK VECTOR X()
   pickY = GET PICK VECTOR Y()
   pickZ = GET PICK VECTOR Z()
   POSITION OBJECT curPointer, pickX, 430+pickY, pickZ
   ptX# = LIMB POSITION X(curPointer, 2)
   ptY# = LIMB POSITION Z(curPointer, 2)
   POSITION OBJECT pt, ptX#, LIMB POSITION Y(curPointer, 2), ptY#
   mmx# = PointerMoveX()
   mmy# = PointerMoveY()
   pickpick = PICK OBJECT(OBJECT SCREEN X(pt), OBJECT SCREEN Y(pt), minWindowObjectNumber, min3DTextObjectNumber-1)
   pickType = 0
   IF windowLock <> 0
      PositionWindow(windowLock, windows(windowLock).x+mmx#, 15, windows(windowLock).y+mmy#) 
   ENDIF
   hiliting = 0
   IF pickpick <> 0
      pickType = GetObjectType(pickpick)
      IF pickType = oCLOSEBUTTON
         HighlightButton(GetObject(pickpick))
      ENDIF
      IF pickType = oMINBUTTON
         HighlightButton(GetObject(pickpick))
      ENDIF
      IF pickType = oTASKBUTTON
         HighlightButton(GetObject(pickpick))
      ENDIF       
      IF pickType = oBUTTON
         HighlightButton(GetObject(pickpick))
      ENDIF  
   ENDIF
   
   IF MOUSECLICK() = 1 AND mClick = -1
      mClick = GetObject(pickpick)
      IF objects(mClick).oType = oTITLE
         windowLock = GetWindowFromObject(objects(mClick).parent)  
      ENDIF
   ENDIF
   IF MOUSECLICK() = 0 AND mClick <> -1
      IF objects(mClick).oType = oTITLE
         windowLock = 0
      ENDIF
      IF objects(mClick).oType = oMINBUTTON AND objects(mClick).obj = pickpick
         MinimizeWindow(objects(mClick).parent)
      ENDIF
      IF objects(mClick).oType = oTASKBUTTON AND objects(mClick).obj = pickpick
         RestoreWindow(objects(mClick).parent)
      ENDIF
      IF objects(mClick).oType = oBUTTON AND objects(mClick).obj = pickpick
         OnButtonClick(mClick)
      ENDIF 
      mClick = -1
   ENDIF
   
   IF hiliting = 0 AND hibutton <> 0 THEN UnHighlightButton(hibutton)
   
   IF debug = 1
      TEXT 5, 25, "PickX: "+STR$(pickX)
      TEXT 5, 45, "PickY: "+STR$(pickY)
      TEXT 5, 65, "PickZ: "+STR$(pickZ)
      TEXT 5, 85, "PtX: "+STR$(ptX#)
      TEXT 5, 105, "PtY: "+STR$(ptY#)
      TEXT 5, 125, "PickPick: "+STR$(pickpick)
      TEXT 5, 145, "PickType: "+STR$(pickType)
      TEXT 5, 165, "MMX: "+STR$(mmx#)
      TEXT 5, 185, "MMY: "+STR$(mmy#)
   ENDIF
RETURN

FUNCTION OnButtonClick(o)
   nm$ = objects(o).name
   SELECT nm$
      CASE "butwittxt" : ChangeButtonText(o, objects(GetObjectByName("buttxt")).txt) : ENDCASE
   ENDSELECT
ENDFUNCTION

FUNCTION GetObjectByName(name$)
   o = -1
   FOR i = 1 TO numObjects
      IF objects(i).name = name$ THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION o

FUNCTION ChangeButtonText(o, txt$)
   newTxt$ = threedts(objects(o).caption3dt).txt
   objects(GetObjectByName("buttxt")).txt = newTxt$
   ThreeDeeText(objects(o).caption3dt, txt$)
   ThreeDeeText(objects(GetObjectByName("buttxt")).caption3dt, newTxt$)
ENDFUNCTION

FUNCTION RestoreWindow(win)
   windows(win).visible = 1
   SHOW OBJECT windows(win).obj
   SHOW OBJECT threedts(windows(win).caption3dt).obj
   
   FOR i = 1 TO numObjects
      IF objects(i).parent = win AND objects(i).oType <> oTASKBUTTON
         SHOW OBJECT objects(i).obj
         IF objects(i).caption3dt <> 0 THEN SHOW OBJECT threedts(objects(i).caption3dt).obj
      ENDIF
   NEXT i
   COLOR OBJECT objects(windows(win).taskButton).obj, buttonColor2
   PERFORM CHECKLIST FOR OBJECT LIMBS objects(windows(win).taskButton).obj
   numLimbs = CHECKLIST QUANTITY()
   FOR i = 1 TO numLimbs-1
      COLOR LIMB objects(windows(win).taskButton).obj, i, buttonColor1
   NEXT i  
ENDFUNCTION

FUNCTION MinimizeWindow(win)
   windows(win).visible = -1
   HIDE OBJECT windows(win).obj
   HIDE OBJECT threedts(windows(win).caption3dt).obj
   FOR i = 1 TO numObjects
      IF objects(i).parent = win AND objects(i).oType <> oTASKBUTTON
         HIDE OBJECT objects(i).obj
         IF objects(i).caption3dt <> 0 THEN HIDE OBJECT threedts(objects(i).caption3dt).obj
      ENDIF
   NEXT i
   COLOR OBJECT objects(windows(win).taskButton).obj, buttonActiveColor2
   PERFORM CHECKLIST FOR OBJECT LIMBS objects(windows(win).taskButton).obj
   numLimbs = CHECKLIST QUANTITY()
   FOR i = 1 TO numLimbs-1
      COLOR LIMB objects(windows(win).taskButton).obj, i, buttonActiveColor1
   NEXT i   
ENDFUNCTION

FUNCTION HighlightButton(o)
   hiliting = 1
   hibutton = o
   obj = objects(o).obj
   typ = objects(o).oType
   PERFORM CHECKLIST FOR OBJECT LIMBS obj
   numLimbs = CHECKLIST QUANTITY()
   COLOR OBJECT obj, titleButtonHiColor2
   FOR i = 1 TO numLimbs-1
      COLOR LIMB obj, i, titleButtonHiColor1
   NEXT i
ENDFUNCTION

FUNCTION UnHighlightButton(o)
   hiliting = 0
   obj = objects(o).obj
   typ = objects(o).oType
   PERFORM CHECKLIST FOR OBJECT LIMBS obj
   numLimbs = CHECKLIST QUANTITY()
   COLOR OBJECT obj, titleButtonActiveColor2
   FOR i = 1 TO numLimbs-1
      COLOR LIMB obj, i, titleButtonActiveColor1
   NEXT i
ENDFUNCTION

FUNCTION PointerMoveX()
   move# = OBJECT POSITION X(pt)-lastPointerX#
   lastPointerX# = OBJECT POSITION X(pt)
ENDFUNCTION move#

FUNCTION PointerMoveY()
   move# = OBJECT POSITION Z(pt)-lastPointerY#
   lastPointerY# = OBJECT POSITION Z(pt)
ENDFUNCTION move#

FUNCTION GetObjectType(o)
   objNum = GetObject(o)
   ptype = objects(objNum).oType
ENDFUNCTION ptype

FUNCTION GetWindowFromObject(o)
   FOR i = 1 TO numWindows
      IF windows(i).obj = objects(o).obj THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION GetObject(o)
   FOR i = 1 TO numObjects
      IF objects(i).obj = o THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION NewThreeDeeText(txt$)
   obj = NextObj(min3DTextObjectNumber)
   MAKE OBJECT PLAIN obj, 1, 1
   XROTATE OBJECT obj, -90
   INC num3dts
   threedts(num3dts).obj = obj
   ThreeDeeText(num3dts, txt$)
ENDFUNCTION num3dts

FUNCTION ThreeDeeText(dddt, txt$)
   w = TEXT WIDTH(txt$)
   h = TEXT HEIGHT(txt$)
   threedts(dddt).txt = txt$
   SCALE OBJECT threedts(dddt).obj, 60.0*(w), 60.0*h, 100.0
   threedts(dddt).width = (60.0*w)/100.0
   IF w > 0 AND h > 0
      CREATE BITMAP 1, w, h
      CENTER TEXT w/2, 0, txt$
      IF IMAGE EXIST(threedts(dddt).obj) THEN DELETE IMAGE threedts(dddt).obj
      GET IMAGE threedts(dddt).obj, 0, 0, w, h, 1
      TEXTURE OBJECT threedts(dddt).obj, threedts(dddt).obj
      SET OBJECT TRANSPARENCY threedts(dddt).obj, 1
      DELETE BITMAP 1
   ENDIF
ENDFUNCTION

FUNCTION AddButton(win, x, y, w, h, caption$, name$)
	butObj = NextObj(minWindowObjectNumber)
	d = 2
	MAKE OBJECT BOX butObj, w, d, h
	x1 = NextObj(1)
	MAKE OBJECT CYLINDER x1, 1
	MAKE MESH FROM OBJECT x1, x1
	FOR i = 1 TO 12
	  ADD LIMB butObj, i, x1	
	NEXT i
	DELETE MESH x1
	DELETE OBJECT x1
	   	
	FOR i = 1 TO 4
      SCALE LIMB butObj, i, 100.0, 100.0*d, 100.0
	NEXT i
	FOR i = 5 TO 8
      SCALE LIMB butObj, i, 100.0, 100.0*(w), 100.0
	NEXT i	
	FOR i = 9 TO 12
      SCALE LIMB butObj, i, 100.0, 100.0*(h), 100.0
	NEXT i
	
	OFFSET LIMB butObj, 1, w/-2, 0, h/-2
	OFFSET LIMB butObj, 2, w/-2, 0, h/2
	OFFSET LIMB butObj, 3, w/2, 0, h/2
	OFFSET LIMB butObj, 4, w/2, 0, h/-2
	
	ROTATE LIMB butObj, 5, 90, 90, 0
	ROTATE LIMB butObj, 6, 90, 90, 0
	ROTATE LIMB butObj, 7, 90, 90, 0
	ROTATE LIMB butObj, 8, 90, 90, 0

	OFFSET LIMB butObj, 5, 0, d/2, h/-2
	OFFSET LIMB butObj, 6, 0, d/2, h/2
	OFFSET LIMB butObj, 7, 0, d/-2, h/-2
	OFFSET LIMB butObj, 8, 0, d/-2, h/2

	ROTATE LIMB butObj, 9, 90, 0, 0
	ROTATE LIMB butObj, 10, 90, 0, 0
	ROTATE LIMB butObj, 11, 90, 0, 0
	ROTATE LIMB butObj, 12, 90, 0, 0

	OFFSET LIMB butObj, 9, w/-2, d/2, 0
	OFFSET LIMB butObj, 10, w/-2, d/-2, 0
	OFFSET LIMB butObj, 11, w/2, d/2, 0
	OFFSET LIMB butObj, 12, w/2, d/-2, 0

	COLOR OBJECT butObj, buttonActiveColor2
   FOR i = 1 TO 12
      COLOR LIMB butObj, i, buttonActiveColor1
   NEXT i
	
	IF shadows = 1 THEN SET SHADOW SHADING ON butObj,-1,1000,1
	but = AddObject(butObj, oBUTTON, win)
	objects(but).caption3dt = NewThreeDeeText(caption$)
	objects(but).name = name$
	objects(but).x = x
	objects(but).y = y
	objects(but).width = w
	objects(but).height = h
ENDFUNCTION

FUNCTION AddTextBox(win, x, y, w, h, txt$, name$)
	butObj = NextObj(minWindowObjectNumber)
	d = 2
	MAKE OBJECT PLAIN butObj, w, h
	
	x1 = NextObj(1)
	MAKE OBJECT CYLINDER x1, 1
	MAKE MESH FROM OBJECT x1, x1
	FOR i = 1 TO 4
	  ADD LIMB butObj, i, x1	
	NEXT i
	DELETE MESH x1
	DELETE OBJECT x1
	   	
	FOR i = 1 TO 2
      SCALE LIMB butObj, i, 100.0, 100.0*(w), 100.0
	NEXT i	
	FOR i = 3 TO 4
      SCALE LIMB butObj, i, 100.0, 100.0*(h), 100.0
	NEXT i
	
	ROTATE LIMB butObj, 1, 0, 0, 90
	ROTATE LIMB butObj, 2, 0, 0, 90
	OFFSET LIMB butObj, 1, 0, h/-2, 0
	OFFSET LIMB butObj, 2, 0, h/2, 0

	`ROTATE LIMB butObj, 3, 90, 0, 0
	`ROTATE LIMB butObj, 4, 90, 0, 0
	OFFSET LIMB butObj, 3, w/-2, 0, 0
	OFFSET LIMB butObj, 4, w/2, 0, 0

   XROTATE OBJECT butObj, -90
	COLOR OBJECT butObj, textBoxActiveColor2
   FOR i = 1 TO 4
      COLOR LIMB butObj, i, textBoxActiveColor1
   NEXT i
	
	IF shadows = 1 THEN SET SHADOW SHADING ON butObj,-1,1000,1
	but = AddObject(butObj, oTEXTBOX, win)
	objects(but).caption3dt = NewThreeDeeText(txt$)
	objects(but).txt = txt$
	objects(but).name = name$
	objects(but).x = x
	objects(but).y = y
	objects(but).width = w
	objects(but).height = h
ENDFUNCTION

FUNCTION CreateTaskButton(win, caption$)
	butObj = NextObj(minWindowObjectNumber)
	w = 100
	h = 16
	MAKE OBJECT BOX butObj, w, 5, h
	x1 = NextObj(1)
	MAKE OBJECT CYLINDER x1, 2
	MAKE MESH FROM OBJECT x1, x1
	FOR i = 1 TO 12
	  ADD LIMB butObj, i, x1	
	NEXT i
	DELETE MESH x1
	DELETE OBJECT x1
	   	
	FOR i = 1 TO 4
      SCALE LIMB butObj, i, 100.0, 250.0, 100.0
	NEXT i
	FOR i = 5 TO 8
      SCALE LIMB butObj, i, 100.0, 5000.0, 100.0
	NEXT i	
	FOR i = 9 TO 12
      SCALE LIMB butObj, i, 100.0, 800.0, 100.0
	NEXT i
	
	OFFSET LIMB butObj, 1, w/-2, 0, h/-2
	OFFSET LIMB butObj, 2, w/-2, 0, h/2
	OFFSET LIMB butObj, 3, w/2, 0, h/2
	OFFSET LIMB butObj, 4, w/2, 0, h/-2
	
	ROTATE LIMB butObj, 5, 90, 90, 0
	ROTATE LIMB butObj, 6, 90, 90, 0
	ROTATE LIMB butObj, 7, 90, 90, 0
	ROTATE LIMB butObj, 8, 90, 90, 0

	OFFSET LIMB butObj, 5, 0, 2.5, -8
	OFFSET LIMB butObj, 6, 0, 2.5, 8
	OFFSET LIMB butObj, 7, 0, -2.5, -8
	OFFSET LIMB butObj, 8, 0, -2.5, 8

	ROTATE LIMB butObj, 9, 90, 0, 0
	ROTATE LIMB butObj, 10, 90, 0, 0
	ROTATE LIMB butObj, 11, 90, 0, 0
	ROTATE LIMB butObj, 12, 90, 0, 0

	OFFSET LIMB butObj, 9, -50, 2.5, 0
	OFFSET LIMB butObj, 10, -50, -2.5, 0
	OFFSET LIMB butObj, 11, 50, 2.5, 0
	OFFSET LIMB butObj, 12, 50, -2.5, 0

	COLOR OBJECT butObj, buttonColor2
   FOR i = 1 TO 12
      COLOR LIMB butObj, i, buttonColor1
   NEXT i
	
	IF shadows = 1 THEN SET SHADOW SHADING ON butObj,-1,1000,1
	but = AddObject(butObj, oTASKBUTTON, win)
	objects(but).name = "task"+windows(win).name
	
	INC taskButtons
	taskX = (taskButtons-1)*-30
	windows(win).taskButton = but
	objects(but).caption3dt = NewThreeDeeText(caption$)
   FOR i = 1 TO numWindows
      curbut = windows(i).taskButton
      POSITION OBJECT objects(curbut).obj, taskX+(30*(i-1)), 5, -210.0
      POSITION OBJECT threedts(objects(curbut).caption3dt).obj, taskX+(30*(i-1)), 7.55, -210.0
   NEXT i
ENDFUNCTION

FUNCTION CreateWindow(win, w, h, caption$, name$)
   INC numWindows
   windows(win).name = name$
   windows(win).height = h
   windows(win).width = w
   windows(win).obj = NextObj(minWindowObjectNumber)
   MAKE OBJECT PLAIN windows(win).obj, w, h
   XROTATE OBJECT windows(win).obj, -90
   COLOR OBJECT windows(win).obj, windowActiveColor
   winObj = AddObject(windows(win).obj, oWINDOW, 0)
   windows(win).titleObj = NextObj(minWindowObjectNumber)
   
   windows(win).caption3dt = NewThreeDeeText(caption$)
   
   MAKE OBJECT PLAIN windows(win).titleObj, w, titleBarHeight
   XROTATE OBJECT windows(win).titleObj, -90
   COLOR OBJECT windows(win).titleObj, windowTitleActiveColor
   titObj = AddObject(windows(win).titleObj, oTITLE, winObj)
   
   windows(win).topBorder = NextObj(minWindowObjectNumber)
   MAKE OBJECT CYLINDER windows(win).topBorder, 1
   SCALE OBJECT windows(win).topBorder, 100.0, 100.0*w, 100.0
   XROTATE OBJECT windows(win).topBorder, 90
   YROTATE OBJECT windows(win).topBorder, 90
   COLOR OBJECT windows(win).topBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).topBorder, oTOPBORDER, winObj)
   
   windows(win).botBorder = NextObj(minWindowObjectNumber)
   MAKE OBJECT CYLINDER windows(win).botBorder, 1
   SCALE OBJECT windows(win).botBorder, 100.0, 100.0*w, 100.0
   XROTATE OBJECT windows(win).botBorder, 90
   YROTATE OBJECT windows(win).botBorder, 90
   COLOR OBJECT windows(win).botBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).botBorder, oBOTBORDER, winObj)
   
   windows(win).leftBorder = NextObj(minWindowObjectNumber)
   MAKE OBJECT CYLINDER windows(win).leftBorder, 1
   SCALE OBJECT windows(win).leftBorder, 100.0, 100.0*h, 100.0
   XROTATE OBJECT windows(win).leftBorder, 90
   COLOR OBJECT windows(win).leftBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).leftBorder, oLEFTBORDER, winObj)
   
   windows(win).rightBorder = NextObj(minWindowObjectNumber)
   MAKE OBJECT CYLINDER windows(win).rightBorder, 1
   SCALE OBJECT windows(win).rightBorder, 100.0, 100.0*h, 100.0
   XROTATE OBJECT windows(win).rightBorder, 90
   COLOR OBJECT windows(win).rightBorder, windowBorderActiveColor
   tbObj = AddObject(windows(win).rightBorder, oRIGHTBORDER, winObj)
   
   windows(win).closeButton = NextObj(minWindowObjectNumber)
   MAKE OBJECT CUBE windows(win).closeButton, titleBarHeight-8
   x1 = NextObj(1)
   MAKE OBJECT CYLINDER x1, 2
   x2 = NextObj(1)
   MAKE OBJECT CYLINDER x2, 2
   MAKE MESH FROM OBJECT 1, x1
   MAKE MESH FROM OBJECT 2, x2
   ADD LIMB windows(win).closeButton, 1, 1
   ADD LIMB windows(win).closeButton, 2, 2
   DELETE MESH 1
   DELETE MESH 2
   DELETE OBJECT x1
   DELETE OBJECT x2
   SCALE LIMB windows(win).closeButton, 1, 100.0, 100.0*(titleBarHeight-8), 100.0
   SCALE LIMB windows(win).closeButton, 2, 100.0, 100.0*(titleBarHeight-8), 100.0
   ROTATE LIMB windows(win).closeButton, 1, 90, 45, 0
   ROTATE LIMB windows(win).closeButton, 2, 90, -45, 0
   OFFSET LIMB windows(win).closeButton, 1, 0, OBJECT SIZE Y(windows(win).closeButton)/2, 0
   OFFSET LIMB windows(win).closeButton, 2, 0, OBJECT SIZE Y(windows(win).closeButton)/2, 0
   COLOR OBJECT windows(win).closeButton, titleButtonActiveColor2
   COLOR LIMB windows(win).closeButton, 1, titleButtonActiveColor1
   COLOR LIMB windows(win).closeButton, 2, titleButtonActiveColor1
   tbObj = AddObject(windows(win).closeButton, oCLOSEBUTTON, winObj)
   
   windows(win).minButton = NextObj(minWindowObjectNumber)
   MAKE OBJECT CUBE windows(win).minButton, titleBarHeight-8
   x1 = NextObj(1)
   MAKE OBJECT CYLINDER x1, 2
   x2 = NextObj(1)
   MAKE OBJECT CYLINDER x2, 2
   x3 = NextObj(1)
   MAKE OBJECT CYLINDER x3, 2
   MAKE MESH FROM OBJECT 1, x1
   MAKE MESH FROM OBJECT 2, x2
   MAKE MESH FROM OBJECT 3, x3
   ADD LIMB windows(win).minButton, 1, 1
   ADD LIMB windows(win).minButton, 2, 2
   ADD LIMB windows(win).minButton, 3, 3
   DELETE MESH 1
   DELETE MESH 2
   DELETE MESH 3
   DELETE OBJECT x1
   DELETE OBJECT x2
   DELETE OBJECT x3
   SCALE LIMB windows(win).minButton, 1, 100.0, 50.0*(titleBarHeight-8), 100.0
   SCALE LIMB windows(win).minButton, 2, 100.0, 50.0*(titleBarHeight-8), 100.0
   SCALE LIMB windows(win).minButton, 3, 100.0, 40.0*(titleBarHeight-8), 100.0
   ROTATE LIMB windows(win).minButton, 1, 90, 45, 0
   ROTATE LIMB windows(win).minButton, 2, 90, -45, 0
   ROTATE LIMB windows(win).minButton, 3, 90, 0, 0
   OFFSET LIMB windows(win).minButton, 1, OBJECT SIZE X(windows(win).minButton)/3, OBJECT SIZE Y(windows(win).minButton)/2, OBJECT SIZE Z(windows(win).minButton)/-3
   OFFSET LIMB windows(win).minButton, 2, OBJECT SIZE X(windows(win).minButton)/-3, OBJECT SIZE Y(windows(win).minButton)/2, OBJECT SIZE Z(windows(win).minButton)/-3
   OFFSET LIMB windows(win).minButton, 3, 0, OBJECT SIZE Y(windows(win).minButton)/2, OBJECT SIZE Z(windows(win).minButton)/3
   COLOR OBJECT windows(win).minButton, titleButtonActiveColor2
   COLOR LIMB windows(win).minButton, 1, titleButtonActiveColor1
   COLOR LIMB windows(win).minButton, 2, titleButtonActiveColor1   
   COLOR LIMB windows(win).minButton, 3, titleButtonActiveColor1      
   tbObj = AddObject(windows(win).minButton, oMINBUTTON, winObj)
   
   IF shadows = 1 
      SET SHADOW SHADING ON windows(win).obj,-1,1000,1
      SET SHADOW SHADING ON windows(win).titleObj,-1,1000,1
      SET SHADOW SHADING ON windows(win).topBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).botBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).leftBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).rightBorder,-1,1000,1
      SET SHADOW SHADING ON windows(win).closeButton,-1,1000,1
      SET SHADOW SHADING ON windows(win).minButton,-1,1000,1
   ENDIF
   CreateTaskButton(win, caption$)
ENDFUNCTION

FUNCTION AddObject(o, ot, parent)
   INC numObjects
   objects(numObjects).obj = o
   objects(numObjects).oType = ot
   objects(numObjects).parent = parent
ENDFUNCTION numObjects

FUNCTION PositionWindow(win, x, y, z)
   h# = windows(win).height
   w# = windows(win).width
   windows(win).x = x
   windows(win).y = z
   POSITION OBJECT windows(win).obj, x, y, z
   POSITION OBJECT windows(win).titleObj, x, y+0.1, z+(h#/2)-(titleBarHeight/2)
   POSITION OBJECT windows(win).topBorder, x, y, z+(h#/2)
   POSITION OBJECT windows(win).botBorder, x, y, z-(h#/2)
   POSITION OBJECT windows(win).leftBorder, x-(w#/2), y, z
   POSITION OBJECT windows(win).rightBorder, x+(w#/2), y, z
   POSITION OBJECT windows(win).closeButton, x+(w#/2)-8, y, z+(h#/2)-(titleBarHeight/2)
   POSITION OBJECT threedts(windows(win).caption3dt).obj, x-(w#/2)+(threedts(windows(win).caption3dt).width/2)+8, y+0.2, z+(h#/2)-(titleBarHeight/2)
   POSITION OBJECT windows(win).minButton, (x+(w#/2)-22), y, z+(h#/2)-(titleBarHeight/2)
   FOR i = 1 TO numObjects
      IF objects(i).parent = win AND objects(i).oType > 30
         POSITION OBJECT objects(i).obj, x+2+objects(i).x, y+1, z-titleBarHeight-objects(i).y
         IF objects(i).oType = 31 THEN POSITION OBJECT threedts(objects(i).caption3dt).obj, x+2+objects(i).x, OBJECT POSITION Y(objects(i).obj)+(OBJECT SIZE Y(objects(i).obj)/2)+0.05, z-titleBarHeight-objects(i).y
         IF objects(i).oType = 32 THEN POSITION OBJECT threedts(objects(i).caption3dt).obj, x+2+objects(i).x, OBJECT POSITION Y(objects(i).obj)+0.05, z-titleBarHeight-objects(i).y
      ENDIF
   NEXT i
ENDFUNCTION

FUNCTION CreateMousePointer(size)
   tip = NextObj(min3DTextObjectNumber)
   MAKE OBJECT CONE tip, size
   shaft = NextObj(min3DTextObjectNumber)
   MAKE OBJECT CYLINDER shaft, size/2
   pt = NextObj(min3DTextObjectNumber)
   MAKE OBJECT SPHERE pt, 1.0
   
   MAKE MESH FROM OBJECT 1, shaft
   ADD LIMB tip, 1, 1
   OFFSET LIMB tip, 1, 0, (size/2)*-1, 0
   MAKE MESH FROM OBJECT 2, pt
   ADD LIMB tip, 2, 2
   OFFSET LIMB tip, 2, 0, size/2, 0
   HIDE LIMB tip, 2
   
   XROTATE OBJECT tip, 90
   YROTATE OBJECT tip, -25
   DELETE OBJECT shaft
   DELETE OBJECT pt
   DELETE MESH 1
   DELETE MESH 2

ENDFUNCTION tip

FUNCTION UpdateDelta()
   dTimer = TIMER()
   loopTime = dTimer-lastTime
   lastTime= dTimer
ENDFUNCTION

FUNCTION Delta(val#)
   res# = val#*0.060*loopTime
ENDFUNCTION res#

FUNCTION NextLight()
   FOR i = 1 TO 65535
      IF LIGHT EXIST(i) = 0 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION NextObj(start)
   FOR i = start TO 65535
      IF OBJECT EXIST(i) = 0 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

`Gravity Simulation
`by bmaczero for the DBPro Coding Challenges

`====================================
`========== Basic Setup =============

sync on : sync rate 60
set window title "Gravity Demo"


`====================================
`========== Variables   =============

#Constant PlanetImage 1
#Constant CometImage 2

type PlanetType
    SpriteNo as Integer
    ImageNo as Integer
    MaxRange as Float
    Divisor as Float
    Radius as Float
    XPos as Float
    YPos as Float
endtype
type CometType
    SpriteNo as Integer
    ImageNo as Integer
    XPos as Float
    YPos as Float
    Radius as Float
    SpeedX as Float
    SpeedY as Float
endtype

global DIM Planets(0) as PlanetType
global DIM Comets(0) as CometType

global NumberOfPlanets
global NumberOfComets


`====================================
`========== Setup Media =============

`====================================
`========== Main Program ============

Planet1=MakePlanet(0,0,600.0000,1000,40,400,400)
Planet2=MakePlanet(0,0,600.0000,1000,40,200,200)

remstart
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,500)
MakeComet(0,0,10,450,500)
MakeComet(0,0,10,500,350)

MakeComet(0,0,10,350,450)
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,350)
MakeComet(0,0,10,450,350)
remend

do

for c=1 to NumberOfComets
    if Comets(c).SpriteNo>0
        for g=1 to NumberOfPlanets
            DistanceX#=abs(sprite x(Comets(c).SpriteNo)-sprite x(Planets(g).SpriteNo))
            DistanceY#=abs(sprite y(Comets(c).SpriteNo)-sprite y(Planets(g).SpriteNo))
            if DistanceX#>Planets(g).MaxRange or DistanceY#>Planets(g).MaxRange then NoGo=1
            if sprite x(Comets(c).SpriteNo)<sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedX,Movement#
            endif
            if sprite x(Comets(c).SpriteNo)>sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedX,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)<sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedY,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)>sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedY,Movement#
            endif
            NoGo=0
            if DistanceX#<Planets(g).Radius and DistanceY#<Planets(g).Radius
                inc Comets(c).XPos,Comets(c).SpeedX
                inc Comets(c).YPos,Comets(c).SpeedY
                sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
                `DeleteComet(c)
                popped=1
                exit
            endif
        next g
        if popped=1
            popped=0
            else
            inc Comets(c).XPos,Comets(c).SpeedX
            inc Comets(c).YPos,Comets(c).SpeedY
            sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
        endif
    endif
next c

if mouseclick()=1 and clicked=0
    clicked=1
    MakeComet(0,0,10,mousex(),mousey())
endif
if mouseclick()=0 then clicked=0

sync
loop


`====================================
`======  Functions  =================

function MakePlanet(SpriteNo,ImageNo,MaxRange as Float,Divisor as Float,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo

inc NumberOfPlanets
array insert at bottom Planets(0)
Planets(NumberOfPlanets).SpriteNo=SpriteNo
Planets(NumberOfPlanets).ImageNo=ImageNo
Planets(NumberOfPlanets).MaxRange=MaxRange
Planets(NumberOfPlanets).Divisor=Divisor
Planets(NumberOfPlanets).Radius=Radius
Planets(NumberOfPlanets).XPos=XPos
Planets(NumberOfPlanets).YPos=YPos

endfunction NumberOfPlanets


function MakeComet(SpriteNo,ImageNo,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
circle Radius,Radius,Radius/2
circle Radius,Radius,Radius/3
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo

inc NumberOfComets
array insert at bottom Comets(0)
Comets(NumberOfComets).SpriteNo=SpriteNo
Comets(NumberOfComets).ImageNo=ImageNo
Comets(NumberOfComets).Radius=Radius
Comets(NumberOfComets).XPos=XPos
Comets(NumberOfComets).YPos=YPos

endfunction NumberOfComets


function DeleteComet(Index)
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function DeletePlanet(Index)
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function FindFreeBitmap(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until bitmap exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeSprite(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until sprite exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeImage(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until image exist(CurrentNumber)=0
endfunction CurrentNumber

`Gravity Simulation
`by bmaczero for the DBPro Coding Challenges

`====================================
`========== Basic Setup =============

sync on : sync rate 60
set window title "Gravity Demo"


`====================================
`========== Variables   =============

#Constant PlanetImage 1
#Constant CometImage 2

type PlanetType
    SpriteNo as Integer
    ImageNo as Integer
    MaxRange as Float
    Divisor as Float
    Radius as Float
    XPos as Float
    YPos as Float
endtype
type CometType
    SpriteNo as Integer
    ImageNo as Integer
    XPos as Float
    YPos as Float
    Radius as Float
    SpeedX as Float
    SpeedY as Float
endtype

global DIM Planets(0) as PlanetType
global DIM Comets(0) as CometType

global NumberOfPlanets
global NumberOfComets


`====================================
`========== Setup Media =============

`====================================
`========== Main Program ============

Planet1=MakePlanet(0,0,600.0000,1000,40,400,400)
Planet2=MakePlanet(0,0,600.0000,1000,40,200,200)

remstart
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,500)
MakeComet(0,0,10,450,500)
MakeComet(0,0,10,500,350)

MakeComet(0,0,10,350,450)
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,350)
MakeComet(0,0,10,450,350)
remend

do

for c=1 to NumberOfComets
    if Comets(c).SpriteNo>0
        for g=1 to NumberOfPlanets
            DistanceX#=abs(sprite x(Comets(c).SpriteNo)-sprite x(Planets(g).SpriteNo))
            DistanceY#=abs(sprite y(Comets(c).SpriteNo)-sprite y(Planets(g).SpriteNo))
            if DistanceX#>Planets(g).MaxRange or DistanceY#>Planets(g).MaxRange then NoGo=1
            if sprite x(Comets(c).SpriteNo)<sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedX,Movement#
            endif
            if sprite x(Comets(c).SpriteNo)>sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedX,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)<sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedY,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)>sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedY,Movement#
            endif
            NoGo=0
            if DistanceX#<Planets(g).Radius and DistanceY#<Planets(g).Radius
                inc Comets(c).XPos,Comets(c).SpeedX
                inc Comets(c).YPos,Comets(c).SpeedY
                sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
                `DeleteComet(c)
                popped=1
                exit
            endif
        next g
        if popped=1
            popped=0
            else
            inc Comets(c).XPos,Comets(c).SpeedX
            inc Comets(c).YPos,Comets(c).SpeedY
            sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
        endif
    endif
next c

if mouseclick()=1    :`and clicked=0
    clicked=1
    MakeComet(0,0,10,mousex(),mousey())
endif
if mouseclick()=0 then clicked=0

sync
loop


`====================================
`======  Functions  =================

function MakePlanet(SpriteNo,ImageNo,MaxRange as Float,Divisor as Float,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo

inc NumberOfPlanets
array insert at bottom Planets(0)
Planets(NumberOfPlanets).SpriteNo=SpriteNo
Planets(NumberOfPlanets).ImageNo=ImageNo
Planets(NumberOfPlanets).MaxRange=MaxRange
Planets(NumberOfPlanets).Divisor=Divisor
Planets(NumberOfPlanets).Radius=Radius
Planets(NumberOfPlanets).XPos=XPos
Planets(NumberOfPlanets).YPos=YPos

endfunction NumberOfPlanets


function MakeComet(SpriteNo,ImageNo,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
circle Radius,Radius,Radius/2
circle Radius,Radius,Radius/3
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo

inc NumberOfComets
array insert at bottom Comets(0)
Comets(NumberOfComets).SpriteNo=SpriteNo
Comets(NumberOfComets).ImageNo=ImageNo
Comets(NumberOfComets).Radius=Radius
Comets(NumberOfComets).XPos=XPos
Comets(NumberOfComets).YPos=YPos

endfunction NumberOfComets


function DeleteComet(Index)
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function DeletePlanet(Index)
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function FindFreeBitmap(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until bitmap exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeSprite(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until sprite exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeImage(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until image exist(CurrentNumber)=0
endfunction CurrentNumber

`Initialize display and variables.
set display mode 640,480,16
sync on
sync rate 60
gosub init
set text font "courier new"
set text size 16
hide mouse

`Check if a hiscore file exists, if it does then load it
`if it doesn't, then set the hiscore to zero.
if file exist("hiscore")
open to read 1,"hiscore"
read file 1,hiscore
close file 1
else
hiscore = 0
endif

`Value of gravity (pixels per refresh)
grav = 0.025

`Menu
start:
w = 120
do

`If player presses backspace, RESET the hiscore.
if scancode() = 14 and hiscore > 0 then delete file "hiscore" : hiscore = 0

`Display menu text
ink rgb(255,255,0),0
center text 320,50,"J U G G L E R"
center text 320,70,"By John Price"
center text 320,105,"Simple gravity / velocity demonstration game."
ink rgb(255,255,0),0
center text 320,290,"High Score: "+str$(hiscore)
ink rgb(0,255,0),0
center text 320,320,"Use the mouse to move your juggler left and right"
center text 320,335,"Click the left button to move your juggler's left arm"
center text 320,350,"And the right button to move the right arm"
center text 320,380,"Try to keep the shapes in the air for as long as possible"
center text 320,395,"Every shape you let fall will loose you a life"
center text 320,410,"After 15 seconds pass, another shape will be introduced to the game"
ink rgb(255,255,0),0
center text 320,440,"PRESS SPACE TO BEGIN!"

`Draw a simple graphic to the screen.
drawshape(2,272+32,240,2)
drawshape(3,272,230,2)
drawshape(3,272+64,240,2)
drawshape(5,285,180,2)
drawshape(6,370,140,2)

`If player presses space, then start.
w = w - 1
if spacekey() = 1 and w < 0 then exit

sync
cls
loop

`Reset the ball data from the last game.
for cb = 1 to 16
balls(cb).t = 0
next cb

`Prepare the game variables and create some balls to get started.
px = 272
makeball()
makeball()
makeball()
makeball()
score = 0
level = 1
lives = 5
time = 15
t = timer()
m$ = "Let's go!"
mw = 80

do

`If the message counter is above zero, then display the message.
ink rgb(255,0,255),0
mw = mw - 1
if mw > 0 then center text 320,0,m$

`Draw the game area and data.
ink rgb(255,255,0),0
line 16,16,628,16
line 16,432,628,432
line 16,16,16,432
line 628,16,628,432
ink rgb(255,0,0),0
text 16,438,"SCORE: "+str$(score)
text 16,456,"HIGH : "+str$(hiscore)
ink rgb(0,255,0),0
text 196,438,"TIME: "+str$(time)
text 196,456,"LEVEL: "+str$(level)

`If the player has no lives, gameover!
if lives = 0 then goto gameover
`If the player has the highscore, set it!
if score > hiscore then hiscore = score

`Decrease the time.
if timer()-t > 1000 then t = timer() : time = time - 1

`Draw the player's remaining lives.
for dl = 628-48 to 628-(lives*48) step -48
drawshape(2,dl,438,2)
next dl

`Draw the spikes.
for dsp = 16 to 596 step 32
drawshape(1,dsp,400,3)
next dsp

`Move the player left and right according to the movement of the mouse.
`Keep the player within the bounaries of the screen.
px = px + mousemovex()
if px < 23 then px = 23
if px > 525 then px = 525

`Decrease the velocity of the player's arms.
if ra > 0 then ra = ra - .5
if la > 0 then la = la - .5

`If the player clicks the mouse, increase the velocity of the correct arm.
if mouseclick() = 2 and ry = 0 then ra = 6
if mouseclick() = 1 and ly = 0 then la = 6

`Move the players arms in accordance to their velocity.
ly = ly - la
ry = ry - ra
if ly < 0 then ly = ly + 1
if ry < 0 then ry = ry + 1

`Cycle through the balls
for db = 1 to 16
`Only check if the ball is actually in play.
if balls(db).t > 0

   `Increase the balls Y axis velocity due to the effect of gravity.
   balls(db).ys = balls(db).ys + grav
   `However, don't let the balls fall too fast or the game will become too dificult.
   if balls(db).ys > 2 then balls(db).ys = 2

   `Move the balls in accordance with their X and Y axis velocity.
   balls(db).x = balls(db).x + balls(db).xs
   balls(db).y = balls(db).y + balls(db).ys

   `If the ball goes too far off the sides of the screen, bounce them.
   `Multiplying the X velocity by -1 will reverse the velocity.
   if balls(db).x < 24 or balls(db).x > 588 then balls(db).xs = balls(db).xs*-1

   `If the ball hits the top of the screen, don't let it fly off.
   if balls(db).y < 24 then balls(db).y = 24

   `If the ball hits the player's left arm, then bounce it!
   if balls(db).x > px-32 and balls(db).x < px+48 and balls(db).y > 320+ly
   `Don't let the ball fall through the arm.
   balls(db).y = 320+ly
   `Reverse the balls Y velocity, causing it to fly upwards
   `at the same time, increasing its velocity by the velocity of the arm.
   balls(db).ys = (balls(db).ys*-1)-(la/2.5)
   `Increase the players score depending on how hard they hit the ball.
   score = score + int(la)*100
   endif

   `The same as above, but this time for the right arm.
   if balls(db).x > px+48 and balls(db).x < px+96 and balls(db).y > 320+ry
   balls(db).y = 320+ry
   balls(db).ys = (balls(db).ys*-1)-(ra/2.5)
   score = score + int(ra)*100
   endif

   `Actually draw the ball to the screen.
   drawshape(balls(db).t,balls(db).x,balls(db).y,4)

   `If the ball falls into the spikes, decrease the player's lives,
   `Display a message, and spawn a new ball!"
   if balls(db).y > 368
   balls(db).t = 0
   lives = lives - 1
   makeball()
   m$ = "You lost a life!"
   mw = 80
   endif

endif
next db

`If there is no time left, progress the player to the next level,
`reset the time and create a new ball.
if time = 0 then level = level + 1 : makeball() : m$ = "Next level reached!" : mw = 80 : time = 15

`Draw the player and its arms.
drawshape(2,px+32,359,2)
drawshape(3,px,359+ly,2)
drawshape(3,px+64,359+ry,2)

sync
cls

loop

gameover:


`Write the new hiscore data to a file.
if file exist("hiscore") then delete file "hiscore"
open to write 1,"hiscore" : write file 1,hiscore : close file 1

do

`Display the text.
ink rgb(255,0,0),0
center text 320,200,"G A M E    O V E R"
ink rgb(255,255,0),0
center text 320,240,"You scored "+str$(score)+" points"
center text 320,255,"And reached "+str$(level)+" level"
ink rgb(255,0,255),0
center text 320,285,"PRESS SPACE!"

`If player presses space, then go back to the menu.
if spacekey() = 1 then exit

sync
cls
loop

goto start

init:

`Read the data needed to create the shapes.
dim shapes(32,32,2)
restore shapedata
for rs = 1 to 32
   read col
   if col = -2 then exit
   sd = 0
   do
   sd = sd + 1
   read sd1
   if sd1 = -1 then exit
   shapes(rs,sd,1) = sd1
   read shapes(rs,sd,2)
   loop
   shapes(rs,0,0) = sd
next rs

`Create the ball type.
type ball
x as float
y as float
xs as float
ys as float
t as float
endtype

`And the ball array.
dim balls(16) as ball

`Define global variable types.
global px as integer
global ly as float
global ry as float
global la as float
global ra as float
global grav as float

return

shapedata:

`This is the data to create each shape.
`The first line is a number simply to identify each shape.
`The next lines contain 'way points'
`EG.
`data 16,0
`data 32,32
`will create a line inbetween those two points.
`The last line 'data -1' is the end of the shape data.

`box
`spike
data 1
data 16,0
data 32,32
data 0,32
data 16,0
data -1

`player middle
data 2
data 8,0
data 24,0
data 32,32
data 0,32
data 8,0
data -1

`arms
data 3
data 0,0
data 32,0
data 32,16
data 0,16
data 0,0
data -1

`BALLS
`box
data 4
data 0,0
data 32,0
data 32,32
data 0,32
data 0,0
data -1

`star
data 5
data 16,0
data 20,12
data 32,16
data 20,20
data 16,32
data 12,20
data 0,16
data 12,12
data 16,0
data -1

`diamond
data 6
data 16,0
data 32,10
data 16,32
data 0,10
data 16,0
data -1

`octagan
data 7
data 8,0
data 24,0
data 32,8
data 32,24
data 24,32
data 8,32
data 0,24
data 0,8
data 8,0
data -1

data -2

function drawshape(num,x,y,c)
if c = 1 then ink rgb(255,255,255),0
if c = 2 then ink rgb(255,0,255),0
if c = 3 then ink rgb(255,255,0),0
if c = 4 then ink rgb(0,255,0),0
for dr = 2 to shapes(num,0,0)-1

   line x+shapes(num,dr,1),y+shapes(num,dr,2),x+shapes(num,dr-1,1),y+shapes(num,dr-1,2)

next dr
ink rgb(255,255,255),0
endfunction

function makeball()

for ffb = 1 to 16
if balls(ffb).t = 0 then exit
next ffb

balls(ffb).t = rnd(3)+4
balls(ffb).x = 32+rnd(544)
balls(ffb).y = 32+rnd(150)
balls(ffb).xs = -1+RND(2)

endfunction

set display mode 1024,768,32
hide mouse
backdrop on
color backdrop 0
sync on

max=4
dim x#(max)
dim y#(max)
dim a#(max)
dim b#(max)
dim radius#(max)
dim mass#(max)
dim move(max)
dim colour(max)
for t=1 to max
  read x#(t),y#(t),a#(t),b#(t),radius#(t),mass#(t),colour(t)
  make object sphere t,radius#(t),20,20
  color object t,colour(t)
  set object diffuse t,colour(t)
  set object ambience t,0
  set object ambient t,1
  set object emissive t,0
  set object specular t,0
  set object specular power t,0
  set object light t,1
  move(t)=1
next t
set object emissive 1,colour(1)
set ambient light 0
make light 1
set light range 1,2000
position light 1,x#(1),0,y#(1)
position camera 512,384,-500
point camera 512,384,0
angle#=0.0
while not escapekey()
    gosub run_orbit
    set camera to follow object position x(2),0,object position z(2),angle#,100,10,100,0
    angle#=wrapvalue(angle#-0.1)
    sync
endwhile
end

run_orbit:
  for p=1 to max
    for i=1 to max
      if (i<>p)
        if (move(p)=1) and (move(i)=1)
          deltax#=x#(i)-x#(p)
          deltay#=y#(i)-y#(p)
          distance#=sqrt(deltax#^2+deltay#^2)
          if (distance#-radius#(p)) > radius#(i)
            attract#=mass#(i)/distance#^2
            xv#=attract#*deltax#/distance#
            yv#=attract#*deltay#/distance#
            a#(p)=a#(p)+xv#
            b#(p)=b#(p)+yv#
          else
            a#(p)=a#(p)+a#(i)*mass#(i)/mass#(p)
            b#(p)=b#(p)+b#(i)*mass#(i)/mass#(p)
            mass#(p)=mass#(p)+mass#(i)
            mass#(i)=0
            move(i)=0
            hide object i
          endif
        endif
      endif
    next i
  next p
  xav#=x#(1)
  yav#=y#(1)
  for p=1 to max
    x#(p)=x#(p)+a#(p)
    y#(p)=y#(p)+b#(p)
    if mass#(p)>0
      position object p,x#(p),0,y#(p)
    endif
  next p
return
DATA 512,384,0,-.008,50,40,16776960
DATA 300,384,0,.35,5,1,255
DATA 290,384,0,.7,3,.1,8355968
data 750,384,0,-.36,3,.5,16581375

`Gravity Simulation
`by bmaczero for the DBPro Coding Challenges

`====================================
`========== Basic Setup =============

sync on : sync rate 60
set window title "Gravity Demo"
color backdrop rgb(0,0,50)


`====================================
`========== Variables   =============

#Constant PlanetImage 1
#Constant CometImage 2

type PlanetType
    SpriteNo as Integer
    ImageNo as Integer
    MaxRange as Float
    Divisor as Float
    Radius as Float
    XPos as Float
    YPos as Float
endtype
type CometType
    SpriteNo as Integer
    ImageNo as Integer
    XPos as Float
    YPos as Float
    Radius as Float
    SpeedX as Float
    SpeedY as Float
    Sprite1 as Integer
    Sprite2 as Integer
    Sprite3 as Integer
    Sprite4 as Integer
    Sprite5 as Integer
    Life as Integer
endtype

global DIM Planets(0) as PlanetType
global DIM Comets(0) as CometType

TrailOn as boolean
Deletable as boolean

TrailOn=1

global NumberOfPlanets
global NumberOfComets


`====================================
`========== Setup Media =============

`====================================
`========== Main Program ============

Planet1=MakePlanet(0,0,700.0000,1600,40,400,400)
Planet2=MakePlanet(0,0,700.0000,1600,40,200,200)

remstart
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,500)
MakeComet(0,0,10,450,500)
MakeComet(0,0,10,500,350)

MakeComet(0,0,10,350,450)
MakeComet(0,0,10,500,450)
MakeComet(0,0,10,350,350)
MakeComet(0,0,10,450,350)
remend

do

text 10,10,"Left-click and drag to launch a comet!"
text 10,30,"Right-click to make a gravity snake!"
text 10,50,"Press spacebar to make a planet!"
if Deletable=1
    text 10,80,"Comets will be deleted on collision with a planet."
    else
    text 10,80,"Comets will not be deleted on collision with a planet."
endif
text 20,100,"Press backspace to change this."
if TrailOn=1
    text 10,130,"Trails are enabled."
    else
    text 10,130,"Trails are disabled."
endif
text 20,150,"Press shift to change this."

for c=1 to NumberOfComets
    if Comets(c).SpriteNo>0
        for g=1 to NumberOfPlanets
            DistanceX#=abs(sprite x(Comets(c).SpriteNo)-sprite x(Planets(g).SpriteNo))
            DistanceY#=abs(sprite y(Comets(c).SpriteNo)-sprite y(Planets(g).SpriteNo))
            if DistanceX#>Planets(g).MaxRange or DistanceY#>Planets(g).MaxRange then NoGo=1
            if sprite x(Comets(c).SpriteNo)<sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedX,Movement#
            endif
            if sprite x(Comets(c).SpriteNo)>sprite x(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceX#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedX,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)<sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                inc Comets(c).SpeedY,Movement#
            endif
            if sprite y(Comets(c).SpriteNo)>sprite y(Planets(g).SpriteNo)
                Movement#=(Planets(g).MaxRange-DistanceY#)/Planets(g).Divisor
                if NoGo=1 then Movement#=0.000000
                dec Comets(c).SpeedY,Movement#
            endif
            NoGo=0
            if DistanceX#<Planets(g).Radius and DistanceY#<Planets(g).Radius
                inc Comets(c).XPos,Comets(c).SpeedX
                inc Comets(c).YPos,Comets(c).SpeedY
                sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
                if Deletable=1 then DeleteComet(c)
                popped=1
                exit
            endif
        next g
        if popped=1
            popped=0
            else
            inc Comets(c).XPos,Comets(c).SpeedX
            inc Comets(c).YPos,Comets(c).SpeedY
            sprite Comets(c).SpriteNo,Comets(c).XPos,Comets(c).YPos,Comets(c).ImageNo
        endif
    endif
    if CometExist(c)=1
        if TrailOn=1
            ShowTrail(c)
            UpdateTrail(c)
            else
            HideTrail(c)
        endif
        if sprite x(Comets(c).SpriteNo)>5000 or sprite y(Comets(c).SpriteNo)>5000 or sprite x(Comets(c).SpriteNo)<-5000 or sprite y(Comets(c).SpriteNo)<-5000 then DeleteComet(c)
    endif
next c

if mouseclick()=1
    if clicked=0
        clicked=1
        StartedXPos=mousex()
        StartedYPos=mousey()
        else
        line StartedXPos,StartedYPos,mousex(),mousey()
        circle StartedXPos,StartedYPos,10
        circle StartedXPos,StartedYPos,5
        circle StartedXPos,StartedYPos,10/3
    endif
endif
if mouseclick()=2
    MakeComet(0,0,10,mousex(),mousey())
endif
if mouseclick()=0
    if clicked=1
        TempID=MakeComet(0,0,10,StartedXPos,StartedYPos)
        Comets(TempID).SpeedX=(StartedXPos-mousex())/25
        Comets(TempID).SpeedY=(StartedYPos-mousey())/25
    endif
    clicked=0
endif
if keystate(14)=1 and pressed=0
    pressed=1
    Deletable=1-Deletable
endif
if shiftkey()=1 and pressed=0
    pressed=1
    TrailOn=1-TrailOn
endif
if spacekey()=1 and pressed=0
    pressed=1
    Planet1=MakePlanet(0,0,700.0000,1600,40,mousex(),mousey())
endif
if scancode()=0 then pressed=0

sync
loop


`====================================
`======  Functions  =================

function MakePlanet(SpriteNo,ImageNo,MaxRange as Float,Divisor as Float,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo
offset sprite SpriteNo,Radius,Radius

inc NumberOfPlanets
array insert at bottom Planets(0)
Planets(NumberOfPlanets).SpriteNo=SpriteNo
Planets(NumberOfPlanets).ImageNo=ImageNo
Planets(NumberOfPlanets).MaxRange=MaxRange
Planets(NumberOfPlanets).Divisor=Divisor
Planets(NumberOfPlanets).Radius=Radius
Planets(NumberOfPlanets).XPos=XPos
Planets(NumberOfPlanets).YPos=YPos

endfunction NumberOfPlanets


function MakeComet(SpriteNo,ImageNo,Radius as Float,XPos as Float,YPos as Float)

if ImageNo=0 then ImageNo=FindFreeImage(1)

FreeBMap=FindFreeBitmap(1)
create bitmap FreeBMap,Radius*2+1,Radius*2+1
set current bitmap FreeBMap
circle Radius,Radius,Radius
circle Radius,Radius,Radius/2
circle Radius,Radius,Radius/3
get image ImageNo,0,0,(Radius*2)+1,(Radius*2)+1,1
delete bitmap FreeBMap

if SpriteNo=0 then SpriteNo=FindFreeSprite(1)
sprite SpriteNo,XPos,YPos,ImageNo
offset sprite SpriteNo,Radius,Radius

inc NumberOfComets
array insert at bottom Comets(0)
Comets(NumberOfComets).SpriteNo=SpriteNo
Comets(NumberOfComets).ImageNo=ImageNo
Comets(NumberOfComets).Radius=Radius
Comets(NumberOfComets).XPos=XPos
Comets(NumberOfComets).YPos=YPos
Comets(NumberOfComets).Sprite1=FindFreeSprite(1)
sprite Comets(NumberOfComets).Sprite1,Comets(NumberOfComets).XPos,Comets(NumberOfComets).YPos,Comets(NumberOfComets).ImageNo
set sprite alpha Comets(NumberOfComets).Sprite1,255
offset sprite Comets(NumberOfComets).Sprite1,sprite width(Comets(NumberOfComets).Sprite1)/2,sprite height(Comets(NumberOfComets).Sprite1)/2
Comets(NumberOfComets).Sprite2=FindFreeSprite(1)
sprite Comets(NumberOfComets).Sprite2,Comets(NumberOfComets).XPos,Comets(NumberOfComets).YPos,Comets(NumberOfComets).ImageNo
set sprite alpha Comets(NumberOfComets).Sprite2,205
offset sprite Comets(NumberOfComets).Sprite2,sprite width(Comets(NumberOfComets).Sprite2)/2,sprite height(Comets(NumberOfComets).Sprite2)/2
Comets(NumberOfComets).Sprite3=FindFreeSprite(1)
sprite Comets(NumberOfComets).Sprite3,Comets(NumberOfComets).XPos,Comets(NumberOfComets).YPos,Comets(NumberOfComets).ImageNo
set sprite alpha Comets(NumberOfComets).Sprite3,155
offset sprite Comets(NumberOfComets).Sprite3,sprite width(Comets(NumberOfComets).Sprite3)/2,sprite height(Comets(NumberOfComets).Sprite3)/2
Comets(NumberOfComets).Sprite4=FindFreeSprite(1)
sprite Comets(NumberOfComets).Sprite4,Comets(NumberOfComets).XPos,Comets(NumberOfComets).YPos,Comets(NumberOfComets).ImageNo
set sprite alpha Comets(NumberOfComets).Sprite4,105
offset sprite Comets(NumberOfComets).Sprite4,sprite width(Comets(NumberOfComets).Sprite4)/2,sprite height(Comets(NumberOfComets).Sprite4)/2
Comets(NumberOfComets).Sprite5=FindFreeSprite(1)
sprite Comets(NumberOfComets).Sprite5,Comets(NumberOfComets).XPos,Comets(NumberOfComets).YPos,Comets(NumberOfComets).ImageNo
set sprite alpha Comets(NumberOfComets).Sprite5,55
offset sprite Comets(NumberOfComets).Sprite5,sprite width(Comets(NumberOfComets).Sprite5)/2,sprite height(Comets(NumberOfComets).Sprite5)/2

endfunction NumberOfComets


function CometExist(Index)
if Comets(Index).SpriteNo=0 then exitfunction 0
endfunction 1


function HideTrail(ID)
if sprite visible(Comets(ID).Sprite1)=1
    hide sprite Comets(ID).Sprite1
    hide sprite Comets(ID).Sprite2
    hide sprite Comets(ID).Sprite3
    hide sprite Comets(ID).Sprite4
    hide sprite Comets(ID).Sprite5
endif
endfunction


function ShowTrail(ID)
if sprite visible(Comets(ID).Sprite1)=0
    show sprite Comets(ID).Sprite1
    show sprite Comets(ID).Sprite2
    show sprite Comets(ID).Sprite3
    show sprite Comets(ID).Sprite4
    show sprite Comets(ID).Sprite5
endif
endfunction


function UpdateTrail(ID)

AlphaChange=40

SpriteAlpha=sprite alpha(Comets(ID).Sprite1)-AlphaChange
if SpriteAlpha<=0
    set sprite alpha Comets(ID).Sprite1,255
    sprite Comets(ID).Sprite1,Comets(ID).XPos,Comets(ID).YPos,Comets(ID).ImageNo
    else
    set sprite alpha Comets(ID).Sprite1,SpriteAlpha
endif
SpriteAlpha=sprite alpha(Comets(ID).Sprite2)-AlphaChange
if SpriteAlpha<=0
    set sprite alpha Comets(ID).Sprite2,255
    sprite Comets(ID).Sprite2,Comets(ID).XPos,Comets(ID).YPos,Comets(ID).ImageNo
    else
    set sprite alpha Comets(ID).Sprite2,SpriteAlpha
endif
SpriteAlpha=sprite alpha(Comets(ID).Sprite3)-AlphaChange
if SpriteAlpha<=0
    set sprite alpha Comets(ID).Sprite3,255
    sprite Comets(ID).Sprite3,Comets(ID).XPos,Comets(ID).YPos,Comets(ID).ImageNo
    else
    set sprite alpha Comets(ID).Sprite3,SpriteAlpha
endif
SpriteAlpha=sprite alpha(Comets(ID).Sprite4)-AlphaChange
if SpriteAlpha<=0
    set sprite alpha Comets(ID).Sprite4,255
    sprite Comets(ID).Sprite4,Comets(ID).XPos,Comets(ID).YPos,Comets(ID).ImageNo
    else
    set sprite alpha Comets(ID).Sprite4,SpriteAlpha
endif
SpriteAlpha=sprite alpha(Comets(ID).Sprite5)-AlphaChange
if SpriteAlpha<=0
    set sprite alpha Comets(ID).Sprite5,255
    sprite Comets(ID).Sprite5,Comets(ID).XPos,Comets(ID).YPos,Comets(ID).ImageNo
    else
    set sprite alpha Comets(ID).Sprite5,SpriteAlpha
endif

endfunction


function DeleteComet(Index)
delete sprite Comets(Index).Sprite1
delete sprite Comets(Index).Sprite2
delete sprite Comets(Index).Sprite3
delete sprite Comets(Index).Sprite4
delete sprite Comets(Index).Sprite5
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function DeletePlanet(Index)
delete sprite Comets(Index).SpriteNo
delete image Comets(Index).ImageNo
Comets(Index).SpriteNo=0
endfunction


function FindFreeBitmap(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until bitmap exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeSprite(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until sprite exist(CurrentNumber)=0
endfunction CurrentNumber


function FindFreeImage(Start)
CurrentNumber=Start
repeat
inc CurrentNumber
until image exist(CurrentNumber)=0
endfunction CurrentNumber

Pricey's JUGGLER!