Global FactionPowers, TreasureList, CharList, LastPhoto, PhotoName, PhotoList, TodaysMonth, TimeOutGo
Global gDispatcher, LegitUsers, CDKeys, muteList, banList, ipblockList, PiratePowers, gGaurdia, ElementalPowers
Global ServerTick, bActionDelay, ActionDelay, ActionDelayTick, ColiseumFlag, WinnerName, RebootTrigger, BallFlag, CurrentCarriers, RestoreTrigger, WarpShortcuts

on IncomingMessage (me, movie, group, user, fullMsg)

  if string(user.name) contains "newchar" then
   if string(fullmsg.subject) contains "QueryCreate" or string(fullmsg.subject) contains "GetAttribute" or string(fullmsg.subject) = "937oom" or string(fullmsg.subject) contains "LoadChar" then
   else
    set WarpUser = string(user.name)
    set WarpSubject = string(fullmsg.subject)

    movie.sendMessage(WarpUser, "2348823473278234327823482347", "x")
    exit
   end if
  end if

  if string(fullmsg.content) contains "../" or string(fullmsg.content) contains "..\" then
   user.sendMessage("KillTheEditorRTG", "x", 0, FALSE, user.name)
   exit
  end if

 if string(fullmsg.content) contains ";" then
  set the itemdelimiter = ";"
  set xxl = string(item 1 of fullmsg.content)
  set fullmsg.content = string(item 2 of fullmsg.content)

   if xxl <> string(user.name) then
    exit
   end if
  end if

if string(user.name) <> string(fullmsg.SenderID) then
  User.sendMessage("DieScum", "byebye", 0, FALSE, user.name)
  exit
