Expected sub, function or property

[kapsel598]

im new with visual basic and i have this error:
http://postimage.org/image/ifhe4vi4p/
please tell me what i do wrong or what i must add to fix this.
this is my own script
thanks

[Joyce]

You forgot to add brackets behind the command, when you use Call, you MUST always add brackets like () behind the command, even if it has no parameters.

[Synergy]

What on Earth is FishRand? o.O

And, like Joyce said, it needs to be:

```
Call FishRand ()
```

[kapsel598]

when i try add () it dissapear

[Joyce]

Ah, I just noticed FishRand is a variable. Why are you calling a Variable? (Since you're assigning a value to it earlier). I think you meant to call a sub there, but you made a mistake somewhere?

[kapsel598]

I am a beginner in VB I mean that random from 1 to 3 (rand) if one and I'm level 10 and get the item if you do not have a level 10 again random

[Joyce]

Sadly, it doesn't work that way.. :P Can you copy and paste the code on here so I can change it accordingly?

[kapsel598]

it is edited http://www.touchofdeathforums.com/smf2/index.php/topic,64806.msg694102.html#msg694102
if you used fish item(recipe) (you must have tool and 1 item)

>! If Item(GetPlayerEquipment(Index, Weapon)).FTool = Item(GetPlayerInvItemNum(Index, invNum)).FToolReq Then
                    ' Give the resulting item
                        If HasItem(Index, FItem1) Then
                            FishRand = rand(1, 3)
                                If FishRand = 1 Then
                                    If GetPlayerLevel(Index) = 10 Then
                                        Call PlayerMsg(Index, "1", Red)
                                    Else
                                        Call FishRand
                                    End If
                                End If
                                If FishRand = 2 Then
                                    If GetPlayerLevel(Index) = 15 Then
                                        Call PlayerMsg(Index, "2", Red)
                                    Else
                                        Call FishRand
                                    End If
                                End If
                                If FishRand = 3 Then
                                    If GetPlayerLevel(Index) = 20 Then
                                        Call PlayerMsg(Index, "3", Red)
                                    Else
                                        Call FishRand
                                    End If
                                End If

[Joyce]

Question, why do you want to to re-randomize? Because the way you explain it you might as well do it this way:

```
If HasItem(Index, FItem1) Then
                            Select Case GetPlayerLevel(Index)

                                Case 10
                                    ' Hand out the item

                                Case 15
                                    ' Hand out the Item

                                Case 20
                                    ' Hand out the Item

                            End Select
                        End If
```because your intended code would always end up giving the level appropriate item anyway. (Note that this will NOT allow you to catch fish when your level is anything other than those levels, which is another weird thing I don't get with your idea?)

or the following if you want it to hand out the items between levels as well:

```
                        If HasItem(Index, FItem1) Then
                            Select Case GetPlayerLevel(Index)

                                Case 1 To 9
                                    ' Hand out the item

                                Case 10 To 14
                                    ' Hand out the Item

                                Case 15 To 20
                                    ' Hand out the Item

                            End Select
                        End If
```

[kapsel598]

Thank you, i remember it for the future

[Joyce]

If it's not what you were trying to do please say so, so I can adjust it accordingly xD