//Randomize the message on the stone
IfSpawned
  tmpargument = rand % 39
  SetContent

//Reset message
IfTimeOut
  tmpargument = 0
  SetState

//---------------------------------------------------------------------------------
//Tell them what's written
IfBumped
  SetTargetToWhoeverBumped
  IfStateIs0
    IfTargetIsAPlayer
      IfFacingTarget
        tmpargument = 1		//Do not loop
        SetState
        tmpargument = 100
        SetTime

        tmpx = selfcontent
        tmpy = 0
        IfXIsEqualToY
          tmpargument = 0
          SendMessageNear
          tmpargument = 1
          SendMessageNear

        tmpy = 1
        IfXIsEqualToY
          tmpargument = 2
          SendMessageNear
          tmpargument = 3
          SendMessageNear

        tmpy = 2
        IfXIsEqualToY
          tmpargument = 4
          SendMessageNear

        tmpy = 3
        IfXIsEqualToY
          tmpargument = 5
          SendMessageNear

        tmpy = 4
        IfXIsEqualToY
          tmpargument = 6
          SendMessageNear

        tmpy = 5
        IfXIsEqualToY
          tmpargument = 7
          SendMessageNear

        tmpy = 6
        IfXIsEqualToY
          tmpargument = 8
          SendMessageNear
          tmpargument = 9
          SendMessageNear

        tmpy = 7
        IfXIsEqualToY
          tmpargument = 10
          SendMessageNear

        tmpy = 8
        IfXIsEqualToY
          tmpargument = 12
          SendMessageNear
          tmpargument = 13
          SendMessageNear

        tmpy = 9
        IfXIsEqualToY
          tmpargument = 14
          SendMessageNear
          tmpargument = 15
          SendMessageNear

        tmpy = 10
        IfXIsEqualToY
          tmpargument = 16
          SendMessageNear

        tmpy = 11
        IfXIsEqualToY
          tmpargument = 17
          SendMessageNear

        tmpy = 12
        IfXIsEqualToY
          tmpargument = 18
          SendMessageNear
          tmpargument = 19
          SendMessageNear

        tmpy = 13
        IfXIsEqualToY
          tmpargument = 20
          SendMessageNear
          tmpargument = 21
          SendMessageNear

        tmpy = 14
        IfXIsEqualToY
          tmpargument = 23
          SendMessageNear
          tmpargument = 24
          SendMessageNear

        tmpy = 15
        IfXIsEqualToY
          tmpargument = 25
          SendMessageNear

        tmpy = 16
        IfXIsEqualToY
          tmpargument = 26
          SendMessageNear

        tmpy = 17
        IfXIsEqualToY
          tmpargument = 27
          SendMessageNear

        tmpy = 18
        IfXIsEqualToY
          tmpargument = 28
          SendMessageNear
          tmpargument = 29
          SendMessageNear

        tmpy = 19
        IfXIsEqualToY
          tmpargument = 30
          SendMessageNear
          tmpargument = 31
          SendMessageNear

        tmpy = 20
        IfXIsEqualToY
          tmpargument = 32
          SendMessageNear

        tmpy = 21
        IfXIsEqualToY
          tmpargument = 33
          SendMessageNear
          tmpargument = 34
          SendMessageNear

        tmpy = 22
        IfXIsEqualToY
          tmpargument = 35
          SendMessageNear
          tmpargument = 36
          SendMessageNear

        tmpy = 23
        IfXIsEqualToY
          tmpargument = 37
          SendMessageNear

        tmpy = 24
        IfXIsEqualToY
          tmpargument = 38
          SendMessageNear

        tmpy = 25
        IfXIsEqualToY
          tmpargument = 39
          SendMessageNear

        tmpy = 26
        IfXIsEqualToY
          tmpargument = 40
          SendMessageNear

        tmpy = 27
        IfXIsEqualToY
          tmpargument = 41
          SendMessageNear

        tmpy = 28
        IfXIsEqualToY
          tmpargument = 42
          SendMessageNear

        tmpy = 29
        IfXIsEqualToY
          tmpargument = 43
          SendMessageNear

        tmpy = 30
        IfXIsEqualToY
          tmpargument = 44
          SendMessageNear

        tmpy = 31
        IfXIsEqualToY
          tmpargument = 45
          SendMessageNear

        tmpy = 32
        IfXIsEqualToY
          tmpargument = 46
          SendMessageNear

        tmpy = 33
        IfXIsEqualToY
          tmpargument = 47
          SendMessageNear

        tmpy = 34
        IfXIsEqualToY
          tmpargument = 48
          SendMessageNear

        tmpy = 35
        IfXIsEqualToY
          tmpargument = 49
          SendMessageNear

        tmpy = 36
        IfXIsEqualToY
          tmpargument = 22
          SendMessageNear

        tmpy = 37
        IfXIsEqualToY
          tmpargument = 52
          SendMessageNear

        tmpy = 38
        IfXIsEqualToY
          tmpargument = 50
          SendMessageNear
          tmpargument = 51
          SendMessageNear

End
