Author Topic: [FS] Fishing System v1 [By Me]  (Read 7602 times)

0 Members and 1 Guest are viewing this topic.

Offline sseebbyy

  • VC:MP Veteran
  • *****
  • Posts: 774
  • Immortal VC:MP Player
    • View Profile
    • Zombie Invasion => Server Forum [DEAD PROJECT]
[FS] Fishing System v1 [By Me]
« on: July 30, 2012, 01:04:05 am »
Fishing System v1



With this system you can fishing on the port !

Commands:

/c fhelp => give all info with the fishing system !
/c buyrod  => work just on Fishing Shop ! With this command you buy a fishing rod !
/c buyworms => work just on Fishing Shop ! With this command you buy 10 worms !
/c rod => put your rod in your hand
/c fishing => fishing
/c sellf => you sell your fish for money
/c eatf => you eat your fish for health
/c leavef => you leave your fish and he say "Thank You"


For a good fishing type /aim =)

VIDEO: http://www.youtube.com/watch?v=_rkK_o53-TQ

[FilterScript] Fishing System -> Download[/ut


On Top:[/b]

Code: [Select]
new boughtr[MAX_PLAYERS];
new boughtw[MAX_PLAYERS];
new fishing[MAX_PLAYERS];
new hfish[MAX_PLAYERS];


enum randomfishing {
tfish[256],
fish,
mon,
hp,
}

new randomfish[][randomfishing] = {
{"WoW... this is the golden fish !!!",1,15000,100},
{"You fished a mandarin fish ![Good] !!!",1,3000,63},
{"Cool, a Prussian Carp !",1,6300,12},
{"Hahahaha... you fished a boot.",0,3000,0},
{"You fished a cat fish!",1,5000,41},
{"A Sea Snake, Cool  (^_^)",1,3000,1},
{"LoL... You fished a hat [hahaha]",0,6000,0},
{"You caught a carp of 1 kg ! [Good for you]",1,4000,30},
{"Hahahaha... you fished a boot.",0,3000,0},
{"Funny...You fished a small fish", 1,1000,10},
{"That's your bad day... you failed to fishing",0,1000,40},
{"This is your lucky day. You fished a big carp !!!",1,8000,50},
{"This is a shoes ? Hahahah!",0,2000,12},
{"Your fish escape!",0,1000,63}
};

forward waitfish();

OnPlayerDisconnect:

Code: [Select]
fishing[playerid] = 0;
boughtw[playerid] = 0;
boughtr[playerid] = 0;
hfish[playerid] = 0;

Commands:

Code: [Select]
else if(strcmp(cmd, "fhelp", true) == 0) {
    SendClientMessage(playerid,COLOR_YELLOW,"-----------Fishing Help-----------");
    SendClientMessage(playerid,COLOR_YELLOW,"For a good job, type '/aim' before fishing !");
    SendClientMessage(playerid,COLOR_YELLOW,"For eat,sell,live fish type '[/c] eatf, sellf,livef' !");
    SendClientMessage(playerid,COLOR_YELLOW,"For Fishing type '/c fishing' !");
    SendClientMessage(playerid,COLOR_YELLOW,"For buy rod and worms type '/c buyrod' , '/c buyworms' at shop !");
    SendClientMessage(playerid,COLOR_YELLOW,"For put the fishing rod in your hand type '/c rod' !");
    SendClientMessage(playerid,COLOR_YELLOW,"-----------Fishing Help-----------");
    return 1;
    }
else if(strcmp(cmd, "rod", true) == 0) {
if(boughtr[playerid] == 1) {
    GivePlayerWeapon(playerid,3,1);
    }
if(boughtr[playerid] == 0) {
    SendClientMessage(playerid,COLOR_GREEN,"You don't have a fishing rod! Go to shop to buy!");
}
return 1;
}
else if(strcmp(cmd, "buyrod", true) == 0) {
    if(PlayerToPoint(7, playerid, -712.7392, -1500.4816, 11.4436)) {
        new cash = GetPlayerMoney(playerid);
        if(boughtr[playerid] == 1) {
        SendClientMessage(playerid,COLOR_YELLOW,"Already have a fishing rod!");
        SendClientMessage(playerid,COLOR_YELLOW,"For put the rod in your hand type '/c rod' !");
        }
        if(boughtr[playerid] == 0) {
        if(cash >= 5000) {
        SendClientMessage(playerid,COLOR_YELLOW,"You bought a fishing rod!");
        GivePlayerWeapon(playerid,3,1);
        boughtr[playerid] = 1;
        SetPlayerMoney(playerid,GetPlayerMoney(playerid) - 5000);
        }
        if(cash < 5000) {
        SendClientMessage(playerid,COLOR_YELLOW,"Need more money ! Need $5000 for this rod!");
        }
        }
        }
        else
        {
        SendClientMessage(playerid,COLOR_YELLOW,"You not are at shop!");
        }
    return 1;
}
else if(strcmp(cmd, "buyworms", true) == 0) {
    if(PlayerToPoint(7, playerid, -712.7392, -1500.4816, 11.4436)) {
        new cash = GetPlayerMoney(playerid);
        if(boughtw[playerid] > 0 && boughtw[playerid] < 10) {
SendClientMessage(playerid,COLOR_YELLOW,"You have worms!");
}
        if(boughtw[playerid] == 0) {
            if(cash >= 3000) {
            SendClientMessage(playerid,COLOR_YELLOW,"You bought 10 worms !");
            boughtw[playerid] = 10;
            SetPlayerMoney(playerid,GetPlayerMoney(playerid) - 3000);
            }
            if(cash < 3000) {
            SendClientMessage(playerid,COLOR_YELLOW,"Need more money ! Need $3000 for worms!");
            }
}
}
else
{
SendClientMessage(playerid,COLOR_GREEN,"You not are at shop!");
}
return 1;
}
else if(strcmp(cmd, "sellf", true) == 0) {
new rand = random(sizeof(randomfish));
    if(hfish[playerid] == 0) {
        SendClientMessage(playerid,COLOR_GREEN,"You don't have a fish!");
        }
if(hfish[playerid] == 1) {
    SendClientMessage(playerid,COLOR_YELLOW,"You sold your fish for money!");
    SetPlayerMoney(playerid,GetPlayerMoney(playerid) + randomfish[rand][mon]);
    hfish[playerid] = 0;
    }
    return 1;
    }
    else if(strcmp(cmd, "eatf", true) == 0) {
    new rand = random(sizeof(randomfish));
    new Float:Health;
    GetPlayerHealth(playerid,Health);
    if(hfish[playerid] == 0) {
        SendClientMessage(playerid,COLOR_GREEN,"You don't have a fish!");
        }
if(hfish[playerid] == 1) {
    SendClientMessage(playerid,COLOR_YELLOW,"You ate your fish for health!");
    SetPlayerHealth(playerid,Health + randomfish[rand][hp]);
    hfish[playerid] = 0;
    }
    return 1;
    }
    else if(strcmp(cmd, "leavef", true) == 0) {
        if(hfish[playerid] == 0) {
        SendClientMessage(playerid,COLOR_GREEN,"You don't have a fish!");
        }
if(hfish[playerid] == 1) {
    SendClientMessage(playerid,COLOR_YELLOW,"You want to live your fish, so.. say Bye!");
    SendClientMessage(playerid,COLOR_YELLOW,"The fish say: Thank You Very Much! Im so happy!");
    hfish[playerid] = 0;
}
    return 1;
    }
else if(strcmp(cmd, "fishing", true) == 0) {
    if(PlayerToPoint(30, playerid,-563.4057, -1514.9204, 4.8351 ) || PlayerToPoint(30, playerid,-600.0203, -1527.4523, 5.9322) || PlayerToPoint(30,playerid,-627.0029, -1516.8279, 8.1077) || PlayerToPoint(30,playerid,-580.3753, -1475.2249, 4.0794) || PlayerToPoint(30,playerid,-621.3587, -1459.5869, 3.7448)) {
        if(fishing[playerid] == 1) {
            SendClientMessage(playerid,COLOR_GREEN,"Already Fishing!");
}
if(fishing[playerid] == 0) {
if(boughtr[playerid] == 0) {
    SendClientMessage(playerid,COLOR_GREEN,"Need rod for fishing! Go to shop to buy!");
}
        if(boughtr[playerid] == 1) {
        if(boughtw[playerid] == 0) {
GameTextForPlayer(playerid,"~o~not have worms!");
        SendClientMessage(playerid,COLOR_GREEN,"Not have worms! Go to shop to buy!");
        }
        if(boughtw[playerid] == 1) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 1 worm!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 0;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 2) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 1 worm!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 1;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 3) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 2 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 2;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 4) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 3 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 3;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 5) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 4 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 4;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 6) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 5 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 5;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 7) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 6 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 6;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 8) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 7 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 7;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 9) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 8 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 8;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        if(boughtw[playerid] == 10) {
GameTextForPlayer(playerid,"~o~For a good job, type ~w~/aim ~o~!");
        SendClientMessage(playerid,COLOR_YELLOW,"Wait 5 seconds to find a fish!");
        SendClientMessage(playerid,COLOR_YELLOW,"Now, you have just 9 worms!");
        SetTimer("waitfish", 5000, false);
        fishing[playerid] = 1;
        boughtw[playerid] = 9;
        TogglePlayerControllable(playerid,0);
        GivePlayerWeapon(playerid,3,1);
        }
        }
        }
        }
