Jump to content
  • 0

can i request to edit this script from emistry


jhunex

Question


  • Group:  Members
  • Topic Count:  9
  • Topics Per Day:  0.00
  • Content Count:  23
  • Reputation:   0
  • Joined:  07/06/12
  • Last Seen:  

 

 

 

prontera,155,181,5    script    Sample    757,{

mes "I am Party Match Manager.";

mes "Party Leader may create a PVP Match here.";

next;

switch( select( ( .Created )?"Join Game[ ^FF0000"+.No+"vs"+.No+"^000000 ]":"Create Game",

                ( ( getgmlevel() >= .GMLevel || getcharid(0) == getpartyleader( getcharid(1),2 ) ) && .Created )?"^FF0000Remove Game^000000":"" )){

Case 1:

    switch( .Created ){

        Case 0:

            getpartymember getcharid(1),1;

            if( getcharid(0) != getpartyleader( getcharid(1),2 ) || !getcharid(1) ){

                mes "Sorry, but only a ^FF0000Party Leader^000000 can register a game here.";

            }else{

                mes "How many Players for each Party Team ?";

                mes "Min = 1 Max = "+$@partymembercount;

                mes "Because you only have "+$@partymembercount+" member right now.";

                next;

                input .No,1,$@partymembercount;

                announce "[ "+.No+"vs"+.No+" Party Match ] created by "+strcharinfo(0)+", you may register to join.",0;

                set .Team[0],getcharid(1);

                set .Created,1;

            }

            close;

        Case 1:

            if( !.Team[1] && getcharid(1) == .Team[0] ){

                mes "Please wait for ^FF0000Team 2^000000 to Register.";

            }else{

                if( getcharid(0) != getpartyleader( getcharid(1),2 ) || !getcharid(1) ){

                    mes "Sorry, but only a ^FF0000Party Leader^000000 can register a game here.";

                    close;

                }

                getpartymember getcharid(1),1;

                if( $@partymembercount < .No ){

                    mes "You didnt have enough of "+.No+" Member for the Game.";

                    mes "You only have "+$@partymembercount+" Member.";

                }else{

                    mes "Confirm Registration ?";

                    if( select("Yes:No") == 1 ){

                        set .Team[1],getcharid(1);

                        set .Created,2;

                        setarray .Members[0],.No,.No;

                        for( set .@party,0; .@party < 2; set .@party,.@party + 1 ){

                            getpartymember .Team[.@party],1;

                            for( set .@i,0; .@i < .No; set .@i,.@i + 1 )

                                warpchar .Map$,0,0,$@partymembercid[.@i];

                        }

                        end;

                    }

                }

            }

            close;

        Case 2:

            mes "^FF0000The Game is in Progress.^000000";

            mes "[ A "+.No+" vs "+.No+" Game ]";

            mes "Team ^FF0000"+getpartyname( .Team[0] )+"^000000 vs Team ^FF0000"+getpartyname( .Team[1] )+"^000000 .";

            close;

        }

        close;

Case 2:

        mes "Done, Match will be terminated right away.";

        mapannounce .Map$,"Match has been Cancelled by a GM.",0;

        close2;

    OnReset:

        deletearray .Team[0],getarraysize( .Team );

        deletearray .Members[0],getarraysize( .Members );

        if( .Winner ){

            getpartymember .Winner,2;

            for( set .@i,0; .@i < .No; set .@i,.@i + 1 ){

                getitem 512,100,$@partymemberaid[.@i];

                getitem 607,1,$@partymemberaid[.@i];

            }

        set .Winner,0;

        }

        sleep2 2000;

        set .Created,0;

        mapwarp .Map$,"prontera",155,181;

        end;

}

close;

        

OnPCDieEvent:

OnPCLogoutEvent:

if( strcharinfo(3) == .Map$ && .Created ){

    for( set .@i,0; .@i < 2; set .@i,.@i + 1 )    

        if( getcharid(1) == .Team[.@i] )

            set .Members[.@i],.Members[.@i] - 1;

            

    if( .Members[0] < 1 ) set .Winner,.Team[1];

    else if( .Members[1] < 1 ) set .Winner,.Team[0];

            

    if( .Winner ){

        mapannounce .Map$,"Team "+getpartyname( .Winner )+" Win the "+.No+"vs"+.No+" Game.",0;

        donpcevent strnpcinfo(0)+"::OnReset";

    }else{

        warp "prontera",155,181;

    }

}

end;

                

OnInit:

set .GMLevel,80;

set .Map$,"pvp_y_1-1";

end;

}

Can someone edit this cript

Okay. 

i want to have a announcer like

after the 2 team party enter or register

 

Announce:  Get Ready 

Announce:  3 , 2 , 1

 

and this script warped randomly.

 

i want 

 

pt 1 = left side

pt 2 = right side

 

 

Thaaanks i really need this thankyou

Link to comment
Share on other sites

3 answers to this question

Recommended Posts


  • Group:  Members
  • Topic Count:  3
  • Topics Per Day:  0.00
  • Content Count:  28
  • Reputation:   10
  • Joined:  04/18/15
  • Last Seen:  

Try this, in this part

 for( set .@party,0; .@party < 2; set .@party,.@party + 1 ){
                            getpartymember .Team[.@party],1;
                            for( set .@i,0; .@i < .No; set .@i,.@i + 1 )
                                warpchar .Map$,0,0,$@partymembercid[.@i];
 }

change to this and change x,y coordinate of the 2 lines in there for team 1 and team 2

 for( set .@party,0; .@party < 2; set .@party,.@party + 1 ){
                            getpartymember .Team[.@party],1;
                            for( set .@i,0; .@i < .No; set .@i,.@i + 1 )
                                if(.@party==0){warpchar .Map$,0,0,$@partymembercid[.@i]; //change 0,0 to x,y location
                                }else{warpchar .Map$,0,0,$@partymembercid[.@i];}    //change 0,0 to x,y location
 }

then this

}
end;
}

change to this

}
setcell .Map$,x1,y1,x2,y2,cell_walkable,0;  // replace x,y to cover first team starting point
setcell .Map$,x1,y1,x2,y2,cell_walkable,0;  // replace x,y to cover second team starting point
mapannounce .Map$,"Get Ready",0;
sleep2 1000;
mapannounce .Map$,"3",0;
sleep2 1000;
mapannounce .Map$,"2",0;
sleep2 1000;
mapannounce .Map$,"1",0;
sleep2 1000;
setcell .Map$,x1,y1,x2,y2,cell_walkable,1;  // replace x,y to cover first team starting point
setcell .Map$,x1,y1,x2,y2,cell_walkable,1;  // replace x,y to cover second team starting point
end;
}
Edited by kn16
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  9
  • Topics Per Day:  0.00
  • Content Count:  23
  • Reputation:   0
  • Joined:  07/06/12
  • Last Seen:  

Thaaaaaankss last question . how to add doommap to remove the buffs before the battle start ? 

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  3
  • Topics Per Day:  0.00
  • Content Count:  28
  • Reputation:   10
  • Joined:  04/18/15
  • Last Seen:  

look here https://rathena.org/board/topic/66739-dispell-all-buffs-on-entering-pvp-room/

and the most effective way is to put sc_end list by yourself like euphy said in rep4

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...