Pan's Monster Manager (For use with IRC RPG games)

[chain]

i folks... been trying a few rpg type games, and folks suggested to make a way so they can add their own monsters in.

This script will add, list totals, and delete entries from monster txt files , that IRC rpg games typically use.
You may have to edit the script depending on how many levels there are in your rpg game, and you may also have to edit the prefix of all the monster text files for each level .. (the rpg game i use has the monster text files as monster.txt, monster2.txt.. etc)

You may also want to add in some feature that only ops can add/del .. but for me its not necessary

I must also thank a few people around irc that gave some pointers and a little help while putting this together.
you know who you all are.. and thank you so much for your time.

---

The Monster Manager Commands

COMMANDS MENU IN CHAN
!m-help

ADD A MONSTER TO A LEVEL
!m-lv(level number)-add (Your Monster)

CHECK HOW MANY MONSTERS ARE IN A LEVEL
!m-lv(level number)

CHECK A SPECIFIC MONSTER IN A LEVEL
!m-lv(level number) (number)

CHECK TOTAL MONSTERS FOR ALL LEVELS
!m-total

DELETE MONSTER FROM A LEVEL
!m-lv(level number)-del (number)

---

enjoy

 

;;PAN'S MONSTER MANGAER ------------------------------------------------------

  on *:text:!m-help:#:{
  msg $chan Pan's Monster Manager: To Add: 12!m-lv(level number)-add (Your Monster) - To check number of monsters in each Level: 12!m-lv(level number) - To view individual monsters: 12!m-lv(level number) (number) - To View total enemy strength: 12!m-total - To Delete Monster: 12!m-lv(level number)-del (number) - 4"Try not delete other peoples monsters"
}
;;LEVEL 1 --------------------------------------------------------------------
on *:text:!m-lv1-add *:#:{
  write monsters.txt $2-
  msg # 12 $+ $2- has been added to the Level 1 Monsters list $nick $+ . Thy epic journey awaits thee.
}
on *:text:!m-lv1:#:{
  msg $chan There are a total of12 $lines(monsters.txt) Level 1 Monsters.
}
on *:text:!m-lv1-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters.txt
  }
}
;;LEVEL 2 --------------------------------------------------------------------
on *:text:!m-lv2-add *:#:{
  write monsters2.txt $2-
  msg # 12 $+ $2- has been added to the Level 2 Monsters list $nick $+ . May good fortune be with thee on thy quest.
}
on *:text:!m-lv2:#:{
  msg $chan There are a total of12 $lines(monsters2.txt) Level 2 Monsters.
}
on *:text:!m-lv2-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters2.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters2.txt
  }
}
;;LEVEL 3 --------------------------------------------------------------------
on *:text:!m-lv3-add *:#:{
  write monsters3.txt $2- | .msg $chan 12 $+ $2- has been added to the Level 3 Monsters list $nick $+ . Glory awaits thee.
}
on *:text:!m-lv3:#:{
  msg $chan There are a total of12 $lines(monsters3.txt) Level 3 Monsters.
}
on *:text:!m-lv3-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters3.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters3.txt
  }
}
;;LEVEL 4 --------------------------------------------------------------------
on *:text:!m-lv4-add *:#:{
  write monsters4.txt $2-
  msg # 12 $+ $2- has been added to the Level 4 Monsters list $nick $+ . Journey forth into the darkness with pride and haste..
}
on *:text:!m-lv4:#:{
  msg $chan There are a total of12 $lines(monsters4.txt) Level 4 Monsters.
}
on *:text:!m-lv4-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters4.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters4.txt
  }
}
;;LEVEL 5 --------------------------------------------------------------------
on *:text:!m-lv5-add *:#:{
  write monsters5.txt $2-
  msg # 12 $+ $2- has been added to the Level 5 Monsters list $nick $+ . Elders shall speak of thy honorable deeds.
}
on *:text:!m-lv5:#:{
  msg $chan There are a total of12 $lines(monsters5.txt) Level 5 Monsters.
}
on *:text:!m-lv5-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters5.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters5.txt
  }
}
;;LEVEL 6 --------------------------------------------------------------------
on *:text:!m-lv6-add *:#:{
  write monsters6.txt $2-
  msg # 12 $+ $2- has been added to the Level 6 Monsters list $nick $+ . Many bards shall play, honoring thy glorious victories.
}
on *:text:!m-lv6:#:{
  msg $chan There are a total of12 $lines(monsters6.txt) Level 6 Monsters.
}
on *:text:!m-lv6-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters6.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters6.txt
  }
}
;;LEVEL 7 --------------------------------------------------------------------
on *:text:!m-lv7-add *:#:{
  write monsters7.txt $2-
  msg # 12 $+ $2- has been added to the Level 7 Monsters list $nick $+ . May the free folk to come speak of thy heroism.
}
on *:text:!m-lv7:#:{
  msg $chan There are a total of12 $lines(monsters7.txt) Level 7 Monsters.
}
on *:text:!m-lv7-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters7.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters7.txt
  }
}
;;LEVEL 8 --------------------------------------------------------------------
on *:text:!m-lv8-add *:#:{
  write monsters8.txt $2-
  msg # 12 $+ $2- has been added to the Level 8 Monsters list $nick $+ . Thy place within history awaits thee.
}
on *:text:!m-lv8:#:{
  msg $chan There are a total of12 $lines(monsters8.txt) Level 8 Monsters.
}
on *:text:!m-lv8-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters8.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters8.txt
  }
}
;;LEVEL 9 --------------------------------------------------------------------
on *:text:!m-lv9-add *:#:{
  write monsters9.txt $2-
  msg # 12 $+ $2- has been added to the Level 9 Monsters list $nick $+ . The Holy Scriptures will proclaim thy divinity.
}
on *:text:!m-lv9:#:{
  msg $chan There are a total of12 $lines(monsters9.txt) Level 9 Monsters.
}
on *:text:!m-lv9-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters9.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters9.txt
  }
}
;;LEVEL 10 --------------------------------------------------------------------
on *:text:!m-lv10-add *:#:{
  write monsters10.txt $2-
  msg # 12 $+ $2- has been added to the Level 10 Monsters list $nick $+ .Now go!, once more unto the breach!.
}
on *:text:!m-lv10:#:{
  msg $chan There are a total of12 $lines(monsters10.txt) Level 10 Monsters.
}
on *:text:!m-lv10-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters10.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters10.txt
  }
}
;;LEVEL 11 --------------------------------------------------------------------
on *:text:!m-lv11-add *:#:{
  write monsters11.txt $2-
  msg # 12 $+ $2- has been added to the Level 11 Monsters list $nick $+ . May good fortune be upon thy quest where so many nobel warriors have failed before thee.
}
on *:text:!m-lv11:#:{
  msg $chan There are a total of12 $lines(monsters11.txt) Level 11 Monsters.
}
on *:text:!m-lv11-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters11.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters11.txt
  }
}
;;LEVEL 12 --------------------------------------------------------------------
on *:text:!m-lv12-add *:#:{
  write monsters12.txt $2-
  msg # 12 $+ $2- has been added to the Level 12 Monsters list $nick $+ . 4May all the Gods have mercy on thy soul!!
}
on *:text:!m-lv12:#:{
  msg $chan There are a total of12 $lines(monsters12.txt) Level 12 Monsters.
}
on *:text:!m-lv12-del *:#:{
  if ($2 isnum) {
    msg $chan $qt($read(monsters12.txt, n, $2)) was deleted!
    write -dl $+ $2 monsters12.txt
  }
}
;;CHECK MONSTERS --------------------------------------------------------------------
on *:text:!m-lv1 *:#:if ($2 isnum) msg $chan  $read(monsters.txt,$2) - Total Lv2 Monsters:12 $lines(monsters.txt)
on *:text:!m-lv2 *:#:if ($2 isnum) msg $chan  $read(monsters2.txt,$2) - Total Lv2 Monsters:12 $lines(monsters2.txt)
on *:text:!m-lv3 *:#:if ($2 isnum) msg $chan  $read(monsters3.txt,$2) - Total Lv3 Monsters:12 $lines(monsters3.txt)
on *:text:!m-lv4 *:#:if ($2 isnum) msg $chan  $read(monsters4.txt,$2) - Total Lv4 Monsters:12 $lines(monsters4.txt)
on *:text:!m-lv5 *:#:if ($2 isnum) msg $chan  $read(monsters5.txt,$2) - Total Lv5 Monsters:12 $lines(monsters5.txt)
on *:text:!m-lv6 *:#:if ($2 isnum) msg $chan  $read(monsters6.txt,$2) - Total Lv6 Monsters:12 $lines(monsters6.txt)
on *:text:!m-lv7 *:#:if ($2 isnum) msg $chan  $read(monsters7.txt,$2) - Total Lv7 Monsters:12 $lines(monsters7.txt)
on *:text:!m-lv8 *:#:if ($2 isnum) msg $chan  $read(monsters8.txt,$2) - Total Lv8 Monsters:12 $lines(monsters8.txt)
on *:text:!m-lv9 *:#:if ($2 isnum) msg $chan  $read(monsters9.txt,$2) - Total Lv9 Monsters:12 $lines(monsters9.txt)
on *:text:!m-lv10 *:#:if ($2 isnum) msg $chan  $read(monsters10.txt,$2) - Total Lv10 Monsters:12 $lines(monsters10.txt)
on *:text:!m-lv11 *:#:if ($2 isnum) msg $chan  $read(monsters11.txt,$2) - Total Lv11 Monsters:12 $lines(monsters11.txt)
on *:text:!m-lv12 *:#:if ($2 isnum) msg $chan  $read(monsters12.txt,$2) - Total Lv12 Monsters:12 $lines(monsters12.txt)
on *:text:!m-total:#:{
  msg $chan Total Enemy Strengh: ( Lv1:12 $lines(