//  callfunc "shuffle", <min num>, <max num>, <output array> {, <count> };
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,156,184,5  script  kjdshfksfjh#1   100,{
    .@id = strnpcinfo(2);
    if ( getstrlen( quest_random_item$[.@id] ) ) {
        dispbottom quest_random_item$[.@id];
        .@n = sscanf( quest_random_item$[.@id], "%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:", .@rewardid, .@itemid[0], .@amount[0], .@itemid[1], .@amount[1], .@itemid[2], .@amount[2], .@itemid[3], .@amount[3], .@itemid[4], .@amount[4], .@itemid[5], .@amount[5], .@itemid[6], .@amount[6], .@itemid[7], .@amount[7], .@itemid[8], .@amount[8], .@itemid[9], .@amount[9] );
        .@size = ( .@n -1 ) /2;
        mes "reward item "+ getitemname( .@rewardid );
        for ( .@i = 0; .@i < .@size; .@i++ )
            mes .@amount[.@i] +"x "+ getitemname( .@itemid[.@i] );
        next;
        if ( select ( "Submit this quest", "Drop this quest" ) == 2 ) {
            mes "this quest have been dropped";
            quest_random_item$[.@id] = "";
            close;
        }
        if ( !checkweight( .@rewardid, 1 ) ) {
            mes "you can't carry "+ getitemname( .@rewardid );
            mes "put some items in storage to continue";
            close;
        }
        for ( .@i = 0; .@i < .@size; .@i++ ) {
            if ( countitem( .@itemid[.@i] ) < .@amount[.@i] ) {
                mes "you don't have enough "+ getitemname( .@itemid[.@i] );
                close;
            }
        }
        for ( .@i = 0; .@i < .@size; .@i++ )
            delitem .@itemid[.@i], .@amount[.@i];
        getitem .@rewardid, 1;
        quest_random_item$[.@id] = "";
        mes "congratulations ...";
        close;
    }
    mes "want to take a quest for "+ getitemname( .rewardid ) +" ?";
    next;
    if ( select ( "Yes", "No" ) == 2 ) close;
    callfunc "shuffle__", 0, .itemsize -1, .@r, .numberoftype;
    mes "reward item "+ getitemname( .rewardid );
    for ( .@i = 0 ; .@i < .numberoftype; .@i++ ) {
        .@str$ = .@str$ + .itemid[ .@r[.@i] ] +":"+ .amount[ .@r[.@i] ] +":";
        mes .amount[ .@r[.@i] ] +"x "+ getitemname( .itemid[ .@r[.@i] ] );
    }
    quest_random_item$[.@id] = .rewardid +":"+ .@str$;
    close;
OnInit:
    setarray .itemid, 501,502,503,504,505;
    setarray .amount, 100,200,300,400,500;
    .numberoftype = 2; // how many types of items needed for this quest ( max: 10 )
    .rewardid = 1201;
 
    .itemsize = getarraysize( .itemid );
    end;
}
 
 
prontera,159,184,5  script  kjdshfksfjh#2   100,{
    .@id = strnpcinfo(2);
    if ( getstrlen( quest_random_item$[.@id] ) ) {
        dispbottom quest_random_item$[.@id];
        .@n = sscanf( quest_random_item$[.@id], "%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:%d:", .@rewardid, .@itemid[0], .@amount[0], .@itemid[1], .@amount[1], .@itemid[2], .@amount[2], .@itemid[3], .@amount[3], .@itemid[4], .@amount[4], .@itemid[5], .@amount[5], .@itemid[6], .@amount[6], .@itemid[7], .@amount[7], .@itemid[8], .@amount[8], .@itemid[9], .@amount[9] );
        .@size = ( .@n -1 ) /2;
        mes "reward item "+ getitemname( .@rewardid );
        for ( .@i = 0; .@i < .@size; .@i++ )
            mes .@amount[.@i] +"x "+ getitemname( .@itemid[.@i] );
        next;
        if ( select ( "Submit this quest", "Drop this quest" ) == 2 ) {
            mes "this quest have been dropped";
            quest_random_item$[.@id] = "";
            close;
        }
        if ( !checkweight( .@rewardid, 1 ) ) {
            mes "you can't carry "+ getitemname( .@rewardid );
            mes "put some items in storage to continue";
            close;
        }
        for ( .@i = 0; .@i < .@size; .@i++ ) {
            if ( countitem( .@itemid[.@i] ) < .@amount[.@i] ) {
                mes "you don't have enough "+ getitemname( .@itemid[.@i] );
                close;
            }
        }
        for ( .@i = 0; .@i < .@size; .@i++ )
            delitem .@itemid[.@i], .@amount[.@i];
        getitem .@rewardid, 1;
        quest_random_item$[.@id] = "";
        mes "congratulations ...";
        close;
    }
    mes "want to take a quest for "+ getitemname( .rewardid ) +" ?";
    next;
    if ( select ( "Yes", "No" ) == 2 ) close;
    callfunc "shuffle__", 0, .itemsize -1, .@r, .numberoftype;
    mes "reward item "+ getitemname( .rewardid );
    for ( .@i = 0 ; .@i < .numberoftype; .@i++ ) {
        .@str$ = .@str$ + .itemid[ .@r[.@i] ] +":"+ .amount[ .@r[.@i] ] +":";
        mes .amount[ .@r[.@i] ] +"x "+ getitemname( .itemid[ .@r[.@i] ] );
    }
    quest_random_item$[.@id] = .rewardid +":"+ .@str$;
    close;
OnInit:
    setarray .itemid, 512,513,514,515,516;
    setarray .amount, 600,700,800,900,999;
    .numberoftype = 2; // how many types of items needed for this quest ( max: 10 )
    .rewardid = 1204;
 
    .itemsize = getarraysize( .itemid );
    end;
}