기타 [라그나로크] 파티퀘스트 스크립트

//
prontera.gat,159,227,6 script 파티 퀘스트 79,{ //
        mes "[라이티]";
        mes "저는 파티 퀘스트를 당담하고 있습니다.";
        mes "파티 퀘스트에 도전해보세요.";
        mes "푸짐한 보상을 드립니다.";
        menu "도전",mob,"취소",c;

mob:
 getpartymember(getcharid(1));
 set @partymembercount,$@partymembercount;
 copyarray @partymembername$[0],$@partymembername$[0],@partymembercount;
 
        if ($@PartStart == 1) goto go;
        if (@partymembercount <= 1) goto nopart;
 if (@partymembercount > 6) goto partover;
 if (@partymembername$[0] == strcharinfo(0)) goto part;
 goto nopart;

part:
        mes "[라이티]";
        mes "파티의 리더시군요.";
        mes "도전 20층에 도전하시겠습니까?";
        mes "먼저 파티원 모두가 15x15범위에 모여야합니다.";
        menu "도전",mobS,"취소",c;
mobS:
 goto go1;
 

end;

go1:
        disablenpc "보상";
        set $@DeonJeon,20;
        set $@summon,0;
        set $@PartStart,1;
        killmonsterall "pvp_n_2-5.gat";
 warpparty "pvp_n_2-5.gat",98,101,getcharid(1);
 end;

nopart:
        mes "[라이티]";
        mes "파티가 아니거나 파티장이 아닌거 같군요.";
        mes "혹은 파티원이 혼자인거 같습니다.";
close;

go:
        mes "[라이티]";
        mes "이미 누군가가 이용하고 있군.";
 mes "만약 사람이 없다면 초기화시키고";
 mes "다시할수 있다네..";
 mes "초기화 하겠는가?";
 menu "초기화를 시도한다",reset,"아니오",c;
close;

c:
        mes "[라이티]";
        mes "안녕히 가십시오.";
close;

partover:
 mes "[라이티]";
 mes "파티원은 6명까지가능합니다.";
 mes "너무많으시군요";
 close;
reset:
// set $P_Q_user,getmapusers("pvp_n_2-5.gat");
 if(getmapusers("pvp_n_2-5.gat") == 0) goto go1;

 mes "내부에"+getmapusers("pvp_n_2-5.gat")+"명이 있습니다.";
 next;
 goto c;
 close;
OnInit:
 waitingroom "파티퀘스트",0;
 end;
}

pvp_n_2-5.gat,98,101,6 script 파티 퀘스트(워프) 723,{

 getpartymember(getcharid(1));
 set @partymembercount,$@partymembercount;
        if (@partymembercount >= 1) goto part;
        if (@partymembercount < 1) goto nopart;
part:
        if ($@summon == 1) goto no233;
        if ($@DeonJeon == 20) goto M20;
        if ($@DeonJeon == 19) goto M19;  
        if ($@DeonJeon == 18) goto M18;
        if ($@DeonJeon == 17) goto M17;
        if ($@DeonJeon == 16) goto M16;
        if ($@DeonJeon == 15) goto M15;
        if ($@DeonJeon == 14) goto M14;
        if ($@DeonJeon == 13) goto M13;
        if ($@DeonJeon == 12) goto M12;
        if ($@DeonJeon == 11) goto M11;
        if ($@DeonJeon == 10) goto M10;
        if ($@DeonJeon == 9) goto M9;
        if ($@DeonJeon == 8) goto M8;
        if ($@DeonJeon == 7) goto M7;
        if ($@DeonJeon == 6) goto M6;
        if ($@DeonJeon == 5) goto M5;
        if ($@DeonJeon == 4) goto M4;
        if ($@DeonJeon == 3) goto M3;
        if ($@DeonJeon == 2) goto M2;
        if ($@DeonJeon == 1) goto M1;
        if ($@DeonJeon == 0) goto M0;

M20:
        MapAnnounce "pvp_n_2-5.gat","20층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1002,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1007,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1011,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1019,1,"MOB::OnDeath";
        set $@summon,1;
 goto go3;
end;

M19:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","19층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1009,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1012,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1014,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1016,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M18:
 if (getmapusers("pvp_n_2-5.gat") < 5){
 MapAnnounce "pvp_n_2-5.gat","겨우 그인원으로 도전하겠다는건가?? 어디...",26;
 
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
       
        monster "pvp_n_2-5.gat",100,100,"몬스터",1736,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1046,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
 end;
 }
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","18층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1024,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1055,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1074,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1096,1,"MOB::OnDeath";
        set $@summon,1;
         goto go3;
end;

M17:
if (getmapusers("pvp_n_2-5.gat") < 5){
 MapAnnounce "pvp_n_2-5.gat","아직도 정신 못차리는군.",26;
 
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
       
        monster "pvp_n_2-5.gat",100,100,"몬스터",1736,10;
 monster "pvp_n_2-5.gat",100,100,"몬스터",1147,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1147,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
 end;
 }
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","17층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1141,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1686,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1034,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1096,1,"MOB::OnDeath";
        set $@summon,1;
         goto go3;
end;

M16:
if (getmapusers("pvp_n_2-5.gat") < 3){
 MapAnnounce "pvp_n_2-5.gat","진정한 용사란말인가..",26;
 
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
       
        monster "pvp_n_2-5.gat",100,100,"몬스터",1736,10;
 monster "pvp_n_2-5.gat",100,100,"몬스터",1147,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1785,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
 end;
 }
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","16층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1400,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1069,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1028,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1582,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M15:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","15층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1144,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1177,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1248,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1120,1,"MOB::OnDeath";
        set $@summon,1;
         goto go3;
end;

M14:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","14층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1099,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1367,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1037,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1120,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M13:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","13층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1180,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1497,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1584,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1120,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M12:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","12층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1115,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M11:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","11층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1150,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M10:
  MapAnnounce "pvp_n_2-5.gat","10층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
 
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1159,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M9:
 MapAnnounce "pvp_n_2-5.gat","9층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
   
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1112,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M8:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","8층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1583,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M7:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","7층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1301,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1313,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1270,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1086,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M6:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","6층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1505,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1204,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1251,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1649,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M5:
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
        MapAnnounce "pvp_n_2-5.gat","5층으로 워프합니다.",16;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1251,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1640,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1641,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1642,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1644,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1645,1;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1650,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M4:
        MapAnnounce "pvp_n_2-5.gat","4층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);

        monster "pvp_n_2-5.gat",100,100,"몬스터",1734,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1640,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1641,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1642,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1644,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1645,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1648,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M3:
 MapAnnounce "pvp_n_2-5.gat","3층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
       
        monster "pvp_n_2-5.gat",100,100,"몬스터",1511,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1640,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1641,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1642,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1644,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1645,2;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1647,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M2:
        MapAnnounce "pvp_n_2-5.gat","2층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);

        monster "pvp_n_2-5.gat",100,100,"몬스터",1765,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1640,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1641,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1642,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1644,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1645,3;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1646,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

M1:
 MapAnnounce "pvp_n_2-5.gat","1층으로 워프합니다.",16;
        warpparty "pvp_n_2-5.gat",100,134,getcharid(1);
       
        monster "pvp_n_2-5.gat",100,100,"몬스터",1658,10;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1640,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1641,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1642,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1644,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1645,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1755,5;
        monster "pvp_n_2-5.gat",100,100,"몬스터",1708,1,"MOB::OnDeath";
        set $@summon,1;
        goto go3;
end;

no233:
        MapAnnounce "pvp_n_2-5.gat","아직 보스 몬스터가 죽지 않았습니다.",16;
 mes "만약 몹을다잡았는데도 이메세지가나오면";
 mes "타이머를 재시동하세요.";
 mes "단. 재시동한 케릭은 30초간 움직일수 없으니";
 mes "신중하게 생각하시고 재시동하시기바랍니다.";
 menu "취소",P_Q_end,"타이머 재시동",addT;
 end;
P_Q_end :
 end;
addT:
 addtimer 20000,"check::OnStart";
 end;
nopart:
        mes "[파티퀘스트]";
        mes "파티를 제대로 결성한 후, 파티의 리더가 저에게 신청해주셔야만 됩니다.";
close;

err2:
        mes "[파티퀘스트]";
        if(@ret == -2) mes "소스 내부에서 사용하는 sd 또는 p 변수에 NULL 값이 들어갔습니다.";
        if(@ret == -1) mes "스크립트 사용자가 파티에 소속되지 않았습니다.";
        if(@ret == 0) mes "해당 파티원이 다른 맵에 있거나 15셀 밖에 있었습니다.";
close;

go3:
        addtimer 20000,"check::OnStart";
        warpparty "pvp_n_2-5.gat",98,134,getcharid(1);
end;

M0:
announce " *** 파티 퀘스트를 완료하였습니다. *** ",0;
        set $@PartStart,0;
        enablenpc "보상";
        end;
}

