# KGstart
$KGOLklassvibor={
cls
'You must select a character class.'
if KGOLrace=1:
'For people available classes Warrior, thief, magician.'
     act 'warrior':$KGOLklass='warrior'&KGOLklass=1&dynamic $KGOLklassvibor2
     act 'thief':$KGOLklass='thief'&KGOLklass=2&dynamic $KGOLklassvibor2
     act 'magician':$KGOLklass='magician'&KGOLklass=3&dynamic $KGOLklassvibor2
elseif KGOLrace=2:
'For Elves available classes Priest, archer.'
     act 'priest':$KGOLklass='priest'&KGOLklass=4&dynamic $KGOLklassvibor2
     act 'archer':$KGOLklass='archer'&KGOLklass=5&dynamic $KGOLklassvibor2
else
'For zveroidov available classes Barbarian.'
     act 'barbarian':$KGOLklass='barbarian'&KGOLklass=6&dynamic $KGOLklassvibor2
end

}
$KGOLklassvibor2={
cls
KGOLexp=0
KGOLlvl=1
KGOLbrona=0
KGOLwpower=0
'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
if KGOLklass=1:
KGOLstren=30
KGOLspeed=20
KGOLvital=30
KGOLintel=20
elseif KGOLklass=2:
KGOLstren=20
KGOLspeed=30
KGOLvital=20
KGOLintel=30
elseif KGOLklass=3:
KGOLstren=10
KGOLspeed=20
KGOLvital=20
KGOLintel=50
elseif KGOLklass=4:
KGOLstren=10
KGOLspeed=10
KGOLvital=10
KGOLintel=70
elseif KGOLklass=5:
KGOLstren=20
KGOLspeed=40
KGOLvital=10
KGOLintel=30
else
KGOLstren=40
KGOLspeed=10
KGOLvital=40
KGOLintel=10
end
KGHP=KGOLvital*10
KGManna=KGOLintel*10
act 'play':KGOLpers=1&gt 'KGOLgame'

	 act 'Delete character':
	 KGOLpers=0
	 gt $curloc
	 end
}
minut+=1
gs'stat'
if KFOnLineReaga>0:
'Welcome to the game Vertep World. You can still play <<KFOnLineReaga>> days'
'You can always pay with a credit card, that would extend the duration of the account.'
'30 days 1000 rubles, on your credit card <<karta>> rubles'
     if KGOLpers>0:
     'You can get in the game your character or delete it'
     '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level' 
         act 'play':gt 'KGOLgame'
         
         act 'Delete character':
         KGOLpers=0
         gt $curloc
         end
         
         
     else
     'You can create a character'
         act 'Create a character':
         cls
         $KGOLname=input("Enter your nickname")
         if $KGOLname<=0:msg'Not valid nickname'&gt $curloc
         'your nickname <<$KGOLname>>'
         'You must select the player race'
         act 'man':$KGOLrace='man'&KGOLrace=1&dynamic $KGOLklassvibor
         act 'elf':$KGOLrace='elf'&KGOLrace=2&dynamic $KGOLklassvibor
         act 'Zveroid':$KGOLrace='Zveroid'&KGOLrace=3&dynamic $KGOLklassvibor
         end
     end 
     
     if karta>=1000:
         act 'Payment akkuaunta':
         karta-=1000
         KFOnLineReaga+=30
         gt $curloc
         end
     
     end
     
     if karta>0:
         act 'Donat money into the game (1RUB=1coin)':
         cla
         KGOLdonat=input("How much money do you want zadonatit?")
			 if KGOLdonat<=0 or KGOLdonat<karta:
			 msg'Not admissible operation'
			 else
			 karta-=KGOLdonat
			 KGOLmoney+=KGOLdonat
			 msg'Transferred to your account <<KGOLdonat>> coin'
			 end
         gt $curloc
         end
     end

else
'Welcome to the online game Vertep World'
'To play this game you need to pay 1000 rub 30 days with a credit card.'
     if karta>=1000:
         act 'payment':
         karta-=1000
         KFOnLineReaga+=30
         gt $curloc
         end
     
     end

end

act 'Go_Out':gt'Komp','start'






















--- KGstart ---------------------------------

