CodeBase Entries

Calculator made in DBPro.

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com `¬¬¬¬¬¬¬¬¬work on changing weapons!!!!!!!!¬¬¬¬¬¬¬¬¬¬¬¬¬ `change background from white -> orange text orange -> white `modify to fit 1024,768,16 res menu2: sync on sync rate 300 set display mode 640,480,16 cls `Gil G=250 `items P$ = "Potion" PD$ = "Pheonix Down" PV = 100 PQ=3 PDQ =2 `weapons knife$ = "Small Knife" knifeQ = 1 knifest = 10 `armour bronzepl$ = "Bronze Plate" bronzeplQ=1 bronzeplde=10 `accesory acc$ = "None Equipped" HP=50 `magic f$ = "Fire1" Fdesc$ = "Fire elemental attack" fmp$ = "5" c$ = "Cure1" Cdesc$ = "Cures small amounts of HP" cmp$ = "10" `stored weapons and armour bdagger$ = "Bronze Dagger" bdq = 1 bdst = 15 `current equiped ceq$= knife$ ` inv$ = bdagger$ `------------------------------------------------ `moved this code here, where you had it HP would be reset to 50 `everytime you came back to the label start: maxhp=100 magic=20 maxmp=20 Lv=1 str=10 mde=10 def=10 `------------------------------------------------ start: cls mc$ = "Daedalus" do `clear screen `cls 0 `----- `stats `----- `make decorations ink rgb(255,255,255),0 box 0,0,479,103 box 480,0,639,475 box 0,104,479,475 ink rgb(0,0,0),0 box 2,2,480,101 box 482,2,637,473 box 0,200,450,500 box 2,104,479,473 `print stats ink RGB(255,128,64),1 set cursor 300,10 print "MENU" set cursor 10,10 print "";get date$() print set cursor 10,40 print "";get time$() print set cursor 20,120 print mc$ set cursor 100,150 print "[Insert Image]" set cursor 20,300 print "HP:" set cursor 50,300 print hp set cursor 80,300 print "/" set cursor 90,300 print maxhp set cursor 150,300 Print "MP: " set cursor 180,300 print magic set cursor 200,300 print "/" set cursor 210,300 print maxmp set Cursor 50,400 Print "Gil:" set cursor 150,400 print G `button controls if makebuttonstatus(550,100,"Status")>0 then buttonpressed=2 if mouseclick()=1 and buttonpressed = 2 then goto status if makebuttonitem(550,130,"Items")>0 then buttonpressed=1 if mouseclick()=1 and buttonpressed=1 then goto item if makebuttonmagic(550,160,"Magic")>0 then buttonpressed=3 if mouseclick()=1 and buttonpressed=3 then goto magic if makebuttonequip(550,190,"Equip")>0 then buttonpressed=4 if mouseclick()=1 and buttonpressed=4 then goto equip if makebuttonabil(550,220,"Ability")>0 then buttonpressed=5 if makebuttonsave(550,300,"Save")>0 then buttonpressed=11 if makebuttonexit(550,400,"Exit Menu")>0 then buttonpressed=100 if mouseclick()=1 and buttonpressed=100 then end sync loop Item: cls do `Background ink rgb(0,0,0),0 box 0,0,639,479 `Do left menu graphics ink rgb(255,255,255),0 box 0,0,242,477 ink RGB(0,0,0),1 box 2,2,240,475 ink RGB(255,128,64),1 text 40,35,"MENUS" line 40,55,180,55 `Do right menu graphics ink rgb(255,255,255),0 box 242,0,633,477 ink RGB(0,0,0),1 box 243,2,631,475 ink RGB(255,128,64),1 text 270,35,"ITEM" text 500,35,"QUANTITY" line 270,55,600,55 line 480,35,480,440 ink RGB(255,128,64),1 set cursor 40,70 if makebuttonheal(60,70,"Healing")>0 then buttonpressed=9 if mouseclick()=1 and buttonpressed=9 then goto healing if makebuttonwea(67,90,"Weapons")>0 then buttonpressed=10 if mouseclick()=1 and buttonpressed=10 then goto weapon if makebuttonback(70,450,"Back")>0 then buttonpressed=12 if mouseclick()=1 and buttonpressed=12 then goto start sync cls loop healing: do if makebuttonbackone(70,425,"Back One")>0 then buttonpressed=14 if mouseclick()=1 and buttonpressed = 14 then goto item ink RGB(255,128,64),1 set cursor 270,70 print P$ set cursor 525,70 print PQ set cursor 270,90 print PD$ set cursor 525,90 print PDQ myx=mousex() : myy=mousey() if myx>270 and myx<310 if myy>83 and myy<100 if mouseclick()=1 and HP = 0 inc HP,maxhp/4 dec PDQ endif endif endif myx=mousex() : myy=mousey() if myx>270 and myx<310 if myy>67 and myy<80 if mouseclick()=1 and hp<maxhp ink rgb(255,255,255),0 box 200,350,380,420 ink rgb(0,0,0),0 box 205,355,375,415 if HP>0 inc HP,PV if HP>maxhp then hp=maxhp dec PQ,1 `redraw the menu to dec PQ cls `Do left menu graphics ink rgb(255,255,255),0 box 0,0,242,477 ink rgb(0,0,0),0 box 2,2,240,475 ink RGB(255,128,64),1 text 40,35,"MENUS" line 40,55,180,55 `Do right menu graphics ink rgb(255,255,255),0 box 242,0,633,477 ink rgb(0,0,0),0 box 243,2,631,475 ink RGB(255,128,64),1 text 270,35,"ITEM" text 500,35,"QUANTITY" line 270,55,600,55 line 480,35,480,440 `small box ink rgb(255,255,255),0 box 200,350,380,420 ink rgb(0,0,0),0 box 202,352,378,418 ink RGB(255,128,64),1 set cursor 525,70 print pq set cursor 285,370 print hp set cursor 320,370 print maxhp `this will stop you drinking multiple healing potions. `not the best way to do it, but it will get you going. `---------------------------------- repeat : until mouseclick()=0 `---------------------------------- goto healing endif endif endif endif if makebuttonback(70,450,"Back")>0 then buttonpressed=12 if mouseclick()=1 and buttonpressed=12 then goto item sync loop status: cls ink rgb(255,255,255),0 box 0,0,242,477 ink rgb(0,0,0),0 box 2,2,240,475 box 239,0,633,477 ink rgb(255,255,255),0 box 240,0,636,477 ink rgb(0,0,0),0 box 244,2,635,475 ink RGB(255,128,64),1 set cursor 270,30 print mc$ set cursor 400,50 print "(image)" set cursor 270,200 Print "HP" set cursor 305,200 print HP set cursor 335,200 print "/" set cursor 345,200 print maxhp set cursor 270,225 Print "MP" set cursor 305,225 print magic set cursor 335,225 print "/" set cursor 345,225 print maxmp set cursor 270,250 print "Strength" set cursor 340,250 print str set cursor 270,275 print "Defence" set cursor 340,275 print def set cursor 270,300 print "Magic" set cursor 340,300 print magic set cursor 270,325 print "Magic Def" set cursor 340,325 print mde set cursor 270,370 print "Current Weapon: " set cursor 400,370 print ceq$ set cursor 270,390 print "Current Armour: " set cursor 400,390 print bronzepl$ set cursor 270,410 print "Accesory: " set cursor 400,410 print acc$ do ink RGB(255,128,64),1 set cursor 20,20 print "Status" set cursor 20,60 Print mc$ set cursor 20,80 print "level" set cursor 60,80 print lv set cursor 20,100 Print "HP" set cursor 50,100 print hp set cursor 75,100 print "/" set cursor 79,100 print maxhp set cursor 20,120 print "MP" set cursor 50,120 print magic set cursor 70,120 print "/" set cursor 75,120 print maxmp if makebuttonback(70,450,"Back")>0 then buttonpressed=12 if mouseclick()=1 and buttonpressed=12 then goto start sync loop Magic: cls ink rgb(255,255,255),0 box 0,0,200,479 box 201,0,636,479 ink rgb(0,0,0),0 box 2,2,198,477 box 201,2,634,477 set cursor 70,20 ink RGB(255,128,64),1 line 40,55,180,55 print "Magic" do if scancode()=18 then goto start if makebuttonele(90,80,"Elemental")>0 then buttonpressed=6 if mouseclick()=1 and buttonpressed=6 then goto elementalmagicinfo if makebuttoncura(85,100,"Curative")>0 then buttonpressed=8 if mouseclick()=1 and buttonpressed=8 then goto curativeinfo if makebuttonback(70,450,"Back")>0 then buttonpressed=12 if mouseclick()=1 and buttonpressed=12 then goto start sync loop elementalmagicinfo: ink rgb(255,255,255),0 box 0,0,200,479 box 201,0,636,479 ink rgb(0,0,0),0 box 2,2,198,477 box 201,2,634,477 ink RGB(255,128,64),1 line 40,55,180,55 line 400,55,230,55 set cursor 60,20 print "Elemental Magic" set cursor 62,70 print "Elemental" set cursor 240,30 print "Magic" do if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=16 if mouseclick()=1 and buttonpressed = 16 then goto magic if makebuttonback(70,450,"Back")>0 then buttonpressed=13 if mouseclick()=1 and buttonpressed = 13 then goto magic if makebuttonfire1(260,70,"Fire1")>0 then buttonpressed=7 if mouseclick()=1 and buttonpressed=7 `insert fire data ink rgb(255,255,255),0 box 300,300,500,350 ink rgb(0,0,0),0 box 302,302,498,348 ink RGB(255,128,64),1 set cursor 310,305 Print fdesc$ set cursor 310,325 print "MP needed:" set cursor 420,325 print fmp$ endif sync loop curativeinfo: ink rgb(255,255,255),0 box 0,0,200,479 box 201,0,636,479 ink rgb(0,0,0),0 box 2,2,198,477 box 201,2,634,477 ink RGB(255,128,64),1 line 40,55,180,55 line 400,55,230,55 ink RGB(255,128,64),1 set cursor 62,70 print "Curative" set cursor 60,20 print "Curative Magic" set cursor 240,30 print "Magic" do if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=13 if mouseclick()=1 and buttonpressed = 13 then goto magic if makebuttonback(70,450,"Back")>0 then buttonpressed=17 if mouseclick()=1 and buttonpressed = 17 then goto start if makebuttoncure1(260,70,"Cure1")>0 then buttonpressed=7 if mouseclick()=1 and buttonpressed=7 ink rgb(255,255,255),0 box 300,300,500,350 ink rgb(0,0,0),0 box 302,302,498,348 ink RGB(255,128,64),1 set cursor 310,305 Print cdesc$ set cursor 310,325 print "MP needed:" set cursor 420,325 print cmp$ endif sync loop weapon: do ink RGB(255,128,64),1 set cursor 525,70 print knifeQ if makebuttonkn(305,70,knife$)>0 then buttonpressed=11 if mouseclick()=1 and buttonpressed = 11 ink rgb(255,255,255),0 box 100,200,300,400 ink rgb(0,0,0),0 box 102,202,298,398 ink RGB(255,128,64),1 set cursor 110,210 Print "Weapon Strength: " set cursor 250,210 print knifest set cursor 110,230 print "Strength: " ost = str + knifest set cursor 250,230 print ost endif if makebuttonbackone(70,430,"Back one")>0 then buttonpressed=15 if mouseclick()=1 and buttonpressed = 15 then goto item if makebuttonback(70,450,"Back")>0 then buttonpressed=16 if mouseclick()=1 and buttonpressed = 16 then goto start sync loop equip: cls ink rgb(255,255,255),0 box 0,0,242,477 ink rgb(0,0,0),0 box 2,2,240,475 box 239,0,633,477 ink rgb(255,255,255),0 box 240,0,636,477 ink rgb(0,0,0),0 box 244,2,635,475 ink RGB(255,128,64),1 set cursor 60,30 print "Current Equipment" set cursor 50,80 print ceq$ set cursor 20,60 : print "Weapon:" set cursor 300,30 : print "Inventory" do if makebuttonbdg(350,82,inv$)>0 then buttonpressed=17 if mouseclick()=1 and buttonpressed = 17 then goto change if makebuttonback(70,450,"Back")>0 then buttonpressed=16 if mouseclick()=1 and buttonpressed = 16 then goto start sync loop change: cls ink rgb(255,255,255),0 box 0,0,242,477 ink rgb(0,0,0),0 box 2,2,240,475 box 239,0,633,477 ink rgb(255,255,255),0 box 240,0,636,477 ink rgb(0,0,0),0 box 244,2,635,475 ink RGB(255,128,64),1 set cursor 60,30 print "Current Equipment" set cursor 50,80 ceq$=bdagger$ if ceq$ = bdagger$ then inv$ = knife$ print ceq$ set cursor 20,60 : print "Weapon:" set cursor 300,30 : print "Inventory" do if makebuttonback(70,450,"Back")>0 then buttonpressed=16 if mouseclick()=1 and buttonpressed = 16 then goto start sync loop function makebuttonitem(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 set text size 18 : center text x,y-8,desc$ if mouseclick()=0 then buttonpressed=0 endfunction buttonpressed function makebuttonstatus(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonmagic(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonabil(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonequip(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonele(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonfire1(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttoncura(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttoncure1(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonheal(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonwea(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonkn(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonsave(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonback(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonbackone(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonbdg(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonskn(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed function makebuttonexit(x,y,desc$) buttonpressed=0 `ink rgb(255,255,255),0 : box x-52,y-14,x+52,y+14 ink RGB(0,0,0),0 : box x-50,y-12,x+50,y+12 ink RGB(255,128,64),0 myx=mousex() : myy=mousey() if myx>x-50 and myx<x+50 if myy>y-12 and myy<y+12 buttonpressed=1 endif endif if buttonpressed=1 then ink rgb(255,255,0),0 if buttonpressed=1 if key = 1 then key = 0 endif set text size 18 : center text x,y-8,desc$ endfunction buttonpressed

This function is used to switch to fullscreen mode.

I know this is newbie, this code is a decrypted for messages u can write

This program is all objects in your director load,play & texture

3 new functions that work with the USGS gridfloat files. 1. lo_val() returns the lowest height value in the gridfloat file. 2. hi_val() returns the highest height value in the gridfloat file. 3. convert_to_unit() takes in a regular gridfloat file and converts the height values to normalized values (0.0 to 1.0)

Allows sprites to be rotated around a point of origin.

This is just something I have been doing, not knowing WTF i was doing!!! (BTW this is the first thing i have ever made on here...)

Escape out of the Maze of Boxes. No Media!

just like dooruse but will close behind you automatically

More life like response to colision, distance and attacks

TextBox on Dark Basic Pro

Using the specular shader in DBC to produce pixel-shader-like and surface texture effects.

A foundation for a basic level editor or posably an RTS.

Dim Simon(400) Sync On Do SimonCount = SimonCount + 1 Simon(SimonCount) = Rnd(3)+1 For Run = 1 To SimonCount Light = Simon(Run) Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Box (100*(Light-1)),0,(100*Light),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 Next Run For Run = 1 To SimonCount Choice = 0 While Mouseclick() = 0 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync EndWhile If MouseX() > 0 And MouseX() < 100 Then Choice = 1 If MouseX() > 100 And MouseX() < 200 Then Choice = 2 If MouseX() > 200 And MouseX() < 300 Then Choice = 3 If MouseX() > 300 And MouseX() < 400 Then Choice = 4 Box (100*(Choice-1)),0,(100*Choice),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 If Simon(Run) <> Choice Then Goto TheEnd Next Run Loop TheEnd: Print "You got "+Str$(SimonCount-1)+" rounds!" Sync Sync Sleep 1000 End

This is my first ever game.

Kaleidoscope converted from Atari ST FastBasic

Place large numbers of media "load sound " ",1 etc statements into your dba programme by copying and pasting.

A simple graphics program that creates a rotating cube and a translating circle with some camera views. The user has the normal view and create more five different views.

Speaking Clock converted by Jonathan Hawkins from Atari ST Fast Basic by Dave Jones from Atari User February 1987,you need the Speech Module for it to work.

A basic 3D jump and run platformer with a timer. If anyone has any comments i'd be glad to hear them. Btw, im kind of a self taught coder, i've learned by example mostly so this is based off of code I found in the forums; so if i did anything horribly wrong i'd be glad to hear any corrections if people bother to look ^_^.

This is the Cave Runner standard game of DarkBASIC, with some changes.

Extremely short code

This is a short prgoram displaing scancode of each keyboard button when it`s pressed.

Force a Windows Left, Middle, RightClick, Double Click and more

This is a turn based battle system for an RPG.

Third Person Camera Function

Another security program, yet this one saves a password (use the reset password program to set password to "aaaa"

If you want texture limb any .jpg,.bmp... image ,you must write this code :~)

Making Integrated Object`s