end if

 case fullMsg.subject of

   "TodaysMonth":
   set TodaysMonth = string(fullmsg.content)
   set MyName = string(user.name)
   UpdateLastLogin(MyName)

   "WriteDeathMap":
   if random(1000) = 1 then RunBoss(me, movie, group, user, fullMsg)
   set MyName = string(user.name)
   set DMap = string(fullmsg.content)
   file("C:\FSOServer\DAT\DM\" & MyName & ".txt").write(DMap)


   "QueryCreate":
   ----exit
   --------------------------------------------------
   set MyName = string(fullmsg.content)
   set CharFile = string(fullmsg.content)
   --put CharFile
   set the itemdelimiter = "`"
   set MyCode = item 1 of CharFile
   set CharFile = item 2 of CharFile
   set the itemdelimiter = ":"
   set MyName = item 1 of CharFile

   set the itemdelimiter = ":"
   set MyName = item 1 of MyName

   set MyFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & ".txt").read

   if myFile contains ":" then

     User.sendMessage("Server Response", "Cannot Create", 0, FALSE, user.name)
     else
     User.sendMessage("Server Response", "Character Created", 0, FALSE, user.name)

     set StartingMap = file("C:\FSOServer\DAT\Starting Map.txt").read
     --set the itemdelimiter = "/"
     --set FirstPart = item 1 of CharFile
     --set the itemdelimiter = ":"
     --put item 1 of StartingMap into item 5 of FirstPart
     --put item 2 of StartingMap into item 6 of FirstPart
     --set the itemdelimiter = "/"
     --put FirstPart into item 1 of CharFile
     file("C:\FSOServer\DAT\CHAR\" & string(MyName) & ".txt").write(CharFile)
     file("C:\FSOServer\DAT\DM\" & string(MyName) & ".txt").write(StartingMap)
     set CharItems = "100|Apple-2:Knife-1:::::::::::::|NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
     file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(CharItems)
     set UserIP = movie.sendmessage("system.user.getAddress", "LookingUpIP", User.Name)
     set myip = string(UserIP.content.IPAddress)
     set myip = myip & return
     set thename = user.name & return
     file("C:\FSOServer\DAT\Logs\IPLogs\Characters\" & string(user.name) & ".txt").write(myip)
     file("C:\FSOServer\DAT\Logs\IPLogs\IPs\" & myip & ".txt").write(thename)
   end if

   "FileTransToYou":
   exit --PREVENTS ALL FILEEDITTING
   set FileAdmins = file("C:\FSOServer\DAT\SETTINGS\File Admins.txt").read
   set MyNamee = "*" & string(user.name) & "*"
   set the itemdelimiter = "~"
   set TheFolder = item 1 of fullmsg.content
   set TheFileName = item 2 of fullmsg.content
   set MyNewFileContent = item 3 of fullmsg.content
   set FullPathx = TheFolder & "\" & TheFileName

   if FileAdmins contains MyNamee then
     file("C:\FSOServer\DAT\" & FullPathX).write(MyNewFileContent)
     User.sendMessage("sqa", "File has been uploaded.", 0, FALSE, user.name)
   end if


  "FileTransToMe":
  exit --PREVENTS ALL FILEEDITTING
   set FileAdmins = file("C:\FSOServer\DAT\SETTINGS\File Admins.txt").read
   set MyNamee = "*" & string(user.name) & "*"
   set the itemdelimiter = ":"
   set TheFolder = item 1 of fullmsg.content
   set TheFileName = item 2 of fullmsg.content
   set FullPathx = TheFolder & "\" & TheFileName

   if FileAdmins contains MyNamee then
     set TheFile = file("C:\FSOServer\DAT\" & FullPathx).read
     User.sendMessage("FTSF", TheFile, 0, FALSE, user.name)
   end if

  "RPG":
   set TheRndTxt = string(fullmsg.content)
   movie.sendmessage("@AllUsers","RPG",TheRndTxt)

   "Almsg":
   the itemdelimiter = ":"
   UserName = string(user.name)
   content = string(fullmsg.content)
   lMyChar = item 1 of content
   lMovieMsg = item 2 of content
   movie.sendmessage(lMyChar, "AlertMsg", lMovieMsg)

"StartLottery":
  hStartLottery
"StopLottery":
  hStopLottery
"BuyLotteryTicket":
  lMyChar = string(user.name)
  hBuyLotteryTicket(lMyChar)
"LotteryStatus":
  lMyChar = string(user.name)
  hLotteryStatus(lMyChar)

"StartTheRaffle":
startRaffle
"StopTheRaffle":
stopRaffle
"BuyTheRaffle":
buyRaffleTicket(user,movie)

"Broadcast":
RunBroadcast(me, movie, group, user, fullMsg)

"Exousiacast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells Exousia " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@Exousia","Exousiacast",BCastDat)

"Tamarangcast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells Tamarang " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@Tamarang","Tamarangcast",BCastDat)

"Baalzamoncast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells Baalzamon " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@Baalzamon","Baalzamoncast",BCastDat)


"EleHolyCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Holy Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleHoly","EleHolyCast",BCastDat)

"EleUnholyCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Unholy Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleUnholy","EleUnholyCast",BCastDat)

"EleFireCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Fire Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleFire","EleFireCast",BCastDat)

"EleWaterCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Water Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleWater","EleWaterCast",BCastDat)

"EleEarthCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Earth Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleEarth","EleEarthCast",BCastDat)

"EleWindCast":
   set TheName = string(user.name)
   set TheBCast = string(fullmsg.content)
   set BCastDat = TheName & " tells the Wind Order " & QUOTE & TheBCast & QUOTE
   movie.sendmessage("@EleWind","EleWindCast",BCastDat)





   "BSmithCustom":
   set CustomSmithPack = string(fullmsg.content)
   User.sendMessage("BSmithCustom", CustomSmithPack, 0, FALSE, user.name)

"EnchantIt":
   set CustomSmithPack = string(fullmsg.content)
   User.sendMessage("EnchantIt", CustomSmithPack, 0, FALSE, user.name)

"EnchantIt2":
   set CustomSmithPack = string(fullmsg.content)
   User.sendMessage("EnchantIt2", CustomSmithPack, 0, FALSE, user.name)

   "BSmithCustom2":
   set CustomSmithPack = string(fullmsg.content)
   User.sendMessage("BSmithCustom2", CustomSmithPack, 0, FALSE, user.name)

   "SaveCharTickets":
   set AmountOfTickets = string(fullmsg.content)
   file("C:\FSOServer\DAT\EventTickets\" & string(user.name) & ".txt").write(AmountOfTickets)

   "SaveNationRank":
   set TheRankNumber = string(fullmsg.content)
   file("C:\FSOServer\DAT\NationRanks\" & string(user.name) & ".txt").write(TheRankNumber)

   "SaveCustomQuests":
   set TheCustomShit = string(fullmsg.content)
   file("C:\FSOServer\DAT\CustomQuests\" & string(user.name) & ".txt").write(TheCustomShit)

   "SaveNewDataXL":
   set the itemdelimiter = "|"
   set TheCustomShit = string(fullmsg.content)
   set CRank = item 2 of TheCustomShit
   set CTickets = item 1 of TheCustomShit
   set CQuests = item 3 of TheCustomShit
   set PKs = item 4 of TheCustomShit
   set PKKs = item 5 of TheCustomShit
   set TPPoints = item 6 of TheCustomShit
   set Silver = item 7 of ThecustomShit
   set Honor = item 8 of TheCustomShit
   set PKs = PKs & ":" & PKKs & ":" & Honor
   set EventCrap = CTickets & ":" & TPPoints & ":" & Silver
   if PKs = ":" or PKs = "::" then
   else
    file("C:\FSOServer\DAT\PKCount\" & string(user.name) & ".txt").write(PKs)
   end if
   if CQuests = "" or CQuests = VOID then
   else
    file("C:\FSOServer\DAT\CustomQuests\" & string(user.name) & ".txt").write(CQuests)
   end if
   if CRank = "" or CRank = VOID then
   else
    file("C:\FSOServer\DAT\NationRanks\" & string(user.name) & ".txt").write(CRank)
   end if
   if CTickets = "" or CTickets = VOID or TPPoints = "" or TPPoints = VOID or Silver = "" or Silver = VOID then
   else
    file("C:\FSOServer\DAT\EventTickets\" & string(user.name) & ".txt").write(EventCrap)
   end if

  "GetGList":
   set Guilds = file("C:\FSOServer\DAT\GUILDS\GuildList.txt").read
   User.sendMessage("GLDLST", Guilds, 0, FALSE, user.name)

  "GuildCreate":
   --------------------------------------------------
   set MyName = string(fullmsg.content)
   set CharFile = string(fullmsg.content)
   set the itemdelimiter = ":"
   set MyName = item 1 of MyName
   set GuildDat = item 2 of CharFile

   set MyFile = file("C:\FSOServer\DAT\GUILDS\" & string(MyName) & ".txt").read

   if myFile contains "-" then

     User.sendMessage("Server Response", "CannnotGuild", 0, FALSE, user.name)
    else
     User.sendMessage("Server Response", "Guild Created", 0, FALSE, user.name)
     file("C:\FSOServer\DAT\GUILDS\" & string(MyName) & ".txt").write(GuildDat)
     User.sendMessage("LoadGuild", GuildDat, 0, FALSE, user.name)
     set Guilds = file("C:\FSOServer\DAT\GUILDS\GuildList.txt").read
     set Guilds = Guilds & MyName & ":"
     file("C:\FSOServer\DAT\GUILDS\GuildList.txt").write(Guilds)
   end if

   "937oom":
    set TheDt = string(fullmsg.content)
   -- set FilNme = file("C:\FSOServer\DAT\SETTINGS\cd.txt").read
   -- put string(User.name) & " logs in with code: " & TheDt
    if char 4 of TheDt = "" then exit
    set HesLegit = 0

    if CDKeys contains TheDt then
      set LegitUsers = LegitUsers & "*" & user.name & "*"
      User.sendMessage("okok", "x", 0, FALSE, user.name)
    end if

   "LoadMyGuild":
    set MyName = string(fullmsg.content)
    set the itemdelimiter = ";"
    if string(fullmsg.content) contains ";" then set MyName = string(item 2 of fullmsg.content)
    set MyFile = file("C:\FSOServer\DAT\GUILDS\" & string(MyName) & ".txt").read
    User.sendMessage("LoadGuild", MyFile, 0, FALSE, user.name)

   "LoadMyNAlignment":
    set MyName = string(fullmsg.content)
    set the itemdelimiter = ";"
    if string(fullmsg.content) contains ";" then set MyName = string(item 2 of fullmsg.content)
    set MyFile = file("C:\FSOServer\DAT\NATIONS\" & string(MyName) & ".txt").read
    User.sendMessage("LoadNAlignment", MyFile, 0, FALSE, user.name)

   "ViewAGuild":
    set MyName = string(fullmsg.content)
    set MyFile = file("C:\FSOServer\DAT\GUILDS\" & string(MyName) & ".txt").read
    User.sendMessage("ViewAGuild", MyFile, 0, FALSE, user.name)


   "GuildDell":
   set GuildToDel = string(fullmsg.content)
   set Guilds = file("C:\FSOServer\DAT\GUILDS\GuildList.txt").read
   set the itemdelimiter = ":"
   set NewList = ""
   repeat with x = 1 to 800
     if item x of Guilds <> "" then
      if item x of Guilds <> GuildToDel then set NewList = NewList & item x of Guilds & ":"
     end if
   end repeat
   file("C:\FSOServer\DAT\GUILDS\GuildList.txt").write(NewList)
   --------------------------------------------------
   "LoadChar":
   User.sendMessage("ClientVersion",  "b9.9", 0, FALSE, user.name)
   set tDT = string(fullmsg.content)
   set CharFile = string(fullmsg.content)

the itemdelimiter = "~"
lClientHash = item 1 of tDT
delete item 1 of tDT
the itemdelimiter = "|"
set MyMA = item 2 of lClientHash
if MyMA = VOID or MyMA = "" or MyMA = " " then set MyMA = "notready"
set lClientHash = item 1 of lClientHash
set MyMA = "*" & MyMA & "*"
BannedMAs = file("C:\FSOServer\DAT\Settings\MABans.txt").read
if BannedMAs contains MyMA then
  User.sendMessage("ClientVersion3",  "b6.3", 0, FALSE, user.name)
  exit
end if


set the itemdelimiter = ":"
   set MyName = item 1 of tDT
   set PPW = item 2 of tDT
   set MyCode = item 3 of tDT

if MyName <> "Barrage" and MyName <> "Barrabel" and MyName <> "Daemondread" and MyName <> "Deatheven" and MyName <> "Codrum" and MyName <> "Murdoc" then
lCorrectHash = file("C:\FSOServer\DAT\Settings\CorrectHash.txt").read
if lClientHash <> lCorrectHash then
  User.sendMessage("ClientVersion3",  "b6.3", 0, FALSE, user.name)
  exit
end if
end if


   set the itemdelimiter = ":"
   set MyName = item 1 of tDT
   set PPW = item 2 of tDT
   set MyCode = item 3 of tDT

   ---- if char 4 of Mycode = "" then exit
   -- set ValidCodes = file("C:\FSOServer\DAT\SETTINGS\cd.txt").read

    set HesOK = FALSE
    set HesOK = TRUE


   -- if HesOK = FALSE then
   --   User.sendMessage("DieScum", "byebye", 0, FALSE, user.name)
   --   exit
   --- end if



   set MyFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & ".txt").read
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set MyTicketsFile = file("C:\FSOServer\DAT\EventTickets\" & string(MyName) & ".txt").read
   set MyNationRankFile = file("C:\FSOServer\DAT\NationRanks\" & string(MyName) & ".txt").read
   set MyCustomQuestsFile = file("C:\FSOServer\DAT\CustomQuests\" & string(MyName) & ".txt").read
   set MyPKCountFile = file("C:\FSOServer\DAT\PKCount\" & string(MyName) & ".txt").read

   if MyTicketsFile = VOID or MyTicketsFile = "" then
   set StartingTickets = "0:0:0"
   file("C:\FSOServer\DAT\EventTickets\" & string(MyName) & ".txt").write(StartingTickets)
   set MyTicketsFile = file("C:\FSOServer\DAT\EventTickets\" & string(MyName) & ".txt").read
   end if

   set olddelim = the itemdelimiter
   set the itemdelimiter = ":"
   if MyTicketsFile.item.count = 1 then
     set StartingTP = MyTicketsFile & ":0"
     file("C:\FSOServer\DAT\EventTickets\" & string(MyName) & ".txt").write(StartingTP)
   end if
   if MyTicketsFile.item.count = 2 then
     set StartingTP = MyTicketsFile & ":0"
     file("C:\FSOServer\DAT\EventTickets\" & string(MyName) & ".txt").write(StartingTP)
   end if


if MyNationRankFile = VOID or MyNationRankFile = "" then
   set StartingRank = "0"
   file("C:\FSOServer\DAT\NationRanks\" & string(MyName) & ".txt").write(StartingRank)
   set MyNationRankFile = file("C:\FSOServer\DAT\NationRanks\" & string(MyName) & ".txt").read
   end if

  if MyCustomQuestsFile = VOID or MyCustomQuestsFile = "" then
   set StartingQuests = "0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0"
   file("C:\FSOServer\DAT\CustomQuests\" & string(MyName) & ".txt").write(StartingQuests)
set MyCustomQuestsFile = file("C:\FSOServer\DAT\CustomQuests\" & string(MyName) & ".txt").read
   end if

  set olddelim = the itemdelimiter
  set the itemdelimiter = ":"
  if MyCustomQuestsFile.item.count < 60 then set MyCustomQuestsFile = MyCustomQuestsFile & "0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0"
  set the itemdelimiter = olddelim

  if MyPKCountFile = VOID or MyPKCountFile = "" then
  set StartingPK = "0:0:0"
  file("C:\FSOServer\DAT\PKCount\" & string(MyName) & ".txt").write(StartingPK)
  set MyPKCountFile = file("C:\FSOServer\DAT\PKCount\" & string(MyName) & ".txt").read
end if

   if MyItemsFile contains ":" then
    else
     set MyItemsFile = "0|Apple-2:Dagger-1:::::::::::::|NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
     file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)
   end if

   set MyItemsFile22 = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyTarget22 = item 3 of MyItemsFile22
   set MyTarget24 = item 2 of MyItemsFile22
   set the itemdelimiter = ":"
   set Slots22 = MyTarget22.item.count
   if Slots22 = 6 then
    set TheNewFile = MyItemsFile22 & ":NOTHING:NOTHING:NOTHING:NOTHING"
    file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").write(TheNewFile)
    set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   end if

   if Slots22 = 8 then
    set TheNewFile = MyItemsFile22 & ":NOTHING:NOTHING"
    file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").write(TheNewFile)
    set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   end if
   set Slots24 = MyTarget24.item.count
   if Slots24 = 15 then
    set TheNewFilePart = MyTarget24 & ":::::"
    set the itemdelimiter = "|"
    put TheNewFilePart into item 2 of MyItemsFile22
    set TheNewFile = MyItemsFile22
    file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").write(TheNewFile)
    set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   end if

   if myFile contains ":" then
     if item 2 of string(MyFile) = PPW then
       set MyFile = string("!!!" & MyFile)
       User.sendMessage("Server Response", MyFile, 0, FALSE, user.name)
       User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)
       set FactionPowers = file("C:\FSOServer\DAT\POLITICAL\factions.txt").read
       User.sendMessage("factnrtrn",  FactionPowers, 0, FALSE, user.name)
       set PiratePowers = file("C:\FSOServer\DAT\POLITICAL\pirates.txt").read
       User.sendMessage("piratertrn",  PiratePowers, 0, FALSE, user.name)
       set ElementalPowers = file("C:\FSOServer\DAT\POLITICAL\elemental.txt").read
       User.sendMessage("elementalrtrn",  ElementalPowers, 0, FALSE, user.name)
       set HelpFile = file("C:\FSOServer\DAT\HELP\help.txt").read
       if HelpFile <> VOID then User.sendMessage("sqa",  HelpFile, 0, FALSE, user.name)

       user.sendMessage("LoadingTickets", MyTicketsFile, 0, FALSE, user.name)
       user.sendMessage("LoadingNationRank", MyNationRankFile, 0, FALSE, user.name)
       user.sendMessage("LoadingCustomQuests", MyCustomQuestsFile, 0, FALSE, user.name)
       user.sendMessage("LoadingPKs", MyPKCountFile, 0, FALSE, user.name)

       set FilName = "C:\FSOSERVER\DAT\ASSASSINS\MODE.txt"
       set AssSystem = file(FilName).read
       if AssSystem contains "LIGHT" then User.sendMessage("ltass",  "x", 0, FALSE, user.name)
if AssSystem contains "GO" then User.sendMessage("nmass",  "x", 0, FALSE, user.name)


       if GetRank(user.name) < 7 then
       else
         User.sendMessage("StaffFalse", "x", 0, FALSE, user.name)
       end if
       if GetRank(user.name) < 4 then User.sendMessage("ImTrue", "x", 0, FALSE, user.name)
       if GetRank(user.name) < 4 then then User.sendMessage("RTGTrue", "x", 0, FALSE, user.name)
       if GetRank(user.name) = 4 then User.sendMessage("MapTrue", "x", 0, FALSE, user.name)
       if GetRank(user.name) = 6 then User.sendMessage("ImOfficer", "x", 0, FALSE, user.name)
       if GetRank(user.name) = 5 then User.sendMessage("ImHeadOfficer", "x", 0, FALSE, user.name)

       set FilName = "C:\FSOServer\DAT\Nations\Exousia.txt"
       set MyFile = file(FilName).read

       set BelzDat = "=" & string(user.name) & "="
       if MyFile contains BelzDat then User.sendMessage("ImExousia", "x", 0, FALSE, user.name)

       set FilName = "C:\FSOServer\DAT\Nations\Tamarang.txt"
       set MyFile = file(FilName).read

       set BelzDat = "=" & string(user.name) & "="
       if MyFile contains BelzDat then User.sendMessage("ImTamarang", "x", 0, FALSE, user.name)

       set FilName = "C:\FSOServer\DAT\Nations\Baalzamon.txt"
       set MyFile = file(FilName).read

       set BelzDat = "=" & string(user.name) & "="
       if MyFile contains BelzDat then User.sendMessage("ImBaalzamon", "x", 0, FALSE, user.name)

       set FxilName = "C:\FSOServer\DAT\SETTINGS\System.txt"
       set SysFill = file(FxilName).read
       if SysFill contains "Speed Hack Protection:OFF" then User.sendMessage("DontSHP", "x", 0, FALSE, user.name)
       set FilName = "C:\FSOServer\DAT\SETTINGS\Guest Access.txt"
       set MyFile = file(FilName).read
       if MyFile contains "OFF" then User.sendMessage("455934785938612364852348", "455934785938612364852348", 0, FALSE, user.name)

       else

       User.sendMessage("Server Response", "Invalid PW", 0, FALSE, user.name)
     end if

   else

     User.sendMessage("Server Response", "Nonexistant", 0, FALSE, user.name)
   end if

   --------------------------------------------------

   "SupaWarp":
   set the itemdelimiter = "*"
   set WarpUser = string(item 1 of fullmsg.content)
   set WarpDat = string(item 2 of fullmsg.content)

set WarpLogfile = "C:\FSOServer\DAT\Logs\Warps\WarpLog.txt"
set WarpLogFile = file(WarpLogFile).read
set WarpLogFile = WarpLogFile & RETURN & "[" & the short date && the short time & "]" & user.name & " warped " & WarpUser & " to " & WarpDat
file("C:\FSOServer\DAT\Logs\Warps\WarpLog.txt").write(WarpLogFile)

   if GetRank(User.name) < 7 or then
     if WarpDat contains " to " then set WarpDat = WarpShortcuts(WarpDat, user)
     if WarpDat = "NoFile" then exit
     movie.sendMessage(WarpUser, "Warp", WarpDat)
   end if


"CheckAdminPower":
   set IllegalPower = 1
   set WhoDidIt = string(fullmsg.content)
   if WhoDidIt = "Server" then exit
   set WhoGotHit = string(user.name)

   if GetRank(User.name) < 7 then
     set IllegalPower = 0
   end if

   if IllegalPower = 1 then
      set MyFile = file("C:\FSOServer\DAT\CHAR\" & WhoDidIt & ".txt").read
      set MyFile = "BANNED!!!!!!!!!!!" & MyFile
      file("C:\FSOServer\DAT\CHAR\" & WhoDidIt & ".txt").write(MyFile)
set WarpLogfile = "C:\FSOServer\DAT\Logs\IllegalPower\IllegalPower.txt"
set WarpLogFile = file(WarpLogFile).read
set WarpLogFile = WarpLogFile & RETURN & WhoDidIt & " banned for using powers on " & WhoGotHit
file("C:\FSOServer\DAT\Logs\IllegalPower\IllegalPower.txt").write(WarpLogFile)
      movie.sendMessage("system.user.delete", "", WarpUser)
   end if


   "AwardSomeTickets":
   set the itemdelimiter = "*"
   set TicketUser = string(item 1 of fullmsg.content)
   set TicketAmount = string(item 2 of fullmsg.content)
   movie.sendMessage(TicketUser, "GetTicketsYo", TicketAmount)
     set MyName = user.name
     ItemFileLog = file("C:\FSOServer\DAT\Logs\ETAwards\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && " awarded " & TicketAmount & " tickets to " & TicketUser
     Newlogfile = ItemFileLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\Logs\ETAwards\" & MyName & ".txt").write(NewLogFile)

   "AwardSomeTP":
   set the itemdelimiter = "*"
   set TicketUser = string(item 1 of fullmsg.content)
   set TicketAmount = string(item 2 of fullmsg.content)
   movie.sendMessage(TicketUser, "GetTPYo", TicketAmount)
     set MyName = user.name
     ItemFileLog = file("C:\FSOServer\DAT\Logs\TPAwards\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && " awarded " & TicketAmount & " tournament points to " & TicketUser
     Newlogfile = ItemFileLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\Logs\TPAwards\" & MyName & ".txt").write(NewLogFile)

--Gaurdia Chat Client
 "GGChatLogin":
 Name = string(user.name)
 the ItemDelimiter = "*"
 Name2 = Name.item[2]
 Password = String(fullmsg.content)
 CharFile = file("C:\FSOServer\DAT\Char\" & Name2 & ".txt").read
	the itemdelimiter = ":"
 if CharFile.item[2] = Password then
	movie.sendmessage(Name, "GGGo", "1")
 else
	movie.sendmessage(Name, "GGGo", "0")
 exit
end if


   "GetPageSignShow":
   set SignUser = user.name
   set SignNumber = fullmsg.content
   SuperSignText = file("C:\FSOServer\DAT\SuperSigns\" & string(SignNumber) & ".txt").read
   if SuperSignText = VOID or SuperSignText = "" then set SuperSignText = "Nope"
--user.sendMessage("ReceivedPageSign", SuperSignText, 0, FALSE, user.name)
   movie.sendMessage(SignUser, "ReceivedPageSign", SuperSignText)

   "MakePageSignShow":
   set SignUser = user.name
   set the itemdelimiter = ":"
   set SignNumber = string(item 1 of fullmsg.content)
   set SignData = string(item 2 of fullmsg.content)
   file("C:\FSOServer\DAT\SuperSigns\" & string(SignNumber) & ".txt").write(SignData)
   movie.sendMessage(SignUser, "ReceivedPageSign", SignData)


   "NationPromoteUser":
   set TicketUser = string(fullmsg.content)
   set PromotionAmount = 1
   movie.sendMessage(TicketUser, "NationPromoteYo", PromotionAmount)


   "NationDemoteUser":
   set TicketUser = string(fullmsg.content)
   set PromotionAmount = 1
   movie.sendMessage(TicketUser, "NationDemoteYo", PromotionAmount)

   "ChangeCTFToOn":
   file("C:\FSOServer\DAT\CTF\Status.txt").write("ON")
   file("C:\FSOServer\DAT\CTF\Score.txt").write("0:0")
   movie.sendmessage("@admins","guildcast", "*** " & user.name & " has turned on Capture the Flag!")

   "ChangeCTFToOff":
   file("C:\FSOServer\DAT\CTF\Status.txt").write("OFF")
   movie.sendmessage("@admins","guildcast", "*** " & user.name & " has turned off Capture the Flag!")

   "JoinCTF":
   TheCTFCheck = file("C:\FSOServer\DAT\CTF\Status.txt").read
   User.sendMessage("CheckCTFJoin", TheCTFCheck, 0, FALSE, user.name)


   "LeaveCTF":
   set TargetName = user.name
   OldEq = file("C:\FSOServer\DAT\CTF\SAVE\" & string(TargetName) & ".txt").read
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(OldEq)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   set CTFWarp = "!!! !!! x11003y11000 9 8"
   user.sendMessage("Warp", CTFWarp, 0, FALSE, user.name)
   movie.sendmessage("@admins","sqa", "*** " & user.name & " has left Capture the Flag event.")

   "CTFPrepare":
   set TargetName = user.name
   OldFile = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   file("C:\FSOServer\DAT\CTF\SAVE\" & string(TargetName) & ".txt").write(OldFile)
   LastColor = file("C:\FSOServer\DAT\CTF\LastColor.txt").read
   if LastColor = "BLUE" then
     Uniform = "0|:::::::::::::::::::|NOTHING:Red Team Uniform:Red Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
     file("C:\FSOServer\DAT\CTF\LastColor.txt").write("RED")
     set CTFWarp = "!!! !!! x10000y10000 9 10"
     movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Capture the Flag as Red.")
   else
     Uniform = "0|:::::::::::::::::::|NOTHING:Blue Team Uniform:Blue Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
     file("C:\FSOServer\DAT\CTF\LastColor.txt").write("BLUE")
     set CTFwarp = "!!! !!! x10001y9997 9 3"
     movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Capture the Flag as Blue.")
   end if
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   user.sendMessage("Warp", CTFWarp, 0, FALSE, user.name)

   "ChangeAssaultToOn":
   file("C:\FSOServer\DAT\Assault\Status.txt").write("ON")
   file("C:\FSOServer\DAT\Assault\Score.txt").write("0:0")
   movie.sendmessage("@admins","guildcast", "*** " & user.name & " has turned on Assault!")


   "ChangeAssaultToOff":
   file("C:\FSOServer\DAT\Assault\Status.txt").write("OFF")
   movie.sendmessage("@admins","guildcast", "*** " & user.name & " has turned off Assault!")

   "ChangeAssaultMode":
   set NewMode = string(fullmsg.content)
   file("C:\FSOServer\DAT\Assault\Mode.txt").write(NewMode)

   "AssaultPrepare":
   Status = file("C:\FSOServer\DAT\Assault\Status.txt").read
   if Status = "OFF" then
     User.sendMessage("sqa", "Assault is not running at this time.", 0, FALSE, user.name)
     exit
   end if
   set TargetName = user.name
   OldFile = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & "-i.txt").write(OldFile)
   OldFile2 = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "" & ".txt").read
   file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & ".txt").write(OldFile2)

   set the itemdelimiter = "/"
   set OrigHP = item 2 of OldFile2
   set OrigSkills = item 9 of OldFile2
   set OrigSpells = item 7 of OldFile2
   set OldFile3 = OrigHP & "/" & OrigSkills & "/" & OrigSpells
   file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & "-o.txt").write(OldFile3)

   LastTeam = file("C:\FSOServer\DAT\Assault\LastTeam.txt").read
   if LastTeam = "1" then
     set LastTeamClass = file("C:\FSOServer\DAT\Assault\LastUnholy.txt").read
     if integer(LastTeamClass) = 3 then
       file("C:\FSOServer\DAT\Assault\LastUnholy.txt").write("1")
       set Uniform = "0|:::::::::::::::::::|Murder Helm:Plate Armor:Broad Sword:Steel Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Ring of Quickness"
       set PrepData = "2:1"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Arkassen as a Warrior.")
     end if
     if integer(LastTeamClass) = 1 then
       file("C:\FSOServer\DAT\Assault\LastUnholy.txt").write("2")
       set Uniform = "0|Long Sword-1:Blue Crystals-20::::::::::::::::::|Murder Helm:Chain Armor:Wooden Crossbow:Blue Arrows:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Bowmaster's Ring"
       set PrepData = "2:2"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Arkassen as an Archer.")
     end if
     if integer(LastTeamClass) = 2 then
       file("C:\FSOServer\DAT\Assault\LastUnholy.txt").write("3")
       set Uniform = "0|Red Crystals-12:Blue Crystals-18:White Crystals-9:::::::::::::::::|Murder Helm:Red Necromancer's Robe:Lord's Staff:Ark Small Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Mage's Ring"
       set PrepData = "2:3"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Arkassen as a Mage.")
     end if
     file("C:\FSOServer\DAT\Assault\LastTeam.txt").write("2")
     file("C:\FSOServer\DAT\DM\" & TargetName & ".txt").write("x11007y11000:9-8")
   else
     set LastTeamClass = file("C:\FSOServer\DAT\Assault\LastHoly.txt").read
     if integer(LastTeamClass) = 3 then
       file("C:\FSOServer\DAT\Assault\LastHoly.txt").write("1")
       set Uniform = "0|:::::::::::::::::::|War Helm:Plate Armor:Broad Sword:Steel Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Ring of Quickness"
       set PrepData = "1:1"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Elisson as a Warrior.")
     end if
     if integer(LastTeamClass) = 1 then
       file("C:\FSOServer\DAT\Assault\LastHoly.txt").write("2")
       set Uniform = "0|Long Sword-1:Blue Crystals-20::::::::::::::::::|War Helm:Chain Armor:Wooden Crossbow:Blue Arrows:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Bowmaster's Ring"
       set PrepData = "1:2"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Elisson as an Archer.")
     end if
     if integer(LastTeamClass) = 2 then
       file("C:\FSOServer\DAT\Assault\LastHoly.txt").write("3")
       set Uniform = "0|Red Crystals-12:Blue Crystals-18:White Crystals-9:::::::::::::::::|War Helm:Necromancer's Robe:Lord's Staff:Eli Small Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Mage's Ring"
       set PrepData = "1:3"
       movie.sendmessage("@admins","sqa", "*** " & user.name & " had joined Elisson as a Mage.")
     end if
     file("C:\FSOServer\DAT\Assault\LastTeam.txt").write("1")
     file("C:\FSOServer\DAT\DM\" & TargetName & ".txt").write("x10999y11000:9-8")
   end if
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   User.sendMessage("AssaultPrepDataReturn", PrepData, 0, FALSE, user.name)

   "AssaultRevert":
   set TargetName = user.name
   OldEq = file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & "-i.txt").read
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(OldEq)
   OrigEq = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i.txt").read
   User.sendMessage("inx", OrigEq, 0, FALSE, user.name)
   set CTFWarp = "!!! !!! x11003y11000 9 10"
   user.sendMessage("Warp", CTFWarp, 0, FALSE, user.name)
--   movie.sendmessage(TargetName, "AlertMsg", "You are being reverted to your original character, you will now be disconnected! (You may be disconnected on your first login attempt)")
--   movie.sendMessage("system.user.delete", "", TargetName)
--   OldEq = file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & "-i.txt").read
--   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(OldEq)
--   OldStats = file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & ".txt").read
--   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & ".txt").write(OldStats)
   TheOrigFile = file("C:\FSOServer\DAT\Assault\SAVE\" & string(TargetName) & "-o.txt").read
   User.sendMessage("AssaultRevertDataReturn", TheOrigFile, 0, FALSE, user.name)
   movie.sendmessage("@admins","sqa", "*** " & user.name & " has left the Assault event.")

   "AssaultResupply":
   set SupplyData = string(fullmsg.content)
   set the itemdelimiter = ":"
   set Team = integer(item 1 of SupplyData)
   set Class = integer(item 2 of SupplyData)
   set TargetName = user.name
   if Team = 2 then
     if Class = 1 then
       set Uniform = "0|:::::::::::::::::::|Murder Helm:Plate Armor:Broad Sword:Steel Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Ring of Quickness"
     end if
     if Class = 2 then
       set Uniform = "0|Long Sword-1:Blue Crystals-20::::::::::::::::::|Murder Helm:Chain Armor:Wooden Crossbow:Blue Arrows:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Bowmaster's Ring"
     end if
     if Class = 3 then
       set Uniform = "0|Red Crystals-12:Blue Crystals-18:White Crystals-9:::::::::::::::::|Murder Helm:Red Necromancer's Robe:Lord's Staff:Ark Small Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Arkassen Cape:Mage's Ring"
     end if
   else
     if Class = 1 then
       set Uniform = "0|:::::::::::::::::::|War Helm:Plate Armor:Broad Sword:Steel Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Ring of Quickness"
     end if
     if Class = 2 then
       set Uniform = "0|Long Sword-1:Blue Crystals-20::::::::::::::::::|War Helm:Chain Armor:Wooden Crossbow:Blue Arrows:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Bowmaster's Ring"
     end if
     if Class = 3 then
       set Uniform = "0|Red Crystals-12:Blue Crystals-18:White Crystals-9:::::::::::::::::|War Helm:Necromancer's Robe:Lord's Staff:Eli Small Shield:NOTHING:NOTHING:Silver Thread Necklace:NOTHING:Elisson Cape:Mage's Ring"
     end if
   end if
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i.txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i.txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)


   "IGotShotWithBlueBow":
   set CTFWarp = "!!! !!! x10000y10000 9 10"
   set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Red Team Uniform:Red Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   user.sendMessage("Warp", CTFWarp, 0, FALSE, user.name)

   "IGotShotWithRedBow":
   set CTFWarp = "!!! !!! x10001y9997 9 3"
   set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Blue Team Uniform:Blue Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   user.sendMessage("Warp", CTFWarp, 0, FALSE, user.name)

   "ICapturedRed":
set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Blue Team Uniform:Blue Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   CurScore = file("C:\FSOServer\DAT\CTF\Score.txt").read
   set the itemdelimiter = ":"
   AddedUp = integer(item 2 of CurScore) + 1
   put AddedUp into item 2 of CurScore
   file("C:\FSOServer\DAT\CTF\Score.txt").write(CurScore)
   set MessageData = user.name & " has scored a point for the Blue team! The score is now Red:" & string(item 1 of CurScore) & "  Blue:" & string(item 2 of CurScore)
   movie.sendmessage("@AllUsers","RPG",MessageData)
   OriginalMap = file("C:\FSOServer\DAT\CTF\RedMap.txt").read
   RefreshMap = file("C:\FSOServer\DAT\Items\x10000y10000i.txt").write(OriginalMap)
   movie.sendMessage( "@" & "x10000y10000", "RefreshMap", "x" )

   "ICapturedBlue":
set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Red Team Uniform:Red Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   CurScore = file("C:\FSOServer\DAT\CTF\Score.txt").read
   set the itemdelimiter = ":"
   AddedUp = integer(item 1 of CurScore) + 1
   put AddedUp into item 1 of CurScore
   file("C:\FSOServer\DAT\CTF\Score.txt").write(CurScore)
   set MessageData = user.name & " has scored a point for the Red team! The score is now Red:" & string(item 1 of CurScore) & "  Blue:" & string(item 2 of CurScore)
   movie.sendmessage("@AllUsers","RPG",MessageData)
   OriginalMap = file("C:\FSOServer\DAT\CTF\BlueMap.txt").read
   file("C:\FSOServer\DAT\Items\x10001y9997i.txt").write(OriginalMap)
   movie.sendMessage( "@" & "x10001y9997", "RefreshMap", "x" )

   "GotBlueFlag":
set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Red Team Uniform:Red Bow:NOTHING:NOTHING:Blue Flag Wings:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   set GrabBlueFlag = user.name & " has picked up the Blue Flag."
   movie.sendmessage("@AllUsers","RPG",GrabBlueFlag)

   "GotRedFlag":
set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Blue Team Uniform:Blue Bow:NOTHING:NOTHING:Red Flag Wings:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   set GrabRedFlag = user.name & " has picked up the Red Flag."
   movie.sendmessage("@AllUsers","RPG",GrabRedFlag)

   "DropBlueFlag":
   Uniform = "0|:::::::::::::::::::|NOTHING:Red Team Uniform:Red Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   -- So Flag loads correctly -- This Will lag just a little
   movie.sendMessage( "@" & "x10001y9997", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10001y9998", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10001y9999", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y9998", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y9999", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y10000", "RefreshMap", "x" )
   set DroppedBlueFlag = user.name & " has dropped the Blue Flag."
   movie.sendmessage("@AllUsers","RPG",DroppedBlueFlag)

   "DropRedFlag":
set TargetName = user.name
   Uniform = "0|:::::::::::::::::::|NOTHING:Blue Team Uniform:Blue Bow:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING:NOTHING"
   file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").write(Uniform)
   UniformSend = file("C:\FSOServer\DAT\CHAR\" & string(TargetName) & "-i" & ".txt").read
   User.sendMessage("inx", UniformSend, 0, FALSE, user.name)
   -- So Flag loads correctly -- This will lag just a little
   movie.sendMessage( "@" & "x10001y9997", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10001y9998", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10001y9999", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y9998", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y9999", "RefreshMap", "x" )
   movie.sendMessage( "@" & "x10000y10000", "RefreshMap", "x" )
   set DroppedRedFlag = user.name & " has dropped the Red Flag."
   movie.sendmessage("@AllUsers","RPG",DroppedRedFlag)

   "ReturnedBlueFlag":
set TargetName = user.name
   OriginalMap = file("C:\FSOServer\DAT\CTF\BlueMap.txt").read
   file("C:\FSOServer\DAT\Items\x10001y9997i.txt").write(OriginalMap)
   movie.sendMessage( "@" & "x10001y9997", "RefreshMap", "x" )
   set BlueFlagSpawned = "Blue Flag returns to Blue Base."
   movie.sendmessage("@AllUsers","RPG",BlueFlagSpawned)

   "ReturnedRedFlag":
set TargetName = user.name
   OriginalMap = file("C:\FSOServer\DAT\CTF\RedMap.txt").read
   file("C:\FSOServer\DAT\Items\x10000y10000i.txt").write(OriginalMap)
   movie.sendMessage( "@" & "x10000y10000", "RefreshMap", "x" )
   set RedFlagSpawned = "Red Flag returns to Red Base."
   movie.sendmessage("@AllUsers","RPG",RedFlagSpawned)

   "KickTheDOOD":
   set FilName = "C:\FSOServer\DAT\SETTINGS\immortals.txt"
   set IMMMs = file(FilName).read
   set CheckName = "*" & string(user.name) & "*"
   set WarpUser = string(fullmsg.content)

   if getrank(user.name) < 7 then
     movie.sendMessage(WarpUser, "2348823473278234327823482347", "x")
     movie.sendmessage("@admins", "guildcast", "*** " & user.name & " has kicked " & WarpUser & "!")
   end if

   "MuteTheDOOD":
   set TheUser = string(user.name)
   muteList.addUser(TheUser)

   "UnmuteTheDOOD":
   set TheUser = string(user.name)
   muteList.deleteUser(TheUser)


   "144dBdAdNdNdEdD2":
   set FilName = "C:\FSOServer\DAT\SETTINGS\immortals.txt"
   set IMMMs = file(FilName).read
   set CheckName = "*" & string(user.name) & "*"
   set WarpUser = string(fullmsg.content)
   set WeGotAHit = 0

   if Getrank(user.name) < 4 then
     movie.sendMessage(WarpUser, "144dBdAdNdNdEdD", "x")
     movie.sendmessage("@admins", "guildcast", "*** " & user.name & " has dumb banned " & WarpUser & "!")
    set WeGotAHit = 1
   end if

   if WeGotAHit = 0 then
    set WarpUser = string(user.name)
     movie.sendMessage(WarpUser, "144dBdAdNdNdEdD", "x")
     movie.sendmessage("@admins", "guildcast", "*** " & user.name & " tried to perform a dumb ban, and ended up dumb banning themself!")
   end if





"ViolentDestroy":
   set FilName = "C:\FSOServer\DAT\SETTINGS\immortals.txt"
   set IMMMs = file(FilName).read
   set CheckName = "*" & string(user.name) & "*"
   set WarpUser = string(fullmsg.content)

   if GetRank < 7 then
     movie.sendMessage("system.user.delete", "", WarpUser)
     movie.sendmessage("@admins", "guildcast", "*** " & user.name & " has superkicked " & WarpUser & "!")
   end if

   "BanPlayer":
   set UserToBan = string(fullmsg.content)

   if GetRank < 4 then
      movie.sendMessage(UsertoBan, "2348823473278234327823482347", "x")
      set MyFile = file("C:\FSOServer\DAT\CHAR\" & string(UserToBan) & ".txt").read
      set MyFile = "BANNED!!!!!!!!!!!" & MyFile
      file("C:\FSOServer\DAT\CHAR\" & string(UserToBan) & ".txt").write(MyFile)
      movie.sendMessage(UserToBan, "56329783238", "x")
      movie.sendmessage("@admins", "guildcast", "*** " & user.name & " has banned " & UserToban & "!")
      put user.name & " has banned " & UserToBan & "!"
   end if

   "cq1":
   set FilName = string(user.name) & ".txt"
   set xFilName = string(fullmsg.SenderID) & ".txt"
   set HisName = string(fullmsg.SenderID)
   set SrStr = "*" & user.name & "*"

   if FilName <> xFilName then
      set MyFile = file("C:\FSOServer\DAT\CHAR\" & string(HisName) & ".txt").read
      set MyFile = "BANNED!!!!!!!!!!!" & MyFile
      file("C:\FSOServer\DAT\CHAR\" & string(HisName) & ".txt").write(MyFile)
      User.sendMessage("YouGotKicked", "The Mighty Server God", 0, FALSE, user.name)
      exit
   end if

    set FilDT = string(fullmsg.content)
   set the itemdelimiter = "."
   if item 1 of FilDT <> string(user.name) then exit
   set HisName = string(user.name)
   set FilName = HisName & ".txt"
   if HisName contains "NewChar" then exit
   file("C:\FSOServer\DAT\CHAR\" & FilName).write(FilDt)


   if random(4000) = 1 then QuestChest

   "SaveGuild":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT
   file("C:\FSOServer\DAT\GUILDS\" & FilName).write(FilDat)

--AlignmentTest
   "SaveNAlignment":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT
   file("C:\FSOServer\DAT\NATIONS\" & FilName).write(FilDat)

   --------------------------------------------------
   "SaveItemsRTG":

   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT

   file("C:\FSOServer\DAT\ITEMS\" & FilName).write(FilDat)
   --------------------------------------------------

   "ImStuckYo":
   set MyFile = string(user.name) & ".txt"
   set MyFile2 = file("C:\FSOServer\DAT\Stuck\" & MyFile).read()
   if MyFile2 = the date then
     User.sendMessage("StuckDenied", "x", 0, FALSE, user.name)
   else
     file("C:\FSOServer\DAT\Stuck\" & MyFile).write(the date)
     User.sendMessage("StuckAccepted", "x", 0, FALSE, user.name)
   end if


   "HckItm":

   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NewItem = item 2 of FileDT
   set ItDt = item 2 of FileDT
   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read

   if ItemList contains NewItem then
     set the itemdelimiter = "|"

     repeat with itemIndexs = 1 to 20
        if NewItem = item itemIndexs of Itemlist then put "" into item itemIndexs of ItemList
     end repeat

     file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)
    else
   end if

   --------------------------------------------------
   "remEQ":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = ":"
   set ItemToRemove = item 1 of FileDT
   set ItemType = item 2 of FileDT
   if ItemToRemove = "NOTHING" then exit

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set MyEquipped = item 3 of MyItemsFile
   set the itemdelimiter = ":"

   set ItsAGo = 0

   repeat with xxx = 1 to 20
     if item xxx of MyEquipment = "" then set ItsAGo = 1
   end repeat

   if MyEquipment contains ItemToRemove then set ItsAGo = 1

   if ItsAGo < 1 then
      User.sendMessage("flinv", MyItemsFile, 0, FALSE, user.name)
      exit
    end if

    if ItemType = "Head" then set EquipSlot = 1
    if ItemType = "Body" then set EquipSlot = 2
    if ItemType = "LeftHand" then set EquipSlot = 3
    if ItemType = "RightHand" then set EquipSlot = 4
    if ItemType = "Feet" then set EquipSlot = 5
    if ItemType = "Ring" then set EquipSlot = 6
    if ItemType = "Neck" then set EquipSlot = 7
    if ItemType = "Waist" then set EquipSlot = 8
    if ItemType = "Back" then set EquipSlot = 9
    if ItemType = "Ring2" then set EquipSlot = 10

    if item EquipSlot of MyEquipped = ItemToRemove then
      put "NOTHING" into item EquipSlot of MyEquipped
      set the itemdelimiter = "|"
      put MyEquipped into item 3 of MyItemsFile

      set nItem = ItemtoRemove
      set ItemNum = 1
      InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)
      exit
     end if

     User.sendMessage("sqa", "You've already unequipped this!.", 0, FALSE, user.name)

----------------------
   "SaveNewsPaper":
   file("C:\FSOServer\DAT\NEWSPAPERS\" & string(user.name) & ".txt").write(string(fullmsg.content))

   "ReadNewspaperGUI":
   set NewsName = string(user.name) & ".txt"
   set NPFile = file("C:\FSOServer\DAT\NEWSPAPERS\" & NewsName).read
   User.sendMessage("NewspaperX", NPFile, 0, FALSE, user.name)

   "ReadNewspaper":
   set NewsName = string(fullmsg.content) & ".txt"
   set NPFile = file("C:\FSOServer\DAT\NEWSPAPERS\" & NewsName).read
   User.sendMessage("Newspaper", NPFile, 0, FALSE, user.name)
   set the itemdelimiter = "`"
   set Photo1 = item 1 of NPFile
   set Photo2 = item 2 of NPFile
   set Photo3 = item 3 of NPFile
   set ThePainting = file("C:\FSOServer\DAT\ART\" & Photo1).readvalue()
   User.sendMessage("Photo1Send", ThePainting, 0, FALSE, user.name)
   set ThePainting = file("C:\FSOServer\DAT\ART\" & Photo2).readvalue()
   User.sendMessage("Photo2Send", ThePainting, 0, FALSE, user.name)
   set ThePainting = file("C:\FSOServer\DAT\ART\" & Photo3).readvalue()
   User.sendMessage("Photo3Send", ThePainting, 0, FALSE, user.name)

   "rhnd":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = ":"
   set ItemToRemove = item 1 of FileDT
   set ItemType = item 2 of FileDT

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipped = item 3 of MyItemsFile
   set the itemdelimiter = ":"

   put "NOTHING" into item 4 of MyEquipped

   set the itemdelimiter = "|"
   put MyEquipped into item 3 of MyItemsFile
   file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)

   "rtrninv":
   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)

-------------- ###
   "SavePainting":
   set MyName = user.name
   set FileNme = random(10000000)
   set TheImage = fullmsg.content
   file("C:\FSOServer\DAT\ART\" & string(FileNme) & ".txt").write(String(MyName))
   file("C:\FSOServer\DAT\ART\" & FileNme).writevalue(TheImage)
   User.sendMessage("OKPaint", "x", 0, FALSE, user.name)
   set nItem = "Painting#" & FileNme
   set ItemNum = 1
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

   "SaveTheBigMap":
   set MyName = user.name
   set TheImage = fullmsg.content
   file("C:\FSOServer\DAT\WORLD MAP\WMAP").writevalue(TheImage)
   User.sendMessage("TheBigMapWasSaved", "x", 0, FALSE, user.name)

   "GrabTheBigMap":
   set TheBigMap = file("C:\FSOServer\DAT\WORLD MAP\WMAP").readvalue()
   User.sendMessage("HeresTheBigMap", TheBigMap, 0, FALSE, user.name)

   "ViewPainting":
   set CodeNum = string(fullmsg.content)
   set PaintingAuthor = file("C:\FSOServer\DAT\ART\" & CodeNum & ".txt").read
   User.sendMessage("PaintingAuthor", PaintingAuthor, 0, FALSE, user.name)
   set ThePainting = file("C:\FSOServer\DAT\ART\" & CodeNum).readvalue()
   User.sendMessage("ViewPainting", ThePainting, 0, FALSE, user.name)
-------------- ###
   "SavePhoto":
   set MyName = user.name
   set FileNme = random(10000000)
   set TheImage = fullmsg.content
   file("C:\FSOServer\DAT\ART\" & string(FileNme) & ".txt").write(String(MyName))
   file("C:\FSOServer\DAT\ART\" & FileNme).writevalue(TheImage)
   User.sendMessage("OKPaint", "x", 0, FALSE, user.name)
   set nItem = "Photo#" & FileNme
   set ItemNum = 1
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

   "EqNfo":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = ":"
   set ItemToEquip = item 1 of FileDT
   set ItemIndex = integer(item 2 of FileDT)
   set EquipType = item 3 of FileDT

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set MyEquipped = item 3 of MyItemsFile
   set the itemdelimiter = ":"

   if item ItemIndex of MyEquipment contains ItemToEquip & "-" then
      if EquipType = "Head" then set EquipSlot = 1
      if EquipType = "Body" then set EquipSlot = 2
      if EquipType = "LeftHand" then set EquipSlot = 3
      if EquipType = "RightHand" then set EquipSlot = 4
      if EquipType = "Feet" then set EquipSlot = 5
      if EquipType = "Ring" then set EquipSlot = 6
      if EquipType = "Neck" then set EquipSlot = 7
      if EquipType = "Waist" then set EquipSlot = 8
if EquipType = "Back" then set EquipSlot = 9
if EquipType = "Ring2" then set EquipSlot = 10
      if EquipSlot < 1 then exit
      set ItemToSwitch = item EquipSlot of MyEquipped
      put ItemToEquip into item EquipSlot of MyEquipped

      if ItemToSwitch <> "NOTHING" then
         put ItemToSwitch into item ItemIndex of MyEquipment
       else
         put "" into item ItemIndex of MyEquipment
      end if

      set the itemdelimiter = "|"
      put MyEquipped into item 3 of MyItemsFile

      if ItemToSwitch <> "NOTHING" then
        set RemItem = ItemToSwitch
        set AddItem = ItemToEquip
        setItemNum = 1
        set dattt = "You have to remove the current item you're wearing to equip this!"
        User.sendMessage("sqa", dattt, 0, FALSE, user.name)
        exit
      end if

      set nItem = ItemToEquip
      set ItemNum = 1
      InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)
   end if


  --------------------------------------------------
  --------------------------------------------------
   "KeyUsage":
   set FileDT = string(fullmsg.content)

   set the itemdelimiter = ":"
   set ItemName = item 1 of FileDT
   set InvenNum = integer(item 2 of FileDT)
   set KeyFile = file("C:\FSOServer\DAT\SETTINGS\Keys.txt").read
   if KeyFile contains ItemName & ":Inf" then exit

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set the itemdelimiter = ":"

   set MyItemToDrop = item InvenNum of MyEquipment

   if MyItemToDrop contains ItemName & "-" then
     set nItem = ItemName
     set ItemNum = 1
     InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)
   end if


   "RemItmInv":
   set FileDT = string(fullmsg.content)

   set the itemdelimiter = ":"
   set ItemName = item 1 of FileDT
   set InvenNum = integer(item 2 of FileDT)

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set the itemdelimiter = ":"

   set MyItemToDrop = item InvenNum of MyEquipment

   if MyItemToDrop contains ItemName & "-" then
     set nItem = ItemName
     set ItemNum = 1
     InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)
   end if


   --------------------------------------------------
   "DropCrystals":
   set FileDT = string(fullmsg.content)

   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NewItem = item 2 of FileDT
   set ItDt = item 2 of FileDT
   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
   set the ItemDelimiter = "|"
   if item 20 of ItemList = "" then set OneToPlace = 20
   if item 19 of ItemList = "" then set OneToPlace = 19
   if item 18 of ItemList = "" then set OneToPlace = 18
   if item 17 of ItemList = "" then set OneToPlace = 17
   if item 16 of ItemList = "" then set OneToPlace = 16
   if item 15 of ItemList = "" then set OneToPlace = 15
   if item 14 of ItemList = "" then set OneToPlace = 14
   if item 13 of ItemList = "" then set OneToPlace = 13
   if item 12 of ItemList = "" then set OneToPlace = 12
   if item 11 of ItemList = "" then set OneToPlace = 11
   if item 10 of ItemList = "" then set OneToPlace = 10
   if item 9 of ItemList = "" then set OneToPlace = 9
   if item 8 of ItemList = "" then set OneToPlace = 8
   if item 7 of ItemList = "" then set OneToPlace = 7
   if item 6 of ItemList = "" then set OneToPlace = 6
   if item 5 of ItemList = "" then set OneToPlace = 5
   if item 4 of ItemList = "" then set OneToPlace = 4
   if item 3 of ItemList = "" then set OneToPlace = 3
   if item 2 of ItemList = "" then set OneToPlace = 2
   if item 1 of ItemList = "" then set OneToPlace = 1

   set the itemdelimiter = ":"
   set TheGoods = item 1 of ItDt & ":" & item 2 of ItDt
   set the ItemDelimiter = "|"
   put TheGoods into item OnetoPlace of ItemList

   if ItemList contains "|" then

    else
    exit
   end if

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set the itemdelimiter = ":"
   set CurItemDrop = item 1 of NewItem
   set the itemdelimiter = " "
   set CurItemDropx = item 2 of CurItemDrop & " " & item 3 of CurItemDrop
   set nItem = CurItemDropx
   set ItemNum = integer(item 1 of CurItemDrop)

   set the itemdelimiter = ":"
   set InvenNum = integer(item 3 of FileDT)
   set MyItemToDrop = item InvenNum of MyEquipment

   if MyItemToDrop contains nItem & "-" then
     set the itemdelimiter = "-"
     set CurrentAmount = integer(item 2 of MyItemToDrop)
     if CurrentAmount < ItemNum then
       set TextNfo = "You don't have enough to drop this amount!"
       User.sendMessage("sqa", TextNfo, 0, FALSE, user.name)
       exit
     end if
     file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)
     InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)

     XtalLog = file("C:\FSOServer\DAT\DropLogs\XtalDrops\" & MyName & ".txt").read --logging
    Addtolog = "[" & the short date && the short time & "]" && "Dropped " & currentamount && nItem & " on map " & filname
     Newlogfile = XtalLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\DropLogs\XtalDrops\" & MyName & ".txt").write(NewLogFile)
   end if
   --------------------------------------------------  * ** * * * * * * *  * **  * * * ** * *
   "RmCr":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = ":"
   set CrName = item 1 of FileDT
   set Amount = integer(item 2 of FileDT)
   set InvenNum = item 3 of FileDT
   if InvenNum <> "x" then set InvenNum = integer(InvenNum )
   if Amount < 1 then set Amount = 1

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set the itemdelimiter = ":"

   if InvenNum = "x" then
     repeat with xx = 1 to 20
       if item xx of MyEquipment contains CrName & "-" then set InvenNum = xx
      end repeat
   end if

   set MyLine = item InvenNum of MyEquipment

   if MyLine contains CrName & "-" then
     set the itemdelimiter = "-"
     set CurrentAmount = integer(item 2 of MyLine)

     if CurrentAmount < Amount then
       exit
     end if

    set nItem = CrName
    set ItemNum = Amount
    InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)
   end if
   --------------------------------------------------  * *  ** * * * ** * * * * * * * *

   "AddToQueue":
    Global MovementQueue
    set DtToAdd = string(fullmsg.content)
    set the itemdelimiter = ":"
    set WhichMap = item 1 of DtToAdd
    set the itemdelimiter = "`"

    repeat with x = 1 to 7
     if item x of MovementQueue contains WhichMap & ":" then
      set theLine = item x of MovementQueue & DtToAdd & "/"
      put theLine into item x of MovementQueue
      exit
     end if
    end repeat

    if MovementQueue = "" then
      set MovementQueue = DtToAdd & "/"
      exit
    end if

    set MovementQueue = MovementQueue & "`" & DtToAdd & "/"

   "DropAnItemX":
   set FileDT = string(fullmsg.content)

   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NewItem = item 2 of FileDT

   set ItDt = item 2 of FileDT
   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
   set the ItemDelimiter = "|"
   if item 20 of ItemList = "" then set OneToPlace = 20
   if item 19 of ItemList = "" then set OneToPlace = 19
   if item 18 of ItemList = "" then set OneToPlace = 18
   if item 17 of ItemList = "" then set OneToPlace = 17
   if item 16 of ItemList = "" then set OneToPlace = 16
   if item 15 of ItemList = "" then set OneToPlace = 15
   if item 14 of ItemList = "" then set OneToPlace = 14
   if item 13 of ItemList = "" then set OneToPlace = 13
   if item 12 of ItemList = "" then set OneToPlace = 12
   if item 11 of ItemList = "" then set OneToPlace = 11
   if item 10 of ItemList = "" then set OneToPlace = 10
   if item 9 of ItemList = "" then set OneToPlace = 9
   if item 8 of ItemList = "" then set OneToPlace = 8
   if item 7 of ItemList = "" then set OneToPlace = 7
   if item 6 of ItemList = "" then set OneToPlace = 6
   if item 5 of ItemList = "" then set OneToPlace = 5
   if item 4 of ItemList = "" then set OneToPlace = 4
   if item 3 of ItemList = "" then set OneToPlace = 3
   if item 2 of ItemList = "" then set OneToPlace = 2
   if item 1 of ItemList = "" then set OneToPlace = 1

   set the itemdelimiter = ":"

   if item 1 of ItDt = "Newspaper Kit" then
     put string(user.name) & "'s Newspaper" into item 1 of ItDt
   end if

   set TheGoods = item 1 of ItDt & ":" & item 2 of ItDt
   set the ItemDelimiter = "|"
   put TheGoods into item OnetoPlace of ItemList

   if ItemList contains "|" then
    else
    exit
   end if

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyEquipment = item 2 of MyItemsFile
   set the itemdelimiter = ":"
   set CurItemDrop = item 1 of NewItem
   set InvenNum = integer(item 3 of FileDT)
   set MyItemToDrop = item InvenNum of MyEquipment

   if MyItemToDrop contains CurItemDrop & "-" then
     file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)
     set nItem = CurItemDrop
     set ItemNum = 1
     InvDel(MyName, MyItemsFile, nItem, ItemNum, User, fullmsg, group, movie)

     ItemLog = file("C:\FSOServer\DAT\DropLogs\ItemDrops\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && "dropped the item " & newitem & " on map " & filname
     Newlogfile = ItemLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\DropLogs\ItemDrops\" & MyName & ".txt").write(newlogfile)
   end if
   --------------------------------------------------
   "DropSomeGold":
   set FileDT = string(fullmsg.content)

   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NewItem = item 2 of FileDT
   set ItDt = item 2 of FileDT
   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
   set the ItemDelimiter = "|"
   if item 20 of ItemList = "" then set OneToPlace = 20
   if item 19 of ItemList = "" then set OneToPlace = 19
   if item 18 of ItemList = "" then set OneToPlace = 18
   if item 17 of ItemList = "" then set OneToPlace = 17
   if item 16 of ItemList = "" then set OneToPlace = 16
   if item 15 of ItemList = "" then set OneToPlace = 15
   if item 14 of ItemList = "" then set OneToPlace = 14
   if item 13 of ItemList = "" then set OneToPlace = 13
   if item 12 of ItemList = "" then set OneToPlace = 12
   if item 11 of ItemList = "" then set OneToPlace = 11
   if item 10 of ItemList = "" then set OneToPlace = 10
   if item 9 of ItemList = "" then set OneToPlace = 9
   if item 8 of ItemList = "" then set OneToPlace = 8
   if item 7 of ItemList = "" then set OneToPlace = 7
   if item 6 of ItemList = "" then set OneToPlace = 6
   if item 5 of ItemList = "" then set OneToPlace = 5
   if item 4 of ItemList = "" then set OneToPlace = 4
   if item 3 of ItemList = "" then set OneToPlace = 3
   if item 2 of ItemList = "" then set OneToPlace = 2
   if item 1 of ItemList = "" then set OneToPlace = 1

   set the itemdelimiter = ":"
   set stuffin = item 1 of ItDt & ":" & item 2 of ItDt
   set the ItemDelimiter = "|"
   put stuffin into item OnetoPlace of ItemList

   if ItemList contains "|" then
    else
    exit
   end if

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyGold = integer(item 1 of MyItemsFile)
   set the itemdelimiter = ":"
   set CurItemDrop = item 1 of NewItem
   set the itemdelimiter = " "
   set GoldAmount = integer(item 1 of CuritemDrop)

   if MyGold >= GoldAmount then
     set MyGold = MyGold - GoldAmount
     put "" into item InvenNum of MyEquipment
     set the itemdelimiter = "|"
     put MyGold into item 1 of MyItemsFile
     file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)
     file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)
     User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)

     GoldLog = file("C:\FSOServer\DAT\DropLogs\GoldDrops\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" & "Dropped " & GoldAmount & " Gold" & " on map " & filname
     Newlogfile = GoldLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\DropLogs\GoldDrops\" & MyName & ".txt").write(newlogfile)
   end if
----------------- * * *

 "AddMeToCheaters":
    AddMeToCheaters(me, movie, group, user, fullmsg)

 "ViewCheaters":
    ViewCheaters(me, movie, group, user, fullmsg)

 "SecureTradeInProgress":
    SecureTradeInProgress(me, movie, group, user, fullmsg)

 "b94013":
    DisxItm(me, movie, group, user, fullmsg)

 "x91":
    RunAdd(me, movie, group, user, fullmsg)

 "bookrd":
    ReadBook(me, movie, group, user, fullmsg)

 "bjchk":
    BlackJackGoldCheck(me, movie, group, user, fullmsg)

 "snx38":
    snx38(me, movie, group, user, fullmsg)

 "GiveToPlayer":
    GiveToPlayer(me, movie, group, user, fullmsg)

 "GiveGoldToPlayer":
    GiveGoldToPlayer(me, movie, group, user, fullmsg)

 "QuestGive":
    QuestGive(me, movie, group, user, fullmsg)

 "RefNPC":
    RefNPC(me, movie, group, user, fullmsg)

"GetSomeFaction":
    User.sendMessage("factnrtrn",  FactionPowers, 0, FALSE, user.name)

"GetSomePirates":
    User.sendMessage("piratertrn",  PiratePowers, 0, FALSE, user.name)

"GetSomeElementals":
    User.sendMessage("elementalrtrn",  ElementalPowers, 0, FALSE, user.name)

"SigilCapture":
    SigilCapture(me, movie, group, user, fullmsg)

"SigilGrab":
    SigilGrab(me, movie, group, user, fullmsg)

"ServerRecompile":
    tlist = thread().list
    repeat with t in tlist
      t.forget()
    end repeat
    gDispatcher.loadScriptMap()
    put "Reloading all scripts"


"GetHelp":
    GetHelp(me, movie, group, user, fullmsg)

"DoorSwitch":
  set FileDT = string(fullmsg.content)
  set the itemdelimiter = "|"
  set MapName = item 1 of FileDT
  set OldDoor = item 2 of FileDT
  set NewDoor = item 3 of FileDT

  set MapFile = file("C:\FSOServer\DAT\ITEMS\" & MapName).read

  repeat with x = 1 to 20
     if item x of MapFile contains OldDoor then
        set DoorFL = item x of MapFile
        set the itemdelimiter = ":"
        put NewDoor into item 1 of DoorFL
        set the itemdelimiter = "|"
        put DoorFL into item x of MapFile
     end if
  end repeat

  file("C:\FSOServer\DAT\ITEMS\" & MapName).write(MapFile)
    --User.sendMessage("DSwitchRefresh", "x", 0, FALSE, user.name)
  movie.sendMessage("@" & MapName, "refreshmap", "x")


"DeathMapGo":
	----------------------------------------
	-- Capture Death for coliseum event
	----------------------------------------
	set CurrentFighters = file("C:\FSOServer\DAT\Coliseum\CurrentFighters.txt").read
	if ColiseumFlag = 1 and CurrentFighters contains ":" & user.name & ":" then
		ColiseumDeath(User.Name, movie)
		exit
	end if
	----------------------------------------
    DeathMapGo(me, movie, group, user, fullmsg)

"SaveHouse":
    SaveHouse(me, movie, group, user, fullmsg)

"SpCmd":
    ShopCommand(me, movie, group, user, fullmsg)

"MpTlCng":
    MapTileChange(me, movie, group, user, fullmsg)

"MpT2Cng":
    BuildLand(me, movie, group, user, fullmsg)

"MpT3Cng":
    BuyLand(me, movie, group, user, fullmsg)

"SayTreasure":
    SayTreasure(me, movie, group, user, fullmsg)

"SayFaction":
    SayFaction(me, movie, group, user, fullmsg)

"sayPirate":
    SayPirate(me, movie, group, user, fullmsg)

"sayElemental":
    SayElemental(me, movie, group, user, fullmsg)

"ElePlatDrop":
    ElePlatDrop(me, movie, group, user, fullmsg)

"PrtlExt":
    Portal(me, movie, group, user, fullmsg)

"SayQuest":
    SayQuest(me, movie, group, user, fullmsg)

"SayNationOath":
    SayNationOath(me, movie, group, user, fullmsg)

"AbandonNation":
    AbandonNation(me, movie, group, user, fullmsg)

"HireLuccaMercenaries":
    HireLMercs(me, movie, group, user, fullmsg)

"CheckLuccaProgress":
    LuccaProgCheck(me, movie, group, user, fullmsg)

"Mark1Wealth":
    Mark1Wealth(me, movie, group, user, fullmsg)

"Mark2Wealth":
    Mark2Wealth(me, movie, group, user, fullmsg)

"treack":
    TreasureCheck(me, movie, group, user, fullmsg)

 "BlkJckExch":
    BlackJackGameOver(me, movie, group, user, fullmsg)

"STARTASSGAME":
    STARTASSGAME(me, movie, group, user, fullmsg)

"StartLightningAssGame":
    StartLightningAssGame(me, movie, group, user, fullmsg)

"ENDASSGAME":
    ENDASSGAME(me, movie, group, user, fullmsg)

"ASSGAMEADDSCORE":
    AssGameAddScore(me, movie, group, user, fullmsg)

 "ShowAssScores":
   set FilName = "C:\FSOSERVER\DAT\SETTINGS\permassassinsscore.txt"
   set HighScoreList = file(FilName).read
   User.sendMessage("assscrlstx", HighScoreList, 0, FALSE, user.name)

   set FilName = "C:\FSOSERVER\DAT\SETTINGS\assassinsscore.txt"
   set HighScoreList = file(FilName).read
   User.sendMessage("assscrlst", HighScoreList, 0, FALSE, user.name)

"Sccr":
   set scre = integer(fullmsg.content)
   set MyName = user.name
   CheckHighScore(MyName, scre)

 "ShowScores":
   set FilName = "C:\FSOSERVER\DAT\SETTINGS\highscore.txt"
   set HighScoreList = file(FilName).read
   User.sendMessage("scrlst", HighScoreList, 0, FALSE, user.name)

 "SltMcn":
   set TheCost = integer(fullmsg.content)

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyGold = integer(item 1 of MyItemsFile)
   set the itemdelimiter = ":"

   if MyGold >= TheCost then

     User.sendMessage("goslt", TheCost, 0, FALSE, user.name)
   else
     User.sendMessage("noslt", "x", 0, FALSE, user.name)
   end if
----------------- * * *
   "sltwn":
     SlotDone(me, movie, group, user, fullMsg)

   --------------------------------------------------
   "DropAnItem":

   set FileDT = string(fullmsg.content)
   set ItsAGo = 1 --Easier
   if FileDT contains "battleship" then set ItsAGo = 1
   if FileDT contains "boat" then set ItsAGo = 1
   if FileDT contains "Crystal" then set ItsAGo = 1
   if FileDT contains "logs" then set ItsAGo = 1
   if FileDT contains "exit" then set ItsAGo = 1
   if FileDT contains "mailbox" then set ItsAGo = 1
   if FileDT contains "trout" then set ItsAGo = 1
   if FileDT contains "catfish" then set ItsAGo = 1
   if FileDT contains "squid" then set ItsAGo = 1
   if FileDT contains "swordfish" then set ItsAGo = 1
   if FileDT contains "fish" then set ItsAGo = 1
   if FileDT contains "Head" then set ItsAGo = 1
   if FileDT contains "Street" then set ItsAGo = 1
   if FileDT contains "Corn" then set ItsAGo = 1
   if FileDT contains "Nectar" then set ItsAGo = 1
   if FileDT contains "Watermelon" then set ItsAGo = 1
   if FileDT contains "Flowers" then set ItsAGo = 1
   if FileDT contains "Roses" then set ItsAGo = 1
   if FileDT contains "Chunk" then set ItsAGo = 1
   if FileDT contains "Airship" then set ItsAGo = 1
if FileDT contains "Horse" then set ItsAGo = 1
   if FileDT contains "giant octopus" then set ItsAGo = 1
   if FileDT contains "flag wings" then set ItsAGo = 1
   if FileDT contains " berry" then set ItsAGo = 1
   if FileDT contains "wolfsbane" then set ItsAGo = 1
   if FileDT contains "lavender" then set ItsAGo = 1
if FileDT contains " herb" then set ItsAGo = 1

   if ItsAGo <> 1 then exit

   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NewItem = item 2 of FileDT
   set ItDt = item 2 of FileDT
   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
   set the ItemDelimiter = "|"
   if item 20 of ItemList = "" then set OneToPlace = 20
   if item 19 of ItemList = "" then set OneToPlace = 19
   if item 18 of ItemList = "" then set OneToPlace = 18
   if item 17 of ItemList = "" then set OneToPlace = 17
   if item 16 of ItemList = "" then set OneToPlace = 16
   if item 15 of ItemList = "" then set OneToPlace = 15
   if item 14 of ItemList = "" then set OneToPlace = 14
   if item 13 of ItemList = "" then set OneToPlace = 13
   if item 12 of ItemList = "" then set OneToPlace = 12
   if item 11 of ItemList = "" then set OneToPlace = 11
   if item 10 of ItemList = "" then set OneToPlace = 10
   if item 9 of ItemList = "" then set OneToPlace = 9
   if item 8 of ItemList = "" then set OneToPlace = 8
   if item 7 of ItemList = "" then set OneToPlace = 7
   if item 6 of ItemList = "" then set OneToPlace = 6
   if item 5 of ItemList = "" then set OneToPlace = 5
   if item 4 of ItemList = "" then set OneToPlace = 4
   if item 3 of ItemList = "" then set OneToPlace = 3
   if item 2 of ItemList = "" then set OneToPlace = 2
   if item 1 of ItemList = "" then set OneToPlace = 1

   set the itemdelimiter = ":"
   set stuffin = item 1 of ItDt & ":" & item 2 of ItDt
   set the ItemDelimiter = "|"
   put stuffin into item OnetoPlace of ItemList

   if ItemList contains "|" then
    else
    exit
   end if

   file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)

     ItemLog = file("C:\FSOServer\DAT\DropLogs\ItemDrops\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && "dropped the item " & newitem & " on map " & filname
     Newlogfile = ItemLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\DropLogs\ItemDrops\" & MyName & ".txt").write(newlogfile)

   --------------------------------------------------
   "AdminItemDrop":
   set MyName = string(user.name)

   if GetRank < 4 then
     set FileDT = string(fullmsg.content)
     set the itemdelimiter = "`"
     set FilName = item 1 of FileDT
     set NewItem = item 2 of FileDT
     set ItDt = item 2 of FileDT
     set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
     set the ItemDelimiter = "|"
     if item 20 of ItemList = "" then set OneToPlace = 20
     if item 19 of ItemList = "" then set OneToPlace = 19
     if item 18 of ItemList = "" then set OneToPlace = 18
     if item 17 of ItemList = "" then set OneToPlace = 17
     if item 16 of ItemList = "" then set OneToPlace = 16
     if item 15 of ItemList = "" then set OneToPlace = 15
     if item 14 of ItemList = "" then set OneToPlace = 14
     if item 13 of ItemList = "" then set OneToPlace = 13
     if item 12 of ItemList = "" then set OneToPlace = 12
     if item 11 of ItemList = "" then set OneToPlace = 11
     if item 10 of ItemList = "" then set OneToPlace = 10
     if item 9 of ItemList = "" then set OneToPlace = 9
     if item 8 of ItemList = "" then set OneToPlace = 8
     if item 7 of ItemList = "" then set OneToPlace = 7
     if item 6 of ItemList = "" then set OneToPlace = 6
     if item 5 of ItemList = "" then set OneToPlace = 5
     if item 4 of ItemList = "" then set OneToPlace = 4
     if item 3 of ItemList = "" then set OneToPlace = 3
     if item 2 of ItemList = "" then set OneToPlace = 2
     if item 1 of ItemList = "" then set OneToPlace = 1
     set the itemdelimiter = ":"
     set stuffin = item 1 of ItDt & ":" & item 2 of ItDt
     set the ItemDelimiter = "|"
     put stuffin into item OnetoPlace of ItemList

     if ItemList contains "|" then
      else
      exit
     end if

     file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)

     ItemFileLog = file("C:\FSOServer\DAT\Logs\AdminItemDrops\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && " dropped " & stuffin & " on map " & FilName
     Newlogfile = ItemFileLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\Logs\AdminItemDrops\" & MyName & ".txt").write(NewLogFile)
    end if


----------------------------------------------------------------------------------
   "GrabItems":
     GrabItems(me, movie, group, user, fullmsg)

   "GrabItemsBoatSell":
     set MyName = user.name
     GrabItemsBoatSell(me, movie, group, user, fullmsg, MyName)

   "GrabItemsBoatSink":
     set MyName = user.name
     GrabItemsBoatSink(me, movie, group, user, fullmsg, MyName)

   --------------------------------------------------
   "LoadMail":
   set FilName = "C:\FSOServer\DAT\MAIL\" & fullmsg.content
   if FilName contains "../" or FilName contains "..\" or FilName contains "/.." or FilName contains "\.." then exit
   set MyFile = file(FilName).read
   User.sendMessage("MailList", MyFile, 0, FALSE, user.name)

   "SendMail":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set MyMessage = item 2 of FileDT
   set CurMail = "C:\FSOServer\DAT\MAIL\" & FilName
   set CurMail = file(CurMail).read
   set CurMail = CurMail & MyMessage
   if FilName contains "../" or FilName contains "..\" or FilName contains "/.." or FilName contains "\.." then exit
   file("C:\FSOServer\DAT\MAIL\" & FilName).write(CurMail)

   "SaveMailRTG":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT
   if FilName contains "../" or FilName contains "..\" or FilName contains "/.." or FilName contains "\.." then exit
   file("C:\FSOServer\DAT\MAIL\" & FilName).write(FilDat)

   "SortIP":
   MyIPP = fullmsg.content
   set FilName = "C:\FSOServer\DAT\SETTINGS\Bans.txt"
   set MyFile = file(FilName).read
   if MyFile contains MyIPP then
    User.sendMessage("927417351", "x", 0, FALSE, user.name)
    User.sendMessage("ClientVersion3",  "b6.3", 0, FALSE, user.name)
    movie.sendMessage("system.user.delete", "", WarpUser)
   end if

   "AddBan":
   set IPtoBan = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\SETTINGS\bans.txt"
   set BannedIPs = file(FilName).read
   set BannedIPs = BannedIPs & "*" & IPtoBan & "*"
   file("C:\FSOServer\DAT\SETTINGS\bans.txt").write(BannedIPs)

   "AddMABan":
   set IPtoBan = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\SETTINGS\MABans.txt"
   set BannedIPs = file(FilName).read
   set BannedIPs = BannedIPs & "*" & IPtoBan & "*"
   file("C:\FSOServer\DAT\SETTINGS\MABans.txt").write(BannedIPs)

   "RemoveBan":
   set IPtoRemove = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\SETTINGS\bans.txt"
   set BannedIPs = file(FilName).read
   set the itemdelimiter = "*"
   repeat with x = 1 to 500
      if item x of BannedIPs = IPtoRemove then put "" into item x of BannedIPs
   end repeat
   file("C:\FSOServer\DAT\SETTINGS\bans.txt").write(BannedIPs)

   "LoadMap":

	--------------------------------------------------
	-- Safe your map !!! important for all scripts !!!
	-- (This saves the mapname at every mapload)
	--------------------------------------------------
	set the itemdelimiter = "."
	CurrentMap = item 1 of string(fullmsg.content)
	--------------------------------------------------
	-- Coliseum Trigger LoadMap
	--------------------------------------------------
	set CurrentFighters = file("C:\FSOServer\DAT\Coliseum\CurrentFighters.txt").read
	if CurrentFighters contains ":" & user.name & ":" then
		MapSentToFighters(me, movie, group, user, fullMsg)
		exit
	end if


   set TheName = fullmsg.content
   set FilName = "C:\FSOServer\DAT\MAPS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   set FilxName = "C:\FSOServer\DAT\MOBS\"
   FilxName = FilxName & fullmsg.content
   set MyxFile = file(FilxName).read
   set the itemdelimiter = "."
   set Mapp = item 1 of TheName & "i.txt"
   set FilName = "C:\FSOServer\DAT\ITEMS\"
   FilName = FilName & Mapp
   set ItemFile = file(FilName).read
   set TheFiles = MyFile & "^" & ItemFile & "^" & MyxFile --& "^"
   user.sendMessage("GetMap", TheFiles, 0, FALSE, fullmsg.senderID)--
   SendNPCs (MyxFile, me, movie, group, user, fullMsg, TheFiles)

   "ReloadSomeMobs":
   set FilxName = "C:\FSOServer\DAT\MOBS\"
   FilxName = FilxName & fullmsg.content
   set MyxFile = file(FilxName).read
   user.sendMessage("ReloadTheMobsFromVehicle", MyxFile, 0, FALSE, fullmsg.senderID)--
   SendNPCs (MyxFile, me, movie, group, user, fullMsg, TheFiles)


   "LoadItems":
   set FilName = "C:\FSOServer\DAT\ITEMS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetItems", MyFile, 0, FALSE, user.name)

   "LoadItemsW":
   set FilName = "C:\FSOServer\DAT\ITEMS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetItemsW", MyFile, 0, FALSE, user.name)

   "LoadBoard1RTG":
   set FilName = "C:\FSOServer\DAT\BOARDS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetBoards", MyFile, 0, FALSE, user.name)

   "LoadMapX":
   set FilName = "C:\FSOServer\DAT\MAPS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetMapX", MyFile, 0, FALSE, user.name)

   "LoadMobsX":
   set FilName = "C:\FSOServer\DAT\MOBS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetMobsX", MyFile, 0, FALSE, user.name)

   "LoadItemsX":
   set FilName = "C:\FSOServer\DAT\ITEMS\"
   FilName = FilName & fullmsg.content
   set MyFile = file(FilName).read
   User.sendMessage("GetItemsX", MyFile, 0, FALSE, user.name)
   --------------------------------------------------
   "SaveMap":
   set MyName = string(user.name)
   set LogFile = file("C:\FSOServer\DAT\Logs\MapSaves\" & MyName & ".txt").read

   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT

   if LogFile = VOID or LogFile = "" then
     file("C:\FSOServer\DAT\Logs\MapSaves\" & MyName & ".txt").write(FilName)
   else
     file("C:\FSOServer\DAT\Logs\MapSaves\" & MyName & ".txt").write(LogFile & RETURN & FilName)
   end if

   file("C:\FSOServer\DAT\MAPS\" & FilName).write(FilDat)
   User.sendMessage("MapIsCreated", "x", 0, FALSE, user.name)
   --------------------------------------------------

   "SveMb":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT
   file("C:\FSOServer\DAT\MOBS\" & FilName).write(FilDat)


   -------------------------------------------------- ***** VAULT!!!!!
   "DropInVault":
   set FileDT = string(fullmsg.content)
   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyInv = item 2 of MyItemsFile

   set the itemdelimiter = "`"
   set VaultName = item 1 of FileDT
   set ItemToAdd = item 2 of FileDT
   set InvenNum = integer(item 3 of FileDT)
   set the itemdelimiter = ":"

   set VaultIsFull = FALSE

   set FilName = "C:\FSOServer\DAT\VAULTS\" & VaultName
   if VaultName contains "-DV" then set FilName = "C:\FSOServer\DAT\DeluxeVAULTS\" & VaultName
   set VaultInfo = file(FilName).read
   if VaultInfo = VOID then set VaultInfo = ""

   set MaxAmnt = 15
   if VaultName contains "Crate" then set MaxAmnt = 3
   if VaultName contains "Vault" then set MaxAmnt = 15
   if VaultName contains "Chest" then set MaxAmnt = 15
   if VaultName contains "Cabinet" then set MaxAmnt = 10
   if VaultName contains "Wind Cabinet" then set MaxAmnt = 20
if VaultName contains "Dark Cabinet" then set MaxAmnt = 40
if VaultName contains "Silver Thread Bag" then set MaxAmnt = 10
   if VaultName contains "-DV" then set MaxAmnt = 50

   if line MaxAmnt of VaultInfo <> "" then set VaultIsFull = TRUE

   if VaultIsFull = TRUE then
      User.sendMessage("sqa", "This is too full to store anything else!", 0, FALSE, user.name)
      exit
   end if

   if VaultName contains "-DV" then
      set FilName = "C:\FSOServer\DAT\DeluxeVaults.txt"
      set MyFile = file(FilName).read

      set BelzDat = "=" & string(user.name) & "="
      if MyFile contains BelzDat then
      else
      User.sendMessage("sqa", "You do not have access to Deluxe Vaults!", 0, FALSE, user.name)
      exit
      end if
   end if

   if item InvenNum of MyInv contains ItemToAdd & "-" then
      set ItsAGo = 1
   end if

   if ItsAGo <> 1 then exit

   set nItem = ItemToAdd
   set ItemNum = 1
   InvDel(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

   set VaultInfo = VaultInfo & ItemToAdd & RETURN
   if VaultInfo contains "|" then exit
   if VaultName contains "-DV" then
     file("C:\FSOServer\DAT\DeluxeVAULTS\" & VaultName).write(VaultInfo)
   else
     file("C:\FSOServer\DAT\VAULTS\" & VaultName).write(VaultInfo)
   end if

   if VaultName contains "Cauldron" then
     DidWeBooyaSomeWitchcraft(MyName, user, fullmsg, group, movie, VaultName, VaultInfo)
   end if

   "GetChest":
   set FiletoGet = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\VAULTS\" & FiletoGet
   set VaultInfo = file(FilName).read
   User.sendMessage("VaultReturned", VaultInfo, 0, FALSE, user.name)

  "GetDeluxeChest":
   set FilName = "C:\FSOServer\DAT\DeluxeVaults.txt"
   set MyFile = file(FilName).read

   set BelzDat = "=" & string(user.name) & "="
   if MyFile contains BelzDat then
   else
   User.sendMessage("sqa", "You do not have access to the Deluxe Vault!", 0, FALSE, user.name)
User.sendMessage("DVUnfreeze", "Don't Matter", 0, FALSE, user.name)
   exit
   end if
   set FiletoGet = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\DeluxeVAULTS\" & FiletoGet
   set VaultInfo = file(FilName).read
   User.sendMessage("VaultReturned2", VaultInfo, 0, FALSE, user.name)

   "GetBalance":
   set FiletoGet = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\BANK\" & FiletoGet
   set Bankk = file(FilName).read
   if Bankk = "" then set Bankk = "0"
   if Bankk = VOID then set Bankk = "0"
   file("C:\FSOServer\DAT\BANK\" & FiletoGet).write(Bankk)
   User.sendMessage("BalanceReturned", Bankk, 0, FALSE, user.name)

   "Deposit":
   set FileDT = string(fullmsg.content)

   set MyName = user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyGold = integer(item 1 of MyItemsFile)

   set the itemdelimiter = "`"
   set BankName = item 1 of FileDT
   set DepAmount = integer(item 2 of FileDT)
   set FilName = "C:\FSOServer\DAT\BANK\" & BankName
   set Bankk = file(FilName).read
   set nBankk = integer(Bankk) + DepAmount
   set MyGold = MyGold - DepAmount

   if MyGold < 0 then
     exit
   end if

   set the itemdelimiter = "|"
   put MyGold into item 1 of MyItemsFile
   file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)

   file("C:\FSOServer\DAT\BANK\" & BankName).write(String(nBankk))
   User.sendMessage("DepositDone", nBankk, 0, FALSE, user.name)
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)

   "Withdraw":
   set FileDT = string(fullmsg.content)

   set MyName = user.name
   set OtherName = string(fullmsg.SenderID)
   if OtherName <> MyName then exit

   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set MyGold = integer(item 1 of MyItemsFile)

   set the itemdelimiter = "`"
   set BankName = item 1 of FileDT
   set DepAmount = integer(item 2 of FileDT)
   set FilName = "C:\FSOServer\DAT\BANK\" & BankName
   set Bankk = file(FilName).read
   set nBankk = integer(Bankk) - DepAmount
   set MyGold = MyGold + DepAmount

   if nBankk < 0 then
      exit
   end if

   set the itemdelimiter = "|"
   put MyGold into item 1 of MyItemsFile
   file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)

   file("C:\FSOServer\DAT\BANK\" & BankName).write(String(nBankk))
   User.sendMessage("DepositDone", nBankk, 0, FALSE, user.name)
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)

   "itremovv":
      set ItemToAdd = string(fullmsg.content)
      set CanIGoOK = FALSE
     if ItemToAdd contains "Icy" then set CanIGoOK = TRUE
     if ItemToAdd contains " arrows" then set CanIGoOK = TRUE
if ItemToAdd contains "Freezing" then set CanIGoOK = TRUE
if ItemToAdd contains "Fiery" then set CanIGoOK = TRUE
if ItemToAdd contains "defender " then set CanIGoOK = TRUE
if ItemToAdd contains "sizzling" then set CanIGoOK = TRUE
if ItemToAdd contains "Breezy" then set CanIGoOK = TRUE
if ItemToAdd contains "rocky" then set CanIGoOK = TRUE
if ItemToAdd contains "shade" then set CanIGoOK = TRUE
if ItemToAdd contains "glowing" then set CanIGoOK = TRUE
if ItemToAdd contains "vicious" then set CanIGoOK = TRUE
      if ItemToAdd contains "Crate" then set CanIGoOK = TRUE
      if ItemToAdd contains "Cabinet" then set CanIGoOK = TRUE
      if ItemToAdd contains "Potion" then set CanIGoOK = TRUE
if ItemToAdd contains "Long Sword" then set CanIGoOK = TRUE
if ItemToAdd = "Apple" then set CanIGoOK = TRUE
if ItemToAdd = "Steel Scimitar" then set CanIGoOK = TRUE
if ItemToAdd = "Chain Helm" then set CanIGoOK = TRUE
if ItemToAdd = "Chain Armor" then set CanIGoOK = TRUE
if ItemToAdd = "Steel Shield" then set CanIGoOK = TRUE
      if ItemToAdd = "Pie" then set CanIGoOK = TRUE
      if ItemToAdd = "Corn" then set CanIGoOK = TRUE
      if ItemToAdd = "Fish" then set CanIGoOK = TRUE
      if ItemToAdd = "Ale" then set CanIGoOK = TRUE
      if ItemToAdd = "Pig" then set CanIGoOK = TRUE
      if ItemToAdd = "Chair" then set CanIGoOK = TRUE
      if ItemToAdd = "Cow" then set CanIGoOK = TRUE
      if ItemToAdd = "Table" then set CanIGoOK = TRUE
      if ItemToAdd = "Stool" then set CanIGoOK = TRUE
if ItemToAdd = "Knife" then set CanIGoOK = TRUE
      if ItemToAdd = "Dagger" then set CanIGoOK = TRUE
      if ItemToAdd = "Small Shield" then set CanIGoOK = TRUE
      if ItemToAdd = "Katana" then set CanIGoOK = TRUE
      if ItemToAdd = "Short Sword" then set CanIGoOK = TRUE
      if ItemToAdd = "Plate Boots" then set CanIGoOK = TRUE
      if ItemToAdd = "Knight Shield" then set CanIGoOK = TRUE
      if ItemToAdd = "Steel Shield" then set CanIGoOK = TRUE
      if ItemToAdd = "Gauntlets" then set CanIGoOK = TRUE
      if ItemToAdd = "Plate Helm" then set CanIGoOK = TRUE
      if ItemToAdd = "Plate Armor" then set CanIGoOK = TRUE
      if ItemToAdd contains " elixir" then set CanIGoOK = TRUE
      if ItemToAdd contains "violence pill" then set CanIGoOK = TRUE
      if ItemToAdd contains "iron bomb" then set CanIGoOK = TRUE
      if ItemToAdd contains "steel bomb" then set CanIGoOK = TRUE
      if ItemToAdd contains "star bomb" then set CanIGoOK = TRUE
      if CanIGoOK = FALSE then exit
      set FileDT = string(fullmsg.content)
      set MyName = user.name
      set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
      set the itemdelimiter = "|"
      set MyInv = item 2 of MyItemsFile

      if ItemToAdd contains " Crystals" then
       set the itemdelimiter = " "
       set ItemNum = integer(item 1 of ItemToAdd)
       set ItemToAdd = item 2 of ItemToAdd & " " & item 3 of ItemToAdd
     end if
      if ItemToAdd contains " bomb" then
       set the itemdelimiter = " "
       if ItemToAdd.item.count = 3 then
       set ItemNum = integer(item 1 of ItemToAdd)
       set ItemToAdd = item 2 of ItemToAdd & " " & item 3 of ItemToAdd
       end if
     end if
      if ItemToAdd contains "wooden arrows" or ItemToAdd contains "reinforced wooden arrows" or ItemToAdd contains "superior wooden arrows" or ItemToAdd contains "reinforced superior wooden arrows" then
       set the itemdelimiter = " "
       set ItemNum = integer(item 1 of ItemToAdd)
       set ItemToAdd2 = ItemToAdd
       delete item 1 of ItemToAdd2
       if char 1 of ItemToAdd2 = " " then delete char 1 of ItemToAdd2
       set ItemToAdd = ItemToAdd2
     end if


      set the itemdelimiter = ":"

      repeat with xxx = 1 to 20
       if item xxx of MyInv = "" then set ItsAGo = 1
       end repeat

      if MyInv contains ItemToAdd & "-" then set ItsAGo = 1

      if ItsAGo = 0 then exit
      if (ItemToAdd contains " bomb" or ItemToAdd contains "wooden arrows") and ItemNum > 1 then
      else
        set ItemNum = 1
      end if

     set nItem = ItemToAdd
     InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

   "GetFromVault":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set VaultName = item 1 of FileDT
   set ItemToAdd = item 2 of FileDT
   set FilName = "C:\FSOServer\DAT\VAULTS\" & VaultName
   set VaultInfo = file(FilName).read

  set the itemdelimiter = RETURN
  set NewVault = ""

  repeat with x = 1 to 200
    if item x of VaultInfo <> "" then set NewVault = NewVault & item x of VaultInfo & RETURN
  end repeat

   repeat with x = 1 to 200
    if line x of NewVault = ItemToAdd then
      ----------------------
      set FileDT = string(fullmsg.content)
      set MyName = user.name
      set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
      set the itemdelimiter = "|"
      set MyInv = item 2 of MyItemsFile

      if ItemToAdd contains " Crystals" then
       set the itemdelimiter = " "
       set ItemNum = integer(item 1 of ItemName)
       set ItemToAdd = item 2 of ItemToAdd & " " & item 3 of ItemToAdd
      end if

      set the itemdelimiter = ":"

      repeat with xxx = 1 to 20
       if item xxx of MyInv = "" then set ItsAGo = 1
      end repeat

      if MyInv contains ItemToAdd & "-" then set ItsAGo = 1

      if ItsAGo = 0 then exit
      set ItemNum = 1

      set nItem = ItemToAdd
      InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

      ----------------------
      delete line x of NewVault
      set ItemExists = 1
      exit repeat
    end if
   end repeat

   if NewVault contains "|" then exit
   file("C:\FSOServer\DAT\VAULTS\" & VaultName).write(NewVault)


 "GetFromDeluxeVault":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set VaultName = item 1 of FileDT
   set ItemToAdd = item 2 of FileDT
   set VaultName = user.name & "-DV.txt"
   set FilName = "C:\FSOServer\DAT\DeluxeVaults\" & VaultName
   set VaultInfo = file(FilName).read

  set the itemdelimiter = RETURN
  set NewVault = ""

  repeat with x = 1 to 200
    if item x of VaultInfo <> "" then set NewVault = NewVault & item x of VaultInfo & RETURN
  end repeat

   repeat with x = 1 to 200
    if line x of NewVault = ItemToAdd then
      ----------------------
      set FileDT = string(fullmsg.content)
      set MyName = user.name
      set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
      set the itemdelimiter = "|"
      set MyInv = item 2 of MyItemsFile

      if ItemToAdd contains " Crystals" then
       set the itemdelimiter = " "
       set ItemNum = integer(item 1 of ItemName)
       set ItemToAdd = item 2 of ItemToAdd & " " & item 3 of ItemToAdd
      end if

      set the itemdelimiter = ":"

      repeat with xxx = 1 to 20
       if item xxx of MyInv = "" then set ItsAGo = 1
      end repeat

      if MyInv contains ItemToAdd & "-" then set ItsAGo = 1

      if ItsAGo = 0 then exit
      set ItemNum = 1

      set nItem = ItemToAdd
      InvAdd(MyName, MyItemsFile, nItem, ItemNum, user, fullmsg, group, movie)

      ----------------------
      delete line x of NewVault
      set ItemExists = 1
      exit repeat
    end if
   end repeat

   if NewVault contains "|" then exit
   file("C:\FSOServer\DAT\DeluxeVAULTS\" & VaultName).write(NewVault)



   "SaveBoard1":
   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set FilDat = item 2 of FileDT
   file("C:\FSOServer\DAT\BOARDS\" & FilName).write(FilDat)

   "LoadNews":
   set FilName = "C:\FSOServer\DAT\SETTINGS\News.txt"
   set MyFile = file(FilName).read
   User.sendMessage("News", MyFile, 0, FALSE, user.name)
   --News Additions--
  set mycharacter = string(user.name)
  if mycharacter contains "newchar" then exit
  set mycharacterfile = file("c:/FSOServer/Dat/Char/" & mycharacter & ".txt").read
  set the itemdelimiter = "/"
  set FactionPart = item 5 of mycharacterfile
  set the itemdelimiter = ":"
  set FactType = item 1 of string(FactionPart)
  set MyTime = item 2 of FactionPart / 1800
  case FactType of
    "0":
      set FactType = "None"
    "1":
      set FactType = "Mage"
    "2":
      set FactType = "Warrior"
    "3":
      set FactType = "Adventurer"
  end case
  set thefactionmessage = "You are in the " &  FactType & "'s faction with " & integer(MyTime) & " minute(s) remaining."
  if FactType = "None" then set thefactionmessage = "You are not in a faction."
  set mycharacterfile = file("c:/FSOServer/Dat/Char/" & mycharacter & ".txt").read
  set the itemdelimiter = ":"
  set Level = item 7 of string(mycharacterfile)
  set EXP = item 12 of string(mycharacterfile)
  set EXPNeeded = item 13 of string(mycharacterfile)
  set theexpmessage = "Your level is " & QUOTE & Level & QUOTE & " and experience is: " & integer(EXP) & "/" & integer(EXPNeeded) & "."
  set Mybank = file("C:/FSOServer/Dat/Bank/" & mycharacter & ".txt").read
  if mybank = "" then set mybank = "0"
  if mybank = void then set mybank = "0"
  set thebankmessage = "The Bank says you have " & QUOTE & mybank & QUOTE & " gold."
  user.sendmessage("baalzamoncast", theexpmessage & " " & thefactionmessage & " " & thebankmessage, 0, FALSE, user.name)

   "LoadQuests":
   set FilName = "C:\FSOServer\DAT\SETTINGS\CurQuest.txt"
   set MyFile = file(FilName).read
   User.sendMessage("Quests", MyFile, 0, FALSE, user.name)

   "ViewChar":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\CHAR\" & CharName & ".txt"
   set MyFile = file(FilName).read
   User.sendMessage("ViewChar", MyFile, 0, FALSE, user.name)

   "QuestComplete":
   set FileDT = string(fullmsg.content)
   file("C:\FSOServer\DAT\SETTINGS\CurQuest.txt").write(FileDT)

   "SaveTheNPC":
   set MyName = string(user.name)

   if GetRank < 4 then
     set FileDT = string(fullmsg.content)
     set the itemdelimiter = "`"
     set FilName = item 1 of FileDT
     set FilDat = item 2 of FileDT
     file("C:\FSOServer\DAT\NPC\" & FilName).write(FilDat)
     User.sendMessage("NPCIsCreated", "x", 0, FALSE, user.name)

     NPCFileLog = file("C:\FSOServer\DAT\Logs\NPCSaves\" & MyName & ".txt").read --logging
     Addtolog = "[" & the short date && the short time & "]" && "editted " & FilName
     Newlogfile = NPCFileLog & RETURN & Addtolog
     file("C:\FSOServer\DAT\Logs\NPCSaves\" & MyName & ".txt").write(NewLogFile)
   else
     User.sendMessage("kick", "x", 0, FALSE, user.name)
   end if

   "LoadTheNPC":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\NPC\" & CharName & ".txt"
   set MyFile = file(FilName).read
   User.sendMessage("NPCLoaded", MyFile, 0, FALSE, user.name)


   "LoadSystem":
   set FilName = "C:\FSOServer\DAT\SETTINGS\System.txt"
   set MyFile = file(FilName).read
   User.sendMessage("LoadSystem", MyFile, 0, FALSE, user.name)

   "LoadNPCSellList":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\NPC\" & CharName
   set LList = file(FilName).read
   set BuyItems = ""
   set BuyItemPrices = ""

   repeat with x = 1 to 60
     if line x of LList contains "SEL|" then
      set the itemdelimiter = "|"
      set TheGoods = item 2 of line x of LList
      set the itemdelimiter = ":"
      set ItemName = item 1 of TheGoods
      set ItemPrice = item 2 of TheGoods
      set BuyItems = BuyItems & ItemName & RETURN
      set BuyItemPrices = BuyItemPrices & ItemPrice & RETURN
     end if
   end repeat
   set TheList = BuyItems & ":" & BuyItemPrices
   User.sendMessage("NPCSellList", TheList, 0, FALSE, user.name)

   "LoadNPCTicketList":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\NPC\" & CharName
   set LList = file(FilName).read
   set BuyItems = ""
   set BuyItemPrices = ""

   repeat with x = 1 to 30
     if line x of LList contains "SEL|" then
      set the itemdelimiter = "|"
      set TheGoods = item 2 of line x of LList
      set the itemdelimiter = ":"
      set ItemName = item 1 of TheGoods
      set ItemPrice = item 2 of TheGoods
      set BuyItems = BuyItems & ItemName & RETURN
      set BuyItemPrices = BuyItemPrices & ItemPrice & RETURN
     end if
   end repeat
   set TheList = BuyItems & ":" & BuyItemPrices
   User.sendMessage("NPCTicketList", TheList, 0, FALSE, user.name)

   "LoadNPCTPList":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\NPC\" & CharName
   set LList = file(FilName).read
   set BuyItems = ""
   set BuyItemPrices = ""

   repeat with x = 1 to 30
     if line x of LList contains "SEL|" then
      set the itemdelimiter = "|"
      set TheGoods = item 2 of line x of LList
      set the itemdelimiter = ":"
      set ItemName = item 1 of TheGoods
      set ItemPrice = item 2 of TheGoods
      set BuyItems = BuyItems & ItemName & RETURN
      set BuyItemPrices = BuyItemPrices & ItemPrice & RETURN
     end if
   end repeat
   set TheList = BuyItems & ":" & BuyItemPrices
   User.sendMessage("NPCTPList", TheList, 0, FALSE, user.name)

   "CompletedSiteVoting":
   set MyName = string(user.name)
   set VoteFile = file("C:\FSOServer\DAT\VoteSites\" & MyName & ".txt").read
   if VoteFile = the short date then
     User.sendMessage("sqa", "You have already received your site voting bonus for the day!", 0, FALSE, user.name)
   else
     User.sendMessage("sqa", "Thank you for voting for the game! Votes help us climb the advertisment sites, and can help get us more players!", 0, FALSE, user.name)
     file("C:\FSOServer\DAT\VoteSites\" & MyName & ".txt").write(the short date)
     User.sendMessage("GetTicketsYo", "3", 0, FALSE, user.name)
   end if



---------------------------------------------------------------------------------------------------
  "LoadNPCBuyList":
   set CharName = string(fullmsg.content)
   set FilName = "C:\FSOServer\DAT\NPC\" & CharName
   set LList = file(FilName).read
   set BuyItems = ""
   set BuyItemPrices = ""

   repeat with x = 1 to 60
     if line x of LList contains "BUY|" then
      set the itemdelimiter = "|"
      set TheGoods = item 2 of line x of LList
      set the itemdelimiter = ":"
      set ItemName = item 1 of TheGoods
      set ItemPrice = item 2 of TheGoods
      set BuyItems = BuyItems & ItemName & RETURN
      set BuyItemPrices = BuyItemPrices & ItemPrice & RETURN
     end if
   end repeat
   set TheList = BuyItems & ":" & BuyItemPrices
   User.sendMessage("NPCBuyList", TheList, 0, FALSE, user.name)
---------------------------------------------------------------------------------------------------
  "ReduceGoldFromSpell":
   set MyName =  user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read
   set the itemdelimiter = "|"
   set myCharGold = integer(item 1 of MyitemsFile)
   set MycharGold = MyCharGold - integer(fullmsg.content)
   if MyCharGold < 0 then exit
   if string(MyCharGold) contains "-" then exit
   put MycharGold into item 1 of MyItemsFile
   file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)


  "GiveGoldToNPC":

   set MyName =  user.name
   set MyItemsFile = file("C:\FSOServer\DAT\CHAR\" & string(MyName) & "-i.txt").read

   set NPCDat = string(fullmsg.content)
   set the itemdelimiter = ":"
   set NPCName = item 1 of NPCDat
   set NewGold = integer(item 2 of NPCDat)
   set the itemdelimiter = "."
   set FNPCxName = item 1 of NPCName
   set NPCTalkDAt = FNPCxName & " says " & QUOTE & "Thanks for the gold!"
   set the itemdelimiter = "|"
   set myCharGold = integer(item 1 of MyitemsFile)
   set MycharGold = MyCharGold - integer(NewGold)
   if MyCharGold < 0 then exit
   put MycharGold into item 1 of MyItemsFile
   file("C:\FSOServer\DAT\CHAR\" & string(MyName & "-i") & ".txt").write(MyItemsFile)
   User.sendMessage("inx", MyItemsFile, 0, FALSE, user.name)
   User.sendMessage("sqa",  NPCTalkDAt, 0, FALSE, user.name)

   set FilName = "C:\FSOServer\DAT\NPC\" & NPCName
   set LList = file(FilName).read

   repeat with x = 1 to 60
      if line x of LList contains "GLD|" then
        set the itemdelimiter = "|"
        set MyGold = integer(item 2 of line x of LList)
        set GoldtoAdd = MyGold + NewGold
        set GoldToAdd = "GLD|" & string(GoldToAdd)
        put GoldToAdd into line x of LList
      end if
   end repeat

   file("C:\FSOServer\DAT\NPC\" & NPCName).write(LList)

   "BuyFromNPC":
     NPCBuy(me, movie, group, user, fullmsg)

   "BuyFromTicketNPC":
     NPCTicketBuy(me, movie, group, user, fullmsg)

   "BuyFromTPNPC":
     NPCTPBuy(me, movie, group, user, fullmsg)


   "SellToNPC":
     NPCSell(me, movie, group, user, fullmsg)


   "Mkilldrp":

   set FileDT = string(fullmsg.content)
   set the itemdelimiter = "`"
   set FilName = item 1 of FileDT
   set NPCname = item 2 of FileDT
   set ItemDat = item 3 of FileDT
   set WhoTheFuck = string(user.name)
   set RingItem = item 4 of FileDt
   set RingItem2 = item 5 of FileDt
   set RingItem3 = item 6 of FileDt
   set RingItem4 = item 7 of FileDt
   set RingItem5 = item 8 of FileDt
   --set RingItem6 = integer(item 9 of FileDt)

     set RingEffect = 1
     set RingBonus = 0
     if RingItem = "Four Leaf Clover" then set RingBonus = RingBonus + 1 --Waist
     if RingItem2 = "Boots of Fortune" then set RingBonus = RingBonus + 1 --Feet
     --if RingItem3 = "Boots of Fortune" then set RingBonus = RingBonus + 1 --Gloves
     if (RingItem4 = "Boots of Fortune" and WhoTheFuck = "Deadalus") then set RingBonus = RingBonus + 1 --Body
     if RingItem5 = "Azazel's Ring" then set RingBonus = RingBonus + 1 --Ring
     --if RingItem6 > 0 then set RingBonus = Ringbonus + 1
     if RingBonus = 0 then set RingEffect = 1
     if RingBonus = 1 then set RingEffect = .9
     if RingBonus > 1 then set RingEffect = .8


   set NPCFilName = "C:\FSOServer\DAT\NPC\" & NPCname
   set NPCFile = file(NPCFilName).read
   if NPCFile = VOID then exit

   set CurInvLst = ""
   set InvAmnt = 0

   repeat with x = 1 to 80
     if line x of NPCFile contains "INV|" then
      set the itemdelimiter = "|"
      set TheGoods = item 2 of line x of NPCFile
      set CurInvLst = CurInvLst & TheGoods & RETURN
      set InvAmnt = InvAmnt + 1
     end if
   end repeat

   if InvAmnt = 0 then exit
   set WhichOneLine = random(InvAmnt)

   set CurItttm = line WhichOneLine of CurInvLst
   set the itemdelimiter = ":"
   set RndAmnt = integer((item 2 of CurItttm) * RingEffect)
   set DoWeDrop = random(RndAmnt)
   if DoWeDrop <> 1 then exit
   set TheItemm = item 1 of CurItttm

   set ItemList = file("C:\FSOServer\DAT\ITEMS\" & FilName).read
   set the ItemDelimiter = "|"
   set OneToPlace = 0
   if item 8 of ItemList = "" then set OneToPlace = 8
   if item 7 of ItemList = "" then set OneToPlace = 7
   if item 6 of ItemList = "" then set OneToPlace = 6
   if item 5 of ItemList = "" then set OneToPlace = 5
   if item 4 of ItemList = "" then set OneToPlace = 4
   if item 3 of ItemList = "" then set OneToPlace = 3
   if item 2 of ItemList = "" then set OneToPlace = 2
   if item 1 of ItemList = "" then set OneToPlace = 1
   if OneToPlace = 0 then exit
   set the itemdelimiter = ":"
   set TheItemDrp = TheItemm & ":" & ItemDat
   set the ItemDelimiter = "|"
   put TheItemDrp into item OnetoPlace of ItemList

   if ItemList contains "|" then
    else
    exit
   end if

   file("C:\FSOServer\DAT\ITEMS\" & FilName).write(ItemList)

   User.sendMessage("drelxu", TheItemDrp, 0, FALSE, user.name)

end case

end