Автор: ??????: Дата: 04.20.2011
Пишу и перевожу скрипты. Пока-что бесплатно, когда есть время. skype : piknik209 icq: 377-205-927
За копеечку, сделаю их интересными (Сам перевод + некоторые функции).
//= 1.8 Версия 1.4 = Полностью на Русском.[kosik] <>
//============Мап флаги
pvp_y_2-2 mapflag noskill
pvp_y_2-2 mapflag nowarpto
pvp_y_2-2 mapflag nobranch
pvp_y_2-2 mapflag noexp
pvp_y_2-2 mapflag pvp
//========помошник голд рума
pvp_2-2,123,123,5 script Helper 763,{
set .HowMuch$,getmapmobs ("pvp_y_2-2");
if(.HowMuch$==0) goto L_Summon;
OnTouch:
emotion 1;
mes "[^77B700Helper^000000]";
mes "Привет! "+strcharinfo(0)+";
mes "Что тебе нужно?";
next;
switch(select("Сколько монстров на карте","Ничего","Ниформация","Как я смогу изменить голды","К голд Руму")){
case 1:
mes "[^77B700Helper^000000]";
mes "..."+.HowMuch$+" монстров на карте"
close;
case 2:
mes "[^77B700Helper^000000]";
mes "Прощай"
close;
case 3:
mes "[^77B700Helper^000000]";
mes "Хорошо.Вы можете убить 100 монстров в час.За одного монстра вы сможете получить 1, 2 или 3 поинта."
close;
case 4:
mes "[^77B700Helper^000000]";
mes "Поговорите с менеджером голд рума";
close;
case 5:
warp "prontera",147,165;
end;
}
OnInjusticeKilled:
if($InjusticeKilled==102) callfunc "WARN";
if($InjusticeKilled==101) goto OnLimit;
if($InjusticeKilled==100) goto OnLimit;
set @RandomGold,rand(1,4);
if(@RandomGold==1) set $InjusticeKilled,$InjusticeKilled+1;
if(@RandomGold==2) set $InjusticeKilled,$InjusticeKilled+1;
if(@RandomGold==3) set $InjusticeKilled,$InjusticeKilled+1;
if(@RandomGold==4) set $InjusticeKilled,$InjusticeKilled+2;
end;
OnLimit:
if($InjusticeKilled==101) callfunc "WARN";
mapannounce "pvp_y_2-2","Эй! "+strcharinfo(0)+"ты убил 100 монстров, теперь ты должен поменять поинты на голды!!",bc_blue|bc_map;
set $InjusticeKilled,$InjusiceKilled+1;
end;
L_Summon:
monster "pvp_y_2-2",0,0,"Голдер",1257,50"Helper::OnInjusticeKilled";
end;
function script WARN {
if($InjusticeKilled==102) warp "savepoint",0,0;
mapannounce "pvp_y_2-2","Hey "+strcharinfo(0)+" Это - последнее Уведомление, ИЗМЕНИТЕ СВОИ ПУНКТЫ ДЛЯ ЗОЛОТА ТЕПЕРЬ!, если Вы убьете больше Монстров, то я Телепортирую Вас отсюда!",bc_blue|bc_map;
set $InjusticeKilled,$InjusticeKilled+1;
end;
}
}
//================сам голд-рум
prontera,146,164,6 script Gold Room's Manager 57,{
if($InjusticeKilled==101) set $InjusticeKilled,$InjusticeKilled-1;
if($InjusticeKilled==102) set $InjusticeKilled,$InjusticeKilled-2;
mes "[^77B700Manager^000000]";
mes "Я менеджер голд рума";
mes "Чем я могу тебе помочь?"
next;
switch(select("Поговорить насчет поинтов","Поинты на Голды","Leave","В голд рум!")) {
case 1:
mes "[^77B700Manager^000000]";
mes "Так, Золотая Комната - место, что Вы убиваете Монстров и получаете Очки, Вы можете Изменить очки на Золота";
mes "Но, Вы можете Убить в Максимальных 100 Монстрах в час";
mes "Пример: Вы изменили свои пункты в 12:55, Вы можете возвратить только 13:00";
mes "Так, если Вы изменяете свои пункты в 13:02, по желанию,вы можете возвратиться 14:00";
mes "Хорошо?";
close;
case 2:
mes "[^77B700Manager^000000]";
mes "У Вас есть ^FF0000" + $InjusticeKilled + Пункт (ы) "^000000";
mes "Правило: я обмениваю каждый Пункт на 1 Золото";
mes "Сколько Золота Вы хотите?";
next;
input @Mount;
if(@Mount<=0) callfunc ERROR;
if(@Mount>$InjusticeKilled) callfunc ERROR;
set $InjusticeKilled,$InjusticeKilled-@Mount;
getitem 969,@Mount;
set #GLD_DELAY, (GetTime(7)*12*31*24+GetTime(6)*31*24+GetTime(5)*24+GetTime(3)+1);
mes "[^77B700Manager^000000]";
mes "Сделанно, Вы изменили "+@Mount+" Point(s) на "+@Mount+" Gold(s)";
mes "Ждите "+ (#THQ_DELAY - (GetTime(7)*12*31*24+GetTime(6)*31*24+GetTime(5)*24+GetTime(3)) )+" минут.";
close;
case 3:
mes "[^77B700Manager^000000]";
mes "Прощай";
close;
case 4:
if (#GLD_DELAY > (GetTime(7)*12*31*24 + GetTime(6)*31*24 + GetTime(5)*24 + GetTime(3)) ) goto Wait;
mes "[^77B700Manager^000000]";
mes "Щас варпнем!";
close2;
warp "pvp_y_2-2",0,0;
close;
}
Wait:
mes "[^77B700Manager^000000]";
mes "Я говорил тебе";
mes "Жди "+ (#THQ_DELAY - (GetTime(7)*12*31*24+GetTime(6)*31*24+GetTime(5)*24+GetTime(3)) )+" минут.";
close;
}
function script ERROR {
mes "[^77B700Manager^000000]";
mes "Ты не имеешь поинтов чтоб изменить их";
close;
}Автор: Пикник: Дата: 04.22.2011
UP первый пост обновил.Да будет так, будем учиться .
Автор: Кеник: Дата: 04.22.2011
Другой разговор :)