Vitali
Dalayan Master
This thread kinda died, but after reading it and some of the responses people had I thought to myself that the best way to get something most people want is if we at least try to take it upon ourselves to get the process moving. I've spent the last few day (3-5 maybe?) between my classes making this script.
In a nutshell this script works like this:
Urango Bladefist is an Orc (or some race) in Tur'Ruj. He can be spawned, stay spawned as a permanent NPC, or whatever in Tur'Ruj or maybe in Tears by the table. He functions similarly to the Logistician Zi'zi in Murk and Dreadlands. You will take your class tome 3 and 4's and turn them in to him. He will return some sort of Dull Rujik Coins. You can then turn those coins back in to him to get credit. You can hail him to see how much credit you have with him at any time after.
With that credit you can purchase your own class tome 3 and 4's ONLY. No other Opus(es?) Opii or whatever can be bought or traded. Currently it is set at trading in 2 tome for your own class 3 tome, and you need 4 other tomes in order to buy your class 4.
I feel this pricing is pretty fair, because the only way to get class 3 and 4 books are in Tur'Ruj and sometimes Spires. The each spawn once per week, meaning a possibility of MAYBE a dozen class tome drops, but usually far far less. This means at a most, if no tomes can be used from any of the mobs killed, three people could get a class 4.
Right now this script will not work. What I need in order to make this script truly work is this:
If I can get the information I need (listed above) I would gladly fill in the areas required with proper information, saving staff time to work on 2.5 and other things. Maybe in a PM or something, or an email. While the information itself wouldn't really be sensitive, I would take care only to put it in the script and send it to whomever I would need to. Knowing Tool of the Divine is actually item ID 352794 probably won't affect anything, but I will take care not to divulge the info to others if requested.
In a nutshell this script works like this:
Urango Bladefist is an Orc (or some race) in Tur'Ruj. He can be spawned, stay spawned as a permanent NPC, or whatever in Tur'Ruj or maybe in Tears by the table. He functions similarly to the Logistician Zi'zi in Murk and Dreadlands. You will take your class tome 3 and 4's and turn them in to him. He will return some sort of Dull Rujik Coins. You can then turn those coins back in to him to get credit. You can hail him to see how much credit you have with him at any time after.
With that credit you can purchase your own class tome 3 and 4's ONLY. No other Opus(es?) Opii or whatever can be bought or traded. Currently it is set at trading in 2 tome for your own class 3 tome, and you need 4 other tomes in order to buy your class 4.
I feel this pricing is pretty fair, because the only way to get class 3 and 4 books are in Tur'Ruj and sometimes Spires. The each spawn once per week, meaning a possibility of MAYBE a dozen class tome drops, but usually far far less. This means at a most, if no tomes can be used from any of the mobs killed, three people could get a class 4.
Right now this script will not work. What I need in order to make this script truly work is this:
- An NPC ID that is currently empty (To replace urango.qst with the proper NPC ID) [urango.qst is urango.txt in attached file because the .qst ending wasn't allowed]
- The proper item IDs for Class 3 and Class 4 tomes (to replace the text names I currently have in)
- A new item ID for item : A Dull Rujik Coin (I used 10001 in the script)
- Two blank quest flags (If they are actually used in a way like item IDs and NPC IDs). One for the flag for actually speaking to Urango Bladefist, and one to act as the currency calculator. I just used flag 100 and 101 for this.
If I can get the information I need (listed above) I would gladly fill in the areas required with proper information, saving staff time to work on 2.5 and other things. Maybe in a PM or something, or an email. While the information itself wouldn't really be sensitive, I would take care only to put it in the script and send it to whomever I would need to. Knowing Tool of the Divine is actually item ID 352794 probably won't affect anything, but I will take care not to divulge the info to others if requested.
Code:
EVENT_SAY {
## Intro speech
if($1- =~ "hail"){
say(I Urango Bladefist, best Orc. I slay and collect.);
dialog(What have you collected from this place?);
}
if($1- =~ "What have you collected"){
say(Weapons, armor, books... A strange coin stash. Slay many, take all.);
dialog(Books? You mean tomes? Are you willing to sell or trade them?);
}
if($1- =~ "sell or trade them"){
say(Your money is worthless to me. I will not take your shiny coins. What you trade?);
dialog(I have tomes I do not need. Maybe we could trade.);
}
if($1- =~ "Maybe we could trade"){
say(Me like books. Make Urango smart AND deadly. Yes, for each book I will give you dull coin from stash.);
setflag(100,1);
setflag(101,0);
dialog(I would like to trade these tomes.);
}
if($1- =~ "trade these tomes" && $flag(100) == 1){
say(Me will trade any your class specific books rank three or four, trade you one coin.);
dialog(I want to buy books from you with these coins.);
}
if($1- =~ "buy books from you" && $flag(100) == 1){
say(Me trade you one rank three book for three coins. Trade one rank four book for six coins.);
}
## Post Intro Hails
if($1- =~ "hail" && $flag(100) == 1){
say(You want book or coin?);
dialog(I want to buy books from you with these coins.);
dialog(I want to give you books for coins.);
dialog(How many credits do I have?);
}
if($1- =~ "buy books from you" && $flag(100) == 1){
say(Me trade you one rank three book for two coins. Trade one rank four book for four coins.);
dialog(Tell me what you have.);
}
if($1- =~ "give you books for coins" && $flag(100) == 1){
say(Me will trade any your class specific books rank three or four, trade you one coin.);
}
if($1- =~ "How many credits do I have" && $flag(100) == 1){
say(You have $calc($flag(101)) credits.);
}
## Turn In Coins
if($flag(100) == 1 && $itemcount(10001) > 0){
keepitem(10001,1);
increaseflag(101,1);
emote(puts the coins back into a satchel. 'Good good, yous now has $calc($flag(101) + 1) credits.');
continue();
}
## Turn In Tomes
## Bard Tomes
if($flag(100) == 1 && $itemcount(Blade Master 3) > 0{
keepitem(Blade Master 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Blade Master 4) > 0{
keepitem(Blade Master 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Crescendo 3) > 0{
keepitem(Crescendo 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Crescendo 4) > 0{
keepitem(Crescendo 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Quiet Reflection 3) > 0{
keepitem(Quiet Reflection 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Quiet Reflection 4) > 0{
keepitem(Quiet Reflection 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Beastlord Tomes
if($flag(100) == 1 && $itemcount(Frenzied Companion 3) > 0{
keepitem(Frenzied Companion 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Frenzied Companion 4) > 0{
keepitem(Frenzied Companion 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Empathic Warder 3) > 0{
keepitem(Empathic Warder 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Empathic Warder 4) > 0{
keepitem(Empathic Warder 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Beastlord Tome 3) > 0{
keepitem(Third Beastlord Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Beastlord Tome 4) > 0{
keepitem(Third Beastlord Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Cleric Tomes
if($flag(100) == 1 && $itemcount(Tool of the Divine 3) > 0{
keepitem(Tool of the Divine 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Tool of the Divine 4) > 0{
keepitem(Tool of the Divine 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Manual of Condemnation 3) > 0{
keepitem(Manual of Condemnation 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Manual of Condemnation 4) > 0{
keepitem(Manual of Condemnation 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Cleric Tome 3) > 0{
keepitem(Third Cleric Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Cleric Tome 4) > 0{
keepitem(Third Cleric Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Druid Tomes
if($flag(100) == 1 && $itemcount(Euphorbium Mastery 3) > 0{
keepitem(Euphorbium Mastery 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Euphorbium Mastery 4) > 0{
keepitem(Euphorbium Mastery 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Advanced Apiculture 3) > 0{
keepitem(Advanced Apiculture 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Advanced Apiculture 4) > 0{
keepitem(Advanced Apiculture 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Druid Tome 3) > 0{
keepitem(Third Druid Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Druid Tome 4) > 0{
keepitem(Third Druid Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Enchanter Tomes
if($flag(100) == 1 && $itemcount(Overpowering Calm 3) > 0{
keepitem(Overpowering Calm 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Overpowering Calm 4) > 0{
keepitem(Overpowering Calm 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Cascading Bond 3) > 0{
keepitem(Cascading Bond 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Cascading Bond 4) > 0{
keepitem(Cascading Bond 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Enchanter Tome 3) > 0{
keepitem(Third Enchanter Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Enchanter Tome 4) > 0{
keepitem(Third Enchanter Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Magician Tomes
if($flag(100) == 1 && $itemcount(Elemental Embodiment 3) > 0{
keepitem(Elemental Embodiment 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Elemental Embodiment 4) > 0{
keepitem(Elemental Embodiment 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Empowered Storm 3) > 0{
keepitem(Empowered Storm 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Empowered Storm 4) > 0{
keepitem(Empowered Storm 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Word of Power 3) > 0{
keepitem(Word of Power 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Word of Power 4) > 0{
keepitem(Word of Power 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Monk Tomes
if($flag(100) == 1 && $itemcount(Force of Body 3) > 0{
keepitem(Force of Body 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Force of Body 4) > 0{
keepitem(Force of Body 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Elemental Fists 3) > 0{
keepitem(Elemental Fists 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Elemental Fists 4) > 0{
keepitem(Elemental Fists 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Monk Tome 3) > 0{
keepitem(Third Monk Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Monk Tome 4) > 0{
keepitem(Third Monk Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Necromancer Tomes
if($flag(100) == 1 && $itemcount(Insidious Elements 3) > 0{
keepitem(Insidious Elements 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Insidious Elements 4) > 0{
keepitem(Insidious Elements 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Leeching Servant 3) > 0{
keepitem(Leeching Servant 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Leeching Servant 4) > 0{
keepitem(Leeching Servant 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Strands of Life 3) > 0{
keepitem(Strands of Life 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Strands of Life 4) > 0{
keepitem(Strands of Life 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Paladin Tomes
if($flag(100) == 1 && $itemcount(Holy Constitution 3) > 0{
keepitem(Holy Constitution 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Holy Constitution 4) > 0{
keepitem(Holy Constitution 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Tears of the Crusader 3) > 0{
keepitem(Tears of the Crusader 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Tears of the Crusader 4) > 0{
keepitem(Tears of the Crusader 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Divine Radiance 3) > 0{
keepitem(Divine Radiance 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Divine Radiance 4) > 0{
keepitem(Divine Radiance 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Ranger Tomes
if($flag(100) == 1 && $itemcount(Crippling Shot 3) > 0{
keepitem(Crippling Shot 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Crippling Shot 4) > 0{
keepitem(Crippling Shot 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Splitting Arrow 3) > 0{
keepitem(Splitting Arrow 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Splitting Arrow 4) > 0{
keepitem(Splitting Arrow 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Ranger Tome 3) > 0{
keepitem(Third Ranger Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Ranger Tome 4) > 0{
keepitem(Third Ranger Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Rogue Tomes
if($flag(100) == 1 && $itemcount(Insidious Stab 3) > 0{
keepitem(Insidious Stab 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Insidious Stab 4) > 0{
keepitem(Insidious Stab 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Periphery Dodging 3) > 0{
keepitem(Periphery Dodging 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Periphery Dodging 4) > 0{
keepitem(Periphery Dodging 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Sinister Revenge 3) > 0{
keepitem(Sinister Revenge 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Sinister Revenge 4) > 0{
keepitem(Sinister Revenge 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Shadowknight Tomes
if($flag(100) == 1 && $itemcount(Focused Hate 3) > 0{
keepitem(Focused Hate 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Focused Hate 4) > 0{
keepitem(Focused Hate 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Servant Training 3) > 0{
keepitem(Servant Training 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Servant Training 4) > 0{
keepitem(Servant Training 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Shadowknight Tome 3) > 0{
keepitem(Third Shadowknight Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Shadowknight Tome 4) > 0{
keepitem(Third Shadowknight Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Shaman Tomes
if($flag(100) == 1 && $itemcount(Tastes Like Chicken 3) > 0{
keepitem(Tastes Like Chicken 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Tastes Like Chicken 4) > 0{
keepitem(Tastes Like Chicken 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Blood Feast 3) > 0{
keepitem(Blood Feast 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Blood Feast 4) > 0{
keepitem(Blood Feast 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Blood Ritual 3) > 0{
keepitem(Blood Ritual 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Blood Ritual 4) > 0{
keepitem(Blood Ritual 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Warrior Tomes
if($flag(100) == 1 && $itemcount(Berserk 3) > 0{
keepitem(Berserk 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Berserk 4) > 0{
keepitem(Berserk 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Crippler 3) > 0{
keepitem(Crippler 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Crippler 4) > 0{
keepitem(Crippler 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Warrior Tome 3) > 0{
keepitem(Third Warrior Tome 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Third Warrior Tome 4) > 0{
keepitem(Third Warrior Tome 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Wizard Tomes
if($flag(100) == 1 && $itemcount(Forbidden Harvest 3) > 0{
keepitem(Forbidden Harvest 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Forbidden Harvest 4) > 0{
keepitem(Forbidden Harvest 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Elementary Evocation 3) > 0{
keepitem(Elementary Evocation 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Elementary Evocation 4) > 0{
keepitem(Elementary Evocation 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Ley Line Mastery 3) > 0{
keepitem(Ley Line Mastery 3,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
if($flag(100) == 1 && $itemcount(Ley Line Mastery 4) > 0{
keepitem(Ley Line Mastery 4,1);
summonitem(10001,1);
emote(throws the book into his stash, and tosses you a dull metal coin. 'Here you go.');
}
## Buy Tomes
## Bard Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 8){
say(For $class I have books of Blade Master's Rythem, Crescendo, and Quiet Reflection.);
dialog(I want Blade Master's Rythem.);
dialog(I want Crescendo.);
dialog(I want Quiet Reflection.);
}
if($1- =~ "I want Blade Master's Rythem" && $flag(100) == 1 && $uclass == 8){
say(I has volumes three and four. Which do yous wants?);
dialog(Blade Master's Rythem III.);
dialog(Blade Master's Rythem IV.);
}
if($1- =~ "Blade Master's Rythem III" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Blade Master's Rythem 3,1);
decreaseflag(101,2);
}
if($1- =~ "Blade Master's Rythem IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Blade Master's Rythem 4,1);
decreaseflag(101,4);
}
if($1- =~ "Blade Master's Rythem III" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Blade Master's Rythem IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Crescendo" && $flag(100) == 1 && $uclass == 8){
say(I has volumes three and four. Which do yous wants?);
dialog(Crescendo III.);
dialog(Crescendo IV.);
}
if($1- =~ "Crescendo III" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Crescendo 3,1);
decreaseflag(101,2);
}
if($1- =~ "Crescendo IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Crescendo 4,1);
decreaseflag(101,4);
}
if($1- =~ "Crescendo III" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Crescendo IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Quiet Reflection" && $flag(100) == 1 && $uclass == 8){
say(I has volumes three and four. Which do yous wants?);
dialog(Quiet Reflection III.);
dialog(Quiet Reflection IV.);
}
if($1- =~ "Quiet Reflection III" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Quiet Reflection 3,1);
decreaseflag(101,2);
}
if($1- =~ "Quiet Reflection IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Quiet Reflection 4,1);
decreaseflag(101,4);
}
if($1- =~ "Quiet Reflection III" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Quiet Reflection IV" && $flag(100) == 1 && $uclass == 8) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Beastlord Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 15){
say(For $class I have books of Frenzied Companion, Empathic Warder, and Third Beastlord Tome.);
dialog(I want Frenzied Companion.);
dialog(I want Empathic Warder.);
dialog(I want Third Beastlord Tome.);
}
if($1- =~ "I want Frenzied Companion" && $flag(100) == 1 && $uclass == 15){
say(I has volumes three and four. Which do yous wants?);
dialog(Frenzied Companion III.);
dialog(Frenzied Companion IV.);
}
if($1- =~ "Frenzied Companion III" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Frenzied Companion 3,1);
decreaseflag(101,2);
}
if($1- =~ "Frenzied Companion IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Frenzied Companion 4,1);
decreaseflag(101,4);
}
if($1- =~ "Frenzied Companion III" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Frenzied Companion IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Empathic Warder" && $flag(100) == 1 && $uclass == 15){
say(I has volumes three and four. Which do yous wants?);
dialog(Empathic Warder III.);
dialog(Empathic Warder IV.);
}
if($1- =~ "Empathic Warder III" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Empathic Warder 3,1);
decreaseflag(101,2);
}
if($1- =~ "Empathic Warder IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Empathic Warder 4,1);
decreaseflag(101,4);
}
if($1- =~ "Empathic Warder III" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Empathic Warder IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Beastlord Tome" && $flag(100) == 1 && $uclass == 15){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Beastlord Tome III.);
dialog(Third Beastlord Tome IV.);
}
if($1- =~ "Third Beastlord Tome III" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Beastlord Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Beastlord Tome IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Beastlord Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Beastlord Tome III" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Beastlord Tome IV" && $flag(100) == 1 && $uclass == 15) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Cleric Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 2){
say(For $class I have books of Tool of the Divine, Manual of Condemnation, and Third Cleric Tome.);
dialog(I want Tool of the Divine.);
dialog(I want Manual of Condemnation.);
dialog(I want Third Cleric Tome.);
}
if($1- =~ "I want Tool of the Divine" && $flag(100) == 1 && $uclass == 2){
say(I has volumes three and four. Which do yous wants?);
dialog(Tool of the Divine III.);
dialog(Tool of the Divine IV.);
}
if($1- =~ "Tool of the Divine III" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Tool of the Divine 3,1);
decreaseflag(101,2);
}
if($1- =~ "Tool of the Divine IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Tool of the Divine 4,1);
decreaseflag(101,4);
}
if($1- =~ "Tool of the Divine III" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Tool of the Divine IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Manual of Condemnation" && $flag(100) == 1 && $uclass == 2){
say(I has volumes three and four. Which do yous wants?);
dialog(Manual of Condemnation III.);
dialog(Manual of Condemnation IV.);
}
if($1- =~ "Manual of Condemnation III" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Manual of Condemnation 3,1);
decreaseflag(101,2);
}
if($1- =~ "Manual of Condemnation IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Manual of Condemnation 4,1);
decreaseflag(101,4);
}
if($1- =~ "Manual of Condemnation III" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Manual of Condemnation IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Cleric Tome" && $flag(100) == 1 && $uclass == 2){
say(I has volumes three and four. Which do yous wants?);
dialog(Ley Line Mastery III.);
dialog(Ley Line Mastery IV.);
}
if($1- =~ "Third Cleric Tome III" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Cleric Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Cleric Tome IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Cleric Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Cleric Tome III" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Cleric Tome IV" && $flag(100) == 1 && $uclass == 2) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Druid Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 6){
say(For $class I have books of Euphorbium Mastery, Advanced Apiculture, and Third Druid Tome.);
dialog(I want Euphorbium Mastery.);
dialog(I want Advanced Apiculture.);
dialog(I want Third Druid Tome.);
}
if($1- =~ "I want Euphorbium Mastery" && $flag(100) == 1 && $uclass == 6){
say(I has volumes three and four. Which do yous wants?);
dialog(Euphorbium Mastery III.);
dialog(Euphorbium Mastery IV.);
}
if($1- =~ "Euphorbium Mastery III" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Euphorbium Mastery 3,1);
decreaseflag(101,2);
}
if($1- =~ "Euphorbium Mastery IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Euphorbium Mastery 4,1);
decreaseflag(101,4);
}
if($1- =~ "Euphorbium Mastery III" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Euphorbium Mastery IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Advanced Apiculture" && $flag(100) == 1 && $uclass == 6){
say(I has volumes three and four. Which do yous wants?);
dialog(Advanced Apiculture III.);
dialog(Advanced Apiculture IV.);
}
if($1- =~ "Advanced Apiculture III" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Advanced Apiculture 3,1);
decreaseflag(101,2);
}
if($1- =~ "Advanced Apiculture IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Advanced Apiculture 4,1);
decreaseflag(101,4);
}
if($1- =~ "Advanced Apiculture III" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Advanced Apiculture IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Druid Tome" && $flag(100) == 1 && $uclass == 6){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Druid Tome III.);
dialog(Third Druid Tome IV.);
}
if($1- =~ "Third Druid Tome III" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Druid Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Druid Tome IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Druid Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Druid Tome III" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Druid Tome IV" && $flag(100) == 1 && $uclass == 6) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Enchanter Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 14){
say(For $class I have books of Overpowering Calm, Cascading Bond, and Third Enchanter Tome.);
dialog(I want Overpowering Calm.);
dialog(I want Cascading Bond.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Overpowering Calm" && $flag(100) == 1 && $uclass == 14){
say(I has volumes three and four. Which do yous wants?);
dialog(Overpowering Calm III.);
dialog(Overpowering Calm IV.);
}
if($1- =~ "Overpowering Calm III" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Overpowering Calm 3,1);
decreaseflag(101,2);
}
if($1- =~ "Overpowering Calm IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Overpowering Calm 4,1);
decreaseflag(101,4);
}
if($1- =~ "Overpowering Calm III" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Overpowering Calm IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Cascading Bond" && $flag(100) == 1 && $uclass == 14){
say(I has volumes three and four. Which do yous wants?);
dialog(Cascading Bond III.);
dialog(Cascading Bond IV.);
}
if($1- =~ "Cascading Bond III" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Cascading Bond 3,1);
decreaseflag(101,2);
}
if($1- =~ "Cascading Bond IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Cascading Bond 4,1);
decreaseflag(101,4);
}
if($1- =~ "Cascading Bond III" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Cascading Bond IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Enchanter Tome" && $flag(100) == 1 && $uclass == 14){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Enchanter Tome III.);
dialog(Third Enchanter Tome IV.);
}
if($1- =~ "Third Enchanter Tome III" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Enchanter Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Enchanter Tome IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Enchanter Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Enchanter Tome III" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Enchanter Tome IV" && $flag(100) == 1 && $uclass == 14) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Magician Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 13){
say(For $class I have books of Elemental Embodiment, Empowered Storm, and Word of Power.);
dialog(I want Elemental Embodiment.);
dialog(I want Empowered Storm.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Elemental Embodiment" && $flag(100) == 1 && $uclass == 13){
say(I has volumes three and four. Which do yous wants?);
dialog(Elemental Embodiment III.);
dialog(Elemental Embodiment IV.);
}
if($1- =~ "Elemental Embodiment III" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Elemental Embodiment 3,1);
decreaseflag(101,2);
}
if($1- =~ "Elemental Embodiment IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Elemental Embodiment 4,1);
decreaseflag(101,4);
}
if($1- =~ "Elemental Embodiment III" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Elemental Embodiment IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Empowered Storm" && $flag(100) == 1 && $uclass == 13){
say(I has volumes three and four. Which do yous wants?);
dialog(Empowered Storm III.);
dialog(Empowered Storm IV.);
}
if($1- =~ "Empowered Storm III" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Empowered Storm 3,1);
decreaseflag(101,2);
}
if($1- =~ "Empowered Storm IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Empowered Storm 4,1);
decreaseflag(101,4);
}
if($1- =~ "Empowered Storm III" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Empowered Storm IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Word of Power" && $flag(100) == 1 && $uclass == 13){
say(I has volumes three and four. Which do yous wants?);
dialog(Word of Power III.);
dialog(Word of Power IV.);
}
if($1- =~ "Word of Power III" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Word of Power 3,1);
decreaseflag(101,2);
}
if($1- =~ "Word of Power IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Word of Power 4,1);
decreaseflag(101,4);
}
if($1- =~ "Word of Power III" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Word of Power IV" && $flag(100) == 1 && $uclass == 13) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Monk Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 7){
say(For $class I have books of Force of Body, Elemental Fists, and Third Monk Tome.);
dialog(I want Force of Body.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Force of Body" && $flag(100) == 1 && $uclass == 7){
say(I has volumes three and four. Which do yous wants?);
dialog(Force of Body III.);
dialog(Force of Body IV.);
}
if($1- =~ "Force of Body III" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Force of Body 3,1);
decreaseflag(101,2);
}
if($1- =~ "Force of Body IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Force of Body 4,1);
decreaseflag(101,4);
}
if($1- =~ "Force of Body III" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Force of Body IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Elemental Fists" && $flag(100) == 1 && $uclass == 7){
say(I has volumes three and four. Which do yous wants?);
dialog(Elemental Fists III.);
dialog(Elemental Fists IV.);
}
if($1- =~ "Elemental Fists III" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Elemental Fists 3,1);
decreaseflag(101,2);
}
if($1- =~ "Elemental Fists IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Elemental Fists 4,1);
decreaseflag(101,4);
}
if($1- =~ "Elemental Fists III" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Elemental Fists IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Monk Tome" && $flag(100) == 1 && $uclass == 7){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Monk Tome III.);
dialog(Third Monk Tome IV.);
}
if($1- =~ "Third Monk Tome III" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Monk Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Monk Tome IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Monk Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Monk Tome III" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Monk Tome IV" && $flag(100) == 1 && $uclass == 7) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Necromancer Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 11){
say(For $class I have books of Insidious Elements, Leeching Servant, and Strands of Life.);
dialog(I want Insidious Elements.);
dialog(I want Leeching Servant.);
dialog(I want Strands of Life.);
}
if($1- =~ "I want Insidious Elements" && $flag(100) == 1 && $uclass == 11){
say(I has volumes three and four. Which do yous wants?);
dialog(Insidious Elements III.);
dialog(Insidious Elements IV.);
}
if($1- =~ "Insidious Elements III" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Insidious Elements 3,1);
decreaseflag(101,2);
}
if($1- =~ "Insidious Elements IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Insidious Elements 4,1);
decreaseflag(101,4);
}
if($1- =~ "Insidious Elements III" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Insidious Elements IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Leeching Servant" && $flag(100) == 1 && $uclass == 11){
say(I has volumes three and four. Which do yous wants?);
dialog(Leeching Servant III.);
dialog(Leeching Servant IV.);
}
if($1- =~ "Leeching Servant III" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Leeching Servant 3,1);
decreaseflag(101,2);
}
if($1- =~ "Leeching Servant IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Leeching Servant 4,1);
decreaseflag(101,4);
}
if($1- =~ "Leeching Servant III" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Leeching Servant IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Strands of Life" && $flag(100) == 1 && $uclass == 11){
say(I has volumes three and four. Which do yous wants?);
dialog(Strands of Life III.);
dialog(Strands of Life IV.);
}
if($1- =~ "Strands of Life III" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Strands of Life 3,1);
decreaseflag(101,2);
}
if($1- =~ "Strands of Life IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Strands of Life 4,1);
decreaseflag(101,4);
}
if($1- =~ "Strands of Life III" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Strands of Life IV" && $flag(100) == 1 && $uclass == 11) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Paladin Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 3){
say(For $class I have books of Holy Constitution, Tears of the Crusader, and Divine Radiance.);
dialog(I want Holy Constitution.);
dialog(I want Tears of the Crusader.);
dialog(I want Divine Radiance.);
}
if($1- =~ "I want Holy Constitution" && $flag(100) == 1 && $uclass == 3){
say(I has volumes three and four. Which do yous wants?);
dialog(Holy Constitution III.);
dialog(Holy Constitution IV.);
}
if($1- =~ "Holy Constitution III" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Holy Constitution 3,1);
decreaseflag(101,2);
}
if($1- =~ "Holy Constitution IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Holy Constitution 4,1);
decreaseflag(101,4);
}
if($1- =~ "Holy Constitution III" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Holy Constitution IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Tears of the Crusader" && $flag(100) == 1 && $uclass == 3){
say(I has volumes three and four. Which do yous wants?);
dialog(Tears of the Crusader III.);
dialog(Tears of the Crusader IV.);
}
if($1- =~ "Tears of the Crusader III" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Tears of the Crusader 3,1);
decreaseflag(101,2);
}
if($1- =~ "Tears of the Crusader IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Tears of the Crusader 4,1);
decreaseflag(101,4);
}
if($1- =~ "Tears of the Crusader III" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Tears of the Crusader IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Divine Radiance" && $flag(100) == 1 && $uclass == 3){
say(I has volumes three and four. Which do yous wants?);
dialog(Divine Radiance III.);
dialog(Divine Radiance IV.);
}
if($1- =~ "Divine Radiance III" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Divine Radiance 3,1);
decreaseflag(101,2);
}
if($1- =~ "Divine Radiance IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Divine Radiance 4,1);
decreaseflag(101,4);
}
if($1- =~ "Divine Radiance III" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Divine Radiance IV" && $flag(100) == 1 && $uclass == 3) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Ranger Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 4){
say(For $class I have books of Crippling Shot, Splitting Arrow, and Third Ranger Tome.);
dialog(I want Crippling Shot.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Crippling Shot" && $flag(100) == 1 && $uclass == 4){
say(I has volumes three and four. Which do yous wants?);
dialog(Crippling Shot III.);
dialog(Crippling Shot IV.);
}
if($1- =~ "Crippling Shot III" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Crippling Shot 3,1);
decreaseflag(101,2);
}
if($1- =~ "Crippling Shot IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Crippling Shot 4,1);
decreaseflag(101,4);
}
if($1- =~ "Crippling Shot III" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Crippling Shot IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Splitting Arrow" && $flag(100) == 1 && $uclass == 4){
say(I has volumes three and four. Which do yous wants?);
dialog(Splitting Arrow III.);
dialog(Splitting Arrow IV.);
}
if($1- =~ "Splitting Arrow III" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Splitting Arrow 3,1);
decreaseflag(101,2);
}
if($1- =~ "Splitting Arrow IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Splitting Arrow 4,1);
decreaseflag(101,4);
}
if($1- =~ "Splitting Arrow III" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Splitting Arrow IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Ranger Tome" && $flag(100) == 1 && $uclass == 4){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Ranger Tome III.);
dialog(Third Ranger Tome IV.);
}
if($1- =~ "Third Ranger Tome III" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Ranger Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Ranger Tome IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Ranger Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Ranger Tome III" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Ranger Tome IV" && $flag(100) == 1 && $uclass == 4) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Rogue Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 9){
say(For $class I have books of Insidious Stab, Periphery Dodging, and Sinister Revenge.);
dialog(I want Insidious Stab.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Insidious Stab" && $flag(100) == 1 && $uclass == 9){
say(I has volumes three and four. Which do yous wants?);
dialog(Insidious Stab III.);
dialog(Insidious Stab IV.);
}
if($1- =~ "Insidious Stab III" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Insidious Stab 3,1);
decreaseflag(101,2);
}
if($1- =~ "Insidious Stab IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Insidious Stab 4,1);
decreaseflag(101,4);
}
if($1- =~ "Insidious Stab III" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Insidious Stab IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Periphery Dodging" && $flag(100) == 1 && $uclass == 9){
say(I has volumes three and four. Which do yous wants?);
dialog(Periphery Dodging III.);
dialog(Periphery Dodging IV.);
}
if($1- =~ "Periphery Dodging III" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Periphery Dodging 3,1);
decreaseflag(101,2);
}
if($1- =~ "Periphery Dodging IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Periphery Dodging 4,1);
decreaseflag(101,4);
}
if($1- =~ "Periphery Dodging III" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Periphery Dodging IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Sinister Revenge" && $flag(100) == 1 && $uclass == 9){
say(I has volumes three and four. Which do yous wants?);
dialog(Sinister Revenge III.);
dialog(Sinister Revenge IV.);
}
if($1- =~ "Sinister Revenge III" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Sinister Revenge 3,1);
decreaseflag(101,2);
}
if($1- =~ "Sinister Revenge IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Sinister Revenge 4,1);
decreaseflag(101,4);
}
if($1- =~ "Sinister Revenge III" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Sinister Revenge IV" && $flag(100) == 1 && $uclass == 9) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Shadowknight Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 5){
say(For $class I have books of Focused Hate, Servant Training, and Third Shadowknight Tome.);
dialog(I want Focused Hate.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Focused Hate" && $flag(100) == 1 && $uclass == 5){
say(I has volumes three and four. Which do yous wants?);
dialog(Focused Hate III.);
dialog(Focused Hate IV.);
}
if($1- =~ "Focused Hate III" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Focused Hate 3,1);
decreaseflag(101,2);
}
if($1- =~ "Focused Hate IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Focused Hate 4,1);
decreaseflag(101,4);
}
if($1- =~ "Focused Hate III" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Focused Hate IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Servant Training" && $flag(100) == 1 && $uclass == 5){
say(I has volumes three and four. Which do yous wants?);
dialog(Servant Training III.);
dialog(Servant Training IV.);
}
if($1- =~ "Servant Training III" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Servant Training 3,1);
decreaseflag(101,2);
}
if($1- =~ "Servant Training IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Servant Training 4,1);
decreaseflag(101,4);
}
if($1- =~ "Servant Training III" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Servant Training IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Shadowknight Tome" && $flag(100) == 1 && $uclass == 5){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Shadowknight Tome III.);
dialog(Third Shadowknight Tome IV.);
}
if($1- =~ "Third Shadowknight Tome III" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Shadowknight Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Shadowknight Tome IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Shadowknight Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Shadowknight Tome III" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Shadowknight Tome IV" && $flag(100) == 1 && $uclass == 5) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Shaman
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 10){
say(For $class I have books of Tastes Like Chicken, Blood Feast, and Blood Ritual.);
dialog(I want Tastes Like Chicken.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Tastes Like Chicken" && $flag(100) == 1 && $uclass == 10){
say(I has volumes three and four. Which do yous wants?);
dialog(Tastes Like Chicken III.);
dialog(Tastes Like Chicken IV.);
}
if($1- =~ "Tastes Like Chicken III" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Tastes Like Chicken 3,1);
decreaseflag(101,2);
}
if($1- =~ "Tastes Like Chicken IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Tastes Like Chicken 4,1);
decreaseflag(101,4);
}
if($1- =~ "Tastes Like Chicken III" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Tastes Like Chicken IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Blood Feast" && $flag(100) == 1 && $uclass == 10){
say(I has volumes three and four. Which do yous wants?);
dialog(Blood Feast III.);
dialog(Blood Feast IV.);
}
if($1- =~ "Blood Feast III" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Blood Feast 3,1);
decreaseflag(101,2);
}
if($1- =~ "Blood Feast IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Blood Feast 4,1);
decreaseflag(101,4);
}
if($1- =~ "Blood Feast III" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Blood Feast IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Blood Ritual" && $flag(100) == 1 && $uclass == 10){
say(I has volumes three and four. Which do yous wants?);
dialog(Blood Ritual III.);
dialog(Blood Ritual IV.);
}
if($1- =~ "Blood Ritual III" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Blood Ritual 3,1);
decreaseflag(101,2);
}
if($1- =~ "Blood Ritual IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Blood Ritual 4,1);
decreaseflag(101,4);
}
if($1- =~ "Blood Ritual III" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Blood Ritual IV" && $flag(100) == 1 && $uclass == 10) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Warrior
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 1){
say(For $class I have books of Berserk, Crippler, and Third Warrior Tome.);
dialog(I want Berserk.);
dialog(I want Crippler.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Berserk" && $flag(100) == 1 && $uclass == 1){
say(I has volumes three and four. Which do yous wants?);
dialog(Berserk III.);
dialog(Berserk IV.);
}
if($1- =~ "Berserk III" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Berserk 3,1);
decreaseflag(101,2);
}
if($1- =~ "Berserk IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Berserk 4,1);
decreaseflag(101,4);
}
if($1- =~ "Berserk III" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Berserk IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Crippler" && $flag(100) == 1 && $uclass == 1){
say(I has volumes three and four. Which do yous wants?);
dialog(Crippler III.);
dialog(Crippler IV.);
}
if($1- =~ "Crippler III" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Crippler 3,1);
decreaseflag(101,2);
}
if($1- =~ "Crippler IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Crippler 4,1);
decreaseflag(101,4);
}
if($1- =~ "Crippler III" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Crippler IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Third Warrior Tome" && $flag(100) == 1 && $uclass == 1){
say(I has volumes three and four. Which do yous wants?);
dialog(Third Warrior Tome III.);
dialog(Third Warrior Tome IV.);
}
if($1- =~ "Third Warrior Tome III" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Third Warrior Tome 3,1);
decreaseflag(101,2);
}
if($1- =~ "Third Warrior Tome IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Third Warrior Tome 4,1);
decreaseflag(101,4);
}
if($1- =~ "Third Warrior Tome III" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Third Warrior Tome IV" && $flag(100) == 1 && $uclass == 1) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
## Wizard Tomes
if($1- =~ "Tell me what you have" && $flag(100) == 1 && $uclass == 12){
say(For $class I have books of Forbidden Harvest, Elementary Evocation, and Ley Line Mastery.);
dialog(I want Forbidden Harvest.);
dialog(I want Elementary Evocation.);
dialog(I want Ley Line Mastery.);
}
if($1- =~ "I want Forbidden Harvest" && $flag(100) == 1 && $uclass == 12){
say(I has volumes three and four. Which do yous wants?);
dialog(Forbidden Harvest III.);
dialog(Forbidden Harvest IV.);
}
if($1- =~ "Forbidden Harvest III" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Forbidden Harvest 3,1);
decreaseflag(101,2);
}
if($1- =~ "Forbidden Harvest IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Forbidden Harvest 4,1);
decreaseflag(101,4);
}
if($1- =~ "Forbidden Harvest III" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Forbidden Harvest IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Elementary Evocation" && $flag(100) == 1 && $uclass == 12){
say(I has volumes three and four. Which do yous wants?);
dialog(Elementary Evocation III.);
dialog(Elementary Evocation IV.);
}
if($1- =~ "Elementary Evocation III" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Elementary Evocation 3,1);
decreaseflag(101,2);
}
if($1- =~ "Elementary Evocation IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Elementary Evocation 4,1);
decreaseflag(101,4);
}
if($1- =~ "Elementary Evocation III" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Elementary Evocation IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
if($1- =~ "I want Ley Line Mastery" && $flag(100) == 1 && $uclass == 12){
say(I has volumes three and four. Which do yous wants?);
dialog(Ley Line Mastery III.);
dialog(Ley Line Mastery IV.);
}
if($1- =~ "Ley Line Mastery III" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 1{
say(Here yous goes?);
summonitem(Ley Line Mastery 3,1);
decreaseflag(101,2);
}
if($1- =~ "Ley Line Mastery IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) > 3{
say(Here yous goes?);
summonitem(Ley Line Mastery 4,1);
decreaseflag(101,4);
}
if($1- =~ "Ley Line Mastery III" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 1{
say(You don't have 'nough dull coins.);
}
if($1- =~ "Ley Line Mastery IV" && $flag(100) == 1 && $uclass == 12) && $flag(101) < 3{
say(You don't have 'nough dull coins.);
}
Last edited:
