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);
 
}
 
Viewed 348 times, submitted by unknown.