1
Name:
Anonymous 2011-07-12 0:01
CONTEST TIME!
2
Name:
Anonymous 2011-07-12 8:28
Here's a crappy digging simulator I made over the course of a few months of boring lessons this year. Compressed to one line, so I win.:CLASSIC:Float:0→D:"COPPER IRON PYRITE TIN BRONZE PEARL SILVER GOLD EMERALD RUBY JASPER TOPAZ SAPPHIRE PLATINUM DIAMOND AMETHYST QUARTZ MITHRIL ADAMANTINEILMENITE URANIUM PLUTONIUM ASTATINE OBSIDIAN UNOBTANIUMMOSCOVIUM AMBROSIA NECTAR ICHOR POROVSKITEANTIMATTER"→Str0:Menu(" DIGGER ","CONTINUE",CM,"NEW GAME",NE,"QUIT",ZZ:Lbl CM:If lDC(33)=mean(ln(1+abs(ΔList(cumSum(lDP:Goto M:ClrHome:Disp "SAVE CORRUPT.:Stop:Lbl NE:seq(0,X,1,32)→lDM:lDM→lDC:{1000,1,1,1,1,0}→lDP:Lbl M:mean(ln(1+abs(ΔList(cumSum(lDP:Ans→lDC(33:Menu(" MENU ","DIG",MD,"STATISTICS",MS,"UPGRADE",MU,"MARKET",MM,"AUTODIG",AD,"EXIT",ZZ:Lbl AD:ClrHome:If D=0:Then:Pause "AUTODIG NOW ON:Else:Pause "AUTODIG NOW OFF:End:1-D→D:ClrHome:Goto M:Lbl MM:ClrHome:If sum(lDM)=0:Then:Pause "NOTHING TO SELL:Else:0→C:For(I,1,32,1:C+lDM(I)(2^I)(1+lDP(3)/3)→C:End:int(C)→C:lDP(1)+C→lDP(1):lDM*0→lDM:ClrHome:Output(1,1,"SOLD ORES FOR:Fix 0:Output(2,1,C:Float:Pause :End:Goto M:Lbl MD:lDP(6)+1→lDP(6):For(Y,3,6,3):Output(Y,1,"////////////////:End:For(M,1,32,1:Output(4+(M>16),remainder(M-1,16)+1,"=:If lDP(5)<5:Then:For(Ɵ,1,max(30-3lDP(5),1),1:End:End:If 2.5^(-M/ln(e+lDP(2)-1))>rand:Then:randInt(1,int(lDP(4)^1.1))→A:lDM(M)+A→lDM(M):1→lDC(M):Output(1,1,"FOUND :Output(1,7,A:Output(2,1,sub(Str0,10M-9,10:End:End:ClrHome:If D=0 or getKey:Goto M:Goto MD:Lbl MS:ClrHome:Output(1,1,"MONEY: DEPTH: ECONOMY: TOOLS: SPEED: DIGS::{8,8,10,8,8,7}→l1:If log(lDP(1))≥10:Then:Sci:Fix 2:End:For(I,1,6,1:Output(I,l1(I),lDP(I:Float:Normal:End:For(O,0,16,16:Pause :ClrHome:For(I,1,16,1:Output(I-(I>8)8,1+(I>8)8,"??::If lDC(I+O):Output(I-(I>8)8,1+(I>8)8,sub(Str0,10(I+O)-9,2):Output(I-(I>8)8,4+(I>8)8,lDM(I+O):End:End:Pause :ClrHome:Goto M:Lbl MU:ClrHome:Menu(" UPGRADES ","DEPTH",UD,"ECONOMY",UE,"TOOLS",UT,"SPEED",US,"BACK",M:Lbl UD:"FIND RARER ORES"→Str1:2→X:500→P:9E9→M:Goto SU:Lbl UE:"BETTER SALES"→Str1:3→X:600→P:9E9→M:Goto SU:Lbl UT:"MINE MORE ORES"→Str1:4→X:750→P:20→M:Goto SU:Lbl US:"DIG FASTER"→Str1:5→X:850→P:10→M:Lbl SU:int(P1.5^lDP(X))→Y:ClrHome:Output(1,1,Str1:Output(2,1,"PRICE:Output(2,8,Y:Pause :ClrHome:Menu(" BUY? ","BUY ONE",BO,"CANCEL",MU:Lbl BO:If lDP(x)≥M:Then:ClrHome:Pause "ALREADY MAXED:Else:If Y>lDP(1):Then:ClrHome:Pause "NEED MORE MONEY:Else:lDP(1)-Y→lDP(1:lDP(X)+1→lDP(X:Pause "BOUGHT:End:End:Goto MU:Lbl ZZ:ClrHome:"GOODBYE.
6
Name:
Anonymous
2011-07-12 10:46
>>2
Got an emulator I could run this in?
7
Name:
Anonymous
2011-07-12 22:15
>>
9
Name:
Anonymous 2011-07-13 10:24
>>6
I'll port it to something decent first, I don't think there's a good emulator around.