Jump to content

Chopper xD

Members
 View Profile  See their activity

  • Posts

    8

  • Joined

  • Last visited

 Content Type 

Posts posted by Chopper xD

    Request to fix the setlook

    in Script Requests

    Posted · Edited by ToastOfDoom
    codeboxed 

    //Eathena
// icabit69 , MrVandalBus
//RahulDev Emistry
//===set look idea by Goddameit
//re-modified by Khayam (Xilence01)
//Script starts here:
prontera,155,166,4 script Team Wars::teamwar 899,{
if (getgmlevel() >= 99){
menu "standard menu",standard,"reset",lend;
}
standard:
set $@members,1; // number of party members change this to your party size you want
set $@start,0;
getpartymember(getcharid(1));
set @partymembercount,$@partymembercount;
if ( $@start==1) {
mes "The Sign Ups are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}

if ( @partymembercount==$@members) {
if ($@TeamID1==getcharid(1))
{
mes "Do you wish to sign out your team?";
next;
if (select("I Give up ~.","Never Say Quit !!")==2) close;
announce "Team 1 : [ " + getpartyname($@TeamID1) + " ] has sign out. We need another Party to sign up now!",bc_yellow|bc_map;
set $@TeamID1, 0;
close;
}
if ($@TeamID2==getcharid(1))
{
mes "Do you wish to sign out your team?";
next;
if (select("I Give up ~.","Never Say Quit !!")==2) close;
announce "Team 2 : [ " + getpartyname($@TeamID2) + " ] has sign out. We need another Party to sign up now!",bc_yellow|bc_map;
set $@TeamID2, 0;
close;
}
mes "Hello "+strcharinfo(0)+" what do you want?";
if (($@TeamID1!=0) && ($@TeamID2!=0))
{
mes "The Sign Ups are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}
if ( getpartyleader(getcharid(1),2) != getcharid(0) )
{
mes "Only party leader have the right to sign up / out from the game with me..";
close;
}
mes "Choose your team to register.";
switch(select("White Team - [" + GetPartyName($@TeamID1) + "] :Black Team - [" + GetPartyName($@TeamID2) + "]"))
{
case 1: mes "[  Team War  ]";

if ($@TeamID1==0 || getpartyname($@TeamID1)=="null")
{
getpartymember(getcharid(1)),1;
getpartymember(getcharid(1)),2;
copyarray $@partymembercidt1[0],$@partymembercid[0],$@members;
copyarray $@partymemberaid1[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaid1[.@i],$@partymembercidt1[.@i]))  set .@count,.@count+1;
}
if(.@count < $@members) {
mes "You need all your party members to be online to Register";
close;
}
set $@TeamID1, getcharid(1);
initnpctimer;
mes "Your Party is now subscribed, good luck!";
announce "White Team : [ " +getpartyname($@TeamID1)+ " ] has sign up For the Team War!",bc_blue|bc_map;
doevent "teamwar::OnSubscriptionTeam";
close;
} else {
mes "I'm sorry! Another Team has sign up before you...";
close;
}
case 2: mes "[  Team War  ]";
if ($@TeamID2==0 || getpartyname($@TeamID2)=="null")
{
getpartymember(getcharid(1)),1;
getpartymember(getcharid(1)),2;
copyarray $@partymembercidt2[0],$@partymembercid[0],$@members;
copyarray $@partymemberaid2[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaid2[.@i],$@partymembercidt2[.@i])) set .@count,.@count+1;
}
if(.@count < $@members) {
mes "You need all your party members to be online to Register";
close;
}
set $@TeamID2, getcharid(1);
initnpctimer;
mes "Your Party is now subscribed, good luck!";
announce "Black Team : [ " +getpartyname($@TeamID2)+ " ] has sign up For the Team War!",bc_blue|bc_map;
doevent "teamwar::OnSubscriptionTeam";
close;
}
else
{
mes "I'm sorry! Another Team has sign up before you...";
close;
}
}
} else {
mes "[Event Handler]";
mes "Please contact your party leader.";
mes "Your team must have a party consisting of "+$@members+" members.";
close;
}

OnSubscriptionTeam:
getpartymember($@TeamID2),1;
getpartymember($@TeamID2),2;
copyarray $@partymembercidtc2[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidc2[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidc2[.@i],$@partymembercidtc2[.@i])) set .@countx,.@countx+1;
attachrid $@partymemberaidc2[.@i];
setlook 7,26;
}
if(.@countx < $@members) {
announce "Team War : "+getpartyname($@TeamID2)+"are not all online the match has been canceled",0;
announce "Team War : registration for 2 new teams are now available",0;
goto lend;
close;
}
getpartymember($@TeamID1),1;
getpartymember($@TeamID1),2;
copyarray $@partymembercidtc1[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidc1[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidc1[.@i],$@partymembercidtc1[.@i])) set .@countz,.@countz+1;
attachrid $@partymemberaidc1[.@i];
setlook 7,81;
}
if(.@countz < $@members) {
announce "Team War : "+getpartyname($@TeamID1)+"are not all online the match has been canceled",0;
announce "Team War : registration for 2 new teams are now available",0;
goto lend;
close;
}
if($@TeamID1!=0 && $@TeamID2!=0){
announce "Team War : We have 2 Teams signed up now : "+getpartyname($@TeamID1)+" and "+getpartyname($@TeamID2)+".",bc_blue|bc_map;
set @win1, 0;
set @win2, 0;
goto Onstart;
}
end;

