diff --git a/SUNRISE.g1m b/SUNRISE.g1m new file mode 100755 index 0000000..6bbceec Binary files /dev/null and b/SUNRISE.g1m differ diff --git a/~SBIND.txt b/~SBIND.txt deleted file mode 100755 index 1131f96..0000000 --- a/~SBIND.txt +++ /dev/null @@ -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 \ No newline at end of file diff --git a/~SC.txt b/~SC.txt new file mode 100755 index 0000000..39bf5c6 --- /dev/null +++ b/~SC.txt @@ -0,0 +1,2 @@ +'ProgramMode:RUN +'CRAFTING \ No newline at end of file diff --git a/~SD.txt b/~SD.txt new file mode 100755 index 0000000..e56be91 --- /dev/null +++ b/~SD.txt @@ -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 \ No newline at end of file diff --git a/~SF.txt b/~SF.txt new file mode 100755 index 0000000..a693d1b --- /dev/null +++ b/~SF.txt @@ -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 \ No newline at end of file diff --git a/~SG.txt b/~SG.txt new file mode 100755 index 0000000..983e1e1 --- /dev/null +++ b/~SG.txt @@ -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" \ No newline at end of file diff --git a/~SGEN.txt b/~SGEN.txt deleted file mode 100755 index beb1601..0000000 --- a/~SGEN.txt +++ /dev/null @@ -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 \ No newline at end of file diff --git a/~SI.txt b/~SI.txt new file mode 100755 index 0000000..317e7f1 --- /dev/null +++ b/~SI.txt @@ -0,0 +1,5 @@ +'ProgramMode:RUN +'INVENTORY +For 2->A To 7 +Locate 3,A,StrMid(Str 9,A,1)+" |" +Next \ No newline at end of file diff --git a/~SL.txt b/~SL.txt new file mode 100755 index 0000000..4ecf38c --- /dev/null +++ b/~SL.txt @@ -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 \ No newline at end of file diff --git a/~SLOD.txt b/~SLOD.txt deleted file mode 100755 index 435e586..0000000 --- a/~SLOD.txt +++ /dev/null @@ -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 \ No newline at end of file diff --git a/~SM.txt b/~SM.txt new file mode 100755 index 0000000..2fcf426 --- /dev/null +++ b/~SM.txt @@ -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 \ No newline at end of file diff --git a/~SOP.txt b/~SOP.txt deleted file mode 100755 index 5ff1dc2..0000000 --- a/~SOP.txt +++ /dev/null @@ -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 \ No newline at end of file diff --git a/~SS.txt b/~SS.txt new file mode 100755 index 0000000..f303366 --- /dev/null +++ b/~SS.txt @@ -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 \ No newline at end of file diff --git a/~SSCR.txt b/~SSCR.txt deleted file mode 100755 index 555842f..0000000 --- a/~SSCR.txt +++ /dev/null @@ -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 \ No newline at end of file