CodeBase Entries

3d planets revolve around the sun. move with arrow keys or press 1,2,3 etc to lock onto a planet I got all the textures from http://planetpixelemporium.com/mercury.html the rest of the media I just pulled the media folder out of the face demo that comes with the dark basic install so you should already have that. the only thing I really needed from it was the fire animation for the sun.

Jan 26, 2009: Still workin' on it!... As with the rest of my entries, none of this is even close to finished. Here I'm just playing with making a wire-frame dungeon. Kinda like Akalabeth.

A simple menu for your games.

A simple 1st person perspective view for your games. NOTE: This is just a camera function so you can't just put this code in DBP and compile.

A simple 3rd person perspective view for your games. NOTE: This is just a camera function so you can't just put this code in DBP and compile.

Basic program to demonstrate DarkBasics Multiplayer Commands

This program voice control program if you say 'yes' this program print 'yes' and if you say "no" this program print "no"

Got tired of using the wait delay to avoid repeated actions during a key press. This function takes a key input (here its the spacekey()) and returns true only if its been released.

Simple Traffic simulation Six cars and traffic lights,

sync on rem make an object make object box 1,100,100,100 rem make a cylinder shaped object to get the mesh for the limb from rem (note that the mesh number comes before the object number on the make mesh from object command) make object cylinder 2,100 make mesh from object 1,2 delete object 2 rem add a limb to the box object using the mesh from the cylinder (obj number, limb number, mesh number) rem limbs must be created in sequence, 1,2,3,4 etc add limb 1,1,1 rem rotate the limb rotate limb 1,1,45,45,0 rem resize the limb scale limb 1,1,50,150,50 rem adjust the position of the limb offset limb 1,1,0,100,0 rem (set the object) set object 1,1,1,0,1,1,1,1 rem (setup camera) position camera 250,100,-500 rem loop do set text font "arial" ink rgb(500,500,500),0 center text 320,10,"use left and right arrow keys to rotate the cylinder limb" center text 320,460,"press escape to exit" rem rotate object yrotate object 1,wrapvalue(object angle y(1)+0.5) rem move object move object 1,2.5 rem rotate limb (limb angle x(obj number,limb number) if leftkey()=1 then rotate limb 1,1,wrapvalue(limb angle x(1,1)-1),45,0 if rightkey()=1 then rotate limb 1,1,wrapvalue(limb angle x(1,1)+1),45,0 sync loop

A simple menu with credits.

Text RPG work in progress. I'm pretty much figuring this out as I go along! Not a whole lot here. I'll get there when I get there!

In progress RPG battle code. Text only.

Quick Way to Get Key Number since I'm always forgetting the key number assignments. /* 03/19/2011 I adjusted text size and resolution up for Windows Vista and 7. Those two OSes don't seem to support the lower resolutions I used to write in. Pity. And an obvious "push" for people to upgrqade (spend more $$) */

This routine is designed to be modified and pasted into existing projects but probably needs some further integrating and speed enhancing done to it.

This source code uses arrays and dots to form dazzling sparkles of joy and happyness! It isn't that complex and it's really tiny. I hope you enjoy!

Fire works is a small program that uses arrays and dots to form beautiful pops of sparkles and such HAHA!!!

Sky simulator. Controls a unique path for the sun and up to four moons, as well as day/twilight/night transitions. Adjustable viewer latitude and individual ecliptic for each orbital object.

Pass an object and/or camera number to the functions to facilitate basic mouse and keyboard movement.

Moves an object in the given direction with the given speed and then updates the objects x&y positions to reflect this movement

Sandbox, not completed project. ASCII playing here.

*NOT native DBP Particles* This is basically setting limbs on multi-colored fire using a simple custom particle system I made.

There you have pretty texture of old machine and you could use it in your project in DarkBASIC Pro or DarkBASIC. Have fun!

Incomplete battle sequence for RPG. all text-based. real shabby but i'm still learning

Dark Physics Plugin required. A WIP of using Dark Physics Character controller in 3rd person Camera view. While Dark Physics is able to sort the Collision of the Character Controller, it isn't however able to give camera collision if you are using gravity for character controller. So this gives you camera collision aswell.

First attempt at a "game". Simple rock paper scissors game that keeps track of wins, losses, and ties. I would be grateful for constructive criticism.

This is an animation I made. Hope you like it.

Uses multiple types to create things like: player.pos.x

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