getinventorylist;
        next;
        set .@menu2$,"";
        for(set .@i,0; .@i<getarraysize(@inventorylist_id); set .@i,.@i+1){
            if((@inventorylist_id[.@i] => 4700) && (@inventorylist_id[.@i] <= 4824)){
                set .@menu2$,.@menu2$+getitemname(@inventorylist_id[.@i])+":";
            }
        }
        set .@Stone,@inventorylist_id[select(.@menu2$)-1];