And now, for something completely different
This commit is contained in:
parent
6633c110d9
commit
8e4e3a380a
Binary file not shown.
30
~SBIND.txt
30
~SBIND.txt
|
@ -1,30 +0,0 @@
|
|||
'ProgramMode:RUN
|
||||
"Keybinds"->Str 5
|
||||
Do
|
||||
5->A
|
||||
ClrText
|
||||
Menu Str 5,"_#E5E8_ Left",1,"_#E5E9_ Right",2,"_#E5EA_ Up",3,"_#E5EB_ Down",4,"Continue",0,"Exit Game",X
|
||||
Lbl 1
|
||||
Dsz A
|
||||
Lbl 2
|
||||
Dsz A
|
||||
Lbl 3
|
||||
Dsz A
|
||||
Lbl 4
|
||||
Dsz A
|
||||
""->Str 9
|
||||
Locate 2,4,"Press new key for"
|
||||
Locate 20,4,StrMid("_#E5E8__#E5E9__#E5EA__#E5EB_",A,1)
|
||||
While Getkey
|
||||
WhileEnd
|
||||
Do
|
||||
Getkey->G
|
||||
LpWhile Not G
|
||||
G->List6[A
|
||||
"AssignedChar!"->Str 5
|
||||
LpWhile 1
|
||||
Lbl 0
|
||||
""->Str 9
|
||||
Return
|
||||
Lbl X
|
||||
Stop
|
|
@ -0,0 +1,8 @@
|
|||
'ProgramMode:RUN
|
||||
'DRAW SCREEN
|
||||
W-1
|
||||
For 1->A To H
|
||||
Locate 1,A,StrMid(Str 1,WA-Ans,W)
|
||||
Next
|
||||
Locate 1,1,M
|
||||
Locate 3,1,N
|
|
@ -0,0 +1,10 @@
|
|||
'ProgramMode:RUN
|
||||
'SCREEN DATA
|
||||
Ans=1=>"###################### # # # # # "->Str 1
|
||||
Ans=2=>"##################### "->Str 1
|
||||
Ans=3=>"##################### # # # # # #"->Str 1
|
||||
Ans=4=>" # # # # # # #"->Str 1
|
||||
Ans=5=>" # # # # # ######################"->Str 1
|
||||
Ans=6=>" #####################"->Str 1
|
||||
Ans=7=>"# # # # # # #####################"->Str 1
|
||||
Ans=8=>"# # # # # # #####################"->Str 1
|
|
@ -0,0 +1,58 @@
|
|||
'ProgramMode:RUN
|
||||
'FOPQRTUVZ
|
||||
'TEMP A~E
|
||||
'GENERATE WORLD
|
||||
'SETTINGS
|
||||
'CHUNK SIZE
|
||||
21->W
|
||||
7->H
|
||||
'WORLD SIZE
|
||||
7->K
|
||||
21->L
|
||||
'PLAYER POS
|
||||
11->X
|
||||
4->Y
|
||||
'MAX ITEM ID
|
||||
26->I
|
||||
'INVENTORY
|
||||
I->Dim List1
|
||||
'NUMBER OF ITEMS PER CELL
|
||||
7->J
|
||||
{KWH/J,L->Dim Mat A
|
||||
" #%$!%&):?[]_{|}~_#E590__#E591__#E592__#E593__#E599__#E59A__#E59B__#E59C__#E59D_"->Str 9
|
||||
'BUILD BORDERS
|
||||
KL->S
|
||||
1->M~N
|
||||
1
|
||||
Prog "~SF"
|
||||
Prog "~SS"
|
||||
K->M
|
||||
3
|
||||
Prog "~SF"
|
||||
Prog "~SS"
|
||||
L->N
|
||||
5
|
||||
Prog "~SF"
|
||||
Prog "~SS"
|
||||
1->M
|
||||
7
|
||||
Prog "~SF"
|
||||
Prog "~SS"
|
||||
For 1->N To L Step L-1
|
||||
6
|
||||
N=1=>2
|
||||
Prog "~SF"
|
||||
For 2->M To K-1
|
||||
Prog "~SS"
|
||||
Next
|
||||
Next
|
||||
For 1->M To K Step K-1
|
||||
4
|
||||
M=1=>8
|
||||
Prog "~SF"
|
||||
For 2->N To L-1
|
||||
Prog "~SS"
|
||||
Next
|
||||
Next
|
||||
1->M~N
|
||||
Prog "~SM"
|
46
~SGEN.txt
46
~SGEN.txt
|
@ -1,46 +0,0 @@
|
|||
'ProgramMode:RUN
|
||||
{10,120->Dim Mat B
|
||||
Locate 3,1,"//20"
|
||||
63309337->Mat B[1,1
|
||||
94863834->Mat B[10,1
|
||||
126618679->Mat B[1,120
|
||||
252836660->Mat B[10,120
|
||||
Locate 1,1,4
|
||||
For 2->A To 9
|
||||
63309338->Mat B[A,1
|
||||
126618676->Mat B[A,120
|
||||
Locate 1,1,2(A+1
|
||||
Next
|
||||
Locate 4,2,"//236"
|
||||
For 2->A To 119
|
||||
5->Mat B[1,A
|
||||
6*316^3->Mat B[10,A
|
||||
Locate 1,2,2(A-1
|
||||
Next
|
||||
Locate 4,3,"//500"
|
||||
For 1->C To 500
|
||||
RanInt#(1,40->M
|
||||
RanInt#(1,120->N
|
||||
Int ((M-1)/4)+1->A
|
||||
Mat B[A,N->B
|
||||
316^(MOD(M-1,4))
|
||||
Int (MOD(B,Ans*316)/Ans
|
||||
Not Ans=>(316^(MOD(M-1,4)))*RanInt#(1,2)+Mat B[A,N->Mat B[A,N
|
||||
Ans=>Dsz C
|
||||
Locate 1,3,C
|
||||
Next
|
||||
RanInt#(15,25->M
|
||||
RanInt#(55,65->N
|
||||
11->X
|
||||
4->Y
|
||||
X->O
|
||||
Y->P~Q
|
||||
1->L
|
||||
1->D
|
||||
0->S
|
||||
{38,27,28,37->List6
|
||||
"ABCDEFGHIJKLMNOPQRSTUVWXYZ#"->Str 4
|
||||
Prog "~SLOD"
|
||||
Prog "~SSCR"
|
||||
1->E
|
||||
{3,E->Dim Mat A
|
|
@ -0,0 +1,5 @@
|
|||
'ProgramMode:RUN
|
||||
'INVENTORY
|
||||
For 2->A To 7
|
||||
Locate 3,A,StrMid(Str 9,A,1)+" |"
|
||||
Next
|
|
@ -0,0 +1,14 @@
|
|||
'ProgramMode:RUN
|
||||
Locate 1,1,"LOADING CHUNK"
|
||||
""->Str 1
|
||||
(M-1)HW/J->D
|
||||
For 1->A To W
|
||||
Mat A[D+A,N->E
|
||||
I^J
|
||||
For 0->B To J-1
|
||||
Ans/I
|
||||
Int (E/Ans->C
|
||||
E-CAns->E
|
||||
Str 1+StrMid(Str 9,C+1,1)->Str 1
|
||||
Next
|
||||
Next
|
|
@ -1,5 +0,0 @@
|
|||
'ProgramMode:RUN
|
||||
Int ((M-1)/4)+1->A
|
||||
Mat B[A,N->B
|
||||
316^(MOD(M-1,4))
|
||||
Int (MOD(B,Ans*316)/Ans
|
|
@ -0,0 +1,50 @@
|
|||
'ProgramMode:RUN
|
||||
Prog "~SL"
|
||||
Prog "~SD"
|
||||
'MAIN
|
||||
Do
|
||||
{X,Y
|
||||
Y
|
||||
G=28=>Dsz Y
|
||||
G=27=>Isz X
|
||||
G=38=>Dsz X
|
||||
G=37=>Isz Y
|
||||
Locate 1,Ans,StrMid(Str 1,WAns-W+1,W)
|
||||
0
|
||||
If X=0
|
||||
Then Prog "~SS"
|
||||
1
|
||||
W->X
|
||||
Dsz M
|
||||
IfEnd
|
||||
If Y=0
|
||||
Then Prog "~SS"
|
||||
1
|
||||
H->Y
|
||||
Dsz N
|
||||
IfEnd
|
||||
If X>W
|
||||
Then Prog "~SS"
|
||||
1
|
||||
1->X
|
||||
Isz M
|
||||
IfEnd
|
||||
If Y>H
|
||||
Then Prog "~SS"
|
||||
1
|
||||
1->Y
|
||||
Isz N
|
||||
IfEnd
|
||||
If Ans
|
||||
Then Prog "~SL"
|
||||
Prog "~SD"
|
||||
IfEnd
|
||||
If StrSrc(Str 9,StrMid(Str 1,WY-W+X,1))-1
|
||||
Then List Ans[1->X
|
||||
List Ans[2->Y
|
||||
IfEnd
|
||||
Locate X,Y,"@"
|
||||
Do
|
||||
Getkey->G
|
||||
LpWhile Not G
|
||||
LpWhile 1
|
15
~SOP.txt
15
~SOP.txt
|
@ -1,15 +0,0 @@
|
|||
'ProgramMode:RUN
|
||||
Do
|
||||
Menu "Sunrise","New Game",N,"Continue",C,"Settings",S,"Exit",X
|
||||
Lbl N
|
||||
Menu "Are you sure?","No",F,"Yes (erase existing save)",Y
|
||||
Lbl Y
|
||||
Prog "~SGEN"
|
||||
Return
|
||||
Lbl X
|
||||
Stop
|
||||
Lbl S
|
||||
Prog "~SBIND"
|
||||
Lbl F
|
||||
LpWhile 1
|
||||
Lbl C
|
|
@ -0,0 +1,15 @@
|
|||
'ProgramMode:RUN
|
||||
Locate 1,1,"SAVING CHUNK"
|
||||
1->P
|
||||
For 0->B To HW-J Step J
|
||||
0
|
||||
1->C
|
||||
For 0->A To J-1
|
||||
Ans+C(StrSrc(Str 9,StrMid(Str 1,B-A+J,1))-1
|
||||
CI->C
|
||||
Next
|
||||
Ans->Mat A[(M-1)HW/J+P,N
|
||||
Isz P
|
||||
Next
|
||||
S=>Locate 1,2,S-1
|
||||
S=>Dsz S
|
10
~SSCR.txt
10
~SSCR.txt
|
@ -1,10 +0,0 @@
|
|||
'ProgramMode:RUN
|
||||
Ans=0=>"..................................................................................................................................................."->Str 1
|
||||
Ans=1=>"ENDENDENDENDENDENDENDN....................D....................#....................E....................N....................D...................."->Str 1
|
||||
Ans=2=>"ENDENDENDENDENDENDEND.............................................................................................................................."->Str 1
|
||||
Ans=3=>"ENDENDENDENDENDENDEND....................N....................E....................#....................D....................N....................E"->Str 1
|
||||
Ans=4=>"..............................................................................................................................DNEDNEDNEDNEDNEDNEDNE"->Str 1
|
||||
Ans=5=>"E....................N....................D....................#....................E....................N....................D...................."->Str 1
|
||||
Ans=6=>"....................D....................N....................E....................#....................D....................N....................E"->Str 1
|
||||
Ans=7=>"E....................N....................D....................#....................E....................N....................DNEDNEDNEDNEDNEDNEDNE"->Str 1
|
||||
Ans=8=>"....................D....................N....................E....................#....................D....................NDNEDNEDNEDNEDNEDNEDNE"->Str 1
|
Loading…
Reference in New Issue