skull game

mail@pastecode.io avatar
unknown
plain_text
a year ago
2.9 kB
1
Indexable
Never
//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++