SHARE
TWEET

(rAthena) Fishing

existence_dev92 May 31st, 2020 (edited) 1,086 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. prontera,108,156,0  script  Fishing Hole    844,{
  2.    
  3.     //Fishing rod
  4.     set .@Rod, 2764;
  5.  
  6.     //Fishing Lure
  7.     set .@Lure, 2775;
  8.  
  9.     //Auto-Fish
  10.     set .@Auto, 1;
  11.  
  12.     //Auto-Fish on Fail
  13.     set .@AutoFail, 1;
  14.  
  15.     if (@Fishing)
  16.         end;
  17.  
  18.     @Fishing = 1;
  19.     pcblockmove getcharid(3),1;
  20.     while (1)
  21.     {
  22. Fish:
  23.         if (isequipped(.@Rod)) && (isequipped(.@Lure))
  24.         {
  25.             specialeffect EF_BUBBLE,"Fishing Hole";
  26.             dispbottom "[Fishing] Casting...";
  27.    
  28.             set .@fcast, 20;
  29.             if (isequipped(2550)) //Fisher's Muffler
  30.                 set .@fcast, .@fcast - 2;
  31.             if (isequipped(2443)) //Fisher's Boots
  32.                 set .@fcast, .@fcast - 2;
  33.             if (isequipped(2764)) //Fishing Pole
  34.                 set .@fcast, .@fcast - 3;
  35.             if (isequipped(2775)) //Fishing Lure
  36.                 set .@fcast, .@fcast - 1;
  37.    
  38.             .@cutin_num = 12;
  39.             for (set .@i, 1; .@i <= .@cutin_num; set .@i, .@i + 1)
  40.             {
  41.                 .@img_cutin$ = sprintf("fishing_%s", ((.@i < 10) ? "0"+.@i : ""+.@i));
  42.                 cutin .@img_cutin$, 1;
  43.                 sleep2 .@fcast * 1000 / .@cutin_num;
  44.                 cutin "",255;
  45.             }
  46.    
  47.             if (rand(1,90) == 1)
  48.             {
  49.                 getitem 7711, 1; // Event Ticket
  50.                 specialeffect2 EF_TEMP_OK;
  51.                 mapannounce strcharinfo(3), strcharinfo(0)+" has caught a Event Ticket!", bc_map, "0xff77ff";
  52.                 if (!.@Auto)
  53.                     break;
  54.                 goto Fish;
  55.             }
  56.    
  57.             if (rand(1,6) == 1) ||(rand(1,6) == 3) || (rand(1,6) == 6)
  58.             {
  59.                 setarray .@Catch[0],579,908,909,963,956,6049,918,960,910,938,624;// List of Junk/Other
  60.                 set .@CatchRand,.@Catch[rand(getarraysize(.@Catch))];
  61.                 getitem .@CatchRand,1;
  62.                 emotion e_omg,1;
  63.             }
  64.             else {
  65.                 dispbottom "[Fishing] Nothing was caught...";
  66.                 if(!.@AutoFail)
  67.                     break;
  68.                 goto Fish;
  69.             }
  70.             if (rand(1,100) == 3)
  71.             {
  72.                 setarray .@Rare[0], 12103, 12214, 60078;
  73.                 set .@RareCatch, .@Rare[rand(getarraysize(.@Rare))];
  74.                 getitem .@RareCatch,1; //Reward
  75.                 specialeffect 236;
  76.                 mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@RareCatch)+"!",bc_map,"0x33CC00";
  77.             }
  78.             if(!.@Auto)
  79.                 break;
  80.             goto Fish;
  81.         }
  82.         else
  83.         {
  84.             dispbottom "[Fishing] You need a Rod and Lure.";
  85.             break;
  86.         }
  87.     }
  88.     @Fishing = 0;
  89.     pcblockmove getcharid(3), 0;
  90.     end;
  91. }
  92.  
  93.  
  94. prontera,174,166,0  duplicate(Fishing Hole) Fishing Hole#1  844
  95. prontera,174,162,0  duplicate(Fishing Hole) Fishing Hole#2  844
  96. prontera,175,158,0  duplicate(Fishing Hole) Fishing Hole#3  844
  97. prontera,176,155,0  duplicate(Fishing Hole) Fishing Hole#4  844
  98. prontera,177,151,0  duplicate(Fishing Hole) Fishing Hole#5  844
  99. prontera,178,147,0  duplicate(Fishing Hole) Fishing Hole#6  844
  100. prontera,178,140,0  duplicate(Fishing Hole) Fishing Hole#7  844
  101. prontera,175,135,0  duplicate(Fishing Hole) Fishing Hole#8  844
  102. prontera,174,129,0  duplicate(Fishing Hole) Fishing Hole#9  844
  103. prontera,168,120,0  duplicate(Fishing Hole) Fishing Hole#10 844
  104. prontera,192,119,0  duplicate(Fishing Hole) Fishing Hole#11 844
  105. prontera,204,173,0  duplicate(Fishing Hole) Fishing Hole#12 844
  106. prontera,110,153,0  duplicate(Fishing Hole) Fishing Hole#13 844
  107. prontera,99,155,0   duplicate(Fishing Hole) Fishing Hole#14 844
  108.  
  109. prontera,147,162,5  shop    Alat Pancing    821,2764:100000000,2775:100000000,2550:700000000,2443:700000000
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top