Sorry your browser is not supported!

`Dark Icon
`The Latest Version: Alpha
`Previous Version: Pre-Alpha
`Now features an interface and basic icon editing
`By Jonathan Skinner

`Establish the frame rate
sync on
sync rate 30

`Load all the images
Print "Loading Dark Icon - Please Wait"
load image "mouse_image.bmp",1
load image "new.bmp",3
load image "save.bmp",4
load image "load.bmp",5
load image "edit.bmp",6
load image "quit.bmp",7
Print "Press Any Key - Dark Icon is Loaded"
wait key
cls

`Start the main loop
do

   `Make the mouse
   sprite 1,mousex(),mousey(),1
   hide mouse

   `Load the sidebar very ugly looking real now
   load image "sidebar.bmp",2
   paste image 2,1,1

   `Put the new button on the sidebar
   paste image 3,5,4
   sprite 3,5,4,3
   hide sprite 3

   `Put the save button on the sidebar
   paste image 4,5,40
   sprite 4,5,40,4
   hide sprite 4

   `Put the load button on the sidebar
   paste image 5,5,76
   sprite 5,5,76,5
   hide sprite 5

   `Put the edit button on the sidebar
   paste image 6,5,112
   sprite 6,5,112,6
   hide sprite 6

   `Put the quit button on the sidebar
   paste image 7,5,148
   sprite 7,5,148,7
   hide sprite 7

   `If the user quits
   if mouseclick() = 1 and sprite collision(1,7) = 1 then end

   `If the user wants to load a bitmap
   if mouseclick() = 1 and sprite collision(1,5) = 1 then load_bmp =1

   `If the user wants to edit a bitmap
   if mouseclick() =1 and sprite collision(1,6) = 1 then gosub edit_bmp

   if load_bmp = 1
   `Load a bmp using a file selector tool

   `Clean up the screen
   cls
   for a = 1 to 3000
   if sprite exist(a) = 1 then delete sprite a
   next a

   `Make the bmp file selector
   set cursor 1,10
   ink rgb(0,255,0),1
   Print "Please give the file name of your bitmap file. Include the .bmp extension"
   Print "All files must be bitmaps only. Make sure you include the path name too."
   Input "Bitmap File: ";bmp$
   cls
   bmpid = 1000
   load image bmp$,bmpid
   load_bmp = 0
   endif

   `Refresh the screen
   sync

loop

`Edit a bitmap
`Edit
edit_bmp:
edit =1
cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a

if edit = 1
   ink rgb(0,255,0),1
   Print "Setting Display Mode to 16-bit"
   set display mode 320,240,16
   Print "Display Completed..."
   id = 3000
   Print "Establishing Image - Please Wait..."
   load image bmp$,id
   Print "Your bitmap image: ";bmp$;" was loaded"
   Print "Establishing Sprite - Please Wait..."
   sprite id,1,1,id
   size sprite id,320,240
   paste sprite id,0,0
   hide mouse

`Start a mini-loop
do
   `Mouse
   sprite 1,mousex(),mousey(),1

   sync
loop
endif

sync rate 0
sync on
hide mouse

` Make a simple mouse
ink rgb(255,0,0),0
line 0,100,10,100
line 0,100,0,110
line 0,100,10,110
get image 1000,0,100,10,110,1

` Make a dot for mouse collision
ink rgb(255,255,255),0
dot 0,0
get image 1001,0,0,1,1,1

` Make a "button" for testing
ink rgb(150,150,150),0
box 0,0,50,20
get image 1,0,0,50,20,1

` Make two "buttons" from image 1
sprite 1,10,10,1
sprite 2,10,50,1

` Make mouse sprite (this ensures that it's shown under
` the collision sprite for this example)
sprite 100,-10,-10,1000

` Make collision sprite and hide it
sprite 101,-1,-1,1001
`hide sprite 101

cls
ink rgb(255,255,255),0
do
 ` Show the mouse replacement
 sprite 100,mousex(),mousey(),1000
 ` Always keep the collision sprite at the mouse location
 sprite 101,mousex(),mousey(),1001
 ` Check for mouse button being clicked
 if mouseclick()
  ` Check both buttons for dot sprite collsion
  for t=1 to 2
  ` Check if the dot sprite is touching the "button" sprite
   if sprite collision(101,t)
    text 0,100,"Mouse clicked on sprite "+str$(t)+"!"
    sync
    wait 100
    cls    :` Added for Classic users
   endif
  next t
 endif
 sync
loop