Hey ppl For some reason tonight I have been obsessed with functions and i made one to hopefully suite you guys.....
This one creates 2 labels
MakeBigMenuRed("The Game","Start","Exit")
function MakeBigMenuRed(title$,v1$,v2$)
box 20,20,620,460,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,0,0)
ink rgb(0,225,0),0 : center text 320,100,title$
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink rgb(255,0,0),0 :text 100,200,v1$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(0,225,0),0 :text 100,200,v1$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink rgb(255,0,0),0 :text 100,230,v2$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(0,225,0),0 :text 100,230,v2$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
until false
endfunction
This for 3.
MakeBigMenuRed("The Game","Start","Load","Exit")
function MakeBigMenuRed(title$,v1$,v2$,v3$)
box 20,20,620,460,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,0,0)
ink rgb(0,225,0),0 : center text 320,100,title$
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink rgb(255,0,0),0 :text 100,200,v1$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(0,225,0),0 :text 100,200,v1$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink rgb(255,0,0),0 :text 100,230,v2$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(0,225,0),0 :text 100,230,v2$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink rgb(255,0,0),0 :text 100,260,v3$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(0,225,0),0 :text 100,260,v3$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
until false
endfunction
This is for 4.
MakeBigMenuRed("The Game","Start","Load","2 Player","Exit")
function MakeBigMenuRed(title$,v1$,v2$,v3$,v4$)
box 20,20,620,460,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,0,0)
ink rgb(0,225,0),0 : center text 320,100,title$
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink rgb(255,0,0),0 :text 100,200,v1$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(0,225,0),0 :text 100,200,v1$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink rgb(255,0,0),0 :text 100,230,v2$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(0,225,0),0 :text 100,230,v2$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink rgb(255,0,0),0 :text 100,260,v3$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(0,225,0),0 :text 100,260,v3$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310))) then ink rgb(255,0,0),0 :text 100,290,v4$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 289) or (mousey() >= 309))) then ink rgb(0,225,0),0 :text 100,290,v4$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
until false
endfunction
And if you need lots of labels...hers 5!
MakeBigMenuRed("The Game","Start","Load","Co-op","V.S","Exit")
function MakeBigMenuRed(title$,v1$,v2$,v3$,v4$,v5$)
box 20,20,620,460,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,0,0)
ink rgb(0,225,0),0 : center text 320,100,title$
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink rgb(255,0,0),0 :text 100,200,v1$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(0,225,0),0 :text 100,200,v1$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink rgb(255,0,0),0 :text 100,230,v2$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(0,225,0),0 :text 100,230,v2$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink rgb(255,0,0),0 :text 100,260,v3$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(0,225,0),0 :text 100,260,v3$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310))) then ink rgb(255,0,0),0 :text 100,290,v4$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 289) or (mousey() >= 309))) then ink rgb(0,225,0),0 :text 100,290,v4$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=320) and (mousey() <=340))) then ink rgb(255,0,0),0 :text 100,320,v5$
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 319) or (mousey() >= 339))) then ink rgb(0,225,0),0 :text 100,320,v5$
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=320) and (mousey() <=340) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
until false
endfunction
The original code was really for newbies beecause.... well really i was and still am a newbie but you better ppl out there can probably understand my functions and plz comment on them because they were some of my first functions!
thx
Working for ELB software on Realms of Tutopia!
