if mouseclick() = 1
if mousex() > fChatminX# and mousex() < fChatmaxX# and mousey() > fChatminY# and mousey() < fChatmaxY#
chatbox(mousex#+(fChatmaxX# - fChatminX#),mousey+(fChatmaxY# - fChatminY#),200,100,sInput$)
endif
function chatbox(fX#,fY#,fSizeX#,fSizeY#,sText$)
if mousex() > 0 + (fSizeX*0.5) and mousex() < screen width() - (fSizeX#*0.5)
mousex# = 0.0
else
mousex# = mousemovex()*0.03
endif
if mousey() > 0 + (fSizeX#*0.5) and mousey() < screen height() - (fSizeY#*0.5)
mousey# = 0.0
else
mousey# = mousemovey()*0.03
endif
box fX#-(fSizeX#*0.5),fY#+(fSizeY#*0.5),fX#+(fSizeX#*0.5),fY#-(fSizeY#*0.5)
center text sText$,fX#,fY#
endfunction
i think thats about right - but my brain is kinda still working on something else so might need a lil tweaking hehee
Anata aru kowagaru no watashi! 