Mirage Source
Fishing - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Tutorials (https://mirage-engine.uk/forums/forumdisplay.php?fid=13)
+------ Thread: Fishing (/showthread.php?tid=2522)

Pages: 1 2 3 4

Re: Fishing - Anthony - 28-03-2009

In 3.77 all those variables have been replaced with EditorTileX and EditorTileY.

It shouldn't really matter where they are placed, just that they are in there somewhere.

Re: Fishing - kasuko - 29-03-2009

Haha... I did the tutorial over again one last time and it worked like a charm... there is one fishy thing though (no pun intended), When I tested it I never caught anything all it said was, "Your attempt at catching a fish, has failed." (lol what's up with that comma there xD) Any way thanks for all your help! I get much more help from you guys then I do from the egotistical people over at Elysium -points at Robin- haha just kidding, I having nothing against him.

Re: Fishing - Pix€l - 29-03-2009

I've a problem in this line to the ModPlayer to the serveur:
Code:
Function GetPlayerInvItemNum(ByVal Index As Long, ByVal InvSlot As Long) As Long
    GetPlayerInvItemNum = Player(Index).Char(TempPlayer(Index).CharNum).Inv(InvSlot).Num
End Function

This bug that occurs when the player does not have the objects to fish, and the server crash which is very annoying!
Please help me :oops:
THX

Re: Fishing - Pix€l - 30-03-2009

Up , pls ! Big Grin

Re: Fishing - Tony - 31-03-2009

What's the error?

Try this

Matt Wrote:Bug, seems small, but it's a big thing with this system.

Find:
Code:
If GetPlayerEquipmentSlot(Index, Weapon) = FishRod Then

Replace with:
Code:
If GetPlayerInvItemNum(Index, GetPlayerEquipmentSlot(Index, Weapon)) = FishRod Then


Re: Fishing - Pix€l - 31-03-2009

This line of code and already included in my source code is and always!

Arrow The code is now I think, when the attacking player melee (unarmed) or when he can not lure ...

Re: Fishing - Nean - 01-04-2009

No, we want the specific RTE number. Tell us what it actually says, such as: "Runtime Error 9: Subscript out of Range", or some BS, or "Run Time Error 13: Type Mismatch", etc, etc.

Re: Fishing - Pix€l - 01-04-2009

"Runtime Error 9: Subscript out of Range" :?

Re: Fishing - Pix€l - 03-04-2009

Up pls !

Re: Fishing - Pix€l - 03-04-2009

Up!
Pls help me , my game is bugged ...
A Error 9 is present ... Cry

Re: Fishing - Acruno - 04-04-2009

What line is highlighted in the IDE?

Re: Fishing - Pix€l - 04-04-2009

This line
Code:
GetPlayerInvItemNum = Player(Index).Char(TempPlayer(Index).CharNum).Inv(InvSlot).Num


Re: Fishing - Nean - 04-04-2009

Add something like: If FishRod > 0 Then

Above the If FishBait 0

Re: Fishing - Pix€l - 05-04-2009

A Error 9 is present ...
Help me pls

Re: Fishing - Pbcrazy - 05-04-2009

you really need to post the line of code it highlights. else we can't help you to well...

Re: Fishing - Nean - 05-04-2009

Nean Wrote:Add something like: If FishRod > 0 Then

Above the If FishBait 0


Re: Fishing - Pix€l - 05-04-2009

in this line to the ModPlayer to the serveur :

Code:
GetPlayerInvItemNum = Player(Index).Char(TempPlayer(Index).CharNum).Inv(InvSlot).Num


Re: Fishing - Nean - 05-04-2009

Nean Wrote:
Nean Wrote:Add something like: If FishRod > 0 Then

Above the If FishBait 0


Re: Fishing - Matt - 05-04-2009

Nean Wrote:
Nean Wrote:
Nean Wrote:Add something like: If FishRod > 0 Then

Above the If FishBait 0

Give up, Nean. He's not taking the hint. At all..

Re: Fishing - Nean - 05-04-2009

Matt Wrote:
Nean Wrote:
Nean Wrote:
Nean Wrote:Add something like: If FishRod > 0 Then

Above the If FishBait 0

Give up, Nean. He's not taking the hint. At all..

Yeah. If he's too stupid to take the hint, than he doesn't deserve the help.

Re: Fishing - Nean - 11-04-2009

Hmmm, I went through and added all of this to the newest Mirage, and found a few errors. For starters:

Code:
If GetPlayerInvItemNum(Index, GetPlayerEquipmentSlot(Index, Weapon)) = FishRod Then
is causing a packet malfunction (Hack attempt), if you don't have it equipped. If I just do it:
Code:
If GetPlayerEquipmentSlot(Index, Weapon) = FishRod Then
Than it works just fine. Someone know what's going on?

Re: Fishing - Matt - 11-04-2009

No, see.. You have to check the inventory, to find the slot that the rod is equipped in..

Re: Fishing - Nean - 11-04-2009

So I would use a loop?

Re: Fishing - Matt - 11-04-2009

Nean Wrote:So I would use a loop?

No, that's what this does:

Code:
If GetPlayerInvItemNum(Index, GetPlayerEquipmentSlot(Index, Weapon)) = FishRod Then


Re: Fishing - Nean - 11-04-2009

Matt Wrote:
Nean Wrote:So I would use a loop?

No, that's what this does:

Code:
If GetPlayerInvItemNum(Index, GetPlayerEquipmentSlot(Index, Weapon)) = FishRod Then

Well that's all good and whatnot, however when I try to attack on a fish tile, without the fishing tool, it gives me a packet error (Packet Modification), and then it just says that I have lost my connection with MIrage Source. But when I just have it [code] If GetPlayerEquipMentSlot(index, Weapon) = FishRod Then [code], it works fine. Maybe there's something wrong with the GetPlayerInvItemNum function.