And now, for something completely different

This commit is contained in:
KikooDX 2021-05-10 14:43:20 +02:00
parent 6633c110d9
commit 8e4e3a380a
14 changed files with 162 additions and 106 deletions

BIN
SUNRISE.g1m Executable file

Binary file not shown.

View File

@ -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

2
~SC.txt Executable file
View File

@ -0,0 +1,2 @@
'ProgramMode:RUN
'CRAFTING

8
~SD.txt Executable file
View File

@ -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

10
~SF.txt Executable file
View File

@ -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

58
~SG.txt Executable file
View File

@ -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"

View File

@ -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

5
~SI.txt Executable file
View File

@ -0,0 +1,5 @@
'ProgramMode:RUN
'INVENTORY
For 2->A To 7
Locate 3,A,StrMid(Str 9,A,1)+" |"
Next

14
~SL.txt Executable file
View File

@ -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

View File

@ -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

50
~SM.txt Executable file
View File

@ -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

View File

@ -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

15
~SS.txt Executable file
View File

@ -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

View File

@ -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