Hi, as the thread says NO COMMENTING thank you.
I just made these up coz i got bored and you never know....you might want to use them sometime?
Here they are and there is a little manual type thing on how to use them.
`Hello and welcome to my Functions with !21! functions...wow!
`To start...
`Have you ever just not wanted to write print over and over again...?
`If so this is a function for you!
`To start the Text input, tpye this, I("Whatever you want to say in here")
`It is as easy as a print function but less typing and it also wait 1000!
`The next function I made was to make a background with a kool half black-half red feel.
`So you type in, MakeMenuRed()
`And that does the work for you....!
`Now to make Menus!
`To get a Menu with the kool background and have a title and 2 labels,type in, MakeBigMenuRed1("Title Goes Here","Variable 1","Variable 2")
`To have one with 3 labels and a title..., MakeBigMenuRed2("Title Goes Here","Variable 1","Variable 2","Variable 3")
`To have one with 4 labels and a title..., MakeBigMenuRed3("Title Goes Here","Variable 1","Variable 2","Variable 3","Variable 4")
`To have one with !5! labels and a title..., MakeBigMenuRed4("Title Goes Here","Variable 1","Variable 2","Variable 3","Variable 4","Variable 5")
`Thou on these function you have to make labels which the menu points to, you can do this by altering the function down below all this txt!
`These are my amazing little functions....Thank You,Thank you.....
`BTW you can try them out on this screen or if you want to have those functions on another screen
`Then you have to copy that function from the bottom of the screen. So Dark Basic knows what the function is!
`Now for the newest function...A save function....It can save a txt piece or any . file like .dba
`Though you have to type in the code and it will convert to source code and save under a file called
`Mrnaughty's saving programme in c:. You will be able to change the name of the . file.
`Just type in , SavTxt("Your code here","The filename as a . file")
`BEWARE only write one line of writing each time...
`Like this, SavTxt("input""what is your name?"",name$",Your Name.dba)
`SavTxt("input what is your name?,name$","Your Names.txt")
`This is how ou could write a lot of lines into a .txt document
`SavTxt("Hello","my.txt")
`AddTxt("my.txt","Next Line")
`AddTxt("my.txt","Next Line")
`AddTxt("my.txt","Next Line")
`and this is how you could delte that filename, btw you have to change the filename in the function.
`DelTxt()
`For it to delete
`Now this command prints the x and y axis of the cursor
`CursorCoor()
` Now this command lets ypu color print commands just type this in
`ColorText("1st lot of stuff")
`ColorText("2nd lot of stuff")
`RndText("I am here")
`RndText("Now i am here!")
`This command lets you easily make a spinning cube
`RotCube()
`This one is Space print which allows you o write something like hi then
`It lets you put a lot of spaces then somethink like what is yoour name.
`This isn't very useful but it can help at points!
`To do space print just type in, SpacePrint("First","Second")
`Now this one lets you set the cursor and then print something
`Just type, CoPrint(50,50,"Whatever you want here")
`Now these command lets you change the color of your print commands easily.
`All you have to do to get red writing in key in, Scr()
`For blue, Scb()
`And for Green, Scg()
`Now I have made 2 simple music buttons one for mp3, MP3("music name.mp3")
`And one for midi files, MIDI("music name.midi")
` Now I have made a simple animated logo maker.it flaskes red
`To do this type in, LogoMaker("Your logo")
function MakeBigMenuRed1(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
function MakeBigMenuRed2(titlee$,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,titlee$
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
function MakeBigMenuRed3(titleee$,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,titleee$
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
function MakeBigMenuRed4(titleeee$,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,titleeee$
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
Function MakeMenuRed()
box 20,20,620,460,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,0,0)
endfunction
Function I(txt$)
print txt$
wait 1000
endfunction
Function SavTxt(thecode$,namee$)
make directory "C:Mrnaughty's Saving Programme"
set dir "C:Mrnaughty's Saving Programme"
open to write 1,namee$
write string 1,thecode$
endfunction
Function AddTxt(nameee$,code$)
set dir "C:Mrnaughty's Saving Programme"
open to write 1,nameee$
write string 1,code$
endfunction
Function DelTxt()
set dir "C:Mrnaughty's Saving Programme"
if file exist ("my.txt")
delete file "my.txt"
endif
endfunction
Function CursorCoor()
start:
cls
print mousex()
print mousey()
sync
goto start
endfunction
Function ColorText(here$)
cls
ink rgb(255,0,0),0
print here$
wait 500
cls
ink rgb(0,255,0),0
print here$
wait 500
cls
ink rgb(0,0,255),0
print here$
wait 500
cls
ink rgb(180,180,0),0
print here$
wait 500
cls
ink rgb(255,30,127),0
print here$
wait 500
cls
ink rgb(6,89,65),0
print here$
wait 500
Endfunction
Function RndText(rndtext$)
cls
center text 200,200,rndtext$
wait 500
center text 100,100,rndtext$
wait 500
center text 330,290,rndtext$
wait 500
center text 300,150,rndtext$
wait 500
center text 150,130,rndtext$
wait 500
center text 270,170,rndtext$
wait 500
center text 350,410,rndtext$
wait 500
center text 310,380,rndtext$
wait 500
endfunction
Function RotCube()
MAKE OBJECT CUBE 1,100
DO
YROTATE OBJECT 1,OBJECT ANGLE Y(1)+1
LOOP
endfunction
Function SpacePrint(lines$,liness$)
print lines$
set cursor 340,2
print liness$
wait 2000
endfunction
Function CoPrint(x,y,string$)
set cursor x,y
print string$
wait 2000
endfunction
Function Scr()
ink rgb(255,0,0),0
endfunction
Function Scb()
ink rgb(0,0,255),0
endfunction
Function Scg()
ink rgb(0,255,0),0
endfunction
Function MP3(musicname$)
load music musicname$,1
endfunction
Function MIDI(musicnamea$)
load music musicnamea$,2
endfunction
Function LogoMaker(logo$)
lgmaker:
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
wait 200
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
set text size 15
center text 100,100,logo$
center text 500,100,logo$
center text 100,350,logo$
center text 500,350,logo$
center text 300,50,logo$
center text 300,400,logo$
wait 200
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
wait 200
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
set text size 15
center text 100,100,logo$
center text 500,100,logo$
center text 100,350,logo$
center text 500,350,logo$
center text 300,50,logo$
center text 300,400,logo$
wait 200
cls
set text font "Ariel"
set text size 200
ink rgb(255,0,0),0
center text 300,175,logo$
cls
set text size 15
center text 100,100,logo$
center text 500,100,logo$
center text 100,350,logo$
center text 500,350,logo$
center text 300,50,logo$
center text 300,400,logo$
wait 200
goto lgmaker
endfunction
Hope this helps some.
P.S - For any1 who reads other posts by me have you realised tht i put
after nearly every post....Coz i realised...lol
Working for ELB software on Realms of Tutopia!
