Sorry your browser is not supported!

sync rate 0
sync on

make object cube 1,10

do

  inc ang
  rotate object 1,wrapvalue(ang),wrapvalue(ang),wrapvalue(ang)

  center text 320,240,"Press enter to display popup box"
  if returnkey() = 1 then Popup("This is a popup! Press space to close!")

  sync

loop

Function Get3D()
  set camera view 0,0,screen width(),screen height()
EndFunction

Function GetRidOf3D()
  set camera view 0,0,0,0
EndFunction

Function Popup(text$)

  rem Call this function to "disable" 3D rendering, so we only have 2D to deal with
  GetRidOf3D()

  while spacekey()=0

    rem Box
    ink rgb(255,0,0),0
    box 0,0,640,30

    rem Text
    ink 0,0
    center text 320,10,text$

    sync
  endwhile

  rem Call this function to re-enable 3D rendering
  Get3D()

EndFunction

rem WriteSomething on Screen
for b=1 to 20
print ""
for a=1 to 5
print "Yabadabadoo";
next a
next b

get image 1,0,0,300,300
wait key
cls
wait key
paste image 1,0,0

sync rate 0
sync on

do

  randomize timer()

  rem Random images
  circle rnd(640),rnd(480),rnd(100)

  center text 320,240,"Press enter to display popup box"
  if returnkey() = 1 then Popup("This is a popup! Press space to close!")

  sync

loop

Function GetScreen()
  get image 99,0,0,screen width(),screen height(),1
EndFunction

Function RestoreScreen()
  paste image 99,0,0
EndFunction

Function Popup(text$)

  rem Call this function to "disable" 3D rendering, so we only have 2D to deal with
  GetScreen()

  while spacekey()=0

    rem Box
    ink rgb(255,0,0),0
    box 0,0,640,30

    rem Text
    ink 0,0
    center text 320,10,text$

    ink rgb(255,255,255),0

    sync
  endwhile

  rem Call this function to re-enable 3D rendering
  RestoreScreen()

EndFunction

if check display mode(800,600,16)=1 then set display mode 800,600,16
set text opaque
set text size 24
ink rgb(255,0,255),rgb(255,255,255)

` create a blank bitmap and write something in it
create bitmap 1,400,400
for z=1 to 20
print "This is a test sprite - Hello World"
next z

` take a snapshot of the bitmap
get image 1,0,0,400,400,1

` Write on screen
set current bitmap 0
cls
print "Press any key to show the sprite"
print "This text must remain on the screen"
wait key
set sprite 1,1,1
sprite 1,100,100,1
wait key
hide sprite 1
wait key

sync rate 0
sync on

make object cube 1,10

GLOBAL ang as INTEGER

do

  goSub MainLoop

  center text 320,240,"Press enter to display popup box"
  if returnkey() = 1 then Popup("This is a popup! Press space to close!",99)

  sync

loop

rem What happens in the main loop, so program doesn't pause when we show box
MainLoop:

  inc ang
  rotate object 1,wrapvalue(ang),wrapvalue(ang),wrapvalue(ang)

return


Function Popup(text$,_image)

  rem Have to put "_" before image otherwise DBP thinks
  rem I'm typing 'sprite image' instead of 'sprite image,0,0,image'

  cls


  rem Box
  ink rgb(255,0,0),0
  box 0,0,340,30

  rem Text
  ink 0,0
  center text 16,10,text$

  ink rgb(255,255,255),0

  get image _image,0,0,320,30
  sprite _image,0,0,_image

  rem While we are not pressing space
  while spacekey()=0

    rem If mouse is over box
    if mouseoverarea(sprite x(_image),sprite y(_image),sprite x(_image)+sprite width(_image),sprite y(_image)+sprite height(_image))=1

      rem Allow us to move
      while mouseclick()=1
        sprite _image,mousex(),mousey(),_image
        goSub MainLoop
        sync
      endwhile

    endif

    goSub MainLoop

    sync
  endwhile

  delete sprite _image

EndFunction

Function MouseOverArea(x,y,x2,y2)
  if mousex() > x and mousey() > y and mousex() < x2 and mousey() < y2 then over = 1
EndFunction over