View Single Post
  #3  
Old 09-23-2010, 11:30 PM
cylynex2
Sarnak
 
Join Date: Jul 2010
Posts: 36
Default

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");
	}
}
Reply With Quote