shop with command @shop

prontera,255,55,5	script	Tool Dealer#prt	125,{
OnAtShopCmd:
	mes "What do you like to buy?";
	switch( select( "Ammunition Box", "Single Ammo", "Identify My Items", "Nothing" ) ) {
	next;
	case 1:
		callshop "AmmunitionBox",1;
		end;
	case 2:
		callshop "SingleAmmo",1;
		end;
	case 3:
		mes "Here you go";
		callfunc "identify123";
		end;
	case 4:
        mes "Okay, have a nice day";
        close;
	}
end;

OnInit:
	bindatcmd "shop",strnpcinfo(0)+"::OnAtShopCmd",0,99;
end;

}

-	shop	Tool Dealer#shop::AmmunitionBox	-1,501:-1 // Add ammo box here
-	shop	Tool Dealer#shop::SingleAmmo	-1,502:-1 //single ammo add here

function	script	identify123	{
        getinventorylist;
            while( .@idn < @inventorylist_count ){
                if ( !@inventorylist_identify[.@idn] ){
                    delitem2 @inventorylist_id[.@idn],1,0,0,0,0,0,0,0;
                    getitem @inventorylist_id[.@idn],1;
                }
                .@idn++;
            }
close;
}