Sorry your browser is not supported!

`DaemonDraw - Source Code
`Programmed By - Jonathan Skinner
`The Game Daemon Programmed By - Jonathan Skinner

`Welcome to user to DaemonDraw

draw:
cls


sync on
sync rate 60
hide mouse

`Now let's do that thing above
load image "3d Text\welcome.bmp",1
load image "3d Text\to.bmp",2
load image "3d Text\daemondraw.bmp",3

paste image 1,200,100
paste image 2,250,150
paste image 3,200,200
wait key

`Clear the screen
cls

`Load all the media used

`Palettes used - colors

`Blacks and Grays
load image "Black and Grays/10,10,10.bmp",1
load image "Black and Grays/31,31,31.bmp",2
load image "Black and Grays/65,65,65.bmp",3
load image "Black and Grays/75,75,75.bmp",4
load image "Black and Grays/92,92,92.bmp",5
load image "Black and Grays/115,115,115.bmp",6
load image "Black and Grays/128,128,128.bmp",7
load image "Black and Grays/149,149,149.bmp",8
load image "Black and Grays/170,170,170.bmp",9
load image "Black and Grays/191,191,191.bmp",10
load image "Black and Grays/211,211,211.bmp",11
load image "Black and Grays/235,235,235.bmp",12
load image "Black and Grays/transparent.bmp",13

`Blues
load image "Blues/0,0,81.bmp",14
load image "Blues/0,0,117.bmp",15
load image "Blues/0,0,132.bmp",16
load image "Blues/0,0,151.bmp",17
load image "Blues/0,0,187.bmp",18
load image "Blues/0,0,223.bmp",19
load image "Blues/0,0,251.bmp",20
load image "Blues/72,72,255.bmp",21
load image "Blues/102,102,255.bmp",22
load image "Blues/132,132,255.bmp",23
load image "Blues/170,170,255.bmp",24
load image "Blues/202,202,255.bmp",25
load image "Blues/236,236,255.bmp",26

`Brown
load image "Browns/62,31,0.bmp",27
load image "Browns/108,54,0.bmp",28
load image "Browns/155,78,0.bmp",29
load image "Browns/196,96,0.bmp",30
load image "Browns/234,117,0.bmp",31

`Cyan
load image "Cyans/0,60,60.bmp",32
load image "Cyans/0,85,85.bmp",33
load image "Cyans/0,108,108.bmp",34
load image "Cyans/0,130,130.bmp",35
load image "Cyans/0,168,168.bmp",36
load image "Cyans/0,198,198.bmp",37
load image "Cyans/0,232,232.bmp",38
load image "Cyans/0,251,251.bmp",39
load image "Cyans/166,255,255.bmp",40
load image "Cyans/236,255,255.bmp",41

`Green
load image "Greens/0,81,0.bmp",42
load image "Greens/0,106,0.bmp",43
load image "Greens/0,155,0.bmp",44
load image "Greens/0,191,0.bmp",45
load image "Greens/0,255,0.bmp",46
load image "Greens/79,255,79.bmp",47
load image "Greens/130,255,130.bmp",48
load image "Greens/170,255,170.bmp",49
load image "Greens/221,255,221.bmp",50

`Orange
load image "Orange/43,14,0.bmp",51
load image "Orange/85,28,0.bmp",52
load image "Orange/113,36,0.bmp",53
load image "Orange/166,54,0.bmp",54
load image "Orange/204,66,0.bmp",55
load image "Orange/242,79,0.bmp",56
load image "Orange/255,107,36.bmp",57
load image "Orange/255,128,66.bmp",58
load image "Orange/255,174,136.bmp",59
load image "Orange/255,215,196.bmp",60

`Purple
load image "Purples/0,40,0.bmp",61
load image "Purples/60,0,60.bmp",62
load image "Purples/85,0,85.bmp",63
load image "Purples/117,0,117.bmp",64
load image "Purples/151,0,151.bmp",65
load image "Purples/202,0,202.bmp",66
load image "Purples/255,0,255.bmp",67
load image "Purples/255,85,255.bmp",68
load image "Purples/255,136,255.bmp",69
load image "Purples/255,185,255.bmp",70
load image "Purples/255,215,255.bmp",71

`Red
load image "Reds/55,0,0.bmp",72
load image "Reds/102,0,0.bmp",73
load image "Reds/164,0,0.bmp",74
load image "Reds/185,0,0.bmp",75
load image "Reds/232,0,0.bmp",76
load image "Reds/255,51,51.bmp",77
load image "Reds/255,100,100.bmp",78
load image "Reds/255,155,155.bmp",79
load image "Reds/255,204,204.bmp",80
load image "Reds/255,240,240.bmp",81

