function        script  shuffle__       {
        .@static = getarg(0);
        .@range = getarg(1) +1 - .@static;
        .@count = getarg(3, 0);
        if ( .@range <= 0 )
                return 0;
        if ( !.@count || .@count > .@range )
                .@count = .@range;
        while ( .@i < .@count ) {
                .@r = .@save = rand( .@i, .@range -1 ) ;
                if ( !.@tmp1[.@i] ) {
                        .@r = .@tmp1[.@r] ? .@tmp2[.@r] : .@r;
                        .@tmp2[.@i] = .@r;
                        .@tmp2[.@save] = .@i;
                        .@tmp1[.@save] = 1;
                        set getelementofarray( getarg(2), .@i ), .@r + .@static;
                        if ( .@save < .@count )
                                set getelementofarray( getarg(2), .@save ), .@i + .@static;
                }
                .@i++;
        }
        return .@count;
}
 
prontera,152,178,5      script  bg_pvp  100,{
        end;
OnInit:
        .eventlasting = 3; // duration in minutes
        setarray .rewardwin, 501,10, 502,5, 503,3; // reward to winning team
        setarray .rewardlose, 501,5, 502,3, 503,1; // reward to losing team
        setarray .rewarddraw, 501,3, 502,1; // reward to both teams when draw
 
        .rewardwinsize = getarraysize( .rewardwin );
        .rewardlosesize = getarraysize( .rewardlose );
        .rewarddrawsize = getarraysize( .rewarddraw );
 
        waitingroom "Battleground", 3, strnpcinfo(0)+"::OnStart", 2;
        end;
OnStart:
        if ( ( .@ins = instance_create( "Battleground", 0, IOT_NONE ) ) < 0 ) {
                announce "failed", bc_all;
                end;
        }
        if ( instance_attachmap( "guild_vs3", .@ins, 1, .@ins +"BG" ) == "" ) {
                announce "failed", bc_all;
                end;
        }
        instance_set_timeout .eventlasting * 60 +6, 0, .@ins;
        instance_init .@ins;
        instance_attach .@ins;
        'mapname$ = .@ins +"BG";
        'red = createbgid( "guild_vs3", 48,50, instance_npcname( "battleground_ins" )+"::OnRedQuit", instance_npcname( "battleground_ins" )+"::OnRedDead" );
        'blue = createbgid( "guild_vs3", 52,50, instance_npcname( "battleground_ins" )+"::OnBlueQuit", instance_npcname( "battleground_ins" )+"::OnBlueDead" );
        'teamname$['red] = "Red";
        'teamname$['blue] = "Blue";
        .@tmp = waitingroom2bg( "prontera",152,178, "","" );
        bg_destroy .@tmp;
        callfunc "shuffle__", 0, $@arenamembersnum -1, .@r;
        .@modulus = rand(2);
        for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )
                setbgid ( .@i % 2 == .@modulus )? 'red : 'blue, $@arenamembers[ .@r[.@i] ];
        'score['red] = bg_get_data( 'red, 0 );
        'score['blue] = bg_get_data( 'blue, 0 );
        bg_updatescore 'mapname$, 'score['red], 'score['blue];
        bg_warp 'red, 'mapname$, 48,50;
        bg_warp 'blue, 'mapname$, 52,50;
        end;
}
 
guild_vs3,0,0,0 script  battleground_ins        -1,{
OnInstanceInit:
        sleep getvariableofnpc( .eventlasting, "bg_pvp" ) * 60000;
        if ( 'score['red] > 'score['blue] ) {
                mapannounce 'mapname$, "- Red Team is victorious! -", bc_map;
                callsub L_reward, 'red, getvariableofnpc( .rewardwin, "bg_pvp" ),  getvariableofnpc( .rewardwinsize, "bg_pvp" );
                callsub L_reward, 'blue, getvariableofnpc( .rewardlose, "bg_pvp" ),  getvariableofnpc( .rewardlosesize, "bg_pvp" );
        }
        else if ( 'score['red] < 'score['blue] ) {
                mapannounce 'mapname$, "- Blue Team is victorious! -", bc_map;
                callsub L_reward, 'blue, getvariableofnpc( .rewardwin, "bg_pvp" ),  getvariableofnpc( .rewardwinsize, "bg_pvp" );
                callsub L_reward, 'red, getvariableofnpc( .rewardlose, "bg_pvp" ),  getvariableofnpc( .rewardlosesize, "bg_pvp" );
        }
        else { // same score
                mapannounce 'mapname$, "- The match has ended in a draw! -", bc_map;
                callsub L_reward, 'red, getvariableofnpc( .rewarddraw, "bg_pvp" ),  getvariableofnpc( .rewarddrawsize, "bg_pvp" );
                callsub L_reward, 'blue, getvariableofnpc( .rewarddraw, "bg_pvp" ),  getvariableofnpc( .rewarddrawsize, "bg_pvp" );
        }
        sleep 5000;
//      bg_match_over "KVM (Level 80 and up)";
        mapwarp .@ins +"BG", "prontera",152,178;
        bg_destroy 'red;
        bg_destroy 'blue;
        instance_destroy;
        end;
L_reward:
        getbgusers getarg(0);
        for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )
                for ( .@j = 0; .@j < getarg(2); .@j += 2 )
                        getitem getelementofarray( getarg(1), .@j ), getelementofarray( getarg(1), .@j +1 ), $@arenamembers[.@i];
        return;
OnRedDead:  callsub L_Dead, 'red;
OnBlueDead: callsub L_Dead, 'blue;
L_Dead:
        warp "Save", 0,0;
        'score[ getarg(0) ]--;
        bg_updatescore 'mapname$, 'score['red], 'score['blue];
        if ( !'score[ getarg(0) ] )
                awake instance_npcname( strnpcinfo(0) );
        bg_leave;
        sleep2 1250;
        percentheal 100,100;
        end;
OnRedQuit:  callsub L_Quit, 'red;
OnBlueQuit: callsub L_Quit, 'blue;
L_Quit:
        'score[ getarg(0) ]--;
        bg_updatescore 'mapname$, 'score['red], 'score['blue];
        if ( !'score[ getarg(0) ] )
                awake instance_npcname( strnpcinfo(0) );
        percentheal 100, 100;
        end;
}
 
guild_vs3       mapflag battleground    2
guild_vs3       mapflag nosave  SavePoint
guild_vs3       mapflag nowarp
guild_vs3       mapflag nowarpto
guild_vs3       mapflag noreturn
guild_vs3       mapflag nomemo
guild_vs3       mapflag noteleport
guild_vs3       mapflag nopenalty
guild_vs3       mapflag nobranch
guild_vs3       mapflag noicewall
guild_vs3       mapflag src4instance