i know the text is hard to read, i just threw a crappy image in there to use for now, the tiles and characters were from Magellan's rpg demo, I didnt use any of his code, just the images and the method of using plains for sprites...
here's some functions i used for the message box...
to return the ascii value of the character in a string
FUNCTION GETIMAGE(ascval)
image = 72
`REMSTART
IF ascval > 64 AND ascval < 91
image = ascval - 64
ENDIF
IF ascval > 48 AND ascval < 58
image = ascval - 22
ENDIF
IF ascval = 48 THEN image = 36
IF ascval = 33 THEN image = 37
IF ascval = 46 THEN image = 38
IF ascval = 63 THEN image = 39
IF ascval = 39 THEN image = 41
IF ascval = 44 THEN image = 42
IF ascval = 58 THEN image = 43
IF ascval = 59 THEN image = 44
IF ascval = 36 THEN image = 45
IF ascval > 96 AND ascval < 123
image = ascval - 51
ENDIF
`REMEND
image = image + 60000
ENDFUNCTION image
to create the text
FUNCTION NEWTEXT(filename$,textwidth,textheight)
IMG = 0
LOAD BITMAP filename$, 1
FOR y = 0 TO 1
FOR x = 0 TO 44
GET IMAGE 60001 + img, x*textwidth,y*textheight,x*textwidth+textwidth,y*textheight+textheight
INC img
NEXT x
NEXT y
DELETE BITMAP 1
ENDFUNCTION
to create my textbox image
FUNCTION NEWTEXTBOX(filename$)
IF IMAGE EXIST(60000) THEN DELETE IMAGE 60000
LOAD IMAGE filename$, 60000
MAKE OBJECT PLAIN 65000, 100,25
XROTATE OBJECT 65000,90
SET OBJECT 65000,1,0,1,0,0,0,0
POSITION OBJECT 65000, 0,0,0
HIDE OBJECT 65000
ENDFUNCTION
[to create the textbox, used at runtime
FUNCTION MESSAGEBOX(msg$)
x = 0
y = 0
PASTE IMAGE 60000, 0,0
FOR i = 1 TO LEN(msg$)
x = x + 16
IF x > 760
x = 16
y = y + 32
ENDIF
ascval = ASC(MID$(msg$,i))
image = GETIMAGE(ascval)
PASTE IMAGE image, x+16,y+16
NEXT i
GET IMAGE 65000, 0,0,800,200
TEXTURE OBJECT 65000,65000
POSITION OBJECT 65000, CAMERA POSITION X(),2,CAMERA POSITION Z()-40
SHOW OBJECT 65000
WAIT 3000
HIDE OBJECT 65000
ENDFUNCTION
the code is very sloppy cuz im just trying to get the thing working first before i optimize it... Thanx for taking a look
