Incognito Script:
[Belongs in USEOBJ# where # is the object number in the Object Editor.]
Sub Main(Player as LONG)
If GetPlayerStatus(Player) = 1 Then
SetPlayerSprite(Player, Random(180))
Else
SetPlayerSprite(Player, Random(180))
SetPlayerStatus(Player, Random(21))
End If
End Sub...