define echo(s) = BJDebugMsg(s)

globals
 constant string TOKEN_SYMBOL="-"
endglobals

globals
boolean array XClearAbleXXX
boolean array ConsoleToAll

boolean array ConsolePrefix
integer array ConsolePrefixSize

player  array ConsolePlayer
trigger array ConsoleTrigger
string  array ConsoleSetup
boolean array ConsoleSetupBool
string  array ConsoleExternal

integer ConsoleCount=0

//integer array ConsoleLast

string ConsoleTempPrefix=null
player ConsoleTempPlayer=null
endglobals

function AddMode takes player p,string s,string ex,code func,boolean clear,boolean prefix,integer prefixSize returns nothing
if s == null then
 debug call echo("|cffff0000Console Error! Mode crush. Nill value|r")
 return 
endif
if prefix then
 set ConsolePrefix[ConsoleCount]=true
if prefixSize>0 then
  set ConsolePrefixSize[ConsoleCount]=prefixSize
else
  debug call echo("|cffff0000Console Error! Unexpected prefix to " + s + "mode|r")
  return
endif
else
 set ConsolePrefix[ConsoleCount]=false
endif
if p == null then
 set ConsoleToAll[ConsoleCount]=true
else
 set ConsoleToAll[ConsoleCount]=false
 set ConsolePlayer[ConsoleCount]=p
endif
set ConsoleSetup[ConsoleCount]=s
if ex != null then
 set ConsoleExternal[ConsoleCount]=ex
 set ConsoleSetupBool[ConsoleCount]=true
else
if func != null then
  set ConsoleTrigger[ConsoleCount]=Cond2Trg(Condition(func))
  set ConsoleSetupBool[ConsoleCount]=false
else
  debug call echo("|cffff0000Core Error! Unexpected value to " + s + "mode|r")
  return
endif
endif
set XClearAbleXXX[ConsoleCount]=clear
set ConsoleCount=ConsoleCount+1
endfunction

function ConsoleParse takes nothing returns boolean
local integer p=GetPlayerId(GetTriggerPlayer())
local string s=GetEventPlayerChatString()
local integer i=1
local integer x=0
local integer lng=StringLength(s)
local string token=SubString(s,0,1)
set ConsoleTempPlayer=GetTriggerPlayer()
if token ==TOKEN_SYMBOL then
loop
  exitwhen i>lng
  set x=0
//debug call echo("Symbol Parse: "+I2S(i))
loop
   exitwhen x>ConsoleCount
   set token=SubString(s,i,i+StringLength(ConsoleSetup[x]))
//debug call echo("Сompare Parse: " + token + " : " + ConsoleSetup[x])
if token == ConsoleSetup[x] then
if ConsoleSetupBool[x] then
if ConsolePrefix[x] and i<2 then
      set ConsoleTempPrefix=SubString(s,i+StringLength(ConsoleSetup[x])+1,i+StringLength(ConsoleSetup[x])+Cons​olePrefixSize[x]+1)
if ConsoleToAll[x] then
       call ExecuteFunc(ConsoleExternal[x])
elseif GetTriggerPlayer() == ConsolePlayer[x] then
       call ExecuteFunc(ConsoleExternal[x])
endif
//debug call echo("return execute")
      return false
else
if ConsoleToAll[x] then
       call ExecuteFunc(ConsoleExternal[x])
elseif GetTriggerPlayer() == ConsolePlayer[x] then
       call ExecuteFunc(ConsoleExternal[x])
endif
endif
else
if ConsolePrefix[x] and i<2 then
      set ConsoleTempPrefix=SubString(s,i+StringLength(ConsoleSetup[x]),i+StringLength(ConsoleSetup[x])+Consol​ePrefixSize[x])
if ConsoleToAll[x] then
       call TriggerEvaluate(ConsoleTrigger[x])
elseif GetTriggerPlayer() == ConsolePlayer[x] then
       call TriggerEvaluate(ConsoleTrigger[x])
endif
//debug call echo("return evaluate")
      return false
else
if ConsoleToAll[x] then
       call TriggerEvaluate(ConsoleTrigger[x])
elseif GetTriggerPlayer() == ConsolePlayer[x] then
       call TriggerEvaluate(ConsoleTrigger[x])
endif
endif
endif
    set i=i+StringLength(ConsoleSetup[x])-1
    exitwhen true
endif
   set x=x+1
endloop 
  set i=i+1
endloop
endif
//debug call echo("return stand")
return false
endfunction

function ConsoleClearOnce takes integer x returns nothing
set ConsoleSetup[x]="q!~#!!!#;"
set ConsoleExternal[x]=null
call TriggerClearConditions(ConsoleTrigger[x])
set ConsoleSetupBool[x]=false
set ConsoleTrigger[x]=null
set ConsolePlayer[x]=null
endfunction

function ConsoleClear takes nothing returns nothing
local integer x=0
loop
 exitwhen x>ConsoleCount
 if XClearAbleXXX[x] then
  set ConsoleSetup[x]="q!~#!!!#;"
  set ConsoleExternal[x]=null
  call TriggerClearConditions(ConsoleTrigger[x])
  set ConsoleSetupBool[x]=false
  set ConsoleTrigger[x]=null
  set ConsolePlayer[x]=null
  set ConsoleToAll[x]=false
 endif
 set x=x+1
endloop
endfunction

function InitConsole takes nothing returns nothing
local integer i=0
local trigger t=CreateTrigger()
loop
 exitwhen i>11
 call TriggerRegisterPlayerChatEvent(t,Player(i),"",true)
 set i=i+1
