# lena
if $ARGS[0] = 'lena':
cls
minut += 5
gs'stat'
gs'ira'
'
Lena'
if $metka = 'party_gost':
'> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_1_' + rand(1,5) + '.jpg">'
'Ira and Lena are really getting into the spirit of the party.'
else
'> src="images/characters/pavlovsk/resident/lena/lena.jpg">'
'Walking up to Lena you talk and share a drink.'
end
'Small and mobile Lena'
act 'Move away':gt $loc,$metka
if $metka = 'party_gost':
'Lena and Ira together clink cups. "<<$pcs_nickname>>, Lets party!" As they offer you a drink.'
gs 'willpower', 'drink', 'resist', 'hard'
if will_cost <= pcs_willpwr:
act 'Drink (<> Willpower)':
gs 'willpower', 'pay', 'self'
gs 'stat'
gt 'ira', 'drink'
end
else
act 'Drink (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Dance':gt 'ira', 'dance'
else
if alko < 6 and $metka = 'party_home': act 'Have a drink': gt'sbReksHome','party_drink'
end
end
--- lena ---------------------------------