Ask with script

[jacky]

 

arena_room,102,100,5    script    3vs3Party    822,{

    //npctalk getpartymembercount(getcharid(1));

    mes "[Arena Guide]";
    mes "Welcome to the 3 vs 3 Party Arena!!!";
    mes "Would you like to compete?";
    next;
    menu "Oooh Yeeaahh!!!",L_Yes, "Nuuu", L_No;
    close;

L_Yes:
        if(@ra_map$ != "ra_in01") {//Honor, house system
            if($@antibot_active==0) {//Honor, activate with @quest
                if(callfunc("botcheck")==0){//Jason
                    close;
                }
            }
        }

    if (BaseLevel < 250 || Class==Job_Novice || Class==Job_Baby || Class==Job_Novice_High) goto L_Level;
    if (getpartymembercount(getcharid(1)) == 3 && getpartycount(getcharid(1)) == 3){
        set .@myparty, getcharid(1);
        if(.@myparty==$PP1_Team1_id || .@myparty==$PP1_Team2_id || .@myparty==$PP2_Team1_id || .@myparty==$PP2_Team2_id){
            mes "[Arena Guide]";
            mes "Your party is already playing...";
            close;
        }

        getmapxy(@PRTYPRTY_city$, @PRTYPRTY_x, @PRTYPRTY_y, 0);
        set .@pos, arena_queue_add(2); //sets @PRTYPRTY_active=1 as well

        mes "[Arena Guide]";
        if(.@pos==0){
            mes "The queue is full. Please wait a while and try again.";
        }else if(.@pos==-2){
            mes "Sorry, you and your Party need to be at least level 200. No Novices allowed either.";
        }else if(.@pos==-1){
            mes "You / your party already are on a waiting line...";
        }else if(.@pos==2){
            if($@PP1_running==0){
                set $@PP1_running, 1;
                donpcevent "PARTYVSPARTY_WINR::OnStart1";
            }else if($@PP2_running==0){
                set $@PP2_running, 1;
                donpcevent "PARTYVSPARTY_WINR::OnStart2";
            }else{
                mes "Congratulations, you are now on the waiting line for 3vs3 Party!";
                mes "Your position is: ^FF0000"+(.@pos-1)+"^000000";
                next;
                mes "[Arena Guide]";
                mes "^0000FFWhen it's your turn, you will be taken to the Arena even if you moved away from this map!";
                mes "^FF0000But if you logout, you will be put out of the queue.";
            }
        }else{
            mes "Congratulations, you are now on the waiting line for 3vs3 Party!";
            mes "Your position is: ^FF0000"+(.@pos-1)+"^000000";
            next;
            mes "[Arena Guide]";
            mes "^0000FFWhen it's your turn, you will be taken to the Arena even if you moved away from this map!";
            mes "^FF0000But if you logout, you will be put out of the queue.";
            close;
        }

 

help please

[brunoshp]

You nedd part in source code! script.c and other!

[Sneaky]

Lol my old nickname is right there //honor, just like brunoshp said, you need a few other mods on the source to be able to have that script working. I think I have a version working on rAthena, because the one made for this script was eAthena and it was a revision from like 05~06.

 

But honestly with the new script party commands added here on rAthena you can easily replicate the queue system Xilero used back then.