Hi ! I would like to ask if is it possible to have an array of Instance names (.@instance_name$)??
For example :
//prontera,155,181,5 script Guild Instance Officer 418,{
moc_para01,52,32,4 script Guild Instance Officer 418,{
.@InstanceCooldown = 28800;
.@name$ = "["+strnpcinfo(0)+"]";
setarray .@instance_name$[0] = "gld_dun01","gld_dun02","gld_dun03","gld_dun04";
//if (!is_party_leader()) { mes .@name$; mes "You must be a party leader"; end;};
mes .@name$;
mes "Today's featured instance guild dungeon is [^000088"+.@instance_name$+"^000000]!";
mes "What would you like to do?";
next;
switch(select( "~ ^FF6900Create Instance^000000 -> 1,000,000 Z",
"~ ^000088Enter Instance^000000 [^777777"+.@instance_name$+"^000000] -> 200,000 Z",
"~ ^FF0000Destroy Current Instance^000000")) {
case 1:
if (#CD > gettimetick(2)) {
mes .@name$;
mes "You can create new instance after " + Time2Str(CD) + ".";
end;
}
if (!is_party_leader()) { mes .@name$; mes "Only party leader can create an instance."; end;};
if (instance_picker > 0) {
mes .@name$;
mes "You have already created one. Kindly destroy instance before getting new one.";
end;
}
callsub(OnCheckZenyCreate);
#CD = gettimetick(2) + .@InstanceCooldown;
instance_create(.@instance_name$, IM_PARTY);
instance_picker = 1;
specialeffect2 75;
break;
case 2:
mes .@name$;
mes "^FF0000Please note that Token of^000000";
mes "^FF0000Siegfried, Kafra Card^000000";
mes "^FF0000infinite fly wing and any teleport^000000";
mes "^FF0000skills are not allowed inside.^000000";
next;
mes .@name$;
mes "Ah! I almost Forgot, all guild";
mes "dungeons have two Bow and Sword Guardians.";
next;
if (select("Enter now","Cancel")==2) end;
if ((countitem(40036) || countitem(12887) || countitem(40014) || countitem(12323) || countitem(40028) || countitem(6293) || countitem(40114) || countitem(12211) || countitem(40114) || countitem(40029) || countitem(13602) || countitem(14211) || countitem(13603) || countitem(14212) || countitem(12909) || countitem(14165) || countitem(7621) || countitem(13601) || countitem(14210) || countitem(13600) || countitem(14209) || countitem(12922) || countitem(14178)) > 0 ) {
mes .@name$;
mes "Kafra Card, Token of Siegfried or Flywing item or boxes on your inventory.";
end;
}
switch(instance_enter(.@instance_name$)) {
case IE_NOMEMBER:
mes .@name$;
mes "ERROR: Party not found.";
break;
case IE_NOINSTANCE:
mes .@name$;
mes "ERROR: Party does not have an instance.";
break;
case IE_OTHER:
mes .@name$;
mes "ERROR: Unknown error.";
break;
default:
callsub(OnCheckZenyEntry);
#CD = gettimetick(2) + .@InstanceCooldown;
//announce "Player ["+strcharinfo(0)+"] has entered Guild Dungeon ["+.@instance_name$+"]!",BC_ALL;
break;
}
break;
case 3:
if (instance_picker <= 0) {
mes .@name$;
mes "No current instance available to destroy.";
end;
}
mes .@name$;
mes "Are you sure you want to destroy ["+.@instance_name$+"] instance?";
switch (select("I'm 100% sure!","No, cancel it!")) {
case 1:
dispbottom "["+.@instance_name$+"] instance has been destroyed.";
instance_destroy(instance_id(IM_PARTY));
specialeffect2 677;
instance_picker = 0;
break;
case 2:
end;
}
}
close;
OnCheckZenyCreate:
.@name$ = "["+strnpcinfo(0)+"]";
if (Zeny < 1000000) {
mes .@name$;
mes "You don't have enough zeny to enter this instance.";
end;
}
Zeny -= 1000000;
return;
OnCheckZenyEntry:
.@name$ = "["+strnpcinfo(0)+"]";
if (Zeny < 200000) {
mes .@name$;
mes "You don't have enough zeny to enter this instance.";
end;
}
Zeny -= 200000;
return;
//OnPCLogoutEvent:
//OnPCLoginEvent:
//OnPCDieEvent:
//if (!IE_NOINSTANCE) end;
//if (strcharinfo(3) != "gld_dun01" || strcharinfo(3) != "gld_dun02" || strcharinfo(3) != "gld_dun03" || strcharinfo(3) != "gld_dun04" || strcharinfo(3) != "schg_dun01" || strcharinfo(3) != "arug_dun01") end;
//instance_announce('instance_id,"A party member has died! You have 5 minutes to resurect or the instance will be destroyed.",0);
//instance_destroy(instance_id(IM_PARTY));
//instance_picker = 0;
//end;
}
If yes, how does the NPC recognize your chosen instance after creating instance and leaving npc ???
Question
Eross
Hi ! I would like to ask if is it possible to have an array of Instance names (.@instance_name$)??
For example :
//prontera,155,181,5 script Guild Instance Officer 418,{ moc_para01,52,32,4 script Guild Instance Officer 418,{ .@InstanceCooldown = 28800; .@name$ = "["+strnpcinfo(0)+"]"; setarray .@instance_name$[0] = "gld_dun01","gld_dun02","gld_dun03","gld_dun04"; //if (!is_party_leader()) { mes .@name$; mes "You must be a party leader"; end;}; mes .@name$; mes "Today's featured instance guild dungeon is [^000088"+.@instance_name$+"^000000]!"; mes "What would you like to do?"; next; switch(select( "~ ^FF6900Create Instance^000000 -> 1,000,000 Z", "~ ^000088Enter Instance^000000 [^777777"+.@instance_name$+"^000000] -> 200,000 Z", "~ ^FF0000Destroy Current Instance^000000")) { case 1: if (#CD > gettimetick(2)) { mes .@name$; mes "You can create new instance after " + Time2Str(CD) + "."; end; } if (!is_party_leader()) { mes .@name$; mes "Only party leader can create an instance."; end;}; if (instance_picker > 0) { mes .@name$; mes "You have already created one. Kindly destroy instance before getting new one."; end; } callsub(OnCheckZenyCreate); #CD = gettimetick(2) + .@InstanceCooldown; instance_create(.@instance_name$, IM_PARTY); instance_picker = 1; specialeffect2 75; break; case 2: mes .@name$; mes "^FF0000Please note that Token of^000000"; mes "^FF0000Siegfried, Kafra Card^000000"; mes "^FF0000infinite fly wing and any teleport^000000"; mes "^FF0000skills are not allowed inside.^000000"; next; mes .@name$; mes "Ah! I almost Forgot, all guild"; mes "dungeons have two Bow and Sword Guardians."; next; if (select("Enter now","Cancel")==2) end; if ((countitem(40036) || countitem(12887) || countitem(40014) || countitem(12323) || countitem(40028) || countitem(6293) || countitem(40114) || countitem(12211) || countitem(40114) || countitem(40029) || countitem(13602) || countitem(14211) || countitem(13603) || countitem(14212) || countitem(12909) || countitem(14165) || countitem(7621) || countitem(13601) || countitem(14210) || countitem(13600) || countitem(14209) || countitem(12922) || countitem(14178)) > 0 ) { mes .@name$; mes "Kafra Card, Token of Siegfried or Flywing item or boxes on your inventory."; end; } switch(instance_enter(.@instance_name$)) { case IE_NOMEMBER: mes .@name$; mes "ERROR: Party not found."; break; case IE_NOINSTANCE: mes .@name$; mes "ERROR: Party does not have an instance."; break; case IE_OTHER: mes .@name$; mes "ERROR: Unknown error."; break; default: callsub(OnCheckZenyEntry); #CD = gettimetick(2) + .@InstanceCooldown; //announce "Player ["+strcharinfo(0)+"] has entered Guild Dungeon ["+.@instance_name$+"]!",BC_ALL; break; } break; case 3: if (instance_picker <= 0) { mes .@name$; mes "No current instance available to destroy."; end; } mes .@name$; mes "Are you sure you want to destroy ["+.@instance_name$+"] instance?"; switch (select("I'm 100% sure!","No, cancel it!")) { case 1: dispbottom "["+.@instance_name$+"] instance has been destroyed."; instance_destroy(instance_id(IM_PARTY)); specialeffect2 677; instance_picker = 0; break; case 2: end; } } close; OnCheckZenyCreate: .@name$ = "["+strnpcinfo(0)+"]"; if (Zeny < 1000000) { mes .@name$; mes "You don't have enough zeny to enter this instance."; end; } Zeny -= 1000000; return; OnCheckZenyEntry: .@name$ = "["+strnpcinfo(0)+"]"; if (Zeny < 200000) { mes .@name$; mes "You don't have enough zeny to enter this instance."; end; } Zeny -= 200000; return; //OnPCLogoutEvent: //OnPCLoginEvent: //OnPCDieEvent: //if (!IE_NOINSTANCE) end; //if (strcharinfo(3) != "gld_dun01" || strcharinfo(3) != "gld_dun02" || strcharinfo(3) != "gld_dun03" || strcharinfo(3) != "gld_dun04" || strcharinfo(3) != "schg_dun01" || strcharinfo(3) != "arug_dun01") end; //instance_announce('instance_id,"A party member has died! You have 5 minutes to resurect or the instance will be destroyed.",0); //instance_destroy(instance_id(IM_PARTY)); //instance_picker = 0; //end; }
If yes, how does the NPC recognize your chosen instance after creating instance and leaving npc ???
This post is related to my last topic ..
I hope someone help me agan. thanks
Edited by Eross5 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.