Автор: nomn: Дата: 02.11.2009

Внимание, всё что выложено ниже писалось мной и мне принципиально срать если где-то что-то такое есть, так как я это знаю, но не нашел вот и сам написал.

Обменивает монеты на зени и наоборот:

// By Raff, for fofro & rusEa



prontera,?,?,?    script    Разменщик    ?,{







    mes "[Разменщик]";



    mes "Привет, я могу обменять зени на монеты и обратно.";



    mes "Хочешь воспользоваться моими услугами?";



    menu "Хочу",vibor,"Нет",L_close;



L_close:



    close;



vibor:



    next;



    mes "[Разменщик]";



    mes "Что будем менять?";



    menu "Зени на Монеты",zznm,"Монеты на Зени",mmnz,"Выход",L_close;







mmnz:



    next;



    mes "[Разменщик]";



    mes "Что продаём?";



    mes "Platinum Coin = 100,000,000 з.";



    mes "Silver Coin = 50,000,000 з.";



    mes "Mithril Coin = 20,000,000 з.";



    menu "Platinum Coin",pnz,"Silver",snz,"Mithril",mnz,"Выход",L_close;







zznm:



    next;



    mes "[Разменщик]";



    mes "Что покупаем?";



    mes "Platinum Coin = 100,000,000 з.";



    mes "Silver Coin = 50,000,000 з.";



    mes "Mithril Coin = 20,000,000 з.";



    menu "Platinum Coin",znp,"Silver",zns,"Mithril",znm,"Выход",L_close;







mnz:



    next;



    mes "[Разменщик]";



    mes "Давай монетку!";



    next;



    if(countitem(674)<1) goto L_coin;



    delitem 674,1;



    set zeny, zeny + 20000000;



    mes "[Разменщик]";



    mes "Вот, пожалуйста! Приходите ещё!";



    close;



snz:



    next;



    mes "[Разменщик]";



    mes "Давай монетку!";



    next;



    if(countitem(675)<1) goto L_coin;



    delitem 675,1;



    set zeny, zeny + 50000000;



    mes "[Разменщик]";



    mes "Вот, пожалуйста! Приходите ещё!";



    close;



pnz:



    next;



    mes "[Разменщик]";



    mes "Давай монетку!";



    next;



    if(countitem(677)<1) goto L_coin;



    delitem 677,1;



    set zeny, zeny + 100000000;



    mes "[Разменщик]";



    mes "Вот, пожалуйста! Приходите ещё!";



    close;







L_coin:



    mes "[Разменщик]";



    mes "У тебя недостаточно монет для обмена.";



    close;



L_zeny:



    mes "[Разменщик]";



    mes "У тебя недостаточно денег для обмена.";



    close;



znp:



    next;



    mes "[Разменщик]";



    mes "Деньги вперёд!";



    next;



    if(zeny < 100000000) goto L_zeny;



    set zeny, zeny - 100000000;



    getitem 677,1;



    mes "[Разменщик]";



    mes "Держи свою монету, приходи ещё!";



    close;







zns:



    next;



    mes "[Разменщик]";



    mes "Деньги вперёд!";



    next;



    if(zeny < 50000000) goto L_zeny;



    set zeny, zeny - 50000000;



    getitem 675,1;



    mes "[Разменщик]";



    mes "Держи свою монету, приходи ещё!";



    close;







znm:



    next;



    mes "[Разменщик]";



    mes "Деньги вперёд!";



    next;



    if(zeny < 20000000) goto L_zeny;



    set zeny, zeny - 20000000;



    getitem 674,1;



    mes "[Разменщик]";



    mes "Держи свою монету, приходи ещё!";



    close;







}

// By Raff, for fofro & rusEa



prontera,?,?,?    script    Размер    ?,{







    mes "[Размер]";



    mes "Привет, ты хочешь изменить свой размер?";



    mes "Мои услуги будут стоить тебе 5,000,000 z.";



    menu "Хочу",L_go,"Нет",L_close;



L_close:



    close;







L_zeny:



    mes "[Размер]";



    mes "Неимущих не обслуживаем.";



    close;



L_go:



    next;



    if(zeny < 5000000) goto L_zeny;



    mes "[Размер]";



    mes "Какого ты хочешь стать размера?";



    menu "Большого",L_1,"Среднего",L_2,"Маленького",L_3,"Уйти",L_close;



L_1:



    atcommand "@size 2 "+strcharinfo(0); 



    set zeny, zeny - 5000000;



    close;



L_2:



    atcommand "@size 3 "+strcharinfo(0); 



    set zeny, zeny - 5000000;



    close;



L_3:



    atcommand "@size 1 "+strcharinfo(0); 



    set zeny, zeny - 5000000;



    close;



}

Автор: : Дата: 01.01.1970