viewing paste Unknown #20918 | 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
/// Custom XXRO farm rooms.
/// Ygg berries, gold rooms.
/// (C) Oxxy, 2015
 
atlantis,123,183,6      script  Custom Farm Rooms       700,{
 
        mes .npcName$;
        mes "Приветствую, "+strcharinfo(0);
        mes "Я предоставляю доступ к одной уникальной комнате,"
        "в которой, в зависимости от Вашего выбора, Вам будет выпадать одна из вещей:";
        mes "1.) Yggdrassil Berry (шанс дропа 5%)";
        mes "2.) Gold (шанс дропа 5%)";
        mes "3.) Witherless Rose или Frozen Rose (шанс дропа 10% и 15%)";
        switch(select("> Yggdrassil Berry:> Gold:> Witherless / Frozen Rose:> Отмена")) {
       
                // @g_item variable contains ID for item, that will be dropped from monster for current session.
                // @g_chance variable contains chance of dropping @g_item.
                // @g_amount variable contains amount of @g_item that will be dropped by @g_chance
       
                case 1: // Berry
                        @g_item = 607;
                        @g_chance = 500; // 100 = 1%
                        dispbottom "Monsters in special room will drop "+getitemname(@g_item)+" for you at "+@g_chance/100+"% chance.";
                        warp "mosk_que",0,0;
                        end;
               
                case 2: // Gold
                        close;
               
                case 3: // Witherless / Frozen Rose
                        close;
               
                case 4: //
                        close;
        }
 
        OnInit:
                .npcName$ = "^FF0000[XXRO] ^0000FFSpecial Room^000000";
                delwaitingroom;
                waitingroom "[XXRO] Special Room",0;
               
                monster "mosk_que",0,0,"Gold",1002,100,strnpcinfo(0)+"::OnSpecialMobKill";
                end;
               
                OnSpecialMobKill:
                        addtimer 300000, strnpcinfo(3)+"::On5Mins;";
                        set $Earn,$Earn + ( 100000 * $Tax / 100 );
                        set #GoldPoint,#GoldPoint + 1;
                        dispbottom "Total Gold Point = "+#GoldPoint+" Points.";
                        end;
                       
                On5Mins:
                        monster "mosk_que",0,0,"Gold",1002,1,strnpcinfo(0)+"::OnSpecialMobKill";
                        end;
 
}
Viewed 629 times, submitted by unknown.