i am just messing around with the text commands, and decided to make a leet translater
.
the entire program, so far, is here
red=rgb(40,0,0)
do
rem entry
ink rgb(0,25,75),0
box 200,200,300,250
set text font \"arial\"
set text size 12
set text opaque
ink rgb(37,177,51),rgb(0,25,75)
set cursor 201,200
input \"user:\",user$
set cursor 204,210
input \"password:\",password$
if user$=\"guest\"
if password$=\"48484848\"
goto main_program
endif
endif
loop
main_program:
cls
ink 0,0
box 0,0,600,600
do
rem main input area
ink rgb(255,255,255),rgb(255,255,255)
box 200,40,400,240
set cursor 202,42
ink rgb(37,177,51),rgb(255,255,255)
input \":\",text$
number_text=len(text$)
rem binary
ink rgb(0,100,200),0
box 60,20,140,40
ink rgb(37,177,51),rgb(0,100,200)
set cursor 61,21
print \"convert to binary\"
if mousex()>60
if mousex()<140
if mousey()>20
if mousey()<40
if mouseclick()=1
goto binary
endif
endif
endif
endif
endif
rem leet
ink rgb(0,100,200),0
box 60,60,140,80
ink rgb(37,177,51),rgb(0,100,200)
set cursor 61,61
print \"convert to leet\"
rem if mousex()>60
rem if mousex()<140
rem if mousey()>60
rem if mousey()<80
if returnkey()=1
gosub leet
rem endif
rem endif
rem endif
endif
rem endif
loop
binary:
leet:
do
set text size 30
rem print \"1337\"
set text size 12
ink rgb(37,177,51),rgb(255,255,255)
set cursor 202,42
print \" \"
set cursor 202,42
for x=1 to x=number_text step 1
print left$(text$,(number_text-x))
next x
loop
return
I know there are several things that could be improved, but this is the main one
leet:
do
set text size 30
rem print \"1337\"
set text size 12
ink rgb(37,177,51),rgb(255,255,255)
set cursor 202,42
print \" \"
set cursor 202,42
for x=1 to x=number_text step 1
print left$(text$,(number_text-x))
next x
loop
return
it just wont print it.
can anyone help me with this please?
