Made a small update to it, it works now. So do I not need to set qglobals for anything? I got the porting to work as well, I just have it commented out for now (was testing the return line).
Updated:
Code:
sub EVENT_SAY {
$inpoka = quest::GetInstanceID("akanon",0);
if ($text =~/hail/i) {
#quest::say ("hi");
if($inpoka == 0) {
$Instance = quest::CreateInstance("akanon", 0, 64800);
quest::AssignGroupToInstance($Instance);
quest::say("Instance added.");
quest::say("Your instance is: $Instance");
#quest::setglobal($name."akanon",$Instance,7,"H18");
#quest::setglobal($name."zone",$Instance,7,"H18");
#quest::MovePCInstance(55, $Instance, -77.2,50.7,1.9);
quest::say("I'd move you, but Cy has it commented out currently.");
} else {
$client->Message(13, "You are already in an instance, the ID which is $inpoka");
quest::say("If you wish to [return] to this instance, just say so!");
}
}
if ($text =~/return/i) {
quest::MovePCInstance(55, $inpoka, -77.2,50.7,1.9);
}
if ($text =~/clearme/i) {
quest::DestroyInstance(56);
quest::say("Clearing your instance stuff");
}
}