sync on
hide mouse
name$=""
name$=rpgnameenter()
cls 0
print name$
end
function rpgnameenter()
cls 0
set text font "verdana"
set text size 20
text 0,0,"End"
get image 101,0,0,50,50
cls 0
set text font "verdana"
set text size 20
text 0,0,"Clr"
get image 102,0,0,50,50
cls 0
set text font "verdana"
set text size 50
text 0,0,"[ ]"
get image 100,0,0,70,50
alphabet$="abcdefghijklmnopqrstuvwxyz"
for i=255 to 0 step -1
ink rgb(i,i,255),0
a=i*2
line 1,a,639,a
line 1,a+1,639,a+1
next i
`make name grid
ink 0,0
text 215,55,"__________"
ink rgb(255,255,255),0
text 210,50,"__________"
Set text size 20
text 10,15,"So, what is your name anyway?"
Set text size 50
for y=1 to 3
for x=1 to 10
incc=incc+1
ink 0,0
text (x*55)+5,(y*60)+75,mid$(alphabet$,incc)
ink rgb(255,255,255),0
text x*55,(y*60)+70,mid$(alphabet$,incc)
if incc=26 then exit
next x
next y
x=1
y=1
paste image 101,(7*55)+10,(3*60)+85,0
name$=""
do
if x<1 then x=1
if y<1 then y=1
if x>10 then x=10
if y>3 then y=3
if y=3 and x>7 then x=7
sprite 1,(x*55)-10,(y*60)+70,100
if hold=1 and upkey()=0 and downkey()=0 and rightkey()=0 and leftkey()=0 then hold=0
if hold=0
if rightkey()=1 then x=x+1:hold=1
if leftkey()=1 then x=x-1:hold=1
if upkey()=1 then y=y-1:hold=1
if downkey()=1 then y=y+1:hold=1
endif
if returnkey()=0 then holdk=0
if holdk=0
if returnkey()=1 and x=7 and y=3 then goto endd
if incal<>0
if returnkey()=1 then name$=name$+mid$(alphabet$,x+((y-1)*10)):incal=incal+1:holdk=1
endif
if incal=0
if returnkey()=1 then name$=name$+upper$(mid$(alphabet$,x+((y-1)*10))):incal=incal+1:holdk=1
endif
endif
ink rgb(255,255,255),0
text 210,50,name$
if incal=11 then goto endd
sync
loop
endd:
delete sprite 1
endfunction name$
Dunno who did it.........
RPGamer
Current - RPG: Eternal Destiny : Help Wanted!
Upcoming- MMOFPS- Paintball Game: HELP WANTED!
Http://halbrosproductions.netfirms.com
