viewing paste Unknown #14133 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
prontera,141,171,3  script  Man Hunt Warden 831,{
 
    if(getgmlevel() >= 99){
        mes "[Man Hunt Warden]";
        mes "Do you want to start the Man Hunt Event?";
        if(select("Yes:No") -1){
            next;
        }else
        deletearray $in$, getarraysize($in$);
        set .i, 0;
        donpcevent "Man Hunt Gamekeeper::OnGMStart";
        next;
    }
 
 
    if($hstart == 1){
        mes "[Man Hunt Warden]";
        mes "Your current Man Hunt Points are: ^03960F"+#MHPoint+"^000000";
        mes " ";
        mes "Do you want to join the Man Hunt Event?";
        if(select("Join Event:Nevermind") -1) end;
        mes .i;
        warp "06guild_01",50,50;
        set $in$[.i], strcharinfo(0);
        set .i, .i++;
        close;
    }else if($hstart == 2){
        mes "[Man Hunt Warden]";
        mes "The hunt has started, you are not allowed to join now.";
        mes " ";
        mes "Your current Man Hunt Points are: ^03960F"+#MHPoint+"^000000";
        mes " ";
        mes "You will see a Join Event option if the event becomes active. Save up your Points and redeem later in a form of SPECs!";
        mes "Exchange Rate: ^0088001 Pt = 2x SPECs.^000000";
        if(select("Exchange All Points to Rewards:Cancel") -1) end;
        next;
        for(.@i = 0; .@i < #MHPoint ; .@i ++){
            getitem .get_item, .get_num;
        }
        set #MHPoint, 0;
        mes "You got "+.@i+" " + .get_item + ".";
        close;
    }else{
        mes "[Man Hunt Warden]";
        mes "The hunt is not active! Please check back later.";
        mes " ";
        mes "Your current Man Hunt Points are: ^03960F"+#MHPoint+"^000000";
        mes " ";
        mes "You will see a Join Event option if the event becomes active. Save up your Points and redeem later in a form of SPECs!";
        mes "Exchange Rate: ^0088001 Pt = 2x SPECs.^000000";
        if(select("Exchange All Points to Rewards:Cancel") -1) end;
        next;
        for(.@i = 0; .@i < #MHPoint ; .@i ++){
            getitem .get_item, .get_num;
        }
        set #MHPoint, 0;
        mes "You got "+.@i+" " + .get_item + ".";
        close;
    }
OnInit:
    .get_item = 607; //Item you get
    .get_num = 1;   //how many?
        
    end;
OnEnd:
    set .i, 0;
    announce "Setting .i " + .i, 0;
    end;
}
Viewed 569 times, submitted by Guest.