slife/locations/337_bank

# bank
<<<<<<< 337_bank
if $ARGS[0] = 'start':
=======
if $ARGS[0]='start':
>>>>>>> 337_bank
cla
*clr
<<<<<<< 337_bank
set minut += 5
'<center><B><font color = maroon>Bank</font></B></center>'
'<center><img src="images\etogame\bank.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if karta > 0: 'In the bank <<karta>> rubles'

	if BankPapper = 1 and dayBankPapper = day:
		act 'Giving documents':
		cls
		set minut += 15
		BankPapper = 2
		gs 'stat'
		'You went to the office and gave the documents to the manager.'
		act 'Leave': minut += 5 & gt 'down'
		end

	end

	if money > 0:
		act 'Deposit money':
		cla
		set minut += 5
		kartaIN = input ("How much money you want to deposit into the account?")
			if kartaIN <= 0 or kartaIN > money:
			'Not correct operation.'
			else
			set karta += kartaIN
			set money -= kartaIN
			'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
			end

		act 'Move away': gt 'bank','start'
		end

	end

	if karta > 0:
		act 'Withdrawing money':
		cla
		set minut += 5
		kartaOUT = input ("How much do you want to withdraw from account?")
			if kartaOUT <= 0 or kartaOUT > karta:
			'Not correct operation.'
			else
			set karta -= kartaOUT
			set money += kartaOUT
			'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
			end

		act 'Move away': gt 'bank','start'
		end
	end

act 'Exit': gt 'down'
=======
set minut = minut + 5
'<center><B><font color=maroon>Bank</font></B></center>'
'<center><img src="pic/bank.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if karta > 0:'In the bank <<karta>> rubles'

     if BankPapper=1 and dayBankPapper=day:
         act 'give documents':
		 cls
		 set minut = minut + 15
		 BankPapper=2
		 gs'stat'
		 'You went into the office and gave the documents to the manager.'
		 act 'Get_Away':minut+=5&gt'down'
		 end
     
     end
     
     if money > 0:
         act 'Put money into the account':
		 cla
		 set minut = minut + 5
		 kartaIN = input ("How much money you want to deposit?")
		     if kartaIN <= 0 or kartaIN > money:
		     'Not correct operation.'
		     else
		     set karta = karta + kartaIN
		     set money = money - kartaIN
		     'You put into the account <<kartaIN>> rubles, now in your account <<karta>> rubles.'
		     end
		     
		 act 'move_away':gt'bank','start'
		 end
     
     end
     
     if karta > 0:
         act 'To withdraw money':
		 cla
		 set minut = minut + 5
		 kartaOUT = input ("How much money you want to withdraw?")
		     if kartaOUT <= 0 or kartaOUT > karta:
		     'Not correct operation.'
		     else
		     set karta = karta - kartaOUT
		     set money = money + kartaOUT
		     'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
		     end
		     
		 act 'move_away':gt'bank','start'
		 end
     end

act 'Go_Out':gt'down'
>>>>>>> 337_bank
end
--- bank ---------------------------------