OnTimer50000:
if (($@TeamID1!=0) && ($@TeamID2!=0)) {
stopnpctimer;
end;
}
stopnpctimer;
set $@TeamID1, 0;
set $@TeamID1, 0;
announce "Team War : we lack teams to start registration for two teams are now available",0;
end;

OnStart:
warpparty "guild_vs2",89,49,$@TeamID1;
warpparty "guild_vs2",11,49,$@TeamID2;
set $@start,1;
end;

lend:
stopnpctimer;
set $@TeamID1,0;
set $@TeamID2,0;
set $@start,0;
set @win1,0;
set @win2,0;
set @partymembercount,$@members;
announce "Thanks for playing",0;
end;

OnTimer250000:
Announce "Team War : No Party won due to time limit!",0;
mapwarp "guild_vs2","prontera",156,191;
goto lend;
end;

OnPCKillEvent:
/*
Its party Vs party kind of script, then y checking for guilds on the map??

getmapxy(.@map$,.@x,.@y,0);
if(.@map$=="guild_vs2")
{
set .@guser, getmapguildusers("guild_vs2",getcharid(1));
if ( getcharid(1) == $@TeamID2 )
{
if (.@guser) end; // Checks if 0 guild member of teamid2 left
warpparty "bat_b01",390,9,$@TeamID2;
Announce "Team War :"+GetPartyName($@TeamID2)+" won",0;
goto lend;
}
if ( getcharid(1) == $@TeamID1 )
{
if (.@guser) end; // Checks if 0 guild member of teamid1 left
warpparty "bat_b01",390,9,$@TeamID1;
Announce "Team War :"+GetPartyName($@TeamID1)+" won",0;
goto lend;
}
}
*/
end;

OnPCDieEvent:
OnPCLogoutEvent:
if(strcharinfo(3) != "guild_vs2") end;
warp "prontera",156,191;
for(set .@i, 0; .@i < $@members; set .@i, .@i + 1) {
if ( $@partymembercidt1[.@i] == getcharid(0)) {
deletearray $@partymembercidt1[.@i], 1;
if( getarraysize($@partymembercidt1) == 0 ) {
set @win2,$@partymembercount;
goto onwin;
}
}
if ( $@partymembercidt2[.@i] == getcharid(0) ) {
deletearray $@partymembercidt2[.@i], 1;
if( getarraysize($@partymembercidt2)  == 0 ) {
set @win1,$@partymembercount;
goto onwin;
}
}
}
end;


onwin:
if (@win1==0)
{
warpparty "bat_b01",390,9,$@TeamID2;
warpparty "prontera",156,191,$@TeamID1;
Announce "Team War :"+GetPartyName($@TeamID2)+" won",0;
goto lend;
end;
}
if (@win2==0)
{
warpparty "bat_b01",390,9,$@TeamID1;
warpparty "prontera",156,191,$@TeamID2;
Announce "Team War :"+GetPartyName($@TeamID1)+" won",0;
goto lend;
end;
}
end;
}

guild_vs2 mapflag nosave
guild_vs2 mapflag nomemo
guild_vs2 mapflag nobranch
guild_vs2 mapflag pvp_noguild
guild_vs2 mapflag nocommand 60
guild_vs2 mapflag noicewall
guild_vs2 mapflag pvp
bat_b01 mapflag nosave
bat_b01 mapflag nomemo
bat_b01 mapflag nobranch
bat_b01 mapflag pvp_noparty
bat_b01 mapflag nocommand

bat_b01,390,9,0 script #prizegiver 111,5,5,{
//OnTouch2:
OnTouch:
getitem 20078,25; // set prize here
warp "prontera",156,196;
close;
}

    Request to fix the cloths color of white team to white

    Because when I Choose White team it change to black cloth color, which is the color of 2nd team Black Team

    Request to be a multiple shop with option

    in Script Requests

    Posted · Edited by Euphy
    Code tag. 

    prontera,154,180,5 script Name1 911,{

set .@z, 100; // Zeny (Default: 1b)
setarray .@v, 23023,23024;  // <ItemID1>,<ItemID2>{...}
set .@n$, "[Valkyrie Helm Changer]"; // NPC Name

for ( set .@i, 0; .@i < getarraysize(.@v); set .@i, .@i + 1 )
{
set .@menu$, .@menu$ + getitemname(.@v[.@i]) + ":";
if ( countitem(.@v[.@i]) > 0 ) setarray .@tmp[getarraysize(.@tmp)], .@v[.@i];
}
mes .@n$;
mes "Which Valkyrie Helm would you like to have?";
set .@j, select ( .@menu$ ) - 1;
set .@k, 0;
if ( getarraysize(.@tmp) > 1 )
{
set .@menu$, "";
for ( set .@i, 0; .@i < getarraysize(.@tmp); set .@i, .@i + 1 )
set .@menu$, .@menu$ + getitemname(.@tmp[.@i]) + ":";
mes .@n$;
mes "There are more than one Valkyrie Helm in your inventory.";
mes "Please select one to be exchanged.";
set .@k, select ( .@menu$ ) - 1;
}
next;
mes .@n$;
if ( !.@tmp ) { mes "You need a Valkyrie Helm to use my services."; close; }
if ( Zeny < .@z ) { mes "You need " + .@z + "z to use my services."; close; }
mes "Thank you!";
close2;
delitem .@tmp[.@k], 1;
getitem .@v[.@j], 1;
set Zeny, Zeny - .@z;
end;

}

×
×
  • Create New...