Error with custom menus + PlayerWarp not working

[Eviltyphoon]

So, I started rewriting the bounty script for MyWorld so I could make a sign that show everyone that has a bounty. But now I get this error:


on this code:

```
' Executes when a player steps onto a scripted tile.
Sub ScriptedTile(Index, Script)
Dim Player
Dim Bounty
Dim x
x = 0
Dim y
Dim z
y = 500
z = 1000
Select Case Script

Case 6
Call Custommenushow(index, "Wanted!", "\GUI\CUSTOM\wanted.gif", 1)
Call Custommenulabel(index, 8, "Name", 20, 20, 10, 0, 0, 100, 20)
Call Custommenulabel(index, 9, "Bounty", 120, 20, 10, 0, 0, 100, 20)
Do until x = 500
  Player = GetVar("bounty.ini", "x", "bounty" & x)
  If Player = "" Then
  Else
  Bounty = GetVar("bounty.ini", "bounty", Player & "")
  Call Custommenulabel(index, y, Player & "", 20, Int(40 + (x * 20)), 10, 0, 0, 100, 20)
  Call Custommenulabel(index, z, Bounty & "", 120, Int(40 + (x * 20)), 10, 0, 0, 100, 20)
  End if
  x = x + 1
  y = y + 1
  z = z + 1
Loop

Case Else
Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub
```

It's not always control array element 500, sometimes its control array element 501…

Edit: Since I was stuck with the prvious script, I started on the next one, but now I'm stuck with this one too :(. The Call PlayerWarp cmd does nothing:

```
Chance = Rand(1,100)
Call PlayerMSG(index, chance & "", 0)
If Change < 10 Then
  Do until x = 99
    Call PlayerMSG(index, x & "", 0)
    If GetVar("random.ini", "maps", "Map" & x) = "0" Then
      Call Putvar("random.ini", "maps", "Map" & x, "1")
      Call Putvar("random.ini", "players", Getplayername(index) & "", "1")
      Call Putvar("random.ini", "players", Getplayername(index) & "map", Getplayermap(index)&"")
      Call Putvar("random.ini", "players", Getplayername(index) & "x", Getplayerx(index)&"")
      Call Putvar("random.ini", "players", Getplayername(index) & "y", Getplayery(index)&"")
      Call PlayerWarp(index, Int(400 + x), 15, 15)
      Exit do
    Else
      x = x + 1
    End if
  Loop
End if
Exit Sub
```

[Eviltyphoon]

bumpz

[azkanan]

No need for the second script anymore… Scrap it =[.

[Akselj]

To fix this just retry couple of times, maybe try deleting your acc thats how i fixed it.

[Eviltyphoon]

K thx will try that