Okay, I added a check at the start to see if the items are still saved in the merchantlist_temp.
Qglobals are a heap of fun!
Also, does anyone know how/if I would be able to save user input strings to qglobals, or set is to a var?
I want an NPC to ask a question, and save/use the users $text response.
Anyway, new code:
Code:
#############################################################
# Programmable Auto-Updating Merchant #
# This quest allows you to have a merchant whose selling #
# items change based on a timer. You set up a blank vendor.#
# All the items are stored in the merchantlist_temp table. #
# The shouts were mainly for testing, but they would be #
# useful anyway. --kilst87 #
#############################################################
sub EVENT_SPAWN {
if (!defined $qglobal{vaylena_items}) {
if($qglobals{"vaylena_items"} == 1) {
quest::settimer("spawned_1", 2);
quest::resume(238);
}
elsif($qglobals{"vaylena_items"} == 2) {
quest::settimer("spawned_2", 2);
quest::resume(238);
}
elsif($qglobals{"vaylena_items"} == 3) {
quest::settimer("spawned_3", 2);
quest::resume(238);
}
}
#Set timers to delete remembered items
if (not defined $qglobal{vaylena_items}) {
quest::setglobal('vaylena_items', 0, 6, F);
quest::settimer("random_loot_timer", 5);
}
#sets qglobal if not set
}
sub EVENT_TIMER{
my $randi = int(rand(3));
#sets $randi with a random number between 0 and 2 to decide what to sell
my $shout = int(rand(10) + 20);
#set $shout with a number between 3 and 4 mins between item shouts
if($timer eq "spawned_1") {
quest::MerchantSetItem(999219, 1111, 0);
quest::MerchantSetItem(999219, 1112, 0);
quest::MerchantSetItem(999219, 1113, 0);
quest::MerchantSetItem(999219, 1114, 0);
quest::shout("Spawned!1");
quest::stoptimer("spawned_1");
quest::settimer("random_loot_timer", 5);
#deletes any saved items, starts next timer
}
if($timer eq "spawned_2") {
quest::MerchantSetItem(999219, 2111, 0);
quest::MerchantSetItem(999219, 2112, 0);
quest::MerchantSetItem(999219, 2113, 0);
quest::MerchantSetItem(999219, 2114, 0);
quest::shout("Spawned!2");
quest::stoptimer("spawned_2");
quest::settimer("random_loot_timer", 5);
#deletes any saved items, starts next timer
}
if($timer eq "spawned_3") {
quest::MerchantSetItem(999219, 3053, 0);
quest::MerchantSetItem(999219, 3054, 0);
quest::MerchantSetItem(999219, 3055, 0);
quest::MerchantSetItem(999219, 3056, 0);
quest::MerchantSetItem(999219, 3057, 0);
quest::MerchantSetItem(999219, 3058, 0);
quest::MerchantSetItem(999219, 3059, 0);
quest::MerchantSetItem(999219, 3060, 0);
quest::MerchantSetItem(999219, 3061, 0);
quest::MerchantSetItem(999219, 3062, 0);
quest::MerchantSetItem(999219, 3063, 0);
quest::MerchantSetItem(999219, 3064, 0);
quest::shout("Spawned!3");
quest::stoptimer("spawned_3");
quest::settimer("random_loot_timer", 5);
#deletes any saved items, starts next timer
}
if($randi == 1) {
if($timer eq "random_loot_timer"){
quest::MerchantSetItem(999219, 1111, 10000);
quest::MerchantSetItem(999219, 1112, 10000);
quest::MerchantSetItem(999219, 1113, 10000);
quest::MerchantSetItem(999219, 1114, 10000);
quest::shout("New crap items up!");
quest::stoptimer("random_loot_timer");
quest::settimer("itemgroup_1", 40);
quest::settimer("itemgroup_1_shout", $shout);
quest::setglobal('vaylena_items', 1, 6, F);
#post items, start shout and respawn timer, and save list to globals
}
elsif($timer eq "itemgroup_1_shout") {
quest::ze(2, "Vaylena says out of character 'Please buy my crap armor!!'")
#zonewide emote used as /ooc
}
elsif($timer eq "itemgroup_1") {
quest::respawn(999219,0);
quest::stoptimer(itemgroup_1);
#respawn when timer is up
}
}
elsif($randi == 0) {
if($timer eq "random_loot_timer"){
quest::MerchantSetItem(999219, 2111, 10000);
quest::MerchantSetItem(999219, 2112, 10000);
quest::MerchantSetItem(999219, 2113, 10000);
quest::MerchantSetItem(999219, 2114, 10000);
quest::shout("New trader selling all kinds of stuff");
quest::stoptimer("random_loot_timer");
quest::settimer("itemgroup_2", 40);
quest::settimer("itemgroup_2_shout", $shout);
quest::setglobal('vaylena_items', 2, 6, F);
#post items, start shout and respawn timer, and save list to globals
}
elsif($timer eq "itemgroup_2_shout") {
quest::ze(2, "Vaylena says out of character 'Selling all kinds of armor, check me out!!'")
#zonewide emote used as /ooc
}
elsif($timer eq "itemgroup_2") {
quest::respawn(999219,0);
quest::stoptimer(itemgroup_2);
#respawn when timer is up
}
}
elsif($randi == 2) {
if($timer eq "random_loot_timer"){
quest::MerchantSetItem(999219, 3053, 10000);
quest::MerchantSetItem(999219, 3054, 10000);
quest::MerchantSetItem(999219, 3055, 10000);
quest::MerchantSetItem(999219, 3056, 10000);
quest::MerchantSetItem(999219, 3057, 10000);
quest::MerchantSetItem(999219, 3058, 10000);
quest::MerchantSetItem(999219, 3059, 10000);
quest::MerchantSetItem(999219, 3060, 10000);
quest::MerchantSetItem(999219, 3061, 10000);
quest::MerchantSetItem(999219, 3062, 10000);
quest::MerchantSetItem(999219, 3063, 10000);
quest::MerchantSetItem(999219, 3064, 10000);
quest::shout("Leveling blacksmith selling Banded armor cheap");
quest::stoptimer("random_loot_timer");
quest::settimer("itemgroup_3", 40);
quest::settimer("itemgroup_3_shout", $shout);
quest::setglobal('vaylena_items', 3, 6, F);
#post items, start shout and respawn timer, and save list to globals
}
elsif($timer eq "itemgroup_3_shout") {
quest::ze(2, "Vaylena says out of character 'Selling armor!! Please buy my BANDED!!!'")
#zonewide emote used as /ooc
}
elsif($timer eq "itemgroup_3") {
quest::respawn(999219,0);
quest::stoptimer(itemgroup_3);
#respawn when timer is up
}
}
}
Any input still welcome.
Cheers
Edited for newest revision.
|