Jump to content
  • 0

Help Edit Script..

jacky

Asked by jacky,

 Share

Question

jacky Poring

jacky

Posted
  • Group:  Members
  • Topic Count:  26
  • Topics Per Day:  0.01
  • Content Count:  51
  • Reputation:   0
  • Joined:  05/23/14
  • Last Seen:  
Posted (edited) 

 
//===== Script: ===============================================================
//= 3ManFreeForAll
//= By Matthew
//= Credit to Matty in [url=http://eAthena.ws]http://eAthena.ws[/url]
//==============================================================================
prontera,154,188,5    script    Free For All    823,{

set .npc$,"[^ff8800 Register ^000000]";
set .npcgm$,"[^ff8800 Conf. Administration ^000000]";

    if(getgmlevel() >= 60) {

    mes .npcgm$;
      mes "^ff0000* Status *^000000";
      mes " ";
    mes "^0000ffPlayer 1:^000000 ^ff0000" +$player1+ "^000000.";
    mes "^0000ffPlayer 2:^000000 ^ff0000" +$player2+ "^000000.";
    mes "^0000ffPlayer 3:^000000 ^ff0000" +$player3+ "^000000.";
    mes "^0000ffPlayer 4:^000000 ^ff0000" +$player4+ "^000000.";
    mes "^0000ffPlayer 5:^000000 ^ff0000" +$player5+ "^000000.";
    mes "^0000ffMatch:^000000 ^ff0000" +$@match+ "^000000.";
      next;
gmmenu:
    mes .npcgm$;
      mes "Want do you want to do?";
      next;
      menu "-Normal Menu",normalmenu,"-Check Positions",checkongm,"-^777777Configuration^000000",conf;

conf:
    mes .npcgm$;
      mes "What do you want to change?";
      menu "-^0000ffReset Variables^000000",Rteams;

Rteams:
    set $player1,0;
    set $player2,0;
    set $player3,0;
    set $player4,0;
    set $player5,0;
    set $@match,0;
    set $player1$,"[^ff0000 Off ^000000]";
    set $player2$,"[^ff0000 Off ^000000]";
    set $player3$,"[^ff0000 Off ^000000]";
    set $player4$,"[^ff0000 Off ^000000]";
    set $player5$,"[^ff0000 Off ^000000]";
    dispbottom "[" + strcharinfo(0) + "] the FreeForAll Variables are now available!";
    close;

checkongm:
set $player1$,"[^00ff00 On ^000000]";
set $player2$,"[^00ff00 On ^000000]";
set $player3$,"[^00ff00 On ^000000]";
set $player4$,"[^00ff00 On ^000000]";
set $player5$,"[^00ff00 On ^000000]";

if ($player1 == 0) {
set $player1$,"[^ff0000 Off ^000000]";
}
if ($player2 == 0) {
set $player2$,"[^ff0000 Off ^000000]";
}
if ($player3 == 0) {
set $player3$,"[^ff0000 Off ^000000]";
}
if ($player4 == 0) {
set $player4$,"[^ff0000 Off ^000000]";
}
if ($player5 == 0) {
set $player5$,"[^ff0000 Off ^000000]";
}
    mes .npcgm$;
    mes "^0000ffPlayer One:^000000 " +$player1$+ ".";
    mes "^0000ffPlayer Two:^000000 " +$player2$+ ".";
    mes "^0000ffPlayer Three:^000000 " +$player3$+ ".";
    mes "^0000ffPlayer Four:^000000 " +$player4$+ ".";
    mes "^0000ffPlayer Five:^000000 " +$player5$+ ".";
    close;

}

normalmenu:

if ($player1 == getcharid(0)) {
    mes .npc$;
    mes "You are already ^00ff00Signed In^000000!";
    menu "-Ok",Lok,"Sign Out!",-;
    set $player1,0;
    mapannounce "prontera","Free For All: " +strcharinfo(0)+ " signed out from 5ManFFA Next Match!",0;
    message strcharinfo(0),"You has been removed from 5ManFFA Next Match!";
    close;
}

if ($player2 == getcharid(0)) {
    mes .npc$;
    mes "You are already ^00ff00Signed In^000000!";
    menu "-Ok",Lok,"Sign Out!",-;
    set $player2,0;
    mapannounce "prontera","Free For All: " +strcharinfo(0)+ " signed out from 5ManFFA Next Match!",0;
    message strcharinfo(0),"You has been removed from 5ManFFA Next Match!";
    close;
}

if ($player3 == getcharid(0)) {
    mes .npc$;
    mes "You are already ^00ff00Signed In^000000!";
    menu "-Ok",Lok,"Sign Out!",-;
    set $player3,0;
    mapannounce "prontera","Free For All: " +strcharinfo(0)+ " signed out from 5ManFFA Next Match!",0;
    message strcharinfo(0),"You has been removed from 5ManFFA Next Match!";
    close;
}
if ($player4 == getcharid(0)) {
    mes .npc$;
    mes "You are already ^00ff00Signed In^000000!";
    menu "-Ok",Lok,"Sign Out!",-;
    set $player4,0;
    mapannounce "prontera","Free For All: " +strcharinfo(0)+ " signed out from 5ManFFA Next Match!",0;
    message strcharinfo(0),"You has been removed from 5ManFFA Next Match!";
    close;
}
if ($player5 == getcharid(0)) {
    mes .npc$;
    mes "You are already ^00ff00Signed In^000000!";
    menu "-Ok",Lok,"Sign Out!",-;
    set $player5,0;
    mapannounce "prontera","Free For All: " +strcharinfo(0)+ " signed out from 5ManFFA Next Match!",0;
    message strcharinfo(0),"You has been removed from 5ManFFA Next Match!";
    close;
}

    mes .npc$;
    mes "Hi ^5555FF" + strcharinfo(0) + "^000000";
    next;
    mes .npc$;
    mes "You can register with me to play 5manFreeForAll.";
    menu "Register",Lregister,"^777777Nevermind^000000",Lnevermind;

Lregister:
    if ($player1 == 0) {
        set $player1,getcharid(0);
        mapannounce "prontera","Free For All: 1 Person Registered for FFA Next Match!",0;
        message strcharinfo(0),"You have been Registered for 5manFFA as Player 1 in next match!";
        goto checkon;
    }

    if ($player2 == 0) {
        set $player2,getcharid(0);
        mapannounce "prontera","Free For All: 2 Person Registered for FFA Next Match!",0;
        message strcharinfo(0),"You have been Registered for 5manFFA as Player 2 in next match!";
        goto checkon;
    }

    if ($player3 == 0) {
        set $player3,getcharid(0);
        mapannounce "prontera","Free For All: We're Set!",0;
        message strcharinfo(0),"You have been Registered for 5manFFA as Player 3 in next match!";
        goto checkon;
    }
    mes .npc$;
    if ($player4 == 0) {
        set $player4,getcharid(0);
        mapannounce "prontera","Free For All: We're Set!",0;
        message strcharinfo(0),"You have been Registered for 5manFFA as Player 4 in next match!";
        goto checkon;
    }
    mes .npc$;
    if ($player5 == 0) {
        set $player5,getcharid(0);
        mapannounce "prontera","Free For All: We're Set!",0;
        message strcharinfo(0),"You have been Registered for 5manFFA as Player 5 in next match!";
        goto checkon;
    }
    mes .npc$;
    mes "Sorry but there is a match in progress right now.";
    close;

Lnevermind:
    mes .npc$;
    mes "i'll be here when you want =)";
    close;

checkon:
set $player1$,"[^00ff00 On ^000000]";
set $player2$,"[^00ff00 On ^000000]";
set $player3$,"[^00ff00 On ^000000]";
set $player4$,"[^00ff00 On ^000000]";
set $player5$,"[^00ff00 On ^000000]";
if ($player1 == 0) {
set $player1$,"[^ff0000 Off ^000000]";
}
if ($player2 == 0) {
set $player2$,"[^ff0000 Off ^000000]";
}
if ($player3 == 0) {
set $player3$,"[^ff0000 Off ^000000]";
}
if ($player4 == 0) {
set $player4$,"[^ff0000 Off ^000000]";
}
if ($player5 == 0) {
set $player5$,"[^ff0000 Off ^000000]";
}
    mes .npc$;
    mes "^0000ffPlayer One:^000000 " +$player1$+ ".";
    mes "^0000ffPlayer Two:^000000 " +$player2$+ ".";
    mes "^0000ffPlayer Three:^000000 " +$player3$+ ".";
    mes "^0000ffPlayer Four:^000000 " +$player4$+ ".";
    mes "^0000ffPlayer Five:^000000 " +$player5$+ ".";
    close2;

set $@match,1;

if ($player1 == 0) {
set $@match,0;
}
if ($player2 == 0) {
set $@match,0;
}
if ($player3 == 0) {
set $@match,0;
}
if ($player4 == 0) {
set $@match,0;
}
if ($player5 == 0) {
set $@match,0;
}

if ($@match == 1) {
    warpchar "guild_vs1",32,66,$player1;
    goto label2;
label2:
    warpchar "guild_vs1",57,44,$player2;
    goto label3;
label3:
    warpchar "guild_vs1",42,27,$player3;
    goto label4;
label4:
    warpchar "guild_vs1",73,31,$player4;
    goto label5;
label5:
    warpchar "guild_vs1",11,51,$player5;
    goto matchstart;
}

Lok:
    close;

matchstart:
        initnpctimer;
    OnTimer1000:
        end;
    OnTimer2000:
        end;
    OnTimer3000:
    getmapxy($mapname$,$mapx,$mapy,0);
    if($mapname$ == "guild_vs1") {
    message strcharinfo(0),"Buffs Removed!";
    sc_end SC_All;
    end;
}
        end;
    OnTimer4000:
    mapannounce "guild_vs1","Welcome to 5ManFreeForAll",0;
        end;
    OnTimer5000:
        end;
    OnTimer6000:
    callsub winner;
    end;
    OnTimer7000:
    callsub winner;
        end;
    OnTimer8000:
    callsub winner;
        end;
    OnTimer9000:
    callsub winner;
        end;
    OnTimer10000:
    callsub winner;
        end;
    OnTimer11000:
    callsub winner;
        end;
    OnTimer12000:
    callsub winner;
        end;
    OnTimer13000:
    callsub winner;
        end;
    OnTimer14000:
    callsub winner;
        end;
    OnTimer15000:
    callsub winner;
        end;
    OnTimer16000:
    callsub winner;
        end;
    OnTimer17000:
    callsub winner;
        end;
    OnTimer18000:
    callsub winner;
        end;
    OnTimer19000:
    callsub winner;
        end;
    OnTimer20000:
    callsub winner;
        end;
    OnTimer21000:
    callsub winner;
        end;
    OnTimer22000:
    callsub winner;
        end;
    OnTimer23000:
    callsub winner;
        end;
    OnTimer24000:
    callsub winner;
        end;
    OnTimer25000:
    callsub winner;
        end;
    OnTimer26000:
    callsub winner;
        end;
    OnTimer27000:
    callsub winner;
        end;
    OnTimer28000:
    callsub winner;
        end;
    OnTimer29000:
    callsub winner;
        end;
    OnTimer30000:
    callsub winner;
        end;
    OnTimer31000:
    callsub winner;
        end;
    OnTimer32000:
    callsub winner;
        end;
    OnTimer33000:
    callsub winner;
        end;
    OnTimee34000:
    callsub winner;
        end;
    OnTimer35000:
    callsub winner;
        end;
    OnTimer36000:
    callsub winner;
        end;
    OnTimer37000:
    callsub winner;
        end;
    OnTimer38000:
    callsub winner;
        end;
    OnTimer39000:
    callsub winner;
        end;
    OnTimer40000:
    callsub winner;
        end;
    OnTimer41000:
    callsub winner;
        end;
    OnTimer42000:
    callsub winner;
        end;
    OnTimer43000:
    callsub winner;
        end;
    OnTimer44000:
    callsub winner;
        end;
    OnTimer45000:
    callsub winner;
        end;
    OnTimer46000:
    callsub winner;
        end;
    OnTimer47000:
    callsub winner;
        end;
    OnTimer48000:
    callsub winner;
        end;
    OnTimer49000:
    callsub winner;
        end;
    OnTimer50000:
    callsub winner;
        end;
    OnTimer51000:
    callsub winner;
        end;
    OnTimer52000:
    callsub winner;
        end;
    OnTimer53000:
    callsub winner;
        end;
    OnTimer54000:
    callsub winner;
        end;
    OnTimer55000:
    callsub winner;
        end;
    OnTimer56000:
    callsub winner;
        end;
    OnTimer57000:
    callsub winner;
        end;
    OnTimer58000:
    callsub winner;
        end;
    OnTimer59000:
    callsub winner;
        end;
// 1minute remaining
    OnTimer60000:
    mapannounce "guild_vs1","1 Minute Remaining!!",0;
    callsub winner;
        end;
    OnTimer61000:
    callsub winner;
        end;
    OnTimer62000:
    callsub winner;
        end;
    OnTimer63000:
    callsub winner;
        end;
    OnTimer64000:
    callsub winner;
        end;
    OnTimer65000:
    callsub winner;
        end;
    OnTimer66000:
    callsub winner;
        end;
    OnTimer67000:
    callsub winner;
        end;
    OnTimer68000:
    callsub winner;
        end;
    OnTimer69000:
    callsub winner;
        end;
    OnTimer70000:
    callsub winner;
        end;
    OnTimer71000:
    callsub winner;
        end;
    OnTimer72000:
    callsub winner;
        end;
    OnTimer73000:
    callsub winner;
        end;
    OnTimer74000:
    callsub winner;
        end;
    OnTimer75000:
    callsub winner;
        end;
    OnTimer76000:
    callsub winner;
        end;
    OnTimer77000:
    callsub winner;
        end;
    OnTimer78000:
    callsub winner;
        end;
    OnTimer79000:
    callsub winner;
        end;
    OnTimer80000:
    callsub winner;
        end;
    OnTimer81000:
    callsub winner;
        end;
    OnTimer82000:
    callsub winner;
        end;
    OnTimer83000:
    callsub winner;
        end;
    OnTimer84000:
    callsub winner;
        end;
    OnTimer85000:
    callsub winner;
        end;
    OnTimer86000:
    callsub winner;
        end;
    OnTimer87000:
    callsub winner;
        end;
    OnTimer89000:
    callsub winner;
        end;
    OnTimer90000:
    callsub winner;
        end;
    OnTimer91000:
    callsub winner;
        end;
    OnTimer92000:
    callsub winner;
        end;
    OnTimer93000:
    callsub winner;
        end;
    OnTimer94000:
    callsub winner;
        end;
    OnTimer95000:
    callsub winner;
        end;
    OnTimer96000:
    callsub winner;
        end;
    OnTimer97000:
    callsub winner;
        end;
    OnTimer98000:
    callsub winner;
        end;
    OnTimer99000:
    callsub winner;
        end;
    OnTimer100000:
    callsub winner;
        end;
    OnTimer101000:
    callsub winner;
        end;
    OnTimer102000:
    callsub winner;
        end;
    OnTimer103000:
    callsub winner;
        end;
    OnTimer104000:
    callsub winner;
        end;
    OnTimer105000:
    callsub winner;
        end;
    OnTimer106000:
    callsub winner;
        end;
    OnTimer107000:
    callsub winner;
        end;
    OnTimer108000:
    callsub winner;
        end;
    OnTimer109000:
    callsub winner;
        end;
    OnTimer110000:
    callsub winner;
        end;
    OnTimer111000:
    callsub winner;
        end;
    OnTimer112000:
    callsub winner;
        end;
    OnTimer113000:
    callsub winner;
        end;
    OnTimer114000:
    callsub winner;
        end;
    OnTimer115000:
    callsub winner;
        end;
    OnTimer116000:
    callsub winner;
        end;
    OnTimer117000:
    callsub winner;
        end;
    OnTimer118000:
    callsub winner;
        end;
    OnTimer119000:
    callsub winner;
        end;
    OnTimer120000:
    mapannounce "guild_vs1","The match will end without a winner...",0;
    callsub winner;
        end;
    OnTimer121000:
    callsub winner;
        end;
    OnTimer122000:
    callsub winner;
        end;
    OnTimer123000:
    callsub winner;
        end;
    OnTimer124000:
    callsub winner;
        end;
    OnTimer125000:
    callsub winner;
    mapwarp "guild_vs1","prontera",156,176;
    stopnpctimer; // match end.
    goto listo1;
    end;

listo1:
    set $player1,0;
    set $player2,0;
    set $player3,0;
    set $player4,0;
    set $player5,0;
    set $@match,0;
    set $player1$,"[^ff0000 Off ^000000]";
    set $player2$,"[^ff0000 Off ^000000]";
    set $player3$,"[^ff0000 Off ^000000]";
    set $player4$,"[^ff0000 Off ^000000]";
    set $player5$,"[^ff0000 Off ^000000]";
    goto end1;

winner:
    if(getmapusers("guild_vs1") == 1) {
        mapwarp "guild_vs1","bat_b01",9,290;
        goto listo1;
}
return;

end1:
    end;

OnPCLogoutEvent:
    if ($player1 == getcharid(0)) {
    set $player1,0;
    end;
}
    if ($player2 == getcharid(0)) {
    set $player2,0;
    end;
}
    if ($player3 == getcharid(0)) {
    set $player3,0;
    end;
}
    if ($player4 == getcharid(0)) {
    set $player4,0;
    end;
}
    if ($player5 == getcharid(0)) {
    set $player5,0;
    end;
}
end;
}