else
{
SendClientMessage(playerid,COLOR_GREEN,"You not are at port, on legal zone!");
}
    return 1;
    }

On Player Death:

Code: [Select]
fishing[playerid] = 0;
hfish[playerid] = 0;

The New Public:

Code: [Select]
public waitfish()
{
    for(new i = 0; i < MAX_PLAYERS; i++) {
        if (IsPlayerConnected(i)) {
            if(fishing[i]) {
new rand = random(sizeof(randomfish));
hfish[i] = randomfish[rand][fish];
fishing[i] = 0;
hfish[i] = randomfish[rand][fish];
TogglePlayerControllable(i,1);
GameTextForPlayer(i,"~b~Got something ! ~w~read ~b~pm !");
SendClientMessage(i,COLOR_YELLOW,randomfish[rand][tfish]);
if(hfish[i] == 0) {
}
if(hfish[i] == 1) {
TogglePlayerControllable(i,1);
GameTextForPlayer(i,"~b~Got something ! ~w~read ~b~pm !");
SendClientMessage(i,COLOR_YELLOW,randomfish[rand][tfish]);
SendClientMessage(i,COLOR_YELLOW,"You want to sell fish ? type '/c sellf' !");
SendClientMessage(i,COLOR_YELLOW,"You want to eat fish ? type '/c eatf' !");
SendClientMessage(i,COLOR_YELLOW,"You want to leave fish ? type '/c leavef' !");
        }
        }
}
}
}

