viewing paste hourlybonus | 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 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
//===== rAthena/Hercules Script ==============================
//= Hourly Bonus Script
//===== By: ==================================================
//= chan - http://teamcars1broglobal.blogspot.com
//= Themon - http://pspcheatdb.blogspot.com
//===== Current Version: =====================================
//= 1.2a 
//===== Compatible With: =====================================
//= Any RAthena/Hercules Version
//===== Description: =========================================
//= Give the player a Hourly Bonus
//= so that the players will be exited to play everyday
//===== Additional Comments: =================================
//= you are free to edit the bonus you want to give your players
//= Thanks to Stolao who help me for finishing this
//============================================================
 
prontera,150,184,3  script  Hourly Bonus    865,{
 
 
if ($DLogin == 0)goto GnId;
if (#DLogin == $DLogin) goto L_RHLbonus;
mes "Im glad to give you your Hourly Bonus!";
    next;
    
    switch(rand(2)){ // 1/rand will be items, rest will be zeny
        case 0: //Items
            //      Card,   Enchant,    Healing,    All items
            setarray .@Plow, 40014700,       401,        501,    6228;
            setarray .@Phigh,46104871,       599,        210056235;
                        set .@x, rand(getarraysize(.@Plow));
                        set .@p, rand(.@Plow[.@x],.@Phigh[.@x]);
                        while(getitemname(.@p) == "null"){
                            set .@p, rand(.@Plow[.@x],.@Phigh[.@x]);
                        }
                        if (checkweight(.@p,1) == 0 ){
                            mes "Sorry you are overweight!";
                            emotion e_bzz;
                            close;
                        }
            getitem .@p,1;
            set #DLogin,$DLogin;
            announce "" + strcharinfo(0) + " got " + getitemname(.@p) + "",8;   
        break;
        default: //Zeny
            setarray .@x,1,2,3,4,5,6,7,8,9,10;
            set .@p, .@x[rand(getarraysize(.@x))] * rand(1,100);
            set Zeny,Zeny + .@p;
            set #DLogin,$DLogin;
            announce "" + strcharinfo(0) + " got " + .@p + "z!",8;
        break;
    }
 
 
L_RHLbonus:
    mes "You had already received your gift";
    mes "Please! come back again after an hour.";
    emotion e_bzz;
    close;
 
GnId:
    set $DLogin,rand (100000,999999);
    end;
 
OnInit:
 
    OnClock0000:
    OnClock0100:
    OnClock0200:
    OnClock0300:
    OnClock0400:
    OnClock0500:
    OnClock0600:
    OnClock0700:
    OnClock0800:
    OnClock0900:
    OnClock1000:
    OnClock1100:
    OnClock1200:
    OnClock1300:
    OnClock1400:
    OnClock1500:
    OnClock1600:
    OnClock1700:
    OnClock1800:
    OnClock1900:
    OnClock2000:
    OnClock2100:
    OnClock2200:
    OnClock2300:
    announce "You can now claim your Hourly Bonus!",8;
set $DLogin,rand (100000,999999);
end;
 
}
 
Viewed 818 times, submitted by Guest.