Clearing Quest Globals

[trevius]

So, to make sure I understand this clearly, if I want to check for a certain global variable, I would use something like this:

if (defined($qglobals{max_level}) == 75)

?

[trevius]

Or maybe it should be:

if (defined($qglobals{max_level} == 75))

I guess I will need to test them both out when I get home and see which one works. Hopefully one of them does.

[Bulle]

No

You need just remember that $qglobals{max_level} is the replacement for $max_level.

So you could use :

if(defined($qglobals{max_level}))

to check that the variable is defined, in the same way you could have used if(defined($max_level))

Or you could use :

if($qglobals{max_level}) == 75)

to check if the variable is equal to 75 (after you have ensured it is defined !), in the same way you could have used if($max_level == 75)

If you want the safe solution in one "if" :

if(defined($qglobals{max_level}) && $qglobals{max_level} == 75)

With cascading "if"s :

if(!defined($qglobals{max_level}))
{ # Here you assume Max Level is 70 I guess
}
elsif($qglobals{max_level} == 71)
{ # Max Level is 71
}
elsif($qglobals{max_level} == 72)
{ # Max Level is 72
}
elsif($qglobals{max_level} == 73)
{ # Max Level is 73
}
elsif($qglobals{max_level} == 74)
{ # Max Level is 74
}
elsif($qglobals{max_level} == 75)
{ # Max Level is 75
}
else
{ # Damnit ! A super-hero !
}

Finally you can use a temporary variable (for a briefer notation), I just hope you won't get a warning in case the quest global is not defined, Perl's subtleties sometimes evade me :

$MaxLevel = $qglobals{max_level};
if(defined($MaxLevel) && $MaxLevel  == 75)

Notice how I propose a temporary variable different from max_level, to avoid any new weirdness

Note that to undefine a Perl variable I normally use this, instead of $XXX = undef :

undef($XXX);

I do not know whether both are equivalent. To delete a quest global from the DB the function to use is quest::delglobal as Gonner mentioned, which probably does NOT "undef" the associated variable. I have no idea whether the $qglobals map is updated at the same time, or only on next call to the script. This will have to be tested. it is the best way to know. In fact this should be tested for both delglobal and setglobal, and I hope they behave in a consistent way.

[Bulle]

I have made a few more tests with the following quest script. It is a bit long but it prints the variables at the start and end of the script :

my $LevelItemId = 1038; # Tattered Cloth Sandal
my $DefaultMaxLevel = 70;


sub EVENT_SAY
{ if(defined($maxxx_level))
  { print "maxxx_level($name) begin = $maxxx_level"; }
  else
  { print "maxxx_level($name) begin is not defined"; }
  
  if(defined($qglobals{maxxx_level}))
  { print "qglobals{maxxx_level}($name) begin = $qglobals{maxxx_level}"; }
  else
  { print "qglobals{maxxx_level}($name) begin is not defined"; }
  
  if(($text=~/65/i) && ($ulevel >= 70))
  { quest::say("Remember, DO NOT lose that trinket ! Welcome to level 65 !");
    quest::summonitem(1038);
    quest::level(65);
  }
  
  if($text=~/make me a newb/i)
  { quest::say("Arrr Arrr Arrr, my pleasure !");
    quest::level(1);
    quest::delglobal("maxxx_level"); undef($qglobals{maxxx_level});
  }
  if($text=~/make me level 73/i)
  { quest::say("OK, you're the boss after all *sigh*");
    quest::level(73);
    quest::setglobal("maxxx_level", 73, 5, "F"); $qglobals{maxxx_level} = 73;
  }
  if($text=~/make me level 75/i)
  { quest::say("OK, you're the boss after all *sigh*");
    quest::level(75);
    quest::setglobal("maxxx_level", 75, 5, "F"); $qglobals{maxxx_level} = 75;
  }

  if(defined($maxxx_level))
  { print "maxxx_level($name) end = $maxxx_level"; }
  else
  { print "maxxx_level($name) end is not defined"; }
  
  if(defined($qglobals{maxxx_level}))
  { print "qglobals{maxxx_level}($name) end = $qglobals{maxxx_level}"; }
  else
  { print "qglobals{maxxx_level}($name) end is not defined"; }
}


sub EVENT_ITEM
{ if(defined($maxxx_level))
  { print "maxxx_level($name) begin = $maxxx_level"; }
  else
  { print "maxxx_level($name) begin is not defined"; }
  
  if(defined($qglobals{maxxx_level}))
  { print "qglobals{maxxx_level}($name) begin = $qglobals{maxxx_level}"; }
  else
  { print "qglobals{maxxx_level}($name) begin is not defined"; }
  
  if(plugin::check_handin(\%itemcount, $LevelItemId => 1))
  { if(defined($qglobals{maxxx_level}))
    { quest::say("Welcome back to level $qglobals{maxxx_level}, $name");
      quest::level($qglobals{maxxx_level});
    }
    else
    { quest::say("Welcome back to level $DefaultMaxLevel, $name");
      quest::level($DefaultMaxLevel);
    }
  }
  else
  { plugin::return_items(\%itemcount);
    quest::say("I have no use for this item, $name.  Take it back.");
  } 

  if(defined($maxxx_level))
  { print "maxxx_level($name) end = $maxxx_level"; }
  else
  { print "maxxx_level($name) end is not defined"; }
  
  if(defined($qglobals{maxxx_level}))
  { print "qglobals{maxxx_level}($name) end = $qglobals{maxxx_level}"; }
  else
  { print "qglobals{maxxx_level}($name) end is not defined"; }
}

I have removed some level choices for simplicity.

Currently quest::...global do not update the $qglobals map to keep it in sync with DB changes done in the script so you have to update $qglobals explicitly.

As it is the script works fine : it updates the DB globals with quest::...global, and at the same time updates the $qglobals map for consistency, to keep them in sync.
If you code this way you can even re-read the $qglobals in the same sub, and it is consistent with what has been entered in the DB. It could be a nice "coding rule" for script writing. Best would be if the Emu server did that synchronization in quest::...global itself, I will have to look into that.

[trevius]

/bonks self

... Yeah, I see now. Sometimes the different ways people write things throws me off lol. I got it working perfectly so far. I think that should definitely do the trick. Thanks a ton, cause I was sick of having this issue so long lol.