Need Help with a script

[VitinhooxD]

Hi everyone.I 'm making a quest script and i have one problem heres the script:
```
Sub Questing(index)
On Error Resume Next
Dim Status
Dim Name
Dim Questing_msg
Dim  Complete_msg
Dim Needspace
Dim Exp
Dim Need
Dim Needvalue
Dim Give
Dim Givevalue
Dim Level_Msg
Dim Map
Dim ReqLevel

Map = GetPlayerMap(index)
ReqLevel = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "Level _Requeriment" , "LVL")
Name = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , "Quest_Name")
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Status" , ""& map , "NotStarted")
Status = GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Quest" , ""& map )

          Select Case Status

              Case NotStarted

Level_Msg = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , " Lvl_Msg ")

    If GetPlayerLevel(Index) >= ReqLevel Then
          Call PlayerMsg(index , "test" , 4)
    Else
          Call CustomMenuClose(index)
          Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
          Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)

    End If

          End Select

End Sub
```The script should give the message test if the player have more level than the required in the ini file. The required is 1 and i'm level 32.But the script made it contrary.

COuld someone help me?
Thanks.

[DarkSpine]

I can't see anything wrong with the script…But maybe try switching the lv requirement script around, so replace
```
    If GetPlayerLevel(Index) >= ReqLevel Then
          Call PlayerMsg(index , "test" , 4)
    Else
          Call CustomMenuClose(index)
          Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
          Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)

    End If

```With
```
    If GetPlayerLevel(Index) < ReqLevel Then
          Call CustomMenuClose(index)
          Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
          Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)
    End If
    If GetPlayerLevel(Index) >= ReqLevel Then
          Call PlayerMsg(index , "test" , 4)
    End If

```
If that doesn't work try this:
```
    If GetPlayerLevel(Index) < ReqLevel Then
          Call CustomMenuClose(index)
          Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
          Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)
    Else
          Call PlayerMsg(index , "test" , 4)
    End If

```
I just don't see how it's messing up at all, I don't see a single actual error in it.

[VitinhooxD]

Still doesn't working correctly , but thanks for helping =(

[Bobosk]

when you're using select case with strings, you need to put quotes("") around the string

[VitinhooxD]

Using qoutes it makes the whole script  doesn't work  =(

[Bobosk]

```
Sub Questing(index)
On Error Resume Next
Dim Status
Dim Name
Dim Questing_msg
Dim  Complete_msg
Dim Needspace
Dim Exp
Dim Need
Dim Needvalue
Dim Give
Dim Givevalue
Dim Level_Msg
Dim Map
Dim ReqLevel

Map = GetPlayerMap(index)
ReqLevel = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "Level _Requeriment" , "LVL")
Name = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , "Quest_Name")
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Status" , ""& map , "NotStarted")
Status = GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Quest" , ""& map )

          Select Case Status

              Case "NotStarted"

Level_Msg = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , " Lvl_Msg ")

    If GetPlayerLevel(Index) >= ReqLevel Then
          Call PlayerMsg(index , "test" , 4)
    Else
          Call CustomMenuClose(index)
          Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
          Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)

    End If

          End Select

End Sub
```i was talking about the```
case Not Started
```you need to put quotes around the```
Not Started
```like i did above, in the bigger code box

[VitinhooxD]

Yes i know i wrote Case "NotStarted" .