This program creates a button then saves it to your clipboard. If you follow the instructions, you'll be making buttons in no time. Tell me how it goes. Remember, once its copied to your clipboard, for windows you press control+v.
Constructive criticisim appreciated.
Thank You,
Irojo
sync on:sync rate 30
ink rgb(50,50,50),0
center text 320,240,"Button Builder"
wait 400
ink rgb(155,155,155),0
set text size 40
center text 320,240,"ELITE"
wait 1000
cls
ink rgb(255,255,255),0
print "Please Select The Top Left Hand side of your button."
do
if mouseclick()=1
bx=mousex()
by=mousey()
exit
endif
sync
loop
hide mouse
dot bx,by
wait 100
print "Is this where you wanted it? (y)es/(n)o?"
show mouse
do
if inkey$()="y" then exit
if inkey$()="n" then gosub disconnect
sync
loop
print "Location Accepted."
print "Please click and hold to select Box Width. Then Press (y) to confirm or (n) to exit"
print "Please click to begin."
suspend for mouse
do
cls
dot bx,by
if mouseclick()=1 then nbx=mousex():nby=mousey()
box bx,by,nbx,nby
if inkey$()="y" then exit
if inkey$()="n" then gosub disconnect
sync
loop
wait 100
print "Button Created. Test? (y)es OR (s)kip to code OR (e)nd and lose data."
do
if inkey$()="y" then exit
if inkey$()="s" then gosub button_code
if inkey$()="e" then gosub disconnect
sync
loop
print "TEST SELECTED."
print "When You are finished Testing, press 'f' to finish testing, and get your code."
wait 4000
do
cls
box bx,by,nbx,nby
if mousex()>=bx and mousex()<=nbx and mousey()>=by and mousey()<=nby and mouseclick()=1
print "PRESSED"
endif
if inkey$()="f" then exit
sync
loop
button_code:
print "Your code is:"
print " "
print "if mousex()>=",bx," and mousex()<=",nbx," and mousey()>=",by," and mousey()<=",nby," and mouseclick()=1"
print " "
print "--------------"
print "Press a Key to exit."
print "This code will be written to your clipboard."
print "Once you paste the code to something, highlight the * and press enter."
print "Thank You for using Button Builder Elite."
wait 100
suspend for key
s1$="if mousex()>="
write to clipboard s1$+str$(bx)+" and mousex()<="+str$(nbx)+" and mousey()>="+str$(by)+" and mousey()<="+str$(nby)+" and mouseclick()=1 *box "+str$(bx)+","+str$(by)+","+str$(nbx)+","+str$(nby)
end
disconnect:
cls
Print "Project has been canceled. Press (e) to exit."
repeat
sync
until inkey$()="e"
I have mad skills. I can make a dot follow your mouse in 2d. Don't try and tell me someone has done that before.