`Yellow
load image "Yellow/53,53,0.bmp",82
load image "Yellow/81,81,0.bmp",83
load image "Yellow/113,113,0.bmp",84
load image "Yellow/147,147,0.bmp",85
load image "Yellow/183,183,0.bmp",86
load image "Yellow/217,217,0.bmp",87
load image "Yellow/255,255,0.bmp",88
load image "Yellow/255,255,138.bmp",89
load image "Yellow/255,255,193.bmp",90
load image "Yellow/255,255,232.bmp",91

`White
load image "Black and Grays/255,255,255.bmp",300

`Buttons
load image "Menu\Buttons\box.bmp",92
load image "Menu\Buttons\circle.bmp",93
load image "Menu\Buttons\eraser.bmp",94
load image "Menu\Buttons\exitbutton.bmp",95
load image "Menu\Buttons\eyedropper.bmp",96
load image "Menu\Buttons\line.bmp",97
load image "Menu\Buttons\loadbutton.bmp",98
load image "Menu\Buttons\move.bmp",99
load image "Menu\Buttons\newbutton.bmp",100
load image "Menu\Buttons\paint.bmp",101
load image "Menu\Buttons\paintbucket.bmp",102
load image "Menu\Buttons\pencil.bmp",103
load image "Menu\Buttons\savebutton.bmp",104
load image "Menu\Buttons\sprayer.bmp",105
load image "Menu\Buttons\text.bmp",106

`Drawing tools
load image "Drawing Tools\brush.bmp",107
load image "Drawing Tools\eraser.bmp",108
load image "Drawing Tools\pencil.bmp",109
load image "Drawing Tools\spray.bmp",110

`Toolbar
load image "Menu\Toolbars\horizontal.bmp",111
load image "Menu\Toolbars\vertical.bmp",112
load image "Menu\Toolbars\toolbars.bmp",113
load image "Menu\Toolbars\palette.bmp",114

`Draw Screen

Load image "Menu\Draw\medium.bmp",124
load image "menu\draw\drawscreen.bmp",125
`Drop Menu
load image "dropmenu.bmp",116
load image "giant.bmp",117
load image "large.bmp",118
load image "line.bmp",119
load image "medium.bmp",120
load image "size.bmp",121
load image "small.bmp",122
load image "dropmenu2.bmp",302
load image "yes.bmp",303
load image "no.bmp",304

`Custom
load image "customcolor.bmp",301

`Start the main loop

do

`Template

for a = 1 to 800 step 30
paste image 111,a,1
next a

for a = 1 to 800 step 30
paste image 111,a,450
next a

for a = 1 to 450 step 30
paste image 112,1,a
next a

for a = 1 to 450 step 30
paste image 112,615,a
next a

`Toolbar
paste image 113,30,30

`Palette
paste image 114,30,300

`Button Layout
sprite 2,160,30,100
sprite 3,210,30,104
sprite 4,260,30,98
sprite 5,310,30,95

`Palettes

