± ÀÌ À À ÀÌ ÌÌÌÌ Ì ÌÌÀÌ Ì Ì ÀÌ À ÀÌ À À ÀÌ ÀÌÌÀ Ì ÀÌÌ À ÌÌ À À ÀÌ À ÌÌ À ÀÌÌÌÌÌ Ì Ì ÌÌÌÌÀ À À À ÀÌÌÌ ÌÌÌ Ì À À À À Ì ÌÀÌÌ ÌÌÌ Ì Ì ÀÌÌ Ì ÀÌÌÌÌ Ì ÌÌÌÀÌ À À ÀÌ À ÌÌÌ ÌÌÀÌ Ì Ì ÌÌÀ ÌÌ À À Ì Ì Ì Ì ÀÌÌ Ì ÀÌ ÌÌ ÌÀ ÌÀ ÀÌÀÌÌÀ À À ÀÌ À ÀÌÌÌ ÌÀ ÌÌ ÀÌÌÀ Ì Ì ÀÌÌÀÌÌÌÀÌ ÌÌÀ ÀÌÌÌÌ ÌÌ À Ì À ÀÌÌÀÌÌÀÌÌ ÀÌÌ ÌÌÌÀ ÌÌÀÌÌÌÌÌ ÀÌÌÌ À ÌÀ ÌÀÌÌ ÀÌÌ ÀÌÀÌÌ ÀÌ ÀÌÀÌÀÌÀÌÌ ÌÀ À À À À À À À ÀÀ À ÀÀ À À À ÌÌ ÀÀÀÀÌÌÀÀÌÌ Ì ÌÌ Ì ÌÌÌ ÌÌÌ ÌÌÀÌÌ ÌÌ ÀÌÌÌÌ Ì Ì ÌÌÌÌ ÌÌÌÌÌÌ ÌÌ ÌÌÌÌÌÀÌ ÌÌÀ Ì ÀÌ Ì Ì ÌÌ Ì Ì ÀÌ ÌÌÌÀÌ ÌÌ À À ÌÀ ÀÌÌ ÌÀÌ ÌÀÌ ÌÌÌÌÌÌ ÌÀ ÌÌ ÌÌ Ì Ì ÌÌ ÌÀ Ì ÀÌÌ Ì Ì ÀÌÌÌÌ Ì ÌÌÌÀÌÌ Ì Ì ÀÌ ÌÌÌ Ì ÌÌÌ ÀÌ Ì ÀÌÌ ÌÌÀÌ ÌÌÌÌÌ Ì Ì Ì ÀÌÌ Ì Ì ÀÌ ÌÌ ÌÌ ÌÀ Ì Ì ÀÌÌ Ì À À ÀÌ ÌÌÌÌ ÌÀ ÌÌÌ À ÀÌÌÌÌÀÌ Ì ÀÌÀÀÌÌ ÀÀÌÌ ÀÀÀÌ ÀÌ ÌÌ À À ÀÀ À À ÀÀ ÀÌ À ÀÀÌ ÀÌ Ì À ÌÀ Ì À À À À À ÀÀÀÀ ÀÀÀ À ÀÀ À ÀÀÌ À ÌÌ ÌÌ ÀÀÀÀÌÌÀ+22222222222222220000000000000 0 0]7 >0/ÿðððððÿÿÿÿðÿðððÿðÿÿÿððÿðÿÿÿðððÿÿÿððÿÿÿððÿÿÿÿÿðððÿÿðÿÿÿðÿÿððÿÿÿðÿðÿÿÃ-- title: Typing -- author: PinguThePenguin_007 -- desc: a little typer with a save function :D -- script: lua -- input: keyboard -- set true to switch to the small font smallfont=false letters={"a","b","c","d","e","f","g", "h","i","j","k","l","m","n","o","p", "q","r","s","t","u","v","w","x","y", "z","0","1","2","3","4","5","6","7", "8","9","-","=","[","]",[[\]],";", "'","`",",",".","/"," ","","\n","", "A","B","C","D","E","F","G", "H","I","J","K","L","M","N","O","P", "Q","R","S","T","U","V","W","X","Y", "Z",")","!","@","#","$","%","^","&", "*","(","_","+","{","}",'|',":", [["]],"~","<",">","?"," ","","\n",""} letter="" t=1 k=1 caps=0 text="" n=0 str=0 col=1 if smallfont then sf=0 else sf=2 end -- a character replacing function i found on the internet function rep_char(pos,str,r) return str:sub(1,pos-1)..(r or "")..str:sub(pos+1) end -- loading the text from map for i=0,1500 do if mget(i%240,i//240)==0 then break else saved=letters[mget(i%240,i//240)] text=rep_char(string.len(text)+1,text,saved) end end function TIC() local l=string.len(text) -- checks if the key is pressed, and which one for a=1,51 do if key(64) then caps=51 else caps=0 end if key(a) then if t==0 or (t>20 and t%2==0) then -- auto-enter when the text is off the screen if col==59-sf*10 and a<50 then text=rep_char(l+1,text,"\n") end -- adds/removes a letter in the text k=a letter=letters[a+caps] text=rep_char(l+2-(a//51)*2,text,letter) -- text saving in the map if a==51 then mset(l%240,l//240,0) else mset(l%240,l//240,a+caps) end sync(0,0,true) end t=t+1 end end if not key(k) then t=0 end _,str = text:gsub("\n","") col=0 for d=1,l do col=col+1 if text:sub(d,d)=="\n" then col=0 end end cls() --textmark if (time()/100)%8>4 then line(col*(4+sf),str*6, col*(4+sf),str*6+4,12) end -- the text print(text,0,0,15,true,1,sf==0) --print(n.." "..col.." "..str.." "..k.."-"..letter,0,130) end