Override

1 files changed, 0 insertions, 445 deletions

diff --git a/npc/functions/main.txt b/npc/functions/main.txt
deleted file mode 100644
index 8029f3eb..00000000
--- a/npc/functions/main.txt
+++ /dev/null
@@ -1,445 +0,0 @@
-// Evol functions.
-// Authors:
-//    4144
-//    Jesusalva
-//    Travolta
-// Description:
-//    Build in functions.
-
-/**
- * checks whether the given argument is a char name or account id
- * and tries to convert it to an account id
- *
- * @arg 0 - char name or account id
- * @return the account id
- */
-function	script	nameid2id	{
-    if ((getdatatype(getarg(0, "")) & DATATYPE_STR) != 0) {
-        if (getarg(0, "") == "") {
-            return playerattached();
-        } else {
-            return getcharid(CHAR_ID_ACCOUNT, getarg(0));
-        }
-    } else if (getarg(0) == 0) {
-        return playerattached();
-    } else {
-        return getarg(0);
-    }
-}
-
-function	script	menuimage	{
-    return getarg(0) + "|" + getarg(1);
-}
-
-function	script	menuaction	{
-    return "[" + getarg(0) + "]";
-}
-
-function	script	mesn	{
-    if (getargcount() > 0)
-    {
-        .@s$ = "[" + getarg(0) + "]";
-    }
-    else
-    {
-        .@s$ = "[" + strnpcinfo(1) + "]";
-    }
-    mes .@s$;
-    return;
-}
-
-function	script	mesq	{
-    mes "\"" + getarg(0)+  "\"";
-    return;
-}
-
-function	script	g	{
-    consolemes(CONSOLEMES_ERROR, "Deprecated function \"g\" used, results are not reliable.");
-    return rand(1000) % 2 ? getarg(0) : getarg(1);
-}
-
-function	script	b	{
-    return "##B" + getarg(0) + "##b";
-}
-
-function	script	col	{
-    .@color = getarg(1);
-    if (.@color < 0) .@color = 0;
-    if (.@color > 9) .@color = 9;
-    return "##" + .@color + getarg(0) + "##0";
-}
-
-function	script	mesc	{
-    return mes(col(getarg(0, ""), getarg(1, 9)));
-}
-
-// *showimage("<file>");
-// Displays an image in the NPC window. If no file extension is provided, it is
-// assumed to be a PNG file. The image path is relative to client-data/graphics.
-// example:
-//     showimage("guiicons/flags/fr");
-function	script	showimage	{
-    .@file$ = getarg(0);
-
-    if (!endswith(getarg(0), ".jpg") && !endswith(getarg(0), ".png")) {
-        .@file$ += ".png";
-    }
-
-    if (charat(getarg(0), 0) == "/") {
-        .@file$ = delchar(.@file$, 0); // absolute path from root of client-data
-    } else if (!startswith(getarg(0), "help/") && !startswith(getarg(0), "graphics/") ) {
-        .@file$ = "graphics/" + .@file$; // assume relative to graphics/
-    }
-
-    return mesf("~~~%s~", .@file$);
-}
-
-function	script	adddefaultskills	{
-    if (getskilllv(NV_BASIC) < 6)
-    {
-        skill NV_BASIC, 6, 0;
-    }
-    return;
-}
-
-function	script	addremovemapmask	{
-    setmapmask getarg(0), (getmapmask(getarg(0)) | (getarg(1) + getarg(2))) ^ getarg(2);
-    return;
-}
-
-// Function to show narrator text. Accepts string args.
-// If first arg is a number N, then it represents bit flags.
-// Bit flags :
-//   S_FIRST_BLANK_LINE -- blank line at beginning
-//   S_LAST_BLANK_LINE  -- blank line at the end
-//   S_LAST_NEXT        -- use last "next();"
-//   S_NO_NPC_NAME      -- don't use first "mesn();"
-//   S_LAST_CLOSE       -- use last "close2();
-function	script	narrator	{
-    .@start = 0;
-    .@argc = getargcount();
-    .@flags = 0;
-
-    if (.@argc > 1 && (getdatatype(getarg(0)) & DATATYPE_INT) != 0) {
-        .@start = 1;
-        .@flags = getarg(0);
-    }
-
-    if ((.@flags & S_FIRST_BLANK_LINE) != 0) {
-        mes("");
-    }
-
-    if ((.@flags & S_NO_NPC_NAME) == 0) {
-        mesn(l("Narrator"));
-    }
-
-    for (.@i = .@start; .@i < .@argc; .@i++) {
-        mes(col(getarg(.@i), 9));
-
-        if (.@i < .@argc - 1) {
-            next();
-        }
-    }
-
-    if ((.@flags & S_LAST_BLANK_LINE) != 0) {
-        mes("");
-    }
-
-    if ((.@flags & S_LAST_NEXT) != 0) {
-        next();
-    } else if ((.@flags & S_LAST_CLOSE) != 0) {
-        close2();
-    }
-
-    return;
-}
-
-// Function to show NPC speech. Accepts string args.
-// If first arg is a number N, then it represents bit flags.
-// Bit flags :
-//   0x1 -- blank line at beginning
-//   0x2 -- blank line at the end
-//   0x4 -- use last "next;"
-//   0x8 -- don't use first "mesn;"
-function	script	speech	{
-    .@start = 0;
-    .@argc = getargcount();
-    .@flags = 0;
-
-    if (.@argc > 1 && !isstr(getarg(0)))
-    {
-        .@start = 1;
-        .@flags = getarg(0);
-    }
-
-    if (.@flags & 0x1)
-        mes "";
-
-    if (!(.@flags & 0x8))
-        mesn;
-
-    for (.@i = .@start; .@i < .@argc; .@i++)
-    {
-        mesq getarg(.@i);
-
-        if (.@i < .@argc - 1)
-            next;
-    }
-
-    if (.@flags & 0x4)
-        next;
-    else if (.@flags & 0x2)
-        mes "";
-
-    return;
-}
-
-// Show debug message if .debug variable of NPC is set to 1
-function	script	npcdebug	{
-    if (getvariableofnpc(.debug, strnpcinfo(3)))
-        consolemes(CONSOLEMES_DEBUG, strnpcinfo(3) + ": " + getarg(0));
-    return;
-}
-
-function	script	askyesno	{
-    .@sel = select(menuaction(l("Yes")),
-        menuaction(l("No")));
-    mes "";
-    return .@sel;
-}
-
-// Argument:
-//  0 Quest variable
-//  1 Current value
-//  2 Next value
-function	script	compareandsetq	{
-    if (getq(getarg(0)) == getarg(1))
-    {
-        setq getarg(0), getarg(2);
-        return true;
-    }
-    return false;
-}
-
-// Use a delay to prevent spams from NPC that display text without the
-// use of (a) close/next function(s).
-// Argument:
-//  0 Text to display
-//  1 Lock delay (default = 1)
-//  2 Message function:  (default = 0)
-//      0 = npctalk3
-//      1 = npctalk
-//      2 = message
-function	script	npctalkonce	{
-    // lock mechanism
-    switch (getarg(2, 0))
-    {
-    case 1:
-        if (gettimetick(2) <= getvariableofnpc(.talk_lock, strnpcinfo(NPC_NAME_UNIQUE)))
-            return false;
-        set(getvariableofnpc(.talk_lock, strnpcinfo(NPC_NAME_UNIQUE)), gettimetick(2) + getarg(1, 1));
-        break;
-    default:
-        if (gettimetick(2) <= @NPC_TALK_LOCK[getnpcid()])
-            return false;
-        @NPC_TALK_LOCK[getnpcid()] = gettimetick(2) + getarg(1, 1);
-    }
-
-    // talk mechanism
-    switch (getarg(2, 0))
-    {
-    case 0: npctalk3(getarg(0)); break;
-    case 1: npctalk(getarg(0)); break;
-    case 2: message(strcharinfo(0), getarg(0));
-    }
-
-    return true;
-}
-
-function	script	getquestlink	{
-    return "[@@q" + getarg(0) + "|@@]";
-}
-
-function	script	getmonsterlink	{
-    return "[@@m" + getarg(0) + "|@@]";
-}
-
-function	script	getpetlink	{
-    return "[@@p" + getarg(0) + "|@@]";
-}
-
-function	script	getmercenarylink	{
-    return "[@@M" + getarg(0) + "|@@]";
-}
-
-function	script	gethomunculuslink	{
-    return "[@@h" + getarg(0) + "|@@]";
-}
-
-// Returns the player race in plain text
-// GETRACE_RACE - returns player race (default)
-// GETRACE_SKIN - returns player skin
-// GETRACE_FULL - returns player skin + race
-// Can take an optional 2nd param with the class
-// get_race( {Flag, {Class}} )
-function	script	get_race	{
-    .@m=getarg(0, GETRACE_RACE);
-    .@g=getarg(1, Class);
-
-    // We also allow this to run without player attached for... science.
-    if (playerattached())
-    {
-        setarray .@allraces$, l("Human"), l("Human"), l("Human"),
-                              l("Ukar"), l("Ukar"),
-                              l("Tritan"), l("Tritan"),
-                              l("Raijin"), l("Raijin"),
-                              l("Kralog"), l("Kralog");
-        setarray .@allskins$, l("Kaizei"), l("Argaes"), l("Tonori"),
-                              l("Cave"), l("Mountain"),
-                              l("Sea"), l("Lake"),
-                              l("Light"), l("Dark"),
-                              l("Fire"), l("Frost");
-    }
-    else
-    {
-        setarray .@allraces$, ("Human"), ("Human"), ("Human"),
-                              ("Ukar"), ("Ukar"),
-                              ("Tritan"), ("Tritan"),
-                              ("Raijin"), ("Raijin"),
-                              ("Kralog"), ("Kralog");
-        setarray .@allskins$, ("Kaizei"), ("Argaes"), ("Tonori"),
-                              ("Cave"), ("Mountain"),
-                              ("Sea"), ("Lake"),
-                              ("Light"), ("Dark"),
-                              ("Fire"), ("Frost");
-    }
-
-    if (.@m == GETRACE_RACE)
-        return .@allraces$[.@g];
-    else if  (.@m == GETRACE_SKIN)
-        return .@allskins$[.@g];
-    else
-        return .@allskins$[.@g] + " " + .@allraces$[.@g];
-}
-
-// Clear output of getinventorylist()
-// delinventorylist()
-function	script	delinventorylist	{
-    deletearray @inventorylist_id;
-    deletearray @inventorylist_amount;
-    deletearray @inventorylist_equip;
-    deletearray @inventorylist_refine;
-    deletearray @inventorylist_identify;
-    deletearray @inventorylist_attribute;
-    deletearray @inventorylist_card1;
-    deletearray @inventorylist_card2;
-    deletearray @inventorylist_card3;
-    deletearray @inventorylist_card4;
-    deletearray @inventorylist_expire;
-    deletearray @inventorylist_bound;
-    @inventorylist_count=0;
-    return;
-}
-
-// isin( map, x1, y1, {[x2, y2][radius]} )
-function	script	isin	{
-    if (getmapxy(.@mapName$, .@xpos, .@ypos, 0) != 0)
-        return false;
-    if (.@mapName$ != getarg(0))
-        return false;
-
-    if (getarg(4,-1) < 0) {
-        // Radius Based
-        if (.@xpos >= getarg(1)-getarg(3) && .@xpos <= getarg(1)+getarg(3) && .@ypos >= getarg(2)-getarg(3) && .@ypos <= getarg(2)+getarg(3))
-            return true;
-    } else {
-        // Coordinate based
-        if (.@xpos >= getarg(1) && .@xpos <= getarg(3) && .@ypos >= getarg(2) && .@ypos <= getarg(4))
-            return true;
-    }
-    return false;
-}
-
-// Shortcut for getmapname()
-function	script	getmap	{
-    return getmapname();
-}
-
-// Quest Rewards
-// quest_xp(maxLevel, reward, {multiplier=1})
-function	script	quest_xp	{
-    //.@minLevel=getarg(0);
-    .@maxLevel=getarg(0);
-    .@reward=getarg(1);
-    .@mult=getarg(2, 1);
-    if (BaseLevel <= .@maxLevel) {
-        getexp .@reward*.@mult, 0;
-        return;
-    }
-    // You'll forsake 2% every over level
-    .@mult*=100;
-    .@mult-=((BaseLevel - .@maxLevel) * 2);
-    .@mult=max(10, .@mult);
-    getexp .@reward*.@mult/100, 0;
-    return;
-}
-
-// quest_jxp(maxLevel, reward, {multiplier=1})
-function	script	quest_jxp	{
-    //.@minLevel=getarg(0);
-    .@maxLevel=getarg(0);
-    .@reward=getarg(1);
-    .@mult=getarg(2, 1);
-    if (BaseLevel < .@maxLevel) {
-        getexp 0, .@reward*.@mult;
-        return;
-    }
-    // You'll forsake 2% every over level
-    .@mult*=100;
-    .@mult-=((BaseLevel - .@maxLevel) * 2);
-    .@mult=max(10, .@mult);
-    getexp 0, .@reward*.@mult/100;
-    return;
-}
-
-// quest_gp(maxLevel, reward, {multiplier=1})
-function	script	quest_gp	{
-    //.@minLevel=getarg(0);
-    .@maxLevel=getarg(0);
-    .@reward=getarg(1);
-    .@mult=getarg(2, 1);
-    if (BaseLevel <= .@maxLevel) {
-        Zeny+=.@reward*.@mult;
-        return;
-    }
-    // You'll forsake 2% every over level
-    .@mult*=100;
-    .@mult-=((BaseLevel - .@maxLevel) * 2);
-    .@mult=max(10, .@mult);
-    Zeny+=.@reward*.@mult/100;
-    return;
-}
-
-// quest_item(maxLevel, item, {amount=1}, {bound=0})
-function	script	quest_item	{
-    //.@minLevel=getarg(0);
-    .@maxLevel=getarg(0);
-    .@reward=getarg(1);
-    .@mult=getarg(2, 1);
-    .@bind=getarg(3, 0);
-    // Item will not be obtained if you are overlevel
-    if (BaseLevel > .@maxLevel && .@mult <= 1)
-        return;
-    // If it comes in pairs, you'll only get 1
-    if (BaseLevel > .@maxLevel)
-        .@mult=1;
-    // Obtain item bound if needed
-    if (.@bind)
-        getitembound .@reward, .@mult, .@bind;
-    else
-        getitem .@reward, .@mult;
-    return;
-}
-
-
-