HI NEED HELP IN FISHING

[Chellevin]

how can i prevent the character for abusing the fishing.. in my case my fishing script is just click the fishing hole then leave your character.. all night long.. how can i prevent that?? here is my fishing script

prontera,160,172,0 script Fishing Hole 723,{

//Fishing rod
set .@Rod,2764;
//Fishing Lure
set .@Lure,2775;
//Auto-Fish
set .@Auto,1;
//Auto-Fish on Fail
set .@AutoFail,1;
Fish:
if (isequipped(.@Rod)) && (isequipped(.@Lure)){
specialeffect EF_BUBBLE,"Fishing Hole";
dispbottom "[Fishing] Casting...";
set .@fcast,15;
if (isequipped(2550)) { //Fisher's Muffler
set .@fcast,.@fcast - 2;
}
if (isequipped(2443)) { //Fisher's Boots
set .@fcast,.@fcast - 2;
}
if (isequipped(2764)) { //Fishing Pole
set .@fcast,.@fcast - 3;
}
if (isequipped(2775)) { //Fishing Lure
set .@fcast,.@fcast - 1;
}
progressbar "ffffff",.@fcast;
if (rand(1,100) == 4){
getitem 7539,5; //Fish with Blue Back
specialeffect2 EF_TEMP_OK;
mapannounce strcharinfo(3),strcharinfo(0)+" has caught a Fish with Poring Coin!",bc_map,"0xff77ff";
if(.@Auto==1){
goto Fish;}else{
end;}
}
if (rand(1,6) == 1) ||(rand(1,6) == 3) || (rand(1,6) == 6){
setarray .@Catch[0],607,603,14232,7227;// List of Junk/Other
set .@CatchRand,.@Catch[rand(getarraysize(.@Catch))];
getitem .@CatchRand,1;
}
else {
dispbottom "[Fishing] Nothing was caught...";
if(.@AutoFail == 1){
goto Fish;} else{
end;}
}
if (rand(1,100) == 3){
setarray .@Rare[0],674,7227,13517;
set .@RareCatch, .@Rare[rand(getarraysize(.@Rare))];
getitem .@RareCatch,1; //Reward
mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@RareCatch)+"!",bc_map,"0x33CC00";
}
if(.@Auto == 1){
goto Fish;} else{
end;}
}
else {
dispbottom "[Fishing] You need a Rod and Lure.";
end;
}
}

Use code box next time please. Thanks! -Aeromesi

 

[HappyMan]

prontera,129,192,5 script Fisher Man::Fisher 709,{
mes "Hello There!";
mes "Want to go Fishing?";
mes "You need 100 Butil ng Bigas for the Entrance Fee";
next;
mes "You still need";
mes "15 Butil Ng Bigas";
mes "To catch a Fish";
next;
mes "Still want to go?";
menu "Yeah",yes,"No",no;
no:
mes "okay";
close;
yes:

if( countitem( 7539 ) >= 100 ){
warp "lhz_dun05",209,133;
delitem 7539,100;
}
else {
mes "You Need 100 Butil Ng Bigas to get In.";
close;

}
}


lhz_dun05 mapflag nowarp
lhz_dun05 mapflag noteleport
lhz_dun05 mapflag nomemo
lhz_dun05 mapflag nogo
lhz_dun05 mapflag nodrop
lhz_dun05 mapflag nosave
lhz_dun05 mapflag nobranch





lhz_dun05,213,130,4 script Fishing Spot::fishing 1158,{
if(countitem(7539) > 15){
delitem 7539,15;
specialeffect2 EF_BUBBLE;

if (rand(1,20) == 2) {
getitem 7539,50; //Bnb
specialeffect EF_BUBBLE;
announce "" + strcharinfo(0) + " Ay Nakakuha ng Isang Kilong Bigas Sa Pangingisda!!!",bc_map,"0xff77ff";
end;
}
set .@rhea_ran,rand(1,70);
if (.@rhea_ran < 20) {
getitem 604,1; //Dead Branch
}
else if (.@rhea_ran == 20) {
getitem 678,1; //Gayuma
}
else if (.@rhea_ran == 21) {
getitem 909,2; //Jellopy
}
else if (.@rhea_ran == 22) {
getitem 14232,10; //Yggdrasil Berry Box
}
else if (.@rhea_ran == 23) {
getitem 7227,1; //B-RO Card
}
else if (.@rhea_ran == 24) {
getitem 7227,1; //B-RO Card
}
else if (.@rhea_ran == 25) {
getitem 14232,10; //Yggdrasil Berry Box
}
else if (.@rhea_ran == 26) {
getitem 678,1; //Gayuma
}
else if (.@rhea_ran == 27) {
getitem 604,10; //Dead Branch
}
else if (.@rhea_ran == 28) {
getitem 678,1; //Gayuma
}
else if ((.@rhea_ran > 28) && (.@rhea_ran < 40)) {
getitem 12103,1; //bloody
}
else {
close;
}
if (rand(1,200) == 3) {
getitem 7539,50; //bnb
}
if (rand(1,500) == 3) {
getitem 7828,50; //bnb
mapannounce "prontera","" + strcharinfo(0) + " Has Caught 50 Badges From Fishing",bc_map,"0x00ffff";
}
if (rand(1,3000) == 3) {
getitem 12103,100; //bloody Branch
mapannounce "prontera","" + strcharinfo(0) + " Has Caught an 100 Bloody Branch!!",bc_map,"0x44ff44";
}
end;
}
else {
mes "You Need 15 Butil ng bigaS.";
close;
}
}

lhz_dun05,206,137,1 duplicate(fishing) Fishing Spot#10 1158
lhz_dun05,213,123,1 duplicate(fishing) Fishing Spot#11 1158
lhz_dun05,206,116,1 duplicate(fishing) Fishing Spot#12 1158
lhz_dun05,208,116,1 duplicate(fishing) Fishing Spot#13 1158
lhz_dun05,210,116,1 duplicate(fishing) Fishing Spot#14 1158
lhz_dun05,208,123,1 duplicate(fishing) Fishing Spot#15 1158
lhz_dun05,210,123,1 duplicate(fishing) Fishing Spot#16 1158
lhz_dun05,212,139,1 duplicate(fishing) Fishing Spot#17 1158

try this one.