endloop
call TriggerAddCondition(t,Condition(function ConsoleParse))
endfunction

 unit array tempUnit

 struct MS extends console

    boolean clear = false  // Данное значение указывать не обязательно указывать если оно равно false.
                           // В принчипе оно очищает функцию если она равна true, при запуске функции
                           // xconsole.clear()
                           
    boolean after = false  // Данная переменная работает если прошлый указатель равен true.
                           // Также необязательно указывать если значение равно false
                           // Очищает мод после ввода сразу.
                           
    boolean prefix = false // Использует ли функция префиксы. Удобные для записи в таком виде
                           // "-ms 50000000"
                           
    player player  = null  // Необязательно указывать если значение null. собственно работает
                           // По принципу если не указан игрок то работает для всех игроков
                           
    string curMode = "ms"  // Единственное значение которое указывать обязательно!!!
                           // Если его не указать то мод просто не запишеться,
                           // указывать надо то что пишеться после значка "-" (TOKEN_SYMBOL)
    
    method onParse takes player p returns boolean
     // данный метод запускаеться если значение boolean prefix == false.
     // собственно тут мы записываем нужный нам триггер, или по иному действия
     // выполняемые модом.
    
     echo("Current movement speed" + I2S(GetUnitMoveSpeed(tempUnit[GetPlayerId(p)])) + "!")
     return true
    endmethod
    
    //method onParsePrefix takes player p,string s returns boolean
     // Если boolean prefix == true значит запускаеться данная функция.
     // Кстати string s => наш префикс
     // тут вам будет удобно оперировать с вводимыми модификациями с префиксами.
     // А также данную функцию хорошо использовать когда вы нехотите чтобы ваша модификация 
     // как бы склеивалась с другими модификациями. (-apomem склеянная модификация из
     // ap ; om ; em)
    //endmethod
    
 endstruct

scope TEMPLATE initializer Init

struct MS extends console
   string curMode = "ms"
   method onParse takes player p returns boolean
    echo("That's sample test MS")
    return true
   endmethod
endstruct

struct AP extends console
   string curMode = "ap"
   boolean prefix = true
   method onParsePrefix takes player p,string s returns boolean
    echo("That's sample test AP : " + s)
    return true
   endmethod
endstruct

public function Init takes nothing returns nothing
 call xconsole.Init()                 // Функция запуска системы! Обязательна нужна
 call xconsole.addMode(MS.create())   // Функция добавляющая MS прописку в парсер
 call xconsole.addMode(AP.create())   // Функция добавляющая AP прописку в парсер
                                      // Кстати хочу заметить что порядок парсера зависит от порядка
                                      // записи функций.
endfunction

endscope

library ConsoleParser{

define private TOKEN_SYMBOL = "-"

define echo(string) = DisplayTextToPlayer(GetLocalPlayer(),0,0,string)

interface console{

   boolean clear   = false
    boolean after  = false
   boolean prefix  = false

   player  player  = null
   string  curMode = null
   
   method onParse       takes player p          returns boolean defaults false
   method onParsePrefix takes player p,string s returns boolean defaults false

}

struct xconsole{

 static integer count = 0
 //console lox          = 0

 static nothing addMode(console x){
  if x.curMode == null{
   debug echo("|cffff0000Core Error! "+I2S(x)+" console curMode == null.|r")
   return
  }
  thistype.count=x
 }
 
 static nothing removeMode(console x){
  if x.curMode!="not avaible!"{
   x.curMode = "not avaible!"
   x.clear=false
  }else{
   debug echo("|cffff0000Core Error! "+I2S(x)+" console curMode double removing.|r")
  }
 }
 
 static nothing clearMode(){
  integer i=0
  console c=0
  whilenot(i>thistype.count){
   c=i
   if c.clear{
    thistype.removeMode(c)
   }
   i++
  }
 }

 static boolean parser(){
  integer p     = GetPlayerId(GetTriggerPlayer())
  string  s     = GetEventPlayerChatString()
  integer i     = 1
  integer x     = 0
  integer lng   = StringLength(s)
  string  token = SubString(s,0,1)
  console c     = 0
  if token != TOKEN_SYMBOL{
   return false
  }
  whilenot(i>lng){
   x=0
   whilenot(x>thistype.count){
    c = x
    token=SubString(s,i,i+StringLength(c.curMode))
    if token == c.curMode{
     if c.prefix{
      if c.player==null{
       c.onParsePrefix(GetTriggerPlayer(),SubString(s,i+StringLength(c.curMode)+1,lng))
       if c.clear && c.after{
        thistype.removeMode(c)
       }
      }elseif c.player==GetTriggerPlayer(){
       c.onParsePrefix(GetTriggerPlayer(),SubString(s,i+StringLength(c.curMode)+1,lng))
       if c.clear && c.after{
        thistype.removeMode(c)
       }
      }
     }else{
      if c.player==null{
       c.onParse(GetTriggerPlayer())
       if c.clear && c.after{
        thistype.removeMode(c)
       }
      }elseif c.player==GetTriggerPlayer(){
       c.onParse(GetTriggerPlayer())
       if c.clear && c.after{
        thistype.removeMode(c)
       }
      }
      i+=StringLength(c.curMode)-1
      exitwhen true
     }
    }
    x++
   }
   i++
  }
  return true
 }
 
 static nothing Init(){
  integer i=0
  trigger t=CreateTrigger()
  whilenot(i>11){TriggerRegisterPlayerChatEvent(t,Player(i++),"",true)}
  TriggerAddCondition(t,Condition(function thistype.parser))
 }
 
}

}