Автор: SongRaven: Дата: 12.01.2008

Вот соббственно ручно написанный скриптик Рыбалки !!! 100% Рабочий!!! 100% без дыр!!!

 //-----------------------------------------------------------------------//

//  ****** ****** *   * ******      **   ** ******  *     *  ***** *   * //

//  *      *    * **  * *           * ***   *    *   *   *   *     **  * //

//  ****** *    * * * * *  *** **** *       ******   *   *   ***** * * * //

//       * *    * *  ** *    *      *       *    *    * *    *     *  ** //

//  ****** ****** *   * ******      *       *    *     *     ***** *   * //

//-----------------------------------------------------------------------//

//===== 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