/custom/ folder overhaul:

==== Script Changes ====
* Warper replaced with Euphy's Warper v1.2
* Stylist replaced with a much more efficient script
* Healer replaced with more efficient script
* MVP Arena heavily condensed, and text edited
* Removed logout suggestion in Reset NPC (why was that there?)
* Quest Warper added to scripts_custom.conf [bug fix]

==== Reorganization ====
* All folders in root directory removed except "battleground", "events", "quests"
* All non-essential scripts in root directory moved to "etc" folder
* A few files renamed for easier identification
* scripts_custom.conf reordered for easier identification

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16193 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 199 insertions, 0 deletions

diff --git a/npc/custom/etc/shifty_assassin.txt b/npc/custom/etc/shifty_assassin.txt
new file mode 100644
index 000000000..c31d571c1
--- /dev/null
+++ b/npc/custom/etc/shifty_assassin.txt
@@ -0,0 +1,199 @@
+//===== rAthena Script =======================================

+//= Shifty Assassin

+//===== By: ==================================================

+//= acky

+//===== Current Version: =====================================

+//= 1.1.2

+//===== Compatible With: =====================================

+//= rAthena SVN

+//===== Description: =========================================

+//= Players buy ninjas to assassinate other players

+//===== Additional Comments: =================================

+//= 1.1.1 Changed all gmcommand to atcommand as Poki#3 suggested. [Vicious]

+//= 1.1.2 Updated WoE Check. [Paradox924X]

+//============================================================

+

+morocc,148,86,5	script	Shifty Assassin	725,{

+	set $ninja_price,250000;

+

+	// STARTS THE MENU //

+M_Start:

+	mes "[Shifty Assassin]";

+	mes "What do you want?";

+	next;

+	if (getgmlevel() > 90) goto M_GM;

+	menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Cancel",M_Exit;

+M_GM:

+	menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Add Ninjas",M_Add,"Cancel",M_Exit;

+

+	// GM MENU TO ADD NINJAS //

+M_Add:

+	mes "[Shifty Assassin]";

+	mes "How many ninjas do you want to make available?";

+	next;

+	set @add,0;

+	input @add;

+	set $ninja_avail,$ninja_avail+@add;

+	mes @add + " ninjas added.";

+	close;

+

+	// BUY NINJAS //

+M_Buy:

+	mes "[Shifty Assassin]";

+	mes "How many ninjas do you want buy?";

+	mes "There are ^0000FF" + $ninja_avail + "^000000 ninjas available.";

+	mes "They cost ^0000FF" + $ninja_price + " zeny ^000000each.";

+

+	set @buy,0;

+	input @buy;

+	next;

+	if ($ninja_avail < 1) goto NoNinjas;

+	if ($ninja_avail < @buy) goto NotEnoughNinjas;

+	set @price,@buy*$ninja_price;

+	if (zeny < @price ) goto NoZeny;

+

+	mes "[Shifty Assassin]";

+	mes "That will cost you ^0000FF" + @price + " zeny^000000.";

+	next;

+	menu "Continue",-,"Cancel",M_Exit;

+

+	set zeny,zeny-@price;

+	set #ninjas,#ninjas+@buy;

+	set $ninja_avail,$ninja_avail-@buy;

+

+	mes "[Shifty Assassin]";

+	mes "Thank you.";

+	close;

+

+	// ASSASSINATE SOMEBODY //

+M_Kill:

+	if (agitcheck()) goto M_Busy;

+	mes "[Shifty Assassin]";

+	mes "Enter the name of the target.";

+	mes "^FF0000Type the name exactly, otherwise I won't be able to find the victim.^000000";

+	next;

+	menu "Continue",-,"Cancel",M_Exit;

+	set @name$,"0";

+	input @name$;

+	next;

+	mes "[Shifty Assassin]";

+	mes "Active Ninjas: "+#ninjas;

+	mes "Resting Ninjas: "+#ninjasr;

+	mes "How many do you want to send?";

+	set @number,0;

+	input @number;

+	if (@number < 1) goto NoNinjasSent;

+	if (@number > #ninjas) goto NotEnoughNinjas1;

+	if (@number > 10) goto TooManyNinjas;

+	set @chance,rand (1,12);

+	set #ninjas,#ninjas-@number;

+	set #ninjas,#ninjas+#ninjasr;

+	set #ninjasr,0;

+	if (@number < @chance) goto M_Failure;

+

+	// SUCCESSFUL ATTACK //

+	mes "Sending ninjas now.";

+	next;

+	mes "[Shifty Assassin]";

+	set @ninjasurvived,rand (1,@number);

+	set #ninjasr,@number-@ninjasurvived;

+	mes "Your attack succeeded but only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";

+

+	atcommand strcharinfo(0) + "@kill "+@name$;

+	announce @name$+" has been assassinated by " + strcharinfo(0) +"'s Ninjas.",8;

+	close;

+

+	// FAILED ATTACK //

+M_Failure:

+	mes "Sending ninjas now.";

+	next;

+	mes "[Shifty Assassin]";

+	set @ninjasurvived,rand (1,@number);

+	set #ninjasr,@number-@ninjasurvived;

+	mes "Your attack failed and only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";

+

+	announce @name$+" has survived " + strcharinfo(0) +"'s Ninja attack.",8;

+	close;

+

+	// NINJAS BUSY FOR WOE //

+M_Busy:

+	mes "[Shifty Assassin]";

+	mes "Sorry, all my ninjas are busy doing War of Emperium.";

+	close;

+

+	// CHECK YOUR NINJAS //

+M_Check:

+	mes "[Shifty Assassin]";

+	mes "You have:";

+	mes "^FF0000" + #ninjas + "^000000 Active Ninjas.";

+	mes "^0000FF" + #ninjasr + "^000000 Resting Ninjas.";

+	next;

+	goto M_Start;

+

+

+	// LIMIT //

+NoNinjasSent:

+	mes "[Shifty Assassin]";

+	mes "You can't kill anyone without ninjas.";

+	next;

+	goto M_Start;

+

+TooManyNinjas:

+	mes "[Shifty Assassin]";

+	mes "You can only send 10 ninjas max.";

+	next;

+	goto M_Start;

+

+NoZeny:

+	mes "[Shifty Assassin]";

+	mes "You do not have enough zeny.";

+	close;

+

+NotEnoughNinjas:

+	mes "[Shifty Assassin]";

+	mes "There aren't that many ninjas to buy.";

+	next;

+	goto M_Start;

+

+NoNinjas:

+	mes "[Shifty Assassin]";

+	mes "There are no ninjas left to buy.";

+	close;

+

+NotEnoughNinjas1:

+	mes "[Shifty Assassin]";

+	mes "You do not have that many ninjas.";

+	next;

+	goto M_Start;

+

+M_Exit:

+	mes "[Shifty Assassin]";

+	mes "Goodbye.";

+	close;

+

+// TIMER DELAY NINJA ADDER //

+OnClock0600:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnClock1200:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnClock1500:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnClock1800:

+	set $ninja_avail,$ninja_avail+3;

+	end;

+OnClock1900:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnClock2000:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnClock0000:

+	set $ninja_avail,$ninja_avail+2;

+	end;

+OnInit:

+	set $ninja_avail,$ninja_avail+1;

+	end;

+}