From 28a9fec0916db3d92629ae6e6cd62b5777b09e73 Mon Sep 17 00:00:00 2001 From: j-tkay Date: Thu, 4 Jul 2013 05:15:48 +0800 Subject: Merged/Updated/Added scripts from rAthena. - Fixed Bug #7400 Signed-off-by: j-tkay --- npc/custom/warper.txt | 512 ++++++++++++++++++++++++++++++-------------------- 1 file changed, 309 insertions(+), 203 deletions(-) (limited to 'npc/custom/warper.txt') diff --git a/npc/custom/warper.txt b/npc/custom/warper.txt index 14dcfebf0..72d3bafac 100644 --- a/npc/custom/warper.txt +++ b/npc/custom/warper.txt @@ -3,16 +3,23 @@ //===== By: ================================================== //= Euphy //===== Current Version: ===================================== -//= 1.2 +//= 1.4 //===== Compatible With: ===================================== //= Hercules //===== Description: ========================================= //= A complete - but very condensed - warper script. -//= Coordinates written largely by Tekno-Kanix and ToastOfDoom. +//= Some coordinates written by Tekno-Kanix and ToastOfDoom. +//===== Additional Comments: ================================= +//= 1.0 Initial script. +//= 1.1 Added missing duplicates and fixed coordinates. +//= 1.2 Added new episodes and simplified functions. +//= 1.3 Added Renewal checks and Instances menu. +//= Aligned coordinates with @go. +//= 1.4 Added new Guild Dungeons. //============================================================ - script Warper -1,{ -function Go; function Disp; function Pick; +function Go; function Disp; function Pick; function Restrict; // -------------------------------------------------- // Main Menu: @@ -20,21 +27,31 @@ function Go; function Disp; function Pick; menu "Last Warp ^777777["+lastwarp$+"]^000000",-, " ~ Towns",Towns, " ~ Fields",Fields, " ~ Dungeons",Dungeons, - " ~ Guild Castles",Castles, " ~ Special Areas",Special; + " ~ Guild Castles",Castles, " ~ Guild Dungeons",Guild_Dungeons, + " ~ Instances",Instances, " ~ Special Areas",Special; - if (lastwarp$ == "") dispbottom "You have not warped anywhere yet."; - else warp lastwarp$,lastwarpx,lastwarpy; - close; + if (lastwarp$ == "") + message strcharinfo(0),"You haven't warped anywhere yet."; + else + warp lastwarp$,lastwarpx,lastwarpy; + end; // ------------------- Functions ------------------- // * Go("",,); // ~ Warps directly to a map. +// // * Disp("",,); // * Pick(""{,}); -// ~ Dynamic menu and map selection. -// * Disp("","