Назад

Рыбалка

Автор: 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