12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- # mirror
- if $ARGS[0] = 'start':
- cla
- clr
- gs 'stat'
- gs 'portmirror'
- set $goto1 = 'mirror'
- set $goto2 = 'fin'
- dynamic $portmirror
- act 'Move away from the mirror':
- cla
- gt '<<$goto1>>','<<$goto2>>'
- end
- end
- if $ARGS[0] = 'fin':
- cla
- gt $locM, $metkaM
- !'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
- set housrA = 0
- gt 'korr'
- end
- if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
- set housrA = 0
- set housrMir = 0
- gt 'bedr'
- end
- if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
- set fitMir = 0
- gt 'fit','razd'
- end
- if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
- set stripMir = 0
- gt 'stwork','start'
- end
- if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
- set palMir = 0
- gt 'palatka','start'
- end
- if saunaYouRoom = 1:
- saunaYouRoom = 0
- gt $locBroom, $metkaBroom
- end
- if housrA = 0 and obMir = 1:
- set obMir = 0
- gt 'obroom','start'
- end
- if housrA = 0 and borMir = 1:
- set borMir = 0
- gt 'bordel','start'
- end
- if housrA = 0 and tanhouse1 = 1:
- set tanhouse1 = 0
- gt 'spalnya'
- end'
- end
- --- mirror ---------------------------------
|