This is ... Have Fun !
« Last Edit: February 16, 2013, 10:26:22 pm by stormeus »

Quote
Painful/Noob scripters acts like: I Am The Best Scripter Because I Announce My Releases With Big Font Size Without Giving Too Much Info' In The Hope They All Will Download And Check It. I Ignore Bad Replies, Replies That I Could Learn From, And Replies With So Much Text.



Offline aledark24

  • Made Man
  • ***
  • Posts: 206
  • I am a scripter and you have celous of me....so you crashed my servers
    • View Profile
Re: [FS] Fishing System v1.0
« Reply #1 on: July 30, 2012, 03:32:26 am »
this filterscript is great only one problem.. not give real money so.. i cant use to roleplay
i remove the sellfish only give fake money  :'( , only use eat the fish for recovery energy :D


« Last Edit: August 01, 2012, 01:41:29 am by aledark24 »
I am a great scripter and you are celous of my works
.....

Vice City Life Multiplayer By Saint

Offline sseebbyy

  • VC:MP Veteran
  • *****
  • Posts: 774
  • Immortal VC:MP Player
    • View Profile
    • Zombie Invasion => Server Forum [DEAD PROJECT]
Re: [FS] Fishing System v1.0
« Reply #2 on: July 30, 2012, 11:50:43 am »
this filterscript is great only one problem.. not give real money so.. i cant use to roleplay
i remove the sellfish only give fake money  :'( , only use eat the fish for recovery energy :D




