Wrong tilescript?

[kuroda]

i use this script but i dont know how doesnt work :S

Sub ScriptedTile(index)

case 0
                GetPlayerLevel(index)

    If PlayerLevel(index) > 6 then

Call BlockPlayer(index)

Call PlayerMsg(index, "[Attention]Your not the right level to enter this area",

7)

Else

      If PlayerLevel(index) < 6 then

call playermsg(index, "welcome to the level 6+ area", 4)

end if

end if
end sub

[Anna Comnena]

I don't think the GetPlayerLevel(index) does anything by itself, since the value is not being assigned to anything.

Why not try If GetPlayerLevel(index) > 6 then ?

[Dark_Marine_123]

Try removing the unneeded line break between "[Attention]Your not the right level to enter this area",

7)"

Also you dont need that extra If then for the enter 6+ area, not to mention you have > and < in the wrong spots

[cheatking]

```
Sub ScriptedTile(index)
Case 0
If GetPlayerLevel(index) > 6 Then
Call BlockPlayer(index) ' I'm not shure if that will work.
Call PlayerMsg(index, "[Attention]Your not the right level to enter this area", 7)
Else
If GetPlayerLevel(index) < 6 Then
Call PlayerMsg(index, "welcome to the level 6+ area", 4)
End If
End If
End Sub
```Try that.

[Dark_Marine_123]

@[NW:

> [CUBE] Sean link=topic=39585.msg385413#msg385413 date=1235758385]
> ```
> Sub ScriptedTile(index)
> Case 0
> If GetPlayerLevel(index) > 6 Then
> Call BlockPlayer(index) ' I'm not shure if that will work.
> Call PlayerMsg(index, "[Attention]Your not the right level to enter this area", 7)
> Else
> If GetPlayerLevel(index) < 6 Then
> Call PlayerMsg(index, "welcome to the level 6+ area", 4)
> End If
> End If
> End Sub
> ```Try that.

Wont work.

If GetPlayerLevel is LESS THAN 6 then
Welcome to the 6+ area?

[kuroda]

i think i have a problem with the server or client, when i put the code on my main.txt the server dont load it. i use the "Script" atribute and script nº0 to load that but nothing happens :S

[Dark_Marine_123]

The client defently works for scripted tiles.

Make sure you reload your script, make sure you actually walk onto the tile

[kuroda]

yeah, i try it but nothing im getting mad  :angry:

[kuroda]

so nop, the script didnt work  :sad:

[kuroda]

i tryed another scripts and works but not for lvl block… :(

[Fulou]

Give this a whirl, havent tested since i havent got Eclipse, so back up your main.txt first!

```
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.'
Sub ScriptedTile(index)
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
  Case 0
  If GetPlayerLevel(index) > 6 Then
  Call PlayerMsg(index, "[Attention]Your not the right level to enter this area", 7)
  Call ReturnPlayer(Index)
  Else
      If GetPlayerLevel(index) < 6 Then
        Call PlayerMsg(index, "welcome to the level 6+ area", 4)
      End If
  End If
End Sub

'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
Sub ReturnPlayer(Index)
'warps player back to previous square
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
Dim Xadd
Dim Yadd

Xadd = 0
Yadd = 0

Select Case GetPlayerDir(Index)
Case 0 ' up
Yadd = -1
Case 1 ' down
Yadd = 1
Case 2 ' left
Xadd = -1
case 3 ' right
Xadd = 1
End select

Call PlayerWarp(Index, GetPlayerMap(Index), Int(GetPlayerX(Index) + Xadd), Int(GetPlayerY(Index) + Yadd))

End sub
```

[kuroda]

omg supertnx dude!! but i corrected some errors of the code :D
```
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.'
Sub ScriptedTile(index)
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
  Case 0
  If GetPlayerLevel(index) <= 6 Then
  Call PlayerMsg(index, "[Attention]Your not the right level to enter this area", 7)
  Call ReturnPlayer(Index)
  Else
      If GetPlayerLevel(index) > 6 Then
        Call PlayerMsg(index, "welcome to the level 6+ area", 4)
      End If
  End If
End Sub

'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
Sub ReturnPlayer(Index)
'warps player back to previous square
'.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.:!:.
Dim Xadd
Dim Yadd

Xadd = 0
Yadd = 0

Select Case GetPlayerDir(Index)
  Case 0 ' up
      Yadd = 1     
  Case 1 ' down
      Yadd = -1
  Case 2 ' left
      Xadd = 1
  case 3 ' right
      Xadd = -1
End select

Call PlayerWarp(Index, GetPlayerMap(Index), Int(GetPlayerX(Index) + Xadd), Int(GetPlayerY(Index) + Yadd))

End sub
```the symbols <, >, -1,1, were oposite :P and i adde <= to lvl 6