R> Script Problem

[Kozima]

How to Change the Catch Rate Of this Fishing Script 

- script Fish -1,{
if (isequipped(2764)) && (isequipped(2775)){
  specialeffect2 EF_BUBBLE;
  set .@fcast,15;
  if (isequipped(2550)) { //Fisher's_Muffler
   set .@fcast,.@fcast - 3;
  }
  if (isequipped(2443)) { //Fish_Shoes
   set .@fcast,.@fcast - 2;
  }
  progressbar "ffffff",.@fcast;
   if (rand(1,20) == 2) {
    getitem 6096,1; //Big Fish
    specialeffect EF_BUBBLE;
    mapannounce "brasilis","" + strcharinfo(0) + " has caught a Blue Fish!!!",bc_map,"0xff77ff";
    end;
   }
  set .@rhea_ran,rand(1,70);
  if (.@rhea_ran < 20) {
   getitem 579,1; //Fresh Fish
  }
  else if (.@rhea_ran == 20) {
   getitem 908,1; //Spawn
  }
  else if (.@rhea_ran == 21) {
   getitem 909,1; //Jellopy
  }
  else if (.@rhea_ran == 22) {
   getitem 963,1; //Sharp_Scale
  }
  else if (.@rhea_ran == 23) {
   getitem 956,1; //Gill
  }
  else if (.@rhea_ran == 24) {
   getitem 6049,1; //Marlin
  }
  else if (.@rhea_ran == 25) {
   getitem 918,1; //Sticky_Webfoot
  }
  else if (.@rhea_ran == 26) {
   getitem 960,1; //Nipper
  }
  else if (.@rhea_ran == 27) {
   getitem 910,1; //Garlet
  }
  else if (.@rhea_ran == 28) {
   getitem 938,1; //Sticky_Mucus
  }
  else if ((.@rhea_ran > 28) && (.@rhea_ran < 40)) {
   getitem 624,1; //Rotten Fish
  }
  else {
   mes "Nothing was caught.";
   close; }
if (rand(1,200) == 1) {
getitem 2202,1; //Sunglasses
mapannounce "brasilis","" + strcharinfo(0) + " has caught Sunglasses[1] !!",bc_map,"0x00ffff";
}
if (rand(1,500) == 3) {
getitem 7539,10; //Poring Coin
mapannounce "brasilis","" + strcharinfo(0) + " has caught 10 Poring Coin!!",bc_map,"0x00ffff";
}
if (rand(1,500) == 20) {
getitem 7539,5; //Poring Coin
mapannounce "brasilis","" + strcharinfo(0) + " has caught 5 Poring Coin!!",bc_map,"0x00ffff";
}
if (rand(1,3000) == 30) {
getitem 7539,1; //Poring coin
mapannounce "brasilis","" + strcharinfo(0) + " has caught 1 Poring Coin!!",bc_map,"0x44ff44";
}
if (rand(1,500) == 20) {
getitem 7179,1; //Pods
mapannounce "brasilis","" + strcharinfo(0) + " has caught 1 Proof Of Donation!!",bc_map,"0x00ffff";
}
end;
}
else {
mes "Fish are swimming in the water.";
close;
}
}

 

2202 catch rate 3%

7179 catch rate 1%

6049 catch rate 3%

 

1 Poring Coin 30%

5 Poring Coin 10%

10 Poring Coin 5%

 

and How to put this script 

 

 

OnInit:

set .Length,1; //EDIT THE LENGTH OF CHARACTERS TO BE TYPED

setarray .List$,"1","2","3","4","5","6","7","8","9","0"; //YOU CAN ADD LETTERS, DIGITS & SYMBOLS HERE..

end;

}

to fishing Script

 

Thanks For Helping ^^

Edited January 17, 2014 by Capuche

[AnnieRuru]

prontera,159,187,5	script	jkfjsdkfjs	111,{
	.@r = rand(100);
	if ( .@r < 3 )
		getitem 2202, 1;
	else if ( .@r < 4 )
		getitem 7179, 1;
	else if ( .@r < 7 )
		getitem 6049, 1;
	else if ( .@r < 37 )
		getitem "Poring_Coin", 1;
	else if ( .@r < 47 )
		getitem "Poring_Coin", 5;
	else if ( .@r < 52 )
		getitem "Poring_Coin", 10;
	else
		dispbottom "nothing happen";
	end;
}

read the pinned topic

OnInit:

set .Length,1; //EDIT THE LENGTH OF CHARACTERS TO BE TYPED

setarray .List$,"1","2","3","4","5","6","7","8","9","0"; //YOU CAN ADD LETTERS, DIGITS & SYMBOLS HERE..

end;

}

what does this has to do with fishing script ?

Edited January 18, 2014 by AnnieRuru

[Kozima]

you must enter that code if you will do to fishing

[AnnieRuru]

that will kill the fun <.<

I remember this fishing stuff in world of warcraft ...

the fun about this achievement is sits there using only 1 hand click the mouse when a *poof* soundeffect played

for some reason, all the fishing script I see in rathena is just like giving free randomly cheap stuffs

I remember already solved this few weeks ago

http://rathena.org/board/topic/91227-fishing-script-with-anti-bot-help/?p=238866

[Kozima]

very very thanks anie ^^