You use GUPS right ?

I will come with an edit . I need to get the function of real money.

EDIT: 

You have here a link with Fishing System v1.0 for GUPS: http://pastebin.com/00GfMtXC
« Last Edit: July 30, 2012, 12:35:40 pm by sseebbyy »

Quote
Painful/Noob scripters acts like: I Am The Best Scripter Because I Announce My Releases With Big Font Size Without Giving Too Much Info' In The Hope They All Will Download And Check It. I Ignore Bad Replies, Replies That I Could Learn From, And Replies With So Much Text.



Offline aledark24

  • Made Man
  • ***
  • Posts: 206
  • I am a scripter and you have celous of me....so you crashed my servers
    • View Profile
Re: [FS] Fishing System v1.0
« Reply #3 on: July 31, 2012, 02:05:09 am »
this filterscript is great only one problem.. not give real money so.. i cant use to roleplay
i remove the sellfish only give fake money  :'( , only use eat the fish for recovery energy :D




You use GUPS right ?

I will come with an edit . I need to get the function of real money.

EDIT: 

You have here a link with Fishing System v1.0 for GUPS: http://pastebin.com/00GfMtXC

 hem en realidad uso warchief pero modificado para roleplay :D vere que tal va la modificacion ya que me costo un monton intentar hacerlo que funcionara y no pude :D
I am a great scripter and you are celous of my works
.....

Vice City Life Multiplayer By Saint

Offline sseebbyy

  • VC:MP Veteran
  • *****
  • Posts: 774
  • Immortal VC:MP Player
    • View Profile
    • Zombie Invasion => Server Forum [DEAD PROJECT]
Re: [FS] Fishing System v1.0
« Reply #4 on: July 31, 2012, 02:21:36 am »
Speak english please.

Quote
Painful/Noob scripters acts like: I Am The Best Scripter Because I Announce My Releases With Big Font Size Without Giving Too Much Info' In The Hope They All Will Download And Check It. I Ignore Bad Replies, Replies That I Could Learn From, And Replies With So Much Text.



Offline NeskWriter

  • Crime Boss
  • ****
  • Posts: 355
    • View Profile
Re: Fishing System v1 [By Me]
« Reply #5 on: August 25, 2012, 09:19:27 pm »
Your scripts are great ever! One thing,
Quote
SendClientMessage(playerid,COLOR_GREEN,"You don't have a fishing rod! Go to magazine to buy!");
Magazine and shop are two different things!
Shop is a place where you can buy all you need
Magazine is
In ukrainian and russian languages shop also called magazin.
Good luck in pawn and english!  :P


-Funniest quotes-

Quote from: asad3man
i cant able to understand

Offline sseebbyy

  • VC:MP Veteran
  • *****
  • Posts: 774
  • Immortal VC:MP Player
    • View Profile
    • Zombie Invasion => Server Forum [DEAD PROJECT]
Re: Fishing System v1 [By Me]
« Reply #6 on: August 25, 2012, 10:31:56 pm »
Your scripts are great ever! One thing,
Quote
SendClientMessage(playerid,COLOR_GREEN,"You don't have a fishing rod! Go to magazine to buy!");
Magazine and shop are two different things!
Shop is a place where you can buy all you need
Magazine is http://img13.nnm.ru/8/0/b/0/8/aa669e6b99dd6bb350a66d769e4.jpg
In ukrainian and russian languages shop also called magazin.
Good luck in pawn and english!  :P

Ye, you right . ;)

I know what is a shop & magazine now :P
Maybe when I made this Fishing System , I didn't knew so much english.

The script is old ... Was re-posted on this forum at July 30, 2012 by me because vc:mp forum was attacked ;)

