From 8e4e3a380aff2b3c36033a9409ea9c5c0a4ced58 Mon Sep 17 00:00:00 2001 From: KikooDX Date: Mon, 10 May 2021 14:43:20 +0200 Subject: [PATCH] And now, for something completely different --- SUNRISE.g1m | Bin 0 -> 2880 bytes ~SBIND.txt | 30 --------------------------- ~SC.txt | 2 ++ ~SD.txt | 8 ++++++++ ~SF.txt | 10 +++++++++ ~SG.txt | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++ ~SGEN.txt | 46 ----------------------------------------- ~SI.txt | 5 +++++ ~SL.txt | 14 +++++++++++++ ~SLOD.txt | 5 ----- ~SM.txt | 50 ++++++++++++++++++++++++++++++++++++++++++++ ~SOP.txt | 15 -------------- ~SS.txt | 15 ++++++++++++++ ~SSCR.txt | 10 --------- 14 files changed, 162 insertions(+), 106 deletions(-) create mode 100755 SUNRISE.g1m delete mode 100755 ~SBIND.txt create mode 100755 ~SC.txt create mode 100755 ~SD.txt create mode 100755 ~SF.txt create mode 100755 ~SG.txt delete mode 100755 ~SGEN.txt create mode 100755 ~SI.txt create mode 100755 ~SL.txt delete mode 100755 ~SLOD.txt create mode 100755 ~SM.txt delete mode 100755 ~SOP.txt create mode 100755 ~SS.txt delete mode 100755 ~SSCR.txt diff --git a/SUNRISE.g1m b/SUNRISE.g1m new file mode 100755 index 0000000000000000000000000000000000000000..6bbceec3ad653676529c5ebb70d1fbfbb0896339 GIT binary patch literal 2880 zcmd5;KX2Pc6qgXoE?m4r0ObQPbW>UY2cP6vc2Orek(5M~*r5Ht~E(JQJOW{;n zqajH8XHnX&MGyqYkjX<3euAK1f`B~~T?!Ch>b^VaV#{D`bg)~>xbwYxe}4DgyL<1& z%Qvr{K6>`}-O-=;8~lBA^w-;kocxYbKj<_9=1Kye^AEm#@XeQB=W>J45cE8b*TjEv z(2Ri9ySCTJoh@&^mv^M7m^CwCkrEn#WqA;dDWr3hu(Z&G^eWYvez@v0ImR3m?teotRWi)@2ZH(xSSQ`6(ISQU*=A2%<{x@QAMb0d!e7 zE{`VBRsIFKi||smPKj={sAjn&Tj z7Ch;@_5Uxr^WMycd^7XE&%T-Uj(<1kZf)NKt!ufy!Uh&-4a>6v*0q$V6F4Slq1EN} zAOy{5Zh37bwC`C^rX+$YX@VxWCd4Xf^9=_y-(h_#Q2b5^l#(8-l0IlI>nS$cQEU^+ zYs3c4_O>mr+X?z$lVN@M6=>d;TSLK4U2ukqj|;y~99NmTr7< z{l=%I&u;I0aew#WcZ1|<@_q6{@?$bio+Upgza+o%=xu;j+p--~sdWO=3PNZ*1aT2} z-~oj{)InHR#T2U0CN5M?(H!Ez%~Ld#hUzIAuXJ8oaMF1P>)sl8ScS@xC!H%3H!ZYr zhg(Eby!PQA3UPWm&$m{=MWOYRLR{l%p$T@b$5qd%m$r<3?(^B$AN!s|!wOv$C3sSy zH?UIE(n!3t4>?qnJ-Z*6bOF4dcr;^&SAD9hPKTM8M2biu71YVCT6V{@)Qt98#FTwP z1Q^;KbHsFySYSVI;l>K7rG*wcA>Om$w`FTDCI(nzBSsD^s3YD}Z0N=aEtN!t6|Utl z&c;0HjSzEwWd<{MtTRaoQ{{PUdyp=|Zcpz+9~ztG_2RymtHpyJt}D0}Gp_rhp^0Um z6OSW=g`Lg{q`BTEj`?Z$DMWZN_ObD~f?NIBttQ@=eKg9qdbgsJQv5m{NU2-cRvjy( zD0MKEil-aL=Mc&cE8JDnCajO(dg!wfx;D)Z@5Vb^IiJg@iSu8@BkSrN%z#B0J|PWA zKOVm3BR$Wzq3|frho5GAJI#lXZJ$U7N_-jSW;AZ4^DXoj#US(8V`_@nkBsG$=xbv( oYE8i#Hs@V{nDFFzpH(AY_uv3kFF;u2hRb@0M-7YnVb1se0l=_LRsaA1 literal 0 HcmV?d00001 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