Fishing...

[Nean]

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?

[Tony]

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)

[Nean]

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...

[Tony]

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

Yeah, most likely.

[Nean]

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

[Tony]

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

[Nean]

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

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

[Nean]

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

[Tony]

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!