CECraft

ClrHome
Input "SEED:",H
If not(H
Then
	1->S
	Disp "Max DeltaY: < >
	Repeat K=21
		getKey->K
		Output(2,10,S
		max(0,min(9,S+sum(DeltaList(K={24,26->S
	End
	0->L
	Disp "<     >
	Repeat K=21
		getKey->K
		Output(3,2,sub("LAVA WATER",5L+1,5
		If K=26 or K=24:not(L->L
	End
	5->W
	Disp sub("LAVA WATER",5L+1,5)+" DEPTH: <
	Repeat K=21
		getKey->K
		Output(4,15,W
		Output(4,16+(W>9),">
		max(0,min(10,W+sum(DeltaList(K={24,26->W
	End
End
StoreGDB 0
FnOff
AxesOff
CoordOff
BackgroundOn LtBlue
0->Xmin:1->DeltaX
0->Ymin:164->Ymax
ClrDraw
{0->|LCE
If H:Then
	H->rand
	randInt(0,10->S
	randInt(0,1->L
	randInt(0,10->W
End
randInt(0,10->B
DelVar [A]{11,27->dim([A]
For(A,1,27
	For(B,1,W
		3->[A](12-B,A
	End
End
For(A,0,26
	10randInt(2,3->P
	For(C,0,B-1
		1+(C<B-P/10)+3(C=B-1->[A](11-C,A+1
	End
	For(C,10A,10A+8,2
		Line(C,0,C,10W-3,not(L)Orange+LBlue
		Line(C,10B-P,C,10B,Brown
		Line(C,0,C,10B-P,Gray
	End
	If B>=W
	Line(10A,10B,10A+9,10B,Green
	B+randInt(~S,S
	Ans+S(Ans<~1)-S(Ans>10)->B
End
DelVar BDelVar TDelVar U10->A
TextColor(Black
Repeat K=45
	[A](11-A,B+1->Q
	If not(Q:Then
		Text(1,0,"AIR
		0
	End
	If Q=4:Then
		Text(1,0,"GRASS
		1
	End
	If Q=1
	Then
		Text(1,0,"DIRT
		2
	End
	If Q=2
	Then
		Text(1,0,"STONE
		3
	End
	If Q=3
	Then
		Text(1,0,sub("LAVA    WATER   ",8L+1,8
		4+L
	End
	Ans->Z
	Line(10B,10A+9,10B+9,10A+9,Black,1
	Line(10B,10A+9,10B,10A,Black,1
	Line(10B,10A,10B+9,10A,Black,1
	Line(10B+9,10A,10B+9,10A+9,Black,1
	Repeat Ans
		T+1->T
		If T=1440
		Then
			DelVar Tnot(U->U
			If U:BackgroundOn Navy
			If not(U:BackgroundOn LtBlue
			ClrHome
			DispGraph
		End
		getKey
	End
	Ans->K
	If Z=1:{Brown,Brown,Green,Brown
	If Z=2:{Brown,Brown,Brown,Brown
	If Z=3:{Gray,Gray,Gray,Gray
	If Z=4:{Orange,Orange,13(A=W-1)+Orange(A<W-1),Orange
	If Z=5:{Blue,Blue,13(A=W-1)+Blue(A<W-1),Blue
	If Z:Then
		Line(10B,10A,10B,10A+9,Ans(1),1
		Line(10B+9,10A,10B+9,10A+9,1,Ans(2),1
		Line(10B,10A+9,10B+9,10A+9,Ans(3)!=13,Ans(3
		Line(10B,10A,10B+9,10A,1,Ans(4),1
		Else
		Line(10B,10A,10B,10A+9,0,10,1
		Line(10B+9,10A,10B+9,10A+9,0,10,1
		Line(10B,10A+9,10B+9,10A+9,0,10,1
		Line(10B,10A,10B+9,10A,0,10,1
	End
	max(0,min(10,A-sum(DeltaList(K={25,34->A
	max(0,min(26,B+sum(DeltaList(K={24,26->B
End
RecallGDB 0
BackgroundOff
ClrHome