pvp_n_2-5.gat,0,0,3 script check -1,{
 OnStart:
        MapAnnounce "pvp_n_2-5.gat","현재 생존자 : " + getusers(0) + "",16;
        if ($@monster == 1) goto q;
        if (getusers(0) == 0) goto e;
        if ($@DeonJeon == 0) goto c;
        addtimer 20000,"check2::OnStart";
        end;
e:
        announce " *** 파티가 전멸당했습니다. *** ",0;
        set $@PartStart,0;
        end;
q:
        killmonsterall "pvp_n_2-5.gat";
        announce " *** 보스 몬스터가 쓰러졌습니다. *** ",0;
        set $@summon,0;
        set $@monster,0;
        set $@DeonJeon,$@DeonJeon-1;
        end;
c:
        announce " *** 파티 퀘스트를 완료하였습니다. *** ",0;
        set $@PartStart,0;
        enablenpc "보상";
        end;
}

pvp_n_2-5.gat,0,0,3 script check2 -1,{
 OnStart:
        MapAnnounce "pvp_n_2-5.gat","현재 생존자 : " + getusers(0) + "",16;
        if ($@monster == 1) goto q2;
        if (getusers(0) == 0) goto e2;
        if ($@DeonJeon == 0) goto c2;
        addtimer 20000,"check::OnStart";
        close;
e2:
        announce " *** 파티가 전멸당했습니다. *** ",0;
        set $@PartStart,0;
        close;
q2:
        killmonsterall "pvp_n_2-5.gat";
        announce " *** 보스 몬스터가 쓰러졌습니다. *** ",0;
        set $@summon,0;
        set $@monster,0;
        set $@DeonJeon,$@DeonJeon-1;
        close;
c2:
        announce " *** 파티 퀘스트를 완료하였습니다. *** ",0;
        set $@PartStart,0;
        enablenpc "보상";
        close;
}
pvp_n_2-5.gat,0,0,3 script MOB -1,{
 OnDeath:
        set $@monster,1;
        close;
}

pvp_n_2-5.gat,99,96,3 script 보상 55,{
        set BaseExp,BaseExp+1000000000;
        set Zeny,zeny+1000000;
        getitem 7169,10;
 getitem 969,20;
        mes "[라이티]";
        mes "승리를 축하드립니다!";
        next;
        areawarp "pvp_n_2-5.gat",1,1,255,255,"rachel.gat",114,132;
        close;
}

pvp_n_2-5.gat mapflag nosave SavePoint