P.S: I like to see someone who really analyze scripts  :)

Quote
Painful/Noob scripters acts like: I Am The Best Scripter Because I Announce My Releases With Big Font Size Without Giving Too Much Info' In The Hope They All Will Download And Check It. I Ignore Bad Replies, Replies That I Could Learn From, And Replies With So Much Text.



Offline NeskWriter

  • Crime Boss
  • ****
  • Posts: 355
    • View Profile
Re: Fishing System v1 [By Me]
« Reply #7 on: August 26, 2012, 10:59:34 am »
 ;) :D


-Funniest quotes-

Quote from: asad3man
i cant able to understand

Offline DilsonTB

  • Made Man
  • ***
  • Posts: 140
  • VC:MP Developer. & SA:MP Currently Developer
    • View Profile
Re: Fishing System v1 [By Me]
« Reply #8 on: August 27, 2012, 12:31:13 am »
Good Job!! :D +10
_______________________________________________
VC:MP Squirrel Developer.
VC:MP pawno Developer.
SA:MP Developer.

Actually developing " San Fierro Roleplay - Latino ", with
my beta team testers, Mapper + Scripter ( me ), 18,000
lines, and is 34% finished. hope to finish it in 4 Or 3 Months.

- MYSQL FULL BASED.
- PCU.
_______________________________________________

Offline [S]angeeta

  • Street Thug
  • *
  • Posts: 14
    • View Profile
Re: Fishing System v1 [By Me]
« Reply #9 on: October 05, 2012, 08:45:57 am »
Okey! I am Also Using GUPS 1.6 like that So where i can paste these commands and Can i make pawn commands for my server..??? r i have to download different server versions for that...Pawno after editing when i am Compailing it its showing Error Not found like that so my server is not running too.....Help!

Offline Spidey

  • Street Thug
  • *
  • Posts: 37
  • iam good scripter and iam computer genuis too
    • View Profile
    • Fight gangwar server
Re: [FS] Fishing System v1 [By Me]
« Reply #10 on: September 09, 2014, 09:45:20 am »
hey your script for gups is a bug

file://localhost/E:/Grand%20Theft%20Auto%20-%20Vice%20City/vc-mp-000.jpg

Offline NE.Restricted

  • Wiseguy
  • **
  • Posts: 97
    • View Profile
Re: [FS] Fishing System v1 [By Me]
« Reply #11 on: September 09, 2014, 10:32:36 am »
hey your script for gups is a bug

file://localhost/E:/Grand%20Theft%20Auto%20-%20Vice%20City/vc-mp-000.jpg
Before giving a link take a look at how the internet works...
I am NE.CrystalBlue!!!
Quote
i cant able to understand

Offline Spidey

  • Street Thug
  • *
  • Posts: 37
  • iam good scripter and iam computer genuis too
    • View Profile
    • Fight gangwar server
Re: [FS] Fishing System v1 [By Me]
« Reply #12 on: September 09, 2014, 05:30:26 pm »
iknow

Offline sseebbyy

  • VC:MP Veteran
  • *****
  • Posts: 774
  • Immortal VC:MP Player
    • View Profile
    • Zombie Invasion => Server Forum [DEAD PROJECT]
Re: [FS] Fishing System v1 [By Me]
« Reply #13 on: September 10, 2014, 12:00:30 am »
Spidey, and you all... stop using pawn platform. It is not continued anymore... VC:MP 0.4 uses Squirrel platform, so go ahead and get used to it :P

Quote
Painful/Noob scripters acts like: I Am The Best Scripter Because I Announce My Releases With Big Font Size Without Giving Too Much Info' In The Hope They All Will Download And Check It. I Ignore Bad Replies, Replies That I Could Learn From, And Replies With So Much Text.



Offline Spidey

  • Street Thug
  • *
  • Posts: 37
  • iam good scripter and iam computer genuis too
    • View Profile
    • Fight gangwar server
Re: [FS] Fishing System v1 [By Me]
« Reply #14 on: September 10, 2014, 12:47:37 pm »
tell me the link to download squirell script writer