Автор: MiRoTVoReZ: Дата: 12.16.2008
//-----------------------------------------------------------------------//
// ****** ****** * * ****** ** ** ****** * * ***** * * //
// * * * ** * * * *** * * * * * ** * //
// ****** * * * * * * *** **** * ****** * * ***** * * * //
// * * * * ** * * * * * * * * * ** //
// ****** ****** * * ****** * * * * ***** * * //
//-----------------------------------------------------------------------//
//===== eAthena Script ======================================
//= Рыбалка
//===========================================================
//===== By ==================================================
//= SongRAven
//===== Version =============================================
//= 1.2
//===========================================================
comodo.gat,194,98,1 script Рыболов на Удочку::Fishing 882,{
mes "На крючке этой удочки нет наживки. Но если насадить на крючок одну Tentacle то можно попробовать поймать рыбу.";
next;
menu "Насадить Tentacle и ловить рыбу",Lfish,"Отмена",L_close;
Lfish:
if(countitem(962)<1) goto Notenta;
delitem 962,1;
mes "Теперь можно ждать, когда рыба начнет клевать.";
attachnpctimer;
initnpctimer;
attachnpctimer;
close;
OnTimer10000:
detachnpctimer;
set @rand, rand(1,7);
if(@rand == 1) goto FiFail;
if(@rand == 2) goto FiFail;
if(@rand == 3) goto FiSucc;
if(@rand == 4) goto FiSucc2;
if(@rand == 5) goto FiSucc3;
if(@rand == 6) goto FiFail;
if(@rand == 7) goto FiSucc;
FiFail:
mes "Была поклевка, но рыба сорвалась.";
close;
FiSucc:
mes "Вы поймали одну рыбку.";
getitem 544,1;
close;
FiSucc2:
mes "Вы поймали сразу две рыбки.";
getitem 544,2;
close;
FiSucc3:
mes "Вы поймали сразу три рыбки.";
getitem 544,3;
close;
Notenta:
mes "У вас нет Tentacle.";
close;
L_close:
close;
}
comodo.gat,196,111,4 script Рыболов на Сеть::Fishnet 870,{
mes "Если вы наложите в эту сеть наживку Tentacle, можно попробовать заккинуть сеть в воду и поймать рыбу.";
next;
menu "Положить в сеть 3 Tentacles",Lfish,"Отмена",L_close;
Lfish:
if(countitem(962)<3) goto Notenta;
delitem 962,3;
mes "Теперь можно ждать, когда рыба попадется в сеть.";
attachnpctimer;
initnpctimer;
attachnpctimer;
close;
OnTimer20000:
detachnpctimer;
set @rand, rand(1,7);
if(@rand == 1) goto FiFail;
if(@rand == 2) goto FiFail;
if(@rand == 3) goto FiSucc;
if(@rand == 4) goto FiSucc2;
if(@rand == 5) goto FiSucc3;
if(@rand == 6) goto FiFail;
if(@rand == 7) goto FiSucc;
FiFail:
mes "К сожалению улова нет.";
close;
FiSucc:
mes "Вы поймали две рыбки.";
getitem 544,2;
close;
FiSucc2:
mes "Вы поймали четыре рыбки.";
getitem 544,4;
close;
FiSucc3:
mes "Вы поймали шесть рыбок.";
getitem 544,6;
close;
Notenta:
mes "У вас нет 3 Tentacle.";
close;
L_close:
close;
}
ayothaya.gat,257,98,1 duplicate(Fishing) Удочка#2 111
ayothaya.gat,66,87,1 duplicate(Fishnet) Сеть#2 111Автор: : Дата: 01.01.1970