Lunette,44,113,5    script  Dealers Poring  779,{
function createMenu;
function getItemShop;
function showTemporary;

    set @npcname$,"^999999[Dealers Poring]^000000";
    mes @npcname$;

    mes "Salut "+strcharinfo(0)+"!";
    mes "Je peux échanger des poring coins contre des chapeaux?";
    menu "Acheter",-,"Essayer",L_teste;
    set .@limit, createMenu();
    getitemshop(.@limit);
    close;

    L_teste:
        set .@limit, createMenu();
        set .@ldebut, .@limit * 127;
        query_sql "SELECT `nameid` FROM `item_shop` WHERE `activepcoin` = 1 ORDER BY `pcoin` DESC LIMIT "+.@ldebut+",127",.@nameid;
        set $@menu$, "^nItemID^" + .@nameid;
        for(set .@i, 1; .@i < getarraysize(.@nameid); set .@i, .@i+1){
            set $@menu$, $@menu$ + ":^nItemID^" + .@nameid[.@i];
        }
        set @menu, (select($@menu$))-1;

        if (getlook(4) < 1 && getlook(5) < 1 && getlook(3) < 1){
            mes "Vous devez me preter vos chapeaux pour tester les miens.";
            mes "Revenez quand vous en porterez.";
            close;
        }

        mes "Cliquez sur fermer pour vous revétir.";
        showTemporary(.@nameid[@menu]);
        next;
        showTemporary();
        close;

    OnReload:
        if ( getarraysize(@Temporary_id) ) {
            atcommand "@changelook 1 " + @Temporary_id[0];
            atcommand "@changelook 2 " + @Temporary_id[1];
            atcommand "@changelook 3 " + @Temporary_id[2];
        }

    function createMenu{
        query_sql "SELECT COUNT(nameid) FROM `item_shop` WHERE `activepcoin` = 1",.@nbrmenu;
        set .@nbrmenu, .@nbrmenu / 127 + 1;

        for( set .@i, 1; .@i <= .@nbrmenu; set .@i, .@i + 1 ){
            set .@Menu$, .@Menu$ + "Menu n°" + .@i +":";
        }

        return select(.@Menu$) -1;
    }

    function getitemshop{
        set .@ldebut, getarg(0) * 127;

        npcshopitem "Donation_Shop",501,10;
        query_sql "SELECT `nameid` , `pcoin` FROM `item_shop` WHERE `activepcoin` = 1 ORDER BY `pcoin` DESC LIMIT "+.@ldebut+",127",.@nameid,.@pcoin;
        if (getarraysize(.@nameid) >= 1) {
            npcshopitem "Donation_Shop",.@nameid[0],.@pcoin[0];
            for (set .@i,1; .@i < getarraysize(.@nameid); set .@i,.@i+1) {
                npcshopadditem "Donation_Shop",.@nameid[.@i],.@pcoin[.@i];
            }
        }
        npcshopdelitem "Donation_Shop",501;

        close2;
        callshop "Donation_Shop",1;

        return 0;
    }

    function    showTemporary{
        if ( getarg(0,0)^getarg(0,1) && getarraysize(@Temporary_id) ) {
            atcommand "@changelook 1 " + @Temporary_id[0];
            atcommand "@changelook 2 " + @Temporary_id[1];
            atcommand "@changelook 3 " + @Temporary_id[2];
            return 0;
        }

        setarray @Temporary_id, getlook(4), getlook(5), getlook(3) ;

        addtimer 5000, "Dealers Poring::OnReload";

        set .@equip_pos, getiteminfo( getarg(0), 5);
        set .@view_id,   getiteminfo( getarg(0), 11);

        if ( .@equip_pos + 1 && .@view_id > 0 ) {
            if ( .@equip_pos&256 ) atcommand "@changelook 1 " + .@view_id ; // top
            if ( .@equip_pos&512 ) atcommand "@changelook 2 " + .@view_id ; // mid
            if ( .@equip_pos&1 )   atcommand "@changelook 3 " + .@view_id ; // bottom
        }
        return 0;
    }
}

zephyr,1,1,3,7539   sshop   Donation_Shop   111,501:10