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