123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719 |
- # youplace
- $metka = $ARGS[0]
- $loc = $CURLOC
- <<<<<<< 395_youplace
- '<center><H4>Your Land</H4></center>'
- if placeMansion < 2: '<center><img src="images\etogame\yzemelniy.jpg"></center>'
- if placeMansion = 2: '<center><img src="images\etogame\ystart.jpg"></center>'
- if placeMansion = 3: '<center><img src="images\etogame\yosobnak.jpg"></center>'
- =======
- '<center><H4>Your land</H4></center>'
- if placeMansion<2:'<center><img src="pic/yzemelniy.jpg" ></center>'
- if placeMansion=2:'<center><img src="pic/ystart.jpg" ></center>'
- if placeMansion=3:'<center><img src="pic/yosobnak.jpg" ></center>'
- >>>>>>> 395_youplace
- ''
- clr
- <<<<<<< 395_youplace
- gs 'stat'
- gs 'time'
- =======
- gs'stat'
- gs'time'
- >>>>>>> 395_youplace
- if car > 0 and cardrive = 18:
- set cardrive = 18
- <<<<<<< 395_youplace
- '<a href="exec:GS ''carF'',''start''">Your <<$car>></a> is parked here.'
- =======
- 'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- act 'Go to the village': minut += 15 & gt 'locmansion'
- if bassMansion = 1: '<a href="exec: gt ''ybass''">Pool</a>.'
- if banaMansion >= 1: '<a href="exec: gt ''yban''">Bath</a>.'
- if placeMansion = 3: '<a href="exec: gt ''ymans''">Go inside</a>.'
- if karta >= 1500000 and placeMansion = 0:
- act 'Buy land for cottage 1500000':
- cls
- karta -= 1500000
- placeMansion = 1
- minut += 5
- gs 'stat'
- 'You have bought land for cottage'
- act 'Leave': gt $curloc
- end
- =======
- act 'Exit the village':minut+=15>'locmansion'
- if bassMansion=1:'<a href="exec:gt ''ybass''">Swimming_Pool</a>.'
- if banaMansion>=1:'<a href="exec:gt ''yban''">bath</a>.'
- if placeMansion=3:'<a href="exec:gt ''ymans''">mansion</a>.'
- if karta>=1500000 and placeMansion=0:
- act 'Buy land for cottage 1,5 million':
- cls
- karta-=1500000
- placeMansion=1
- minut+=5
- gs'stat'
- 'You bought a plot cottage'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 500000 and placeMansion = 1:
- act 'Pay for water, electricity and building foundations 500,000 rubles':
- cls
- karta -= 500000
- placeMansion = 2
- minut += 5
- gs 'stat'
- 'You paid for a supply of communications to the site and zero cycle'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=500000 and placeMansion=1:
- act 'Pay for supply of communications and building foundations 500 sput':
- cls
- karta-=500000
- placeMansion=2
- minut+=5
- gs'stat'
- 'You paid for a supply of communications to the site '
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 1500000 and placeMansion = 2:
- act 'Pay for the construction and external finish of the building 1.5 million':
- cls
- karta -= 1500000
- placeMansion = 3
- minut += 5
- gs 'stat'
- 'You paid for the construction of housing mansion'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=1500000 and placeMansion=2:
- act 'Pay for construction and exterior of the building 1,5 million':
- cls
- karta-=1500000
- placeMansion=3
- minut+=5
- gs'stat'
- 'You paid for the construction of housing mansion'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 500000 and placeMansion = 3 and ymanrem[3] = 0:
- act 'Pay for the construction of 500 rooms sput':
- cls
- karta -= 500000
- ymanrem[3] = 1
- minut += 5
- gs 'stat'
- 'You paid for the construction of the rooms.'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=500000 and placeMansion=3 and ymanrem[3]=0:
- act 'Pay for the construction of rooms 500 sput':
- cls
- karta-=500000
- ymanrem[3]=1
- minut+=5
- gs'stat'
- 'You paid for the construction of rooms.'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 800000 and placeMansion >= 2 and banaMansion = 0:
- act 'Pay for the construction of baths 800,000':
- cls
- karta -= 800000
- banaMansion = 1
- minut += 5
- gs 'stat'
- 'You paid for the construction of baths.'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=800000 and placeMansion>=2 and banaMansion=0:
- act 'Pay for building baths 800 thousand':
- cls
- karta-=800000
- banaMansion=1
- minut+=5
- gs'stat'
- 'You paid for the construction of baths.'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 500000 and placeMansion >= 2 and bassMansion = 0:
- act 'Pay for the construction of 500,000 basseynai':
- cls
- karta -= 500000
- bassMansion = 1
- minut += 5
- gs 'stat'
- 'You paid for the construction of the pool'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=500000 and placeMansion>=2 and bassMansion=0:
- act 'Pay build basseynai 500 thousand':
- cls
- karta-=500000
- bassMansion=1
- minut+=5
- gs'stat'
- 'You paid for the construction of swimming pools'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[3] = 1:
- act 'Pay for repairs Hall 250000':
- cls
- karta -= 250000
- ymanrem[3] = 2
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[3]=1:
- act 'Pay for repairs hall 250 thousand':
- cls
- karta-=250000
- ymanrem[3]=2
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 150000 and placeMansion = 3 and ymanrem[3] = 2:
- act 'Pay lounge furniture 150 000':
- cls
- karta -= 150000
- ymanrem[3] = 3
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=150000 and placeMansion=3 and ymanrem[3]=2:
- act 'Pay furniture for living room 150 thousand':
- cls
- karta-=150000
- ymanrem[3]=3
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[4] = 0:
- act 'Pay for repairs sleeping 250,000':
- cls
- karta -= 250000
- ymanrem[4] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[4]=0:
- act 'Pay for repairs bedroom 250 thousand':
- cls
- karta-=250000
- ymanrem[4]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 300000 and placeMansion = 3 and ymanrem[4] = 1:
- act 'Pay bedroom furniture 300 000':
- cls
- karta -= 300000
- ymanrem[4] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=300000 and placeMansion=3 and ymanrem[4]=1:
- act 'Pay furniture for bedroom 300 thousand':
- cls
- karta-=300000
- ymanrem[4]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 0:
- act 'Pay bathroom renovation 250,000':
- cls
- karta -= 250000
- ymanrem[5] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[5]=0:
- act 'Pay for bathroom renovation 250 thousand':
- cls
- karta-=250000
- ymanrem[5]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[5] = 1:
- act 'Pay for furniture and fixtures for the bathroom 250000':
- cls
- karta -= 250000
- ymanrem[5] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture and sanitary ware.'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[5]=1:
- act 'Pay for furniture and fixtures for the bathroom 250 thousand':
- cls
- karta-=250000
- ymanrem[5]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture and sanitary ware.'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[6] = 0:
- act 'Pay renovated kitchen 250000':
- cls
- karta -= 250000
- ymanrem[6] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[6]=0:
- act 'Pay for a kitchen renovation 250 thousand':
- cls
- karta-=250000
- ymanrem[6]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 350000 and placeMansion = 3 and ymanrem[6] = 1:
- act 'Pay kitchen furniture 350 000':
- cls
- karta -= 250000
- ymanrem[6] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture for the kitchen.'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=350000 and placeMansion=3 and ymanrem[6]=1:
- act 'Pay kitchen furniture 350 thousand':
- cls
- karta-=250000
- ymanrem[6]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture for kitchen.'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 0:
- act 'Pay for repairs hall 250000':
- cls
- karta -= 250000
- ymanrem[7] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[7]=0:
- act 'Pay for repairs hall 250 thousand':
- cls
- karta-=250000
- ymanrem[7]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[7] = 1:
- act 'Pay furniture hall 250000':
- cls
- karta -= 250000
- ymanrem[7] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture for the hall'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[7]=1:
- act 'Pay furniture hall 250 thousand':
- cls
- karta-=250000
- ymanrem[7]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture for the hall'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 0:
- act 'Pay for repairs fireplace room 250000':
- cls
- karta -= 250000
- ymanrem[8] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[8]=0:
- act 'Pay for repairs fireplace room 250 thousand':
- cls
- karta-=250000
- ymanrem[8]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[8] = 1:
- act 'Pay for the purchase of furniture for the fireplace room 250000':
- cls
- karta -= 250000
- ymanrem[8] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture.'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[8]=1:
- act 'Pay for the purchase of furniture for the fireplace room 250 thousand':
- cls
- karta-=250000
- ymanrem[8]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture.'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 0:
- act 'Children´s room to pay for repairs 250 000':
- cls
- karta -= 250000
- ymanrem[9] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[9]=0:
- act 'Pay repair a child`s room 250 thousand':
- cls
- karta-=250000
- ymanrem[9]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[9] = 1:
- act 'Pay for the purchase of furniture for the nursery 250,000':
- cls
- karta -= 250000
- ymanrem[9] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[9]=1:
- act 'Pay for the purchase of furniture for children`s rooms 250 thousand':
- cls
- karta-=250000
- ymanrem[9]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 0:
- act 'Pay for repairs library 250000':
- cls
- karta -= 250000
- ymanrem[10] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[10]=0:
- act 'Pay for repairs library 250 thousand':
- cls
- karta-=250000
- ymanrem[10]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[10] = 1:
- act 'Pay for the purchase of furniture for libraries 250000':
- cls
- karta -= 250000
- ymanrem[10] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[10]=1:
- act 'Pay for the purchase of furniture for the library 250 thousand':
- cls
- karta-=250000
- ymanrem[10]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 0:
- act 'Pay for repairs gym 250,000':
- cls
- karta -= 250000
- ymanrem[11] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[11]=0:
- act 'Pay for repairs gym 250 thousand':
- cls
- karta-=250000
- ymanrem[11]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[11] = 1:
- act 'Pay furniture gym 250,000':
- cls
- karta -= 250000
- ymanrem[11] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture for the gym'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[11]=1:
- act 'Pay furniture for the gym 250 thousand':
- cls
- karta-=250000
- ymanrem[11]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture for the gym'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 0:
- act 'Pay for repair of the 250 000':
- cls
- karta -= 250000
- ymanrem[12] = 1
- minut += 5
- gs 'stat'
- 'You pay for repairs'
- act 'Leave': gt $curloc
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[12]=0:
- act 'Pay for repairs Cabinet 250 thousand':
- cls
- karta-=250000
- ymanrem[12]=1
- minut+=5
- gs'stat'
- 'You pay for repairs'
- act 'Get_Away':gt $curloc
- end
- >>>>>>> 395_youplace
- end
- <<<<<<< 395_youplace
- if karta >= 250000 and placeMansion = 3 and ymanrem[12] = 1:
- act 'Pay for the purchase of furniture for the office 250 000':
- cls
- karta -= 250000
- ymanrem[12] = 2
- minut += 5
- gs 'stat'
- 'You paid for the purchase of furniture.'
- act 'Leave': gt $curloc
- end
- end
- =======
- if karta>=250000 and placeMansion=3 and ymanrem[12]=1:
- act 'Pay for the purchase of furniture for the office 250 thousand':
- cls
- karta-=250000
- ymanrem[12]=2
- minut+=5
- gs'stat'
- 'You pay for the purchase of furniture.'
- act 'Get_Away':gt $curloc
- end
- end
- >>>>>>> 395_youplace
- --- youplace ---------------------------------
|