86 lines
1.5 KiB
Plaintext
Executable File
86 lines
1.5 KiB
Plaintext
Executable File
'ProgramMode:RUN
|
|
Prog "~SOP"
|
|
""->Str 9
|
|
Do
|
|
'DRAW
|
|
X+21Y-22
|
|
Str 9->Str 8
|
|
Str 1->Str 9
|
|
For 1->A To E
|
|
Mat A[1,A=>Mat A[2,A]-22+21*Mat A[3,A->B
|
|
Mat A[1,A=>StrLeft(Str 9,B)+StrMid("_#E59B__#E5E8__#E5E9__#E5EA__#E5EB_",Mat A[1,A],1)+StrRight(Str 9,146-B->Str 9
|
|
Next
|
|
Locate O,Q,StrMid(Str 1,O+21Q-21,1)
|
|
If StrCmp(Str 8,Str 9
|
|
Then For 0->A To 6
|
|
StrMid(Str 9,21A+1,21->Str 7
|
|
StrCmp(Str 7,StrMid(Str 8,21A+1,21))=>Locate 1,A+1,Str 7
|
|
Next
|
|
IfEnd
|
|
Locate X,Y,"@"
|
|
'DEATH
|
|
D->L
|
|
L=>L-StrSrc(StrMid(Str 1,Ans+1,1),"_#E6A0_")->L
|
|
Isz S
|
|
Do
|
|
Getkey->G
|
|
LpWhile Not G
|
|
'PLAYER
|
|
X->O
|
|
Y->P~Q
|
|
G=List6[1=>Dsz X
|
|
G=List6[3=>Dsz Y
|
|
G=List6[2=>Isz X
|
|
G=List6[4=>Isz Y
|
|
G=48=>Prog "~SBIND"
|
|
'TRANSITION
|
|
1->A
|
|
XY And X<>22 And Y<>8=>StrSrc(Str 4,StrMid(Str 1,X+21Y-21,1))=>Goto Y
|
|
Goto N
|
|
Lbl Y
|
|
O->X
|
|
P->Y
|
|
Lbl N
|
|
If X=0
|
|
Then Dsz M
|
|
21->X
|
|
Prog "~SLOD"
|
|
Prog "~SSCR"
|
|
IfEnd
|
|
If Y=0
|
|
Then Dsz N
|
|
7->Y
|
|
Prog "~SLOD"
|
|
Prog "~SSCR"
|
|
IfEnd
|
|
If X=22
|
|
Then Isz M
|
|
1->X
|
|
Prog "~SLOD"
|
|
Prog "~SSCR"
|
|
IfEnd
|
|
If Y=8
|
|
Then Isz N
|
|
1->Y
|
|
Prog "~SLOD"
|
|
Prog "~SSCR"
|
|
IfEnd
|
|
'ENTITIES
|
|
For 1->A To E
|
|
Mat A[1,A
|
|
MOD(S,2->P
|
|
If PAns=1
|
|
Then X>Mat A[2,A=>1+Mat A[2,A->Mat A[2,A
|
|
X<Mat A[2,A=>-1+Mat A[2,A->Mat A[2,A
|
|
Y>Mat A[3,A=>1+Mat A[3,A->Mat A[3,A
|
|
Y<Mat A[3,A=>-1+Mat A[3,A->Mat A[3,A
|
|
X=Mat A[2,A=>Y=Mat A[3,A=>0->D
|
|
IfEnd
|
|
If Ans>=2 And Ans<=5
|
|
Then Mat A[2,A]-22-(Ans=2)+(Ans=3)+21(-(Ans=4)+(Ans=5)+Mat A[3,A->B
|
|
StrLeft(Str 1,B)+StrMid(" _#E6A0_",P+1,1)+StrRight(Str 1,146-B->Str 1
|
|
IfEnd
|
|
Next
|
|
LpWhile L
|
|
ClrText
|
|
Locate 7,4,"YOU DIED" |