/*
attach_all: attach all the players and them call a func or doevent.
change_pos: Change the position in an array, you can raise the position or lower.
delete_arrayfrom: delete the values specified by the start and end.
delete_arrayindex: Delete the indexes indicated in the func.
dyamic_menu:: Make a dynamic menu with an array or arguments.
get_decimal: Get the decimals of the given numbers, you can set the number of decimals you can get.
get_bitvarl: get a bitwise var position.
is_int: Check if the var is int or not.
is_map: Chech if the map given is a map or doesn't.
is_sql: returns 1 if the server is sql.
rand_color: Make a random hex color.
random_array: make a random array.
remove_mapflags: Remove the mapflags of a map.
search_array: Search the value in an array.
set_vitvar: set a bitwise rand position.
set_mapflags: Set the mapflags in a map.
show_hat: show a hat (CS).
sort_array: Sort an array, asc or desc.
swap_pos: Swap two positions in an array.
walktonpc: Walk to a npc.
*/
 
// Do attachrid to all players.
// callfunc "attach_all", "<npc::OnEvent"> or <function>.
// Return the online players amount.
function    script  attach_all  {
 
    while ( ( .@a + 2000000 ) <= 2010000 ) {
        if ( attachrid ( .@a + 2000000 ) ) {
            set .@b, .@b + 1;
            if ( compare ( getarg ( 1 ), "On" ) )
                doevent getarg ( 1 ) ;
            else
                callfunc getarg ( 1 ) ;
        }
        set .@a, .@a + 1;
        sleep2 ( ! ( .@a % 200 ) ) ;
    }
    return .@b ;
}
 
// callfunc "change_pos", <array>, <1= raise 2= lower>, <position to raise/lower>;
// i.e:
// array .X = 5,9,11;
// callfunc "change_pos", .X, 1, 2 ; -> .X = 5,11,9.
// return -1 if there was any error (lower latest, raise first...).
function    script  change_pos  {
 
    if ( ( getarg ( 1 ) == 0 && getarg ( 2 ) == 1 ) || ( getarg ( 1 ) == ( getarraysize ( getarg ( 0 ) ) - 1 ) && getarg ( 2 ) == 2 ) ) return -1;
    set .@a, getelementofarray ( getarg ( 0 ), getarg ( 1 ) );
    set .@b, getelementofarray ( getarg ( 0 ), getarg ( 1 ) + ( ( getarg ( 2 ) == 1 ) ? -1 : 1 ) );
    set getelementofarray ( getarg ( 0 ), getarg ( 1 ) + ( ( getarg ( 2 ) == 1 ) ? -1 : 1 ) ), .@a;
    set getelementofarray ( getarg ( 0 ), getarg ( 1 ) ), .@b;
    return ;
}
 
// callfunc "dyamic_menu", {<"{option or array}"[...]>}, {<gm level[...]>};
// returns the menu choosen.
 
function    script  dynamic_menu    {
 
    if ( getd ( getarg ( 0 ) +"[0]" ) ) {
        set .@c, callfunc ( "is_int", getd ( getarg ( 0 ) +"[0]" ) );
        set .@b, 1;
    }
    for ( ; ( ( .@b ) ? getelementofarray ( getarg ( 0 ), .@a ) : getarg ( .@a, ( ( .@c ) ? "" : 0 ) ) ) ; set .@a, .@a + 1 )
        if ( getgmlevel ( ) >= getarg ( .@a + 1 ) &&  ! .@c )
            set .@menu$, .@menu$ + ( ( .@b ) ? getelementofarray ( getarg ( 0 ), .@a ) : getarg ( .@a, "" ) ) +":";
    return select ( .@menu$ ) ;
}
 
// callfunc "get_bitvar", "variable", <value>.
// returns 1 if the var has a value.
function    script  get_bitvar  {
 
    if ( getd ( getarg ( 0 ) +""+ ( getarg ( 1, 0 ) / 31 ) ) & ( 1 << ( getarg ( 1 ) % 31 ) ) )
        set .@a, 1;
    return .@a ;
}
 
