Fishing... - Printable Version

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: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Fishing... (/showthread.php?tid=2520)

Fishing... - Nean - 25-01-2009

I've been working on fishing, and I have run into a snag.

Code:
Sub HandleGoFishing(ByVal Index As Long)

Dim Chance As Long

Dim FishRod As Long

FishRod = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2

Chance = Rand(100, GetPlayerLevel(Index))

    If GetPlayerEquipmentSlot(Index, Weapon) = FishRod Then

        'Randomize based on players level. If chance = player level, you caught a fish!

        If Chance = 100 Then

            Call PlayerMsg(Index, "THIS IS A TEST", Blue)

        Else

            Call PlayerMsg(Index, "NOOO", Red)

        End If

    Else

        Call PlayerMsg(Index, "doing it wrong", BrightRed)

    End If

End Sub

Code:
If frmMirage.OptFishing.Value Then

                    .Type = TILE_TYPE_FISHING

                    .Data1 = frmFish.scrlFishNo

                    .Data2 = frmFish.scrlToolNo

                    .Data3 = 0

                End If

Even though< i have the right tool equipped, it still prints "Doing it wrong"

Obviously I am doing something wrong, can anyone help me out?

Re: Fishing... - Tony - 25-01-2009

Test something out like.. in the PlayerMsg add in like FishRod and see what that equals?

Call PlayerMsg(Index, "doing it wrong BECAUSE FishRod = " & FishRod & " and Tool = " & GetPlayerEquipmentSlot(Index, Weapon, BrightRed)

Re: Fishing... - Nean - 25-01-2009

It returns 0... Must not be saving correctly?

Code:
FishName = Item(scrlFishNo.Value).Name

ToolName = Item(scrlToolNo.Value).Name

FishNumber = frmFish.scrlFishNo.Value

ToolNumber = frmFish.scrlToolNo.Value

Unload Me

That's what's in the "Ok" button...

Re: Fishing... - Tony - 25-01-2009

Nean Wrote:It returns 0... Must not be saving correctly?

Yeah, most likely.

Re: Fishing... - Nean - 25-01-2009

Edited above post. Any ideas? I don't think I'm sending the data to and from the server right.

Re: Fishing... - Tony - 25-01-2009

Your Unloading.. yet you haven't saved it yet. For ex;
Cootch = frmStink
SendSaveFishyCootch
Unload

Re: Fishing... - Nean - 25-01-2009

Tony Wrote:Your Unloading.. yet you haven't saved it yet. For ex;
Cootch = frmStink
SendSaveFishyCootch
Unload

Great analogy. Thanks, I'll try it out.

Re: Fishing... - Nean - 25-01-2009

Yeah it worked out, thanks a lot tony, I appreciate it.

Re: Fishing... - Tony - 25-01-2009

Nean Wrote:Yeah it worked out, thanks a lot tony, I appreciate it.

A person's trash is another person's treasure so, a person's pain is another person's pleasure!