viewing paste castle manage ( incomplete ) | 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 97 98
 
 
prontera,155,181,5      script  Sample  757,{
.@guild_id = getcharid(2);
if( !.@guild_id ){
        mes "You dont have any guild.";
}else if( getcharid(0) != getguildmasterid( .@guild_id ) ){
        mes "You're not guild master.";
}else{
        while( .@i < .castle_size ){
                if( getcastledata( .castle$[.@i],1 ) == .@guild_id ){
                        .@menu$ = .@menu$ + getcastlename( .castle$[.@i] );
                        .@castle_count++;
                }
                .@menu$ = .@menu$ + ":";
                .@i++;
        }
        if( !.@castle_count ){
                mes "You didnt owned any castle.";
        }else{
                mes "Select a Castle.";
                .@castle = select( .@menu$ ) - 1;
                        for( .@i = 2; .@i <= 17; .@i++ )
                                if( .@i < 6 || .@i > 8 )
                                        .@getcastledata[.@i] = getcastledata( .castle$[.@castle],.@i );
                do{
                        mes "Pick Option";
                        switch( select(
                                        ( .@getcastledata[4] >= .max_daily_invest )?"":"Invest Castle Economy",
                                        ( .@getcastledata[5] >= .max_daily_invest )?"":"Invest Castle Defense",
                                        ( .@getcastledata[9] )?"":"Hire Kafra",
                                        ( .@getcastledata[10] )?"":"Hire Soldier Guardian",
                                        ( .@getcastledata[11] )?"":"Hire Soldier Guardian",
                                        ( .@getcastledata[12] )?"":"Hire Soldier Guardian",
                                        ( .@getcastledata[13] )?"":"Hire Archer Guardian",
                                        ( .@getcastledata[14] )?"":"Hire Archer Guardian",
                                        ( .@getcastledata[15] )?"":"Hire Knight Guardian",
                                        ( .@getcastledata[16] )?"":"Hire Knight Guardian",
                                        ( .@getcastledata[17] )?"":"Hire Knight Guardian"
                        )){
                                Case 1:
                                        mes "Investment cost : "+.invest_cost+" zeny.";
                                        if( Zeny >= .invest_cost ){
                                                Zeny -= .invest_cost;
                                                mes "Invested the castle economy.";
                                                .@getcastledata[2] += 5;
                                                .@getcastledata[4] += 1;
                                                setcastledata .castle$[.@castle],2,.@getcastledata[2];
                                                setcastledata .castle$[.@castle],4,.@getcastledata[4];
                                        }
                                        break;
                                Case 2:
                                        mes "Investment cost : "+.invest_cost+" zeny.";
                                        if( Zeny >= .invest_cost ){
                                                Zeny -= .invest_cost;
                                                mes "Invested the castle defense.";
                                                .@getcastledata[3] += 5;
                                                .@getcastledata[5] += 1;
                                                setcastledata .castle$[.@castle],3,.@getcastledata[3];
                                                setcastledata .castle$[.@castle],5,.@getcastledata[5];
                                        }
                                        break;
                                Case 3:
                                        mes "You hired kafra.";
                                        .@getcastledata[9] = 1;
                                        setcastledata .castle$[.@castle],9,.@getcastledata[9];
                                        break;
                                default:
                                        mes "You hired a Guardian";
                                        .@i = @menu + 6;
                                        .@getcastledata[.@i] = 1;
                                        setcastledata .castle$[.@castle],.@i,.@getcastledata[.@i];
                                        // code to summon guardian...
                                        break;
                        }
                        next;
                }while( select( "Continue","Close" ) == 1 );
        }
}
 
 
OnInit:
.max_daily_invest = 2;
.invest_cost = 100000;
 
setarray .castle$,
        "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
        "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
        "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
        "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05",
        "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05",
        "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05";
.castle_size = getarraysize( .castle$ );
 
}
 
Viewed 653 times, submitted by Emistry.