catalinD
Moderator
Data inscrierii: 19/Sep/2007
Mesaje: 48
|
 Trimis: 19/09/2007 10:47 Titlul subiectului: Nuke Script |
 |
|
| Cod: |
//===== eAthena Script =======================================
//= Nuclear Missile Script
//===== By: ==================================================
//= acky - god@acky.com
//===== Current Version: =====================================
//= 1.1.2
//===== Compatible With: =====================================
//= Later than eAthena RC5
//===== Description: =========================================
//= Allows players to contruct a nuclear missile.
//= Construction requires 10 days and a cost global of
//= 1 million zeny (adjust @price to change cost)
//=
//= Nuclear Missile allows the player to kill all players
//= on a chosen map.
//===== Additional Comments: =================================
//= Cannot be used during Guild Wars
//= Will only work for eAthena versions compatible with
//= gmcommand scripting command.
//= ------------
//= Added nuke-proof maps
//= ------------
//= Fixed minor zeny-free upgrade bug.
//= Fixed typo on line 88
//= ------------
//= OnClock0000 or OnClock2400?
//============================================================
prt_in.gat,122,65,5 script Nuclear Missile 69,{
set @price,100000; //Price to upgrade nuke
if (#nuke < 100000) goto L_New;
if (#nuke == $nuke) goto L_Start2;
L_Start:
mes "[Nuclear Missile]";
mes "It costs ^FF0000"+@price+"z^000000 to upgrade your missile";
mes "Upgrading can be done once a day";
menu "Upgrade",-,"Cancel",L_Start2;
if (zeny <price> 9) set @percent,100;
mes "[Nuclear Missile]";
mes "Your missile is:";
mes "^FF0000"+@percent+"%^000000 Complete";
if (@percent != 100 || $AgitStarted != 0) close;
next;
menu "^FF0000Launch your Missile^000000",-,
"Cancel",L_Cancel;
mes "Enter the name of the map:";
mes "^999999eg. prontera";
mes "Type /where to find out a map name^000000";
input @map$;
// Un-nukable maps //
if (@map$ == "prt_church" || @map$ == "prt_gld") goto L_Disallow;
set #nukestat,0;
set @users,getmapusers(@map$+".gat");
gmcommand strcharinfo(0)+"@warp " + @map$;
gmcommand strcharinfo(0)+"@doommap";
announce strcharinfo(0)+" has launched a Nuclear Missile on " + @map$,8;
announce "Victims: " + @users,8;
close;
L_New:
mes "[Nuclear Missile]";
mes "Welcome to the Prontera Nuclear facility.";
mes "Would you like to start building a Nuclear Warhead?";
next;
menu "Yes",-,"No",L_Cancel;
set #nuke,$nuke;
goto L_Start;
L_Disallow:
next;
mes "[Nuclear Missile]";
mes "You are not allowed to nuke this map.";
close;
L_Cancel:
mes "[Nuclear Missile]";
mes "Goodbye";
close;
L_NoZeny:
mes "^FF0000You do not have enough zeny^000000";
close;
L_RandomNuke:
OnClock0000:
OnClock2400:
set $nuke,rand (100000,999999);
end;
OnInit:
if ($nuke < 100000) goto L_RandomNuke;
end;
} |
|
|
Nuke Script
