Вот вроде рабочий, кто писал не помню, вместо тцг сам зени вставишь
prontera,180,100,1 script Смена ника 700,{ set @value,10; set @getitem,7227; mes "Ты хочешь сменить свой ник?"; mes "Это будет стоить "+@value+" TCG Card."; if(select("Да:Нет")==2){ close; } if(countitem(@getitem)<@value){ mes "У вас не хватает TCG Card."; close; } new_name: mes "Введите новый ник"; input @name$; query_sql "SELECT `account_id` FROM `char` WHERE `name` = '"+escape_sql(@name$)+"'",.@a; if(.@a) { mes "Ник не доступен"; next; goto new_name; } else { mes "Ник доступен"; delitem @getitem,@value; query_sql "UPDATE `char` SET `name` = '"+escape_sql(@name$)+"' WHERE `char_id` = "+getcharid(0)+";"; mes "Вы будете кикнуты через секунду."; sleep2 1000; atcommand "@kick "+strcharinfo(0); end; } }