// callfunc "get_decimal", dividend, divisor, decimales to get.
// returns the final result and decimals.
function    script  get_decimal {
 
    setarray .@a[0], getarg ( 0 ), getarg ( 1 );
    set .@a, .@a[0] / .@a[1];
    set .@b, .@a[0] % .@a[1];
    while ( .@d < getarg ( 2, 1 ) ) {
        set .@d, .@d + 1;
        if ( .@d > 1 ) set .@b, .@b % .@a[1];
        if ( .@b ) {
            while ( .@b < .@a[1] )
                set .@b, .@b * 10;
            set .@c, .@b / .@a[1];
            set .@a$, .@a +","+ .@c;
        }
        else break ;
    }
    if ( .@a$ == "" ) set .@a$, .@a;
    return .@a$;
}
 
// callfunc "is_int", <var>;
// returns 1 if the value is int.
function    script  is_int  {
 
    return ( getarg ( 0 ) == ( getarg ( 0 ) + 00 ) ) ;
}
 
// callfunc "is_map", "<map>";
// returns 1 if the map is a real map.
function    script  is_map  {
 
    return ( getmapmobs ( getarg ( 0 ) ) >= 0 ) ;
 
}
 
// callfunc "is_sql";
// returns 1 if the server is sql.
// (Extracted from PollSystem).
function    script  is_sql  {
 
    return ( query_sql ( "select 1", .@a ) > 0 ) ;
}
 
// callfunc "rand_color";
// returns a hex rand color code.
function    script  rand_color  {
 
    setarray .@base$[0], "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F";
    while ( getstrlen ( .@a$ ) < 6 )
        set .@a$, .@a$ + .@base$[rand ( getarraysize ( .@base$ ) )];
    return .@a$ ;
}
 
// callfunc "remove_mapflags","<map>", <mapflag>{...}
function    script  remove_mapflags {
 
    for ( set .@a, 1; getarg ( .@a, 999 ) != 999 ; set .@a, .@a + 1 )
        if ( getd ( "$@mapflag"+ getarg ( .@a ) +"_"+ getarg ( 0 ) ) )
            removemapflag getarg ( 0 ), getarg ( .@a );
    return ;
}
 
// callfunc "set_bitvar", "variable", <value>.
function    script  set_bitvar  {
 
    if ( getd ( getarg ( 0 ) +""+ ( getarg ( 1, 0 ) / 31 ) ) &~ ( 1 << ( getarg ( 1 ) % 31 ) ) )
        setd getarg ( 0 ) +""+ ( getarg ( 1, 0 ) / 31 ), getd ( getarg ( 0 ) +""+ ( getarg ( 1, 0 ) / 31 ) ) + ( 1 << ( getarg ( 1 ) % 31 ) );
    return ;
}
 
// callfunc "random_array", <array>.
function    script  random_array    {
 
    set .@size, getarraysize ( getarg ( 0 ) );
    for ( ; .@a < .@size ; set .@a, .@a + 1 )
        set .@b[.@a], getelementofarray ( getarg ( 0 ), .@a );
    for ( set .@a, 0; .@a < .@size ; set .@a, .@a + 1 ) {
        set .@c, rand ( getarraysize ( .@b ) );
        set getelementofarray ( getarg ( 0 ), .@a ), .@b[.@c];
        deletearray .@b[.@c], 1 ;
 
        sleep2 ( ! ( .@a % 100 ) ) ;
    }
    return ;
    
}
 
// callfunc "search_array", "<array>", <place to start>, <value to search>.
// returns the position that has the value.
// returns -1 if the array hasn't the value.
function    script  search_array    {
 
    set .@size, getarraysize ( getarg ( 0 ) );
    for ( set .@a, getarg ( 1, 0 ) ; .@a < .@size ; set .@a, .@a + 1 )
        if ( getelementofarray ( getarg ( 0 ), .@a ) == getarg ( 2 ) ) return .@a;
    return -1 ;
    
}
 
