[joligario]

However, you can set the value before hand like this:

sub EVENT_SAY {
  if ($text=~/set/i) {
    $test_value = 5;
    $test_global = "glob_test$test_value";
    quest::setglobal($test_global,1,5,"M1");
    quest::say("Global set.");
  }
  if ($text=~/get/i) {
    $glob_value = $qglobals{$test_global};
    quest::say("The global $test_global has a value of $glob_value");
  }
}