• 0
Sign in to follow this  
Followers 0
leonardofan

Hunting Mission error

Question

NPC HERCULES

kill monster does not count

 

 

//===== Hercules Script ======================================
//= Hunting Missions
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.4b
//===== Description: =========================================
//= Random hunting missions.
//= Rewards are based on quest difficulty.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.1 Small improvements and fixes.
//= 1.2 Added party support and replaced blacklists with an
//=     SQL query, both thanks to AnnieRuru.
//= 1.3 Re-added a blacklist adapted for the SQL query.
//= 1.3a Added mission reset options.
//= 1.4 Fix ranking table using new SQL database [ossi0110]
//= 1.4a Fix a bug when a character has deleted, that account
//=     can't do mission. [AnnieRuru]
//= 1.4b Update to follow author's method on fixing
//=     character deletion bug [AnnieRuru]
//============================================================

 

prontera,152,187,6    script    Hunting Missions    4_F_EDEN_MASTER,{
function Chk; function Cm;
    mes "[Hunting Missions]";
    mes "Hello, "+strcharinfo(PC_NAME)+"!";
    if (!#Mission_Delay) {
        next;
        mes "[Hunting Missions]";
        mes "I can't find any records...";
        mes "You must be new here!";
        emotion e_omg;
        next;
        callsub Mission_Info;
        emotion e_go;
        set #Mission_Delay,1;
        close;
    }
    mes rand(2)?"Working hard, as always...":"Not slacking, I hope...";
    mes "Is there anything I can help";
    mes "you with?";
    mes " ";
    mes "^777777~ You've completed ^0055FF"+Mission_Total+"^777777 mission"+((Mission_Total == 1)?"":"s")+". ~^000000";
    next;
    switch(select(((!Mission0)?" ~ New Mission::":": ~ Mission Status: ~ Abandon Mission")+": ~ Information: ~ Mission Shop: ~ View Top Hunters: ~ ^777777Cancel^000000")) {
    case 1:
        mes "[Hunting Missions]";
        if ( #Mission_Count ) {
            mes "You've started a mission";
            mes "on another character.";
            if ( [email protected]_char_del_check ) {
                if ( !query_sql( "SELECT 1 FROM `char_reg_num_db` WHERE `key` = 'Mission0' AND `char_id` IN ( SELECT `char_id` FROM `char` WHERE `account_id` = "+ getcharid(CHAR_ID_ACCOUNT) +" )", [email protected] ) ) {
                    next;
                    mes "[Hunting Missions]";
                    mes "I can't seem to find any records";
                    mes "for that character, though...";
                    mes "One moment, please.";
                    emotion e_hmm;
                    set #Mission_Count, 0;
                }
                set @hm_char_del_check, 1;
            }
            close;
        }
        if (#Mission_Delay > gettimetick(2) && .Delay) {
            set [email protected], #Mission_Delay-gettimetick(2);
            if ([email protected] > 3600) set [email protected]$, ([email protected]/3600)+" hour"+((([email protected]/3600) == 1)?"":"s");
            else if ([email protected] > 60) set [email protected]$, ([email protected]/60)+" minute"+((([email protected]/60) == 1)?"":"s");
            else set [email protected]$, ([email protected])+" second"+(([email protected] == 1)?"":"s");
            mes "I'm afraid you'll have to wait "[email protected]$+" before taking another mission.";
            close;
        }
        mes "You must hunt:";
        query_sql("SELECT ID FROM `mob_db` WHERE left(Sprite, 4) != 'meta' AND left(Sprite, 2) != 'E_' AND ~Mode & 32 AND EXP > 0 AND MVP1id = 0 AND DropCardid > 4000 AND DropCardid < 5000 AND ID < 2000 AND instr('"+.Blacklist$+"',ID) = 0 ORDER BY rand() LIMIT "+.Quests, [email protected]);
        for (set [email protected],0; [email protected]<.Quests; set [email protected],[email protected]+1) {
            setd "Mission"[email protected], [email protected][[email protected]];
            setd "Mission"[email protected] +"_",0;
        }
        set #Mission_Count, rand(.Count[0],.Count[1]);
        callsub Mission_Status;
        next;
        mes "[Hunting Missions]";
        mes "Report back when";
        mes "you've finished.";
        mes "Good luck!";
        close;
    case 2:
        mes "[Hunting Missions]";
        mes "Mission status:";
        callsub Mission_Status;
        close;
    case 3:
        mes "[Hunting Missions]";
        mes "Do you really want to";
        mes "abandon your mission?";
        if (.Reset < 0 && .Delay)
            mes "Your delay time will not be reset.";
        else if (.Reset > 0)
            mes "It will cost "+Cm(.Reset)+" Zeny.";
        next;
        switch(select(" ~ Abandon...", " ~ ^777777Cancel^000000")) {
        case 1:
            if (.Reset > 0) {
                if (Zeny < .Reset) {
                    mes "[Hunting Missions]";
                    mes "You don't have enough";
                    mes "Zeny to drop this mission.";
                    emotion e_sry;
                    close;
                }
                Zeny -= .Reset;
                emotion e_cash;
            }
            mes "[Hunting Missions]";
            mes "Alright, I've dropped";
            mes "your current mission.";
            specialeffect(EF_STORMKICK4, AREA, playerattached());
            for(set [email protected],0; [email protected]<.Quests; set [email protected],[email protected]+1) {
                setd "Mission"[email protected],0;
                setd "Mission"[email protected]+"_",0;
            }
            set #Mission_Count,0;
            if (.Reset < 0 && .Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
            close;
        case 2:
            mes "[Hunting Missions]";
            mes "I knew you were kidding!";
            mes "Keep up the good work.";
            emotion e_heh;
            close;
        }
    case 4:
        callsub Mission_Info;
        close;
    case 5:
        mes "[Hunting Missions]";
        mes "You have ^0055FF"+#Mission_Points+"^000000 Mission Points.";
        mes "Use them well!";
        callshop "mission_shop",1;
        npcshopattach "mission_shop";
        end;
    case 6:
        mes "[Hunting Missions]";
        mes "The top hunters are:";
        query_sql("SELECT char_id AS id, (SELECT `name` FROM `char` WHERE char_id = id),`value` FROM `char_reg_num_db` WHERE `key` = 'Mission_Total' ORDER BY `value` DESC LIMIT 5",[email protected],[email protected]$,[email protected]);
        for(set [email protected],0; [email protected]<5; set [email protected],[email protected]+1)
            mes "  [Rank "+([email protected]+1)+"]  "+(([email protected]$[[email protected]] == "")?"^777777none":"^0055FF"[email protected]$[[email protected]]+"^000000 : ^FF0000"[email protected][[email protected]]+" pt.")+"^000000";
        close;
    case 7:
        mes "[Hunting Missions]";
        mes "Nothing? Okay...";
        emotion e_hmm;
        close;
    }

Mission_Status:
    set @f,0;
    deletearray [email protected][0], getarraysize([email protected]);
    for(set [email protected],0; [email protected]<.Quests; set [email protected],[email protected]+1) {
        set [email protected][[email protected]], getd("Mission"[email protected]);
        set [email protected][.Quests], [email protected][.Quests]+strmobinfo(3,[email protected][[email protected]]);
        set [email protected][.Quests+1], [email protected][.Quests+1]+(strmobinfo(6,[email protected][[email protected]])/(getbattleflag("base_exp_rate")/100)*.Modifier[0]);
        set [email protected][.Quests+2], [email protected][.Quests+2]+(strmobinfo(7,[email protected][[email protected]])/(getbattleflag("job_exp_rate")/100)*.Modifier[1]);
        mes " > "+Chk(getd("Mission"[email protected]+"_"),#Mission_Count)+strmobinfo(1,[email protected][[email protected]])+" ("+getd("Mission"[email protected]+"_")+"/"+#Mission_Count+")^000000";
    }

    // Reward formulas:
    set [email protected]_Points, 3+([email protected][.Quests]/.Quests/6);
    set [email protected]_Exp, #Mission_Count*[email protected][.Quests+1]/5;
    set [email protected]_Exp, #Mission_Count*[email protected][.Quests+2]/5;
    set [email protected], #Mission_Count*.Quests*[email protected][[email protected]]*.Modifier[2];

    next;
    mes "[Hunting Missions]";
    mes "Mission rewards:";
    mes " > Mission Points: ^0055FF"[email protected]_Points+"^000000";
    mes " > Base Experience: ^0055FF"+Cm([email protected]_Exp)+"^000000";
    mes " > Job Experience: ^0055FF"+Cm([email protected]_Exp)+"^000000";
    mes " > Zeny: ^0055FF"+Cm([email protected])+"^000000";
    if (@f) { set @f,0; return; }
    next;
    mes "[Hunting Missions]";
    mes "Oh, you're done!";
    mes "Good work.";
    mes "Here's your reward.";
    emotion e_no1;
    specialeffect(EF_ANGEL, AREA, playerattached());
    specialeffect(EF_TRUESIGHT, AREA, playerattached());
    set #Mission_Points, #[email protected]_Points;
    set BaseExp, [email protected]_Exp;
    set JobExp, [email protected]_Exp;
    Zeny += [email protected];
    for(set [email protected],0; [email protected]<.Quests; set [email protected],[email protected]+1) {
        setd "Mission"[email protected],0;
        setd "Mission"[email protected]+"_",0;
    }
    set #Mission_Count,0;
    if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
    set Mission_Total, Mission_Total+1;
    if (Mission_Total == 1) query_sql("INSERT INTO `char_reg_num_db` (`char_id`,`key`,`index`,`value`) VALUES ("+getcharid(CHAR_ID_CHAR)+",'Mission_Total','0',1)");
    else query_sql("UPDATE `char_reg_num_db` SET `value` = "+Mission_Total+" WHERE `char_id` = "+getcharid(CHAR_ID_CHAR)+" AND `key` = 'Mission_Total'");
    close;

Mission_Info:
    mes "[Hunting Missions]";
    mes "If you so choose, I can assign";
    mes "you a random hunting quest.";
    mes "Some are easier than others, but";
    mes "the rewards increase with difficulty.";
    next;
    mes "[Hunting Missions]";
    mes "Missions points are shared";
    mes "amongst all your characters.";
    if (.Delay) mes "Delay time is, too.";
    mes "You can't take missions on";
    mes "multiple characters at once.";
    next;
    mes "[Hunting Missions]";
    mes "You can start a quest";
    if (.Delay) mes "every "+((.Delay == 1)?"hour.":.Delay+" hours.");
    else mes "whenever you want.";
    mes "That's everything~";
    return;

function Chk {
    if (getarg(0) < getarg(1)) { set @f,1; return "^FF0000"; }
    else return "^00FF00"; }

function Cm {
    set [email protected]$, getarg(0);
    for(set [email protected],getstrlen([email protected]$)-3; [email protected]>0; set [email protected],[email protected])
        set [email protected]$, insertchar([email protected]$,",",[email protected]);
    return [email protected]$; }

OnBuyItem:
    set @cost,0;
    for(set [email protected],0; [email protected]<getarraysize(@bought_nameid); set [email protected],[email protected]+1)
        for(set [email protected],0; [email protected]<getarraysize(.Shop); set [email protected],[email protected]+2)
            if (@bought_nameid[[email protected]] == .Shop[[email protected]]) {
                set @cost, @cost+(.Shop[[email protected]+1]*@bought_quantity[[email protected]]);
                break;
            }
    mes "[Hunting Missions]";
    if (@cost > #Mission_Points) mes "You don't have enough Mission Points.";
    else {
        for(set [email protected],0; [email protected]<getarraysize(@bought_nameid); set [email protected],[email protected]+1) {
            getitem @bought_nameid[[email protected]], @bought_quantity[[email protected]];
            dispbottom "Purchased "[email protected]_quantity[[email protected]]+"x "+getitemname(@bought_nameid[[email protected]])+".";
        }
        set #Mission_Points, #[email protected];
        mes "Deal completed.";
        emotion e_cash;
    }
    set @cost,0;
    deletearray @bought_nameid[0], getarraysize(@bought_nameid);
    deletearray @bought_quantity[0], getarraysize(@bought_quantity);
    close;

OnNPCKillEvent:
    if (!getcharid(CHAR_ID_PARTY) || !.Party) {
        if (!#Mission_Count || !Mission0) end;
        for (set [email protected], 0; [email protected]<.Quests; set [email protected],[email protected]+1) {
            if (strmobinfo(1,killedrid) == strmobinfo(1,getd("Mission"[email protected]))) {
                if (getd("Mission"[email protected]+"_") < #Mission_Count) {
                    dispbottom "[Hunting Mission] Killed "+(set(getd("Mission"[email protected]+"_"),getd("Mission"[email protected]+"_")+1))+" of "+#Mission_Count+" "+strmobinfo(1,killedrid)+".";
                    end;
                }
            }
        }
    } else if (.Party) {
        set [email protected], killedrid;
        getmapxy([email protected]$, [email protected], [email protected], UNITTYPE_PC);
        getpartymember getcharid(CHAR_ID_PARTY),1;
        getpartymember getcharid(CHAR_ID_PARTY),2;
        for(set [email protected],0; [email protected]<[email protected]; set [email protected],[email protected]+1) {
            if (isloggedin([email protected][[email protected]], [email protected][[email protected]])) {
                attachrid [email protected][[email protected]];
                if (#Mission_Count && Mission0 && Hp > 0) {
                    getmapxy([email protected]$, [email protected], [email protected], UNITTYPE_PC);
                    if (([email protected]$ == [email protected]$ || .Party == 1) && (distance([email protected],[email protected],[email protected],[email protected]) <= 30 || .Party < 3)) {
                        for(set [email protected],0; [email protected]<.Quests; set [email protected],[email protected]+1) {
                            if (strmobinfo(1,[email protected]) == strmobinfo(1,getd("Mission"[email protected]))) {
                                if (getd("Mission"[email protected]+"_") < #Mission_Count) {
                                    dispbottom "[Hunting Mission] Killed "+(set(getd("Mission"[email protected]+"_"),getd("Mission"[email protected]+"_")+1))+" of "+#Mission_Count+" "+strmobinfo(1,[email protected])+".";
                                    break;
                                }
                            }
                        }
                    }
                }
            }
        }
    }
    end;

OnInit:
    set .Delay,12;        // Quest delay, in hours (0 to disable).
    set .Quests,4;        // Number of subquests per mission (increases rewards).
    set .Party,3;        // Party options: 0 (exclude party kills), 1 (include party kills), 2 (same map only), 3 (screen area only)
    set .Reset,-1;        // Reset options: -1 (abandoning mission sets delay time), 0 (no delay time), [Zeny] (cost to abandon mission, no delay time)
    setarray .Count[0],    // Min and max monsters per subquest (increases rewards).
        40,70;
    setarray .Modifier[0],    // Multipliers for Base Exp, Job Exp, and Zeny rewards.
        getbattleflag("base_exp_rate")/100,getbattleflag("job_exp_rate")/100,60;
    setarray .Shop[0],    // Reward items: <ID>,<point cost> (about 10~20 points per hunt).
        512,1,513,1,514,1,538,5,539,5,558,10,561,10;
    set .Blacklist$,    // Blacklisted mob IDs.
        "1062,1088,1183,1186,1200,1212,1220,1221,1234,1235,"+
        "1244,1245,1250,1268,1290,1293,1294,1296,1298,1299,"+
        "1300,1301,1303,1304,1305,1306,1308,1309,1311,1313,"+
        "1515,1588,1618,1676,1677,1678,1679,1796,1797,1974,"+
        "1975,1976,1977,1978,1979";

    npcshopdelitem "mission_shop",512;
    for(set [email protected],0; [email protected]<getarraysize(.Shop); set [email protected],[email protected]+2)
        npcshopadditem "mission_shop", .Shop[[email protected]], .Shop[[email protected]+1];
    end;
}
-    shop    mission_shop    FAKE_NPC,512:-1

Edited by leonardofan

Share this post


Link to post
Share on other sites

2 answers to this question

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0