// Prize
bat_b01,9,290,4    script    Prize    822,3,3,{

OnTouch:
percentheal 100,100;
    sc_end SC_All;
    mes "[Mr. Prize]";
    mes "Write your Character name (Exact Name pls)";
    next;
    input .@name$;
    if(.@name$ != strcharinfo(0)) {
        mes "[Mr. Prize]";
        mes "Are you sure of your name?";
        goto OnTouch;
    }
    getitem 22555,2;
    warp "prontera",156,176;    
    close;
}
//--------------------------
//== Mapflags ==============
bat_b01    mapflag    nobranch
bat_b01    mapflag    nomemo
bat_b01    mapflag    nopenalty
bat_b01    mapflag    noreturn
bat_b01    mapflag    noteleport
bat_b01    mapflag    nowarp
bat_b01    mapflag    nowarpto
bat_b01    mapflag    noicewall

guild_vs1    mapflag    nobranch
guild_vs1    mapflag    nomemo
guild_vs1    mapflag    nopenalty
guild_vs1    mapflag    noreturn
guild_vs1    mapflag    noteleport
guild_vs1    mapflag    nowarp
guild_vs1    mapflag    nowarpto
guild_vs1    mapflag    noicewall

 

hi can edit my script?

disable yggdrasil berry and yggdrasil seed

auto out if got killed,

auto Dispel if got call fighting,

bump,

Help, edit the script, for disable yggdrasil berry n seed,

AutoRemove buffler,

Players dead auto out,

Help thx

Edited by jacky
Added script to codebox
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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.

×
 Share
Go to question listing
×
×
  • Create New...