All i get is a blank screen
Source is included so media:
`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
`Start the main loop
do
`Make the mouse
load image "mouse_image.bmp",1
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
load image "new.bmp",3
paste image 3,5,4
sprite 3,5,4,3
hide sprite 3
`Put the save button on the sidebar
load image "save.bmp",4
paste image 4,5,40
sprite 4,5,40,4
hide sprite 4
`Put the load button on the sidebar
load image "load.bmp",5
paste image 5,5,76
sprite 5,5,76,5
hide sprite 5
`Put the edit button on the sidebar
load image "edit.bmp",6
paste image 6,5,112
sprite 6,5,112,6
hide sprite 6
`Put the quit button on the sidebar
load image "quit.bmp",7
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 edit_bmp = 1
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
`Edit
if edit_bmp = 1
cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a
Print "Setting Display Mode to 16-bit"
set display mode 640,480,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,32,32
paste sprite id,1,1
delete sprite id
if mouseclick() = 1 and edit = 2 then paste image id,mousex(),mousey()
if mouseclick() = 2 then edit = 0
endif
`Refresh the screen
sync
loop
Media is in an attachment.
Programming is fun with DarkBASIC!
