viewing paste Gold Room [Party Share Gold] | 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
 
prontera,155,181,5  script  Sample  757,{
mes "Enter Gold Room?";
if( select( "Yes","cancel" ) == 1 ){
    warp .map$,0,0;
}
close;
 
OnMobKill:
.@party_id = getcharid(1);
if( !.@party_id ){
    .@gain_gold = 1;
}else{
    
    .@aid = getcharid(3);
    getpartymember .@party_id;
    getpartymember .@party_id,2;
    .@gain_gold = ( ( $@partymembercount > 5 )? 5:$@partymembercount );
    for( .@i = 0; .@i < $@partymembercount; .@i++ )
        if( $@partymemberaid[.@i] != .@aid && isloggedin( $@partymemberaid[.@i] ) ){
            getmapxy( .@map$,.@x,.@y,0,$@partymembername$[.@i] );
            if( .@map$ == .map$ )
                getitem 969,1,$@partymemberaid[.@i];
        }
}
getitem 969,.@gain_gold;
end;
 
OnInit:
.map$ = "guild_vs5";
end;
}
 
guild_vs5,0,0   monster Poring  1002,100,0,0,"Sample::OnMobKill"
 
Viewed 1604 times, submitted by Emistry.