skull game

//skull eyes script
//by RedTomahawk77

var quoteraw = ＂\＂＂
var quote = string.Sub(quoteraw, 1)

func GetChar(x,y)
  return draw.GetSymbol(x,y)

?loc.begin
  var glyph1
  var glyph2
  var glyphx=46
  var glyphy=5
  var glyphxx
  var glyphyy
  var skulleyes=1
  var skull=0
  var skullround=1

?loc=undead_crypt_intro
  ?GetChar(10,26)=＂/＂&GetChar(12,26)=＂\＂
    ?GetChar(36,8)=＂H＂|
    ^GetChar(36,11)=＂H＂|
    ^GetChar(36,14)=＂H＂
      skulleyes=0

    ?GetChar(41,3)=＂=＂
      skull=1
    ?GetChar(47,6)=＂=＂
      skull=2
    ?GetChar(53,9)=＂=＂
      skull=3

    ?skullround=1
      glyph1=GetChar(glyphx,glyphy)
      ?glyph1=＂/＂ & skulleyes=1
        ?GetChar(glyphx,glyphy+1)=＂\＂
          >`@glyphx+1@,@glyphy+1@,#ddaa00, o o
        :
          >`@glyphx+1@,@glyphy+1@,#ffbb00,o o

      ?GetChar(glyphx,glyphy-1)=＂/＂
        glyphy--
      ?GetChar(glyphx,glyphy+1)=＂/＂
        glyphy++
      ?GetChar(glyphx-1,glyphy)=＂/＂
        glyphx--
      ?GetChar(glyphx+1,glyphy)=＂/＂
        glyphx++
      ?GetChar(glyphx-2,glyphy)=＂/＂
        glyphx=glyphx-2
      ?GetChar(glyphx+2,glyphy)=＂/＂
        glyphx=glyphx+2
      ?GetChar(glyphx-1,glyphy-1)=＂/＂
        glyphx--
        glyphy--
      ?GetChar(glyphx+1,glyphy+1)=＂/＂
        glyphx++
        glyphy++
      ?GetChar(glyphx+1,glyphy-1)=＂/＂
        glyphx++
        glyphy--
      ?GetChar(glyphx-1,glyphy+1)=＂/＂
        glyphx--
        glyphy++

    ?GetChar(35,8)=＂L＂|
    ^GetChar(35,11)=＂L＂|
    ^GetChar(35,14)=＂L＂
      skulleyes=1
      skullround=0
      ?skull=1
        glyphxx=42
        glyphyy=4
      ?skull=2
        glyphxx=48
        glyphyy=7
      ?skull=3
        glyphxx=54
        glyphyy=10

    ?skullround=0
      glyph2=GetChar(glyphxx,glyphyy)
      ?glyph2=quote
        ?GetChar(glyphxx,glyphyy)=quote
          ?GetChar(33,4)=＂)＂
            >`@glyphxx-1@,@glyphyy-1@,#ccbb00,o
            >`@glyphxx+1@,@glyphyy-1@,#cc8800,o
          :
            >`@glyphxx-1@,@glyphyy-1@,#cc8800,o
            >`@glyphxx+1@,@glyphyy-1@,#ccbb00,o

      ?GetChar(glyphxx,glyphyy-1)=quote
        glyphyy--
      ?GetChar(glyphxx,glyphyy+1)=quote
        glyphyy++
      ?GetChar(glyphxx-1,glyphyy)=quote
        glyphxx--
      ?GetChar(glyphxx+1,glyphyy)=quote
        glyphxx++
      ?GetChar(glyphxx-2,glyphyy)=quote
        glyphxx=glyphxx-2
      ?GetChar(glyphxx+2,glyphyy)=quote
        glyphxx=glyphxx+2
      ?GetChar(glyphxx,glyphyy-2)=quote
        glyphyy=glyphyy-2
      ?GetChar(glyphxx,glyphyy+2)=quote
        glyphyy=glyphyy+2
      ?GetChar(glyphxx-1,glyphyy-1)=quote
        glyphxx--
        glyphyy--
      ?GetChar(glyphxx+1,glyphyy+1)=quote
        glyphxx++
        glyphyy++
      ?GetChar(glyphxx+1,glyphyy-1)=quote
        glyphxx++
        glyphyy--
      ?GetChar(glyphxx-1,glyphyy+1)=quote
        glyphxx--
        glyphyy++