Bored While Scripting

[balliztik1]

This is Balliztik on a bored night…

```
' Executes when a player steps onto a Spaghettied tile.
Sub ScriptedTile(Meatball, Spaghetti)
Select Case Spaghetti
Case 0
Call PlayerMsg(Meatball, "This Spaghettied tile has no apparent use.", WHITE)
Exit Sub

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

' Executes when a player clicks on an OnClick tile.
Sub OnClick(Meatball, Spaghetti)
Select Case Spaghetti
Case 0
Call PlayerMsg(Meatball, "This Spaghettied tile has no apparent use.", WHITE)
Exit Sub

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

```
Case "/testspaghettis"
Call TestMain(Meatball)
Exit Sub

Sub TestMain(Meatball)
Call PlayerMsg(Meatball, "Spaghettis are working properly.", BRIGHTGREEN)
End Sub

```

[Guest]

I'm disappointed. The almighty scripting god cannot do any better?

[balliztik1]

Well, my entire main is filled with random food words and still runs perfectly. Success?

[Guest]

Hmm… indeedy.
Now make me a script for player owned businesses plox.