script.lua

很好的LUA编辑器~使用方便~但不过是英文界面的。希望大家喜欢

_Dossier_courant= "/"
_clavier= 1
_image = {Image.load("clavier.png", VRAM), Image.load("clavier2.png", VRAM)}
_texte= {"Editeur de Lua v1.0", "Pour acc閐er aux fichiers appuyez sur [select]"}
_curseur= {x= 0, y= 0}
_decal= {x= 0, y= 1}
_couleur= {blanc= Color.new (31,31, 31)}
_repetition= 150
_nom= ""
_statut= "rien"


function _Fin_Programme_ ()
   _image= nil
   _clavier= nil
   _texte= nil
   _curseur= nil
   _decal= nil
   _couleur= nil
   _repetition= nil
   _nom= nil
   _statut= nil
   collectgarbage()
end

function _Stylet_ (a)
   local compteur, x, y= 0
   local text= nil
   if Stylus.held then
      x= Stylus.X
      y= Stylus.Y
   end
   if Stylus.held then
      if x~=nil and y~=nil then
         if x>=48 and x<=91 and y>=135 and y<=155 then
            if _clavier ==1 then
               _clavier= 2
            else
               _clavier= 1
            end
         while not Stylus.released do
             Controls.read ()
          end
         end
         if x>=1 and x<231 and y>=19 and y<42 then
            text= math.floor((x-1)/23+1)
            if text==10 then text= 0 end
         end
         if  x>=231 and y>=19 and y<42 then
          if _statut~="save" then
               _Effacer_ (1)
            while not Stylus.released do
                Controls.read ()
               compteur= compteur+1
               if compteur>_repetition then
                  break
               end
             end
         else
            _statut= "effacer"
         end
         end
         if x>=231 and y>=42 and y<65 then
            if _clavier==1 then
               text= '?'
            else
               text= '&'
            end
         end
         if x>=231 and y>=65 and y<88 then
            if _clavier==1 then
               text= '!'
            else
               text= '|'
            end
         end
         if x>=231 and y>=88 and y<111 then
            if _clavier==1 then
               text= ')'
            else
               text= '}'
            end
         end
         if x<24 and y>=111 and y<134 then
            if _clavier==1 then
               text= '+'
            else
               text= '^'
            end
         end
         if x>=24 and x<47 and y>=111 and y<134 then
            if _clavier==1 then
               text= '-'
            else
               text= '_'
            end
         end
         if x>=47 and x<70 and y>=111 and y<134 then
            if _clavier==1 then
               text= '*'
            else
               text= '#'
            end
         end
         if x>=70 and x<93 and y>=111 and y<134 then
            if _clavier==1 then
               text= '/'
            else
               text= '\\'
            end
         end
         if x>=93 and x<162 and y>=111 and y<134 then
            text= ' '
         end
         if x>=162 and x<185 and y>=111 and y<134 then
            text= '='
         end
         if x>=185 and x<208 and y>=111 and y<134 then
            if _clavier==1 then
               text= '<'
            else
               text= '['
            end
         end
         if x>=208 and x<231 and y>=111 and y<134 then
            if _clavier==1 then
               text= '>'
            else
               text= ']'
            end
         end
         if x>=231 and y>=111 and y<134 and _statut~="save" then
            _Ajouter_Ligne_ ()
         while not Stylus.released do
             Controls.read ()
            compteur= compteur+1
            if compteur>_repetition then
               break
            end
          end
       end
         if x<24 and y>=134 and y<167 then
            if _clavier==1 then
               text= '~'
            else
               text= '$'
            end
         end
         if x>=24 and x<47 and y>=134 and y<167 then
            if _clavier==1 then
               text= '%'
            else
               text= '@'
            end
         end
         if x>=1 and x<231 and y>=42 and y<111 then
            if x<24 then
               if y< 64 then
                  text= 'a'
               elseif y>=86 then
                  text= 'w'
               else
                  text= 'q'
               end
            elseif x>=24 and x<47 then
               if y< 64 then
                  text= 'z'
               elseif y>=86 then
                  text= 'x'
               else
                  text= 's'
               end
            elseif x>=47 and x<70 then
               if y< 64 then
                  text= 'e'
               elseif y>=86 then
                  text= 'c'
               else
                  text= 'd'
               end
            elseif x>=70 and x<93 then
               if y< 64 then
                  text= 'r'
               elseif y>=86 then
                  text= 'v'
               else
                  text= 'f'
               end
            elseif x>=93 and x<116 then
               if y< 64 then
                  text= 't'
               elseif y>=86 then
                  text= 'b'
               else
                  text= 'g'
               end
            elseif x>=116 and x<139 then
               if y< 64 then
                  text= 'y'
               elseif y>=86 then
                  text= 'n'
               else
                  text= 'h'
               end
            elseif x>=139 and x<162 then
               if y< 64 then
                  text= 'u'
               elseif y>=86 then
                  if _clavier==1 then
                     text= ','
                  else
                     text= '\''
                  end
               else
                  text= 'j'
               end
            elseif x>=162 and x<185 then
               if y< 64 then
                  text= 'i'
               elseif y>=86 then
                  if _clavier==1 then
                     text= '.'
                  else
                     text= '\"'
                  end
               else
                  text= 'k'
               end
            elseif x>=185 and x<208 then
               if y< 64 then
                  text= 'o'
               elseif y>=86 then
                  if _clavier==1 then
                     text= ':'
                  else
                     text= ';'
                  end
               else
                  text= 'l'
               end
            elseif x>=208 and x<231 then
               if y< 64 then
                  text= 'p'
               elseif y>=86 then
                  if _clavier==1 then
                     text= '('
                  else
                     text= '{'
                  end
               else
                  text= 'm'
               end
            end
            if not (x>=139 and y>=86) then
               text= string.char(string.byte(text)+(string.byte('A')-string.byte('a'))*(_clavier-1))
            end
         end
      end
   end
   return text