// callfunc "set_mapflags","<map>", {<mapflag>[...]};
function    script  set_mapflags    {
 
    for ( set .@a, 1; getarg ( .@a, 999 ) != 999 ; set .@a, .@a + 1 )
        if ( ! getmapflag ( getarg ( 0 ), getarg ( .@a ) ) ) {
            setmapflag getarg ( 0 ), getarg ( .@a ) ;
            setd "$@mapflag"+ getarg ( .@a ) +"_"+ getarg ( 0 ), 1;
        }
    return ;
}
 
// callfunc "show_hat", <id>.
function    script  show_hat    {
 
    set .@equip, getiteminfo ( getarg ( 0 ), 5 );
    set .@view, getiteminfo ( getarg ( 0 ), 11 );
    setarray .@a[1], 9, 8;
    setarray @a[1], getlook ( 3 ), getlook ( 4 ), getlook ( 5 );
    if ( .@equip >= 0 && .@view > 0 )
        for ( set .@b, 1; .@b < =3 ; set .@b, .@b + 1 )
            if ( .@equip & ( 1 << .@a[.@b] ) )
                changelook 2 + .@b, .@view;
    addtimer 2000, "show_hat_2::OnRemove" ;
    return ;
}
 
-   script  show_hat_2  -1,{
 
OnRemove:
 
    for ( set .@a, 1; .@a <= 3 ; set .@a, .@a + 1 )
        changelook 2 + .@a, @a[.@a];
 
}
 
// callfunc "sort_array", <array>, <0 = DESC 1 = ASC>;
// ASC = 1, 2, 3. DESC = 3,2,1.
 
function    script  sort_array  {
 
    set .@a, getarg ( 1, -1 );
    set .@size, getarraysize ( getarg ( 0 ) );
    for ( set .@b, 0; .@b < .@size ; set .@b, .@b + 1 ) {
        for ( set .@c, 0; .@c < .@size ; set .@c, .@c + 1 )
            if ( ( getelementofarray ( getarg ( 0 ), .@b ) * .@a ) < ( getelementofarray ( getarg ( 0 ), .@c ) * .@a ) )
                callfunc "swap_var", getelementofarray ( getarg ( 0 ), .@b ), getelementofarray ( getarg ( 0 ), .@c  );
        sleep2 ( ! ( .@b % 100 ) ) ;
    }
    return ;
    
}
 
// callfunc "swap_var", <variable 1>, <variable 2>;
// I dunno if this works with strings :P
function    script  swap_var    {
 
    set getarg ( 0 ), getarg ( 0 ) + getarg ( 1 );
    set getarg ( 1 ), getarg ( 0 ) - getarg ( 1 );
    set getarg ( 0 ), getarg ( 0 ) - getarg ( 1 );
    return ;
}
 
// callfunc "walktonpc", <"name of the npc">;
function    script  walktonpc   {
 
    getmapxy .@m$, .@x1, .@y1, 0 ;
    getmapxy .@m$, .@x2, .@y2, 1, getarg ( 0 );
    set .@d1, sqrt ( pow ( .@x1 - .@x2, 2 ) );
    set .@d2, sqrt ( pow ( .@y1 - .@y2, 2 ) );
    do {
        set .@b, .@b + 1;
        set .@x1, .@x1 + ( ( .@x1 < .@x2 ) ? 1 : -1 );
        set .@y1, .@y1 + ( ( .@y1 < .@y2 ) ? 1 : -1 );
        sleep2 ( ! ( .@b % 100 ) ) ;
    } while ( ! checkcell ( .@m$, .@x1, .@y1, cell_chkpass ) || .@b < .@d1 || .@b < .@d2 ) ;
    unitwalk getcharid ( 3 ), .@x1, .@y1 ;
    return ;
    
}