`Transparent
sprite 6,32,310,13

`Rest
sprite 7,32,320,1
sprite 8,42,320,2
sprite 9,52,320,3
sprite 10,62,320,4
sprite 11,72,320,5
sprite 12,82,320,6
sprite 13,92,320,7
sprite 14,102,320,8
sprite 15,112,320,9
sprite 16,122,320,10
sprite 18,132,320,11
sprite 20,32,330,12
sprite 21,42,330,14
sprite 22,52,330,15
sprite 23,62,330,16
sprite 24,72,330,17
sprite 25,82,330,18
sprite 26,92,330,19
sprite 27,102,320,20
sprite 28,112,330,21
sprite 29,122,330,22
sprite 30,132,330,23
sprite 31,32,340,24
sprite 32,42,340,25
sprite 33,52,340,26
sprite 34,62,340,27
sprite 35,72,340,28
sprite 36,82,340,29
sprite 37,92,340,30
sprite 38,102,340,31
sprite 39,112,340,32
sprite 40,122,340,33
sprite 41,132,340,34
sprite 42,32,350,35
sprite 43,42,350,36
sprite 44,52,350,37
sprite 45,62,350,38
sprite 46,72,350,39
sprite 47,82,350,40
sprite 48,92,350,41
sprite 49,102,350,42
sprite 50,112,350,43
sprite 51,122,350,44
sprite 52,132,350,45
sprite 53,32,360,46
sprite 54,42,360,47
sprite 55,52,360,48
sprite 56,62,360,49
sprite 57,72,360,50
sprite 58,82,360,51
sprite 59,92,360,52
sprite 60,102,360,53
sprite 61,112,360,54
sprite 62,122,360,55
sprite 63,132,360,56
sprite 64,32,370,57
sprite 65,42,370,58
sprite 66,52,370,59
sprite 67,62,370,60
sprite 68,72,370,61
sprite 69,82,370,62
sprite 70,92,370,63
sprite 71,102,370,64
sprite 72,112,370,65
sprite 73,122,370,66
sprite 74,132,370,67
sprite 75,32,380,68
sprite 76,42,380,69
sprite 77,52,380,70
sprite 78,62,380,71
sprite 79,72,380,72
sprite 80,82,380,73
sprite 81,92,380,74
sprite 82,102,380,75
sprite 83,112,380,76
sprite 84,122,380,77
sprite 85,132,380,78
sprite 86,32,390,79
sprite 87,42,390,80
sprite 88,52,390,81
sprite 89,62,390,82
sprite 90,72,390,83
sprite 91,82,390,84
sprite 92,92,390,85
sprite 93,102,390,86
sprite 94,112,390,87
sprite 95,122,390,88
sprite 96,132,390,89
sprite 97,32,410,90
sprite 98,42,360,91
sprite 99,52,360,300

`Toolbar Buttons
sprite 300,35,30,92
sprite 301,35,47,93
sprite 302,35,67,94
sprite 303,35,83,96
sprite 304,35,100,97
sprite 305,35,120,99
sprite 306,35,140,101
sprite 307,35,160,102
sprite 308,35,180,103
sprite 309,35,200,105
sprite 310,35,220,106

`Drawing screen
drawgood = 1
sprite 700,300,100,125
hide sprite 700



`Custom color
sprite 100,50,400,301

`Mouse
load image "mouse\mouse.bmp",200

`Setup cursor
sprite 1,mousex(),mousey(),200

`Button collision
if sprite collision(5,1) = 1 and mouseclick() = 1 then endprog = 1
if sprite collision(2,1) = 1 and mouseclick() = 1 then new = 1

`Drawing

`Pencil
if sprite hit(1,700) = 1 then drawing = 1
if sprite hit(1,700) = 0 then drawing = 0
if sprite collision(1,308) = 1 and mouseclick() = 1 then pencil = 1
if pencil = 1 and sprite collision(1,303) = 1 and mouseclick() = 1 then pick_pal = 1
if pick_pal = 1 and pencil = 1 and sprite collision(1,6) = 1 and mouseclick() = 1 then inked = 1:red = 0:blue = 0:green = 0
if pick_pal = 1 and pencil = 1 and sprite collision(1,7) = 1 and mouseclick() = 1 then inked = 1:red = 10:blue = 10:green = 10
if pick_pal = 1 and pencil = 1 and sprite collision(1,8) = 1 and mouseclick() = 1 then inked = 1:red = 31:blue = 31:green = 31
if pick_pal = 1 and pencil = 1 and sprite collision(1,9) = 1 and mouseclick() = 1 then inked = 1:red = 65:blue = 65:green = 65
if pick_pal = 1 and pencil = 1 and sprite collision(1,10) = 1 and mouseclick() = 1 then inked = 1:red = 75:blue = 75:green = 75
if pick_pal = 1 and pencil = 1 and sprite collision(1,11) = 1 and mouseclick() = 1 then inked = 1:red = 91:blue = 91:green = 91

if pick_pal = 1 and pencil = 1 and inked = 1 and drawing = 1 and mouseclick() = 1 then ink rgb(red,green,blue),1:dot mousex(),mousey()


`End the program?
If endprog = 1
sprite 311,310,40,302
sprite 312,320,60,303
sprite 313,380,60,304
delete sprite 1
sprite 400,mousex(),mousey(),200
if sprite collision(400,312) = 1 and mouseclick() = 1 then end
if sprite collision(400,313) = 1 and mouseclick() = 1 then delete sprite 311:delete sprite 312:delete sprite 313:delete sprite 400:sprite 1,mousex(),mousey(),200:endprog = 0
endif

`New


sync
loop