[US] [CS2D] [Lua] Thread(15-03-04): ArgentinaMaster

addhook ("say","say_adms")
function say_adms(id,txt)
     if (txt=="!cmds") then
          msg2 (id,"!goto <id>")
          msg2 (id,"!bring <id>")
          msg2 (id,"!goto <id>")
          msg2 (id,"!burn <id> (If dead no burn again!)")
          msg2 (id,"!kick <id>")
          msg2 (id,"!punish <id>")
          msg2 (id,"!speed <id> <speed>")
          msg2 (id,"!firesuit <id>")
          msg2 (id,"!health <id> <hp>")
          msg2 (id,"!heal <id>")
          msg2 (id,"!curse <id> (Curse forEVER) (Need !antidote <id> $admin$")
          msg2 (id,"!antidote <id>")
          msg2 (id,"!equip <id> <iid>")
          msg2 (id,"!lookusgn <id>")
          msg2 (id,"!shakeplayer <id> <str>")
          msg2 (id,"!godbuilding")
          msg2 (id,"!fastbuild <angel x> <angel y> <building type>")
          msg2 (id,">>Angel max 5 and min -5<<")
          msg2 (id,">>Type 16-19 is does not work<<")
          msg2 (id,"!cancelfastbuild")
          msg2 (id,"!fastbuildteam <team>")
          msg2 (id,"!projecttype <item id>")
end
     for target = 1, 32 do
          if (txt=="!goto "..target) then
               if (a[id]>=1) then
                    parse ("setpos "..id.." "..(player(target,"x")).." "..(player(target,"y")))
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!bring "..target) then
               if (a[id]>=1) then
                    parse ("setpos "..target.." "..(player(id,"x")).." "..(player(id,"y")))
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!burn "..target) then
               if (a[id]>=1) then
                    burnmode[target] = 1
                    msg ("SERVER  "..player(id,"name").." throws fire to "..player(target,"name"))
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!kick "..target) then
               if (a[id]>=1) then
                    if (a[target]<=0) then
                         parse ("kick "..target)
                    else
                         msg2 (id,"Cant Kick Admin !")
                    end
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!punish "..target) then
               if (a[id]>=1) then
                    parse ("killplayer "..target)
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!mute "..target) then
               if (a[id]>=1) then
                    mm[target] = 1
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!unmute "..target) then
               if (a[id]>=1) then
                    mm[target] = 0
               end
          end
     end
     for target = 1, 32 do
          for speed = 0, 100 do
               if (txt=="!speed "..target.." "..speed) then
                    if (a[id]>=1) then
                         parse ("speedmod "..target.." "..speed)
                    end
               end
          end
     end
     if (txt=="!firesuit") then
          if (a[id]>=1) then
               if (fs[id]==0) then
                    fs[id] = 1
                    msg2 (id,"Fire Suit ACTIVED")
               else
                    fs[id] = 0
                    msg2 (id,"Fire Suit DEACTIVED")
               end
          end
     end
     for target = 1, 32 do
          for hp = 1, 250 do
               if (txt=="!health "..target.." "..hp) then
                    if (a[id]>=1) then
                         parse ("setmaxhealth "..target.." "..hp)
                    end
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!heal "..target) then
               if (a[id]>=1) then
                    parse ("sethealth "..target.." 250")
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!curse "..target) then
               if (a[id]>=1) then
                    cm[target] = 1
                    msg ("SERVER  "..player(id,"name").." curses "..player(target,"name"))
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!antidote "..target) then
               if (a[id]>=1) then
                    cm[target] = 0
               end
          end
     end
     for target = 1, 32 do
          for iid = 1, 91 do
               if (txt=="!equip "..target.." "..iid) then
                    parse ("equip "..target.." "..iid)
               end
          end
     end
     for target = 1, 32 do
          if (txt=="!lookusgn "..target) then
               if (a[id]>=1) then
                    msg2 (id,"USGN : "..(player(target,"usgn")))
               end
          end
     end
     for target = 1, 32 do
          for str = 1, 100 do
               if (txt=="!shakeplayer "..target.." "..str) then
                    if (a[id]>=1) then
                         parse ("shake "..target.." "..str)
                    end
               end
          end
     end
     if (txt=="!godbuilding") then
          if (a[id]>=1) then
               if (bnd[id]==0) then
                    bnd[id] = 1
                    msg2 (id,"God Building ACTIVED")
               else
                    bnd[id] = 0
                    msg2 (id,"God Building DEACTIVED")
               end
          end
     end
     for angelx = -5, 5 do
          for angely = -5, 5 do
               for bid = 1, 25 do
                    if (txt=="!fastbuild "..angelx.." "..angely.." "..bid) then
                         if (a[id]>=1) then
                              fbb[id] = 1
                              msg2 (id,"Fast Build ACTIVED")
                              xangel[id] = angelx
                              yangel[id] = angely
                              bd[id] = bid
                         end
                    end
               end
          end
     end
     if (txt=="!cancelfastbuild") then
          if (a[id]>=1) then
               fbb[id] = 0
               xangel[id] = 0
               yangel[id] = 0
               bd[id] = 0
          end
     end
     if (txt=="!fastbuildteam neutral") then
          if (a[id]>=1) then
               fbt[id] = 0
          end
     end
     if (txt=="!fastbuildteam tero") then
          if (a[id]>=1) then
               fbt[id] = 1
          end
     end
     if (txt=="!fastbuildteam cotero") then
          if (a[id]>=1) then
               fbt[id] = 2
          end
     end
     if (txt=="!fastbuildteam vip") then
          if (a[id]>=1) then
               fbt[id] = 3
          end
     end
     if (txt=="!tag") then
          if (a[id]>=1) then
               if (at[id]==0) then
                    at[id] = 1
                    msg2 (id,"Tag ACTIVED")
               else
                    at[id] = 0
                    msg2 (id,"Tag DEACTIVED")
               end
          end
     end
     for ptt = 0, 91 do
          if (txt=="!projecttype "..ptt) then
               if (a[id]>=1) then
                    pt[id] = ptt
               end
          end
     end
end