Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Q&A
Reload this Page Tradeskill Bot

Quests::Q&A This is the quest support section

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 11-28-2014, 10:25 PM
Nibiuno
Hill Giant
  
Join Date: Mar 2010
Posts: 101
Default Tradeskill Bot
Anyone have any idea why this script isnt working when the NPC is given 5000pp? It just eats the money and doesnt do anything

Code:
sub EVENT_SAY 
{
	my $tradeskills = quest::saylink("tradeskills");
	my $repick = quest::saylink("repick");
	my $alchemy = quest::saylink("alchemy");
	my $baking = quest::saylink("baking");
	my $brewing = quest::saylink("brewing");
	my $fishing = quest::saylink("fishing");
	my $fletching = quest::saylink("fletching");
	my $jewelcraft = quest::saylink("jewelcraft");
	my $poisons = quest::saylink("poisons");
	my $pottery = quest::saylink("pottery");
	my $smithing = quest::saylink("smithing");
	my $research = quest::saylink("research");
	my $tailoring = quest::saylink("tailoring");
	my $tinkering = quest::saylink("tinkering");
	if($text=~/Hail/i) {
		quest::say("Greetings $name. Would you like to learn some [$tradeskills]?"); 
	}

	if($text=~/tradeskills/i && !defined $qglobals{"tsm_alchemy"} && !defined $qglobals{"tsm_baking"} && !defined $qglobals{"tsm_brewing"} && !defined $qglobals{"tsm_fishing"} && !defined $qglobals{"tsm_fletching"} && !defined $qglobals{"tsm_jewelcraft"} && !defined $qglobals{"tsm_poisons"}  && !defined $qglobals{"tsm_pottery"} && !defined $qglobals{"tsm_smithing"} && !defined $qglobals{"tsm_research"} && !defined $qglobals{"tsm_tailoring"} && !defined $qglobals{"tsm_tinkering"}){
		quest::say("I will train you in a tradeskill for 5000pp each.  Simply say the tradekill you want to learn and then hand me 5000pp.  Would you like to learn [$alchemy], [$baking], [$brewing], [$fishing], [$fletching], [$jewelcraft], [$poisons], [$pottery], [$smithing], [$research], [$tailoring] or [$tinkering]?");
	} elsif($text=~/tradeskills/i) {
		quest::say("I believe you owe me some money for the last request you made.  Would you like to [$repick] the tradeskill you wish to learn?");
	}
	if($text=~/repick/i) {
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
		quest::say("I can once again train your [$tradeskills].");
	}
	if($text=~/alchemy/i && !defined $qglobals{"tsm_alchemy"}) {
		quest::say("Give me 5000pp and I will train you in alchemy.");
		quest::setglobal("tsm_alchemy", 1, 5, "F");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/baking/i && !defined $qglobals{"tsm_baking"}) {
		quest::say("Give me 5000pp and I will train you in baking.");
		quest::setglobal("tsm_baking", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/brewing/i && !defined $qglobals{"tsm_brewing"}) {
		quest::say("Give me 5000pp and I will train you in brewing.");
		quest::setglobal("tsm_brewing", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/fishing/i && !defined $qglobals{"tsm_fishing"}) {
		quest::say("Give me 5000pp and I will train you in fishing.");
		quest::setglobal("tsm_fishing", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/fletching/i && !defined $qglobals{"tsm_fletching"}) {
		quest::say("Give me 5000pp and I will train you in fletching.");
		quest::setglobal("tsm_fletching", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/jewelcraft/i && !defined $qglobals{"tsm_jewelecraft"}) {
		quest::say("Give me 5000pp and I will train you in jewelcraft.");
		quest::setglobal("tsm_jewelcraft", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/poisons/i && !defined $qglobals{"tsm_poisons"}){
		quest::say("Give me 5000pp and I will train you in making poisons.");
		quest::setglobal("tsm_poisons", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/pottery/i && !defined $qglobals{"tsm_pottery"}) {
		quest::say("Give me 5000pp and I will train you in pottery.");
		quest::setglobal("tsm_pottery", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/smithing/i && !defined $qglobals{"tsm_smithing"}) {
		quest::say("Give me 5000pp and I will train you in smithing.");
		quest::setglobal("tsm_smithing", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/research/i && !defined $qglobals{"tsm_research"}) {
		quest::say("Give me 5000pp and I will train you in researching spells.");
		quest::setglobal("tsm_research", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_tailoring");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/tailoring/i && !defined $qglobals{"tsm_tailoring"}) {
		quest::say("Give me 5000pp and I will train you in tailoring.");
		quest::setglobal("tsm_tailoring", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tinkering");
	}
	if($text=~/tinkering/i && !defined $qglobals{"tsm_tinkering"}) {
		quest::say("Give me 5000pp and I will train you in tinkering.");
		quest::setglobal("tsm_tinkering", 1, 5, "F");
		quest::delglobal("tsm_alchemy");
		quest::delglobal("tsm_baking");
		quest::delglobal("tsm_brewing");
		quest::delglobal("tsm_fishing");
		quest::delglobal("tsm_fletching");
		quest::delglobal("tsm_jewelcraft");
		quest::delglobal("tsm_poisons");
		quest::delglobal("tsm_pottery");
		quest::delglobal("tsm_smithing");
		quest::delglobal("tsm_research");
		quest::delglobal("tsm_tailoring");
	}

    if($platinum == 5000) {
		if(defined $qglobals{"tsm_alchemy"}) {
			quest::setskill(59,400);
			quest::delglobal("tsm_alchemy");
			quest::say("You are now an expert at alchemy.");
		} elsif(defined $qglobals{"tsm_baking"}) {
			quest::setskill(60,400);
			quest::delglobal("tsm_baking");
			quest::say("You are now an expert at baking.");	
		} elsif(defined $qglobals{"tsm_brewing"}) {
			quest::setskill(65,400);
			quest::delglobal("tsm_brewing");
			quest::say("You are now an expert at brewing.");	
		} elsif(defined $qglobals{"tsm_fishing"}) {
			quest::setskill(55,400);
			quest::delglobal("tsm_fishing");
			quest::say("You are now an expert at fishing.");	
		} elsif(defined $qglobals{"tsm_fletching"}) {
			quest::setskill(64,400);
			quest::delglobal("tsm_fletching");
			quest::say("You are now an expert at fletching.");	
		} elsif(defined $qglobals{"tsm_jewelcraft"}) {
			quest::setskill(68,400);
			quest::delglobal("tsm_jewelcraft");
			quest::say("You are now an expert at jewelcraft.");	
		} elsif(defined $qglobals{"tsm_poisons"}) {
			quest::setskill(56,400);
			quest::delglobal("tsm_poisons");
			quest::say("You are now an expert at poisons.");	
		} elsif(defined $qglobals{"tsm_pottery"}) {
			quest::setskill(69,400);
			quest::delglobal("tsm_pottery");
			quest::say("You are now an expert at pottery.");	
		} elsif(defined $qglobals{"tsm_smithing"}) {
			quest::setskill(63,400);
			quest::delglobal("tsm_smithing");
			quest::say("You are now an expert at smithing.");	
		} elsif(defined $qglobals{"tsm_research"}) {
			quest::setskill(58,400);
			quest::delglobal("tsm_research");
			quest::say("You are now an expert at research.");	
		} elsif(defined $qglobals{"tsm_tailoring"}) {
			quest::setskill(61,400);
			quest::delglobal("tsm_tailoring");
			quest::say("You are now an expert at tailoring.");	
		} elsif(defined $qglobals{"tsm_tinkering"}) {
			quest::setskill(57,400);
			quest::delglobal("tsm_tinkering");
			quest::say("You are now an expert at tinkering.");	
		} else {
			quest::say("Sorry this did not work");
		}
	}
}
Reply With Quote
 

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

   

All times are GMT -4. The time now is 01:25 PM.

EQEmulator - Archive - Top

 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3