end


function _Afficher_Texte_ ()
   for i= _decal.y, _decal.y+18 do
      if i>table.getn (_texte) then 
         break
      end
     if string.len ( string.sub (_texte[i], _decal.x+1))>0 then
        screen.print (SCREEN_UP, 3, 10*(i-_decal.y)+1, string.sub (_texte[i], _decal.x+1, _decal.x+43))
     end
   end
end


function _Supprimer_Ligne_ ()
   if _curseur.y+_decal.y<=1 then
      return
   end
   _curseur.y= _curseur.y-1
   _curseur.x= string.len (_texte[_curseur.y+_decal.y])
   _decal.x= 0
   _texte[_curseur.y+_decal.y]= _texte[_curseur.y+_decal.y].._texte[_curseur.y+_decal.y+1]
   table.remove (_texte, _curseur.y+_decal.y+1)
   _Verifier_Y_ (false)
   _Verifier_X_ (false)
end


function _Effacer_ ()
   local debut, fin= string.sub (_texte[_curseur.y+_decal.y], 1, _curseur.x+_decal.x-1), string.sub (_texte[_curseur.y+_decal.y], _curseur.x+_decal.x+1)
   if _curseur.x+_decal.x==0 then
      _Supprimer_Ligne_ ()
   else
      _texte[_curseur.y+_decal.y]= debut..fin
     _curseur.x= _curseur.x-1
     _Verifier_X_ (false)
   end
end


function _Inserer_Texte_ (a)
   local debut, fin= string.sub (_texte[_curseur.y+_decal.y], 1, _curseur.x+_decal.x), string.sub (_texte[_curseur.y+_decal.y], _curseur.x+_decal.x+1)
   _texte[_curseur.y+_decal.y]= debut..a..fin
   _curseur.x= _curseur.x+string.len (a)
   _Verifier_X_ (false)
end


function _Ajouter_Ligne_ ()
   table.insert (_texte, _curseur.y+_decal.y+1, string.sub (_texte[_curseur.y+_decal.y], _curseur.x+_decal.x+1))
   _texte[_curseur.y+_decal.y]=  string.sub (_texte[_curseur.y+_decal.y], 1, _curseur.x+_decal.x)