viewing paste topic/8882- queue_bug | 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
prontera,152,185,5      script  add     1_F_MARIA,{
        if ( !queueadd( $@q, getcharid(3) ) )
                dispbottom "success";
        else
                dispbottom "already join";
        end;
}
prontera,158,185,5      script  remove  1_F_MARIA,{
        if ( !queueremove( $@q, getcharid(3) ) )
                dispbottom "success";
        else
                dispbottom "not yet join";
        end;
}
prontera,155,185,5      script  check   1_F_MARIA,{
        if ( queuesize($@q) ) {
                .@it = queueiterator($@q);
                dispbottom "iterator ID ["+ .@it +"] has "+ queuesize($@q) +" players on it.";
                .@i = 1;
                dispbottom .@i +". "+ qiget(.@it);
                while ( qicheck(.@it) ) {
                        .@i++;
                        dispbottom .@i +". "+ qiget(.@it);
                }
                qiclear .@it;
        }
        else {
                dispbottom "no entry";
        }              
        end;
OnInit:
        $@q = queue();
        end;
}
Viewed 737 times, submitted by AnnieRuru.