glife/locations/384_dangeon

# dangeon
<<<<<<< 384_dangeon
$dundincif = {
cls
gs 'stat'
'8809 = 6'
'7111 = 0'
'2172 = 0'
'6666 = 4'
'1111 = 0'
'3213 = 0'
'7662 = 2'
'9312 = 1'
'0000 = 4'
'2222 = 0'
'3333 = 0'
'5555 = 0'
'8193 = 3'
'8096 = 5'
'7777 = 0'
'9999 = 4'
'7756 = 1'
'6855 = 3'
'9881 = 5'
'5531 = 0'
'Have a smart sense in such tomfoolery, because often clever fool walks.'

act 'Move away from labels': gt $curloc
}
$dundinboch = {
cls
gs 'stat'
if openstateDM2 = 0: openstateDM2 = 1
'Chimes hear soon reconcile those who quarrel.'
act 'Move away from the barrel': gt $curloc
}
$dundinsvitok = {
cls
gs 'stat'
svitokRTS = 1
heart += 1
'You picked up the scroll and he crumbled. As if you breathed in the wind. You listen to the feelings and understand that you have something changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
act 'Move away': gt $curloc
=======
$dundincif={
cls
gs'stat'
'8809 = 6
7111 = 0
2172 = 0
6666 = 4
1111 = 0
3213 = 0
7662 = 2
9312 = 1
0000 = 4
2222 = 0
3333 = 0
5555 = 0
8193 = 3
8096 = 5
7777 = 0
9999 = 4
7756 = 1
6855 = 3
9881 = 5
5531 = 0
There is a clever sense in such tomfoolery, because often clever fool walks.
'
act 'Move away from the inscriptions':gt $curloc
}
$dundinboch={
cls
gs'stat'
if openstateDM2=0:openstateDM2=1
'Soon you will hear the chimes, reconcile those who quarrel.'
act 'Move away from the barrel':gt $curloc
}
$dundinsvitok={
cls
gs'stat'
svitokRTS=1
heart+=1
'You picked up the scroll and he crumbled. As if you breathed in the wind. You listened to feel and understand that in you that something has changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
act 'move_away':gt $curloc
>>>>>>> 384_dangeon
}

<<<<<<< 384_dangeon
gs 'stat'

if dungeonMark = 0:
'<center><img src="images\picPRE\dunPRE.jpg"></center>'
'The man-made cave in depth which shows the door.'
	act 'Get out of the dungeon': minut += 5 & gt 'obekt2'

	act 'Enter the door': minut += 5 & dungeonMark = 1 & gt $curloc
=======
gs'stat'

if dungeonMark=0:
'<center><img src="picPRE/dunPRE.jpg" ></center>'
'Man-made caves which can be seen in the depths of the door.'
     act 'Get out of the dungeon':minut+=5&gt'obekt2'
     
     act 'Sign on the door':minut+=5&dungeonMark=1&gt $curloc
>>>>>>> 384_dangeon

end
<<<<<<< 384_dangeon
if dungeonMark = 1:
'<center><img src="images\picPRE\dunPRE1.jpg"></center>'
'Quite large and deserted room in which there is nothing but a bunch of bones in the corner.'
	act 'Exit': minut += 5 & dungeonMark = 0 & gt $curloc
	act 'Go deep into': minut += 5 & dungeonMark = 2 & gt $curloc
end
if dungeonMark = 2:
	if svitokRTS = 1:

	exit
	end

'<center><img src="images\picPRE\dunPRE2.jpg"></center>'
'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
	act 'Exit from the gallery': minut += 5 & dungeonMark = 1 & gt $curloc
	act 'Sign in 1yu room': minut += 5 & dungeonMark = 3 & gt $curloc
	act 'Sign in 2w room':
	cls
		if openstateDM = 1:
		minut += 5
		dungeonMark = 4
		gt $curloc
		end
		if openstateDM = 0:
		:markanotherrand
		DMN[1] = RAND(0,9)
		DMN[2] = RAND(0,9)
		DMN[3] = RAND(0,9)
		DMN[4] = RAND(0,9)
		if DMN[1] = DMN[2] and DMN[1] = DMN[3] and DMN[1] = DMN[4]:jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 8 and DMN[3] = 0 and DMN[4] = 9: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 1 and DMN[3] = 1 and DMN[4] = 1: jump 'markanotherrand'
		if DMN[1] = 2 and DMN[2] = 1 and DMN[3] = 7 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 3 and DMN[2] = 2 and DMN[3] = 1 and DMN[4] = 3: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 6 and DMN[3] = 6 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 9 and DMN[2] = 3 and DMN[3] = 1 and DMN[4] = 2: jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 1 and DMN[3] = 9 and DMN[4] = 3: jump 'markanotherrand'
		if DMN[1] = 8 and DMN[2] = 0 and DMN[3] = 9 and DMN[4] = 6: jump 'markanotherrand'
		if DMN[1] = 7 and DMN[2] = 7 and DMN[3] = 5 and DMN[4] = 6: jump 'markanotherrand'
		if DMN[1] = 6 and DMN[2] = 8 and DMN[3] = 5 and DMN[4] = 5: jump 'markanotherrand'
		if DMN[1] = 9 and DMN[2] = 8 and DMN[3] = 8 and DMN[4] = 1: jump 'markanotherrand'
		if DMN[1] = 5 and DMN[2] = 5 and DMN[3] = 3 and DMN[4] = 1: jump 'markanotherrand'
		i = 0
		numdmr = 0
		:markdnm
		i += 1
		if DMN[i] = 0 or DMN[i] = 6 or DMN[i] = 9:
		numdmr += 1
		elseif DMN[i] = 8:
		numdmr += 2
		else
		end
		if i < 4: jump 'markdnm'
		numberOSDM = input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>>=?")
			if numberOSDM < 0 or numberOSDM > 8 or numdmr ! numberOSDM:
			MSG("Silence, nothing has changed")
			gt $curloc
			else
			openstateDM = 1
			MSG("In the door that just clicked")
			gt $curloc
			end
		end
	end
	if openstateDM2 = 2: act 'Sign in third room': minut += 5 & dungeonMark = 5 & gt $curloc
end
if dungeonMark = 3:
'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
'The room in which the middle stands a stone dais on which are various dusty bottles.'
'Scrawled on the wall of what is <a href="exec:dynamic $dundincif ">signs</a>.'
	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc

end
if dungeonMark = 4:
'<center><img src="images\picPRE\dunPRE4.jpg"></center>'
'Small room in which there are what that <a href="exec:dynamic $dundinboch ">Drums</a>.'

	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc

	if openstateDM2 = 1:
	'In another barrel you see a device where you can enter numbers.'
		act 'Enter the numbers':
		cls
		numberOSDM2 = input("12,1,1,1,2,1,3,?,?,?,?")
			if numberOSDM2 = rikudootvet:
			openstateDM2 = 2
			MSG("Outside that it rattled.")
			else
			MSG("Silence, nothing has changed")
			end
		gt $curloc
		end
	end
end
if dungeonMark = 5:
'<center><img src="images\picPRE\dunPRE5.jpg"></center>'
'The room in which the middle, sitting on a stone throne cobwebbed skeleton.'
if svitokRTS = 0: 'In the hands of a skeleton lying <a href="exec: dynamic $dundinsvitok ">scroll</a>.'
	act 'Leave the room': minut += 5 & dungeonMark = 2 & gt $curloc
end
=======
if dungeonMark=1:
'<center><img src="picPRE/dunPRE1.jpg" ></center>'
'Quite a large and desolate room in which there is nothing but a heap of bones in a corner.'
     act 'Go_Out':minut+=5&dungeonMark=0&gt $curloc
     act 'Go deep into the':minut+=5&dungeonMark=2&gt $curloc
end
if dungeonMark=2:
     if svitokRTS=1:
     
     exit
     end
     
'<center><img src="picPRE/dunPRE2.jpg" ></center>'
'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
     act 'Exit from the gallery':minut+=5&dungeonMark=1&gt $curloc
     act 'Log in 1th room':minut+=5&dungeonMark=3&gt $curloc
     act 'Log in 2th room':
     cls
         if openstateDM=1: 
         minut+=5
         dungeonMark=4
         gt $curloc
         end
         if openstateDM=0:
         :markanotherrand
         DMN[1]=RAND(0,9)
         DMN[2]=RAND(0,9)
         DMN[3]=RAND(0,9)
         DMN[4]=RAND(0,9)
         if DMN[1]=DMN[2] and DMN[1]=DMN[3] and DMN[1]=DMN[4]:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=8 and DMN[3]=0 and DMN[4]=9:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=1 and DMN[3]=1 and DMN[4]=1:jump'markanotherrand'
         if DMN[1]=2 and DMN[2]=1 and DMN[3]=7 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=3 and DMN[2]=2 and DMN[3]=1 and DMN[4]=3:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=6 and DMN[3]=6 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=9 and DMN[2]=3 and DMN[3]=1 and DMN[4]=2:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=1 and DMN[3]=9 and DMN[4]=3:jump'markanotherrand'
         if DMN[1]=8 and DMN[2]=0 and DMN[3]=9 and DMN[4]=6:jump'markanotherrand'
         if DMN[1]=7 and DMN[2]=7 and DMN[3]=5 and DMN[4]=6:jump'markanotherrand'
         if DMN[1]=6 and DMN[2]=8 and DMN[3]=5 and DMN[4]=5:jump'markanotherrand'
         if DMN[1]=9 and DMN[2]=8 and DMN[3]=8 and DMN[4]=1:jump'markanotherrand'
         if DMN[1]=5 and DMN[2]=5 and DMN[3]=3 and DMN[4]=1:jump'markanotherrand'
         i=0
         numdmr=0
         :markdnm
         i+=1
         if DMN[i]=0 or DMN[i]=6 or DMN[i]=9:
         numdmr+=1
         elseif DMN[i]=8:
         numdmr+=2
         else
         end
         if i<4:jump'markdnm'
         numberOSDM=input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>>=?")
             if numberOSDM<0 or numberOSDM>8 or numdmr!numberOSDM:
             MSG("silence, nothing has changed")
             gt $curloc
             else
             openstateDM=1
             MSG("At the door that something clicked")
             gt $curloc
             end
         end
     end
     if openstateDM2=2:act 'Log in 3th room':minut+=5&dungeonMark=5&gt $curloc
end
if dungeonMark=3:
'<center><img src="picPRE/dunPRE3.jpg" ></center>'
'The room in which the center of the standing stone dais on which there are a variety of dusty bottles.'
'Scrawled on the wall of what is <a href="exec:dynamic $dundincif ">insignia</a>.'
     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
     
end
if dungeonMark=4:
'<center><img src="picPRE/dunPRE4.jpg" ></center>'
'Small room in which there are some that <a href="exec:dynamic $dundinboch ">barrels</a>.'

     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
     
     if openstateDM2=1:
     'In the other barrel you see a device where you can enter the numbers.'
         act 'Enter digits':
         cls
         numberOSDM2=input("12,1,1,1,2,1,3,?,?,?,?")
             if numberOSDM2=rikudootvet:
             openstateDM2=2
             MSG("Outside.")
             else
             MSG("silence, nothing has changed")
             end
         gt $curloc
         end
     end
end
if dungeonMark=5:
'<center><img src="picPRE/dunPRE5.jpg" ></center>'
'The room in which the middle, sitting on a stone throne skeleton covered with cobwebs.'
if svitokRTS=0:'In the hands of the skeleton is <a href="exec:dynamic $dundinsvitok ">scroll</a>.'
     act 'Exit the room':minut+=5&dungeonMark=2&gt $curloc
end









>>>>>>> 384_dangeon
--- dangeon ---------------------------------