Sorry your browser is not supported!

load bitmap "background.bmp",0
text 80, 80, "Text!!!"

global page
GLOBAL PLAYNAME$
GLOBAL CHARNAME$
REM **  MAIN PROGRAM **

SYNC ON
SYNC RATE 0

DIM gmessage$(0)


CLS

DO

GOSUB PAGECHECK

SYNC

LOOP

END

PAGECHECK:
IF PAGE=7 THEN PASTE IMAGE 7, 0, 0
IF PAGE=1 THEN PASTE IMAGE 1, 0, 0 : pageone()
IF PAGE=2 THEN PASTE IMAGE 2, 0, 0
IF PAGE=3 THEN PASTE IMAGE 3, 0, 0
IF PAGE=4 THEN PASTE IMAGE 4, 0, 0
IF PAGE=5 THEN PASTE IMAGE 5, 0, 0
IF PAGE=6 THEN PASTE IMAGE 6, 0, 0
RETURN

function pageone()
TEXTFEILD(PLAYNAME$,184,145,616,164)
TEXTFEILD(CHARNAME$,184,215,616,234)
endfunction

FUNCTION TEXTFEILD(Z$,X1,Y1,X2,Y2)

Z$=RealTimeInput()
IF ZONECLICKED(X1,Y1,X2,Y2)=1 THEN TEXT X1, Y1, Z$ + "|"

ENDFUNCTION

FUNCTION RealTimeInput()
IF KEYSTATE(14)
IF backspaceflag = 0
IF LEN(text$) > 0 THEN text$ = LEFT$(text$,(LEN(text$)-1))
backspaceflag = 1
ENDIF
ELSE
backspaceflag = 0
IF RETURNKEY()
IF returnflag = 0
text$ = ""
SendMessage(returntext$)
returnflag = 1
ENDIF
ELSE
returnflag = 0
oldkey$ = newkey$
newkey$ = INKEY$()
IF newkey$ <> oldkey$ AND ASC(newkey$) > 31 THEN text$ = text$ + newkey$
returntext$ = text$
ENDIF
ENDIF
ENDFUNCTION returntext$

function zoneclicked(x1,y1,x2,y2)
   if mousex()>x1 and mousex()<x2
      if mousey()>y1 and mousey()<y2
         if mouseclick()=1
            exitfunction 1
         endif
      endif
   endif
endfunction 0

FUNCTION SendMessage(message$)
REM Your 'send' code goes here. If you are running a multiplayer game, you
REM can send the message to the other computer. If this is a single player
REM game, you can store the message in a global variable to do with as
REM you please in your main code. Here, we are doing the latter.
gmessage$ = message$
ENDFUNCTION

rem arrays for input boxes
dim InputMessage$(3)


rem start up
sync on
sync rate 1000



rem start of loop
do
cls



rem handles input boxes
for t = 1 to 3
	x1 = 50
	y1 = 50 + (t * 50)
	y2 = y1 + 30
	x2 = x1 + 200
	if mousezone( x1,y1,x2,y2 ) = 1
		ht = 1
		if mouseclick() = 1
			active = t
		endif
	else
		ht = 0
	endif
	InputBox( t,x1,y1,x2,y2,ht,active )
next t



rem end of loop
sync
loop



rem function to draw input box
function InputBox( n,x1,y1,x2,y2,m,active )
	if m = 0
		ink rgb(200,200,200),0
	else
		ink rgb(250,250,250),0
	endif
	line x1,y1,x2,y1
	line x1,y1,x1,y2
	line x1,y2,x2,y2
	line x2,y1,x2,y2
	if active = n
		ink rgb(220,220,220),0
		InputMessage$( n ) = RealTimeInput( n )
		if abs(st - timer()) > 100
			st = timer()
			if Cursor$ = ""
				Cursor$ = "|"
			else
				Cursor$ = ""
			endif
		endif
		text x1 + 10,y1,InputMessage$( n ) + cursor$
	else
		ink rgb(140,140,140),0
		text x1 + 10,y1,InputMessage$( n )
	endif
endfunction


rem function for mousezone
function MouseZone( x1,y1,x2,y2 )
	if mousex() > x1 and mousex() < x2
		if mousey() > y1 and mousey() < y2
			exitfunction 1
		endif
	endif
endfunction 0


rem function for realtime input
FUNCTION RealTimeInput( current )
	if oldcurrent <> current
		text$ = InputMessage$( current )
		oldcurrent = current
	endif
	IF KEYSTATE(14)
		IF backspaceflag = 0
		IF LEN(text$) > 0 THEN text$ = LEFT$(text$,(LEN(text$)-1))
			backspaceflag = 1
		ENDIF
	ELSE
		backspaceflag = 0
		IF RETURNKEY()
			IF returnflag = 0
				text$ = ""
				returnflag = 1
			ENDIF
		ELSE
			returnflag = 0
			oldkey$ = newkey$
			newkey$ = INKEY$()
			IF newkey$ <> oldkey$ AND ASC(newkey$) > 31
				text$ = text$ + newkey$
			ENDIF
		ENDIF
	ENDIF
ENDFUNCTION text$