glife/locations/card.qsrc

# card
!2021/04/26
menu_off = 1
gs 'stat'
'<center><img <<$set_imgh>> src="images/pc/items/accessories/cards/porndeck.jpg"></center>'
'You pull your deck of cards out and spread them around '+iif($card_loc = 'gadsarai', 'an old desk in the barn', 'your desk')+' to look at them.'

act 'Put the cards away':
	killvar '$card_loc'
	gt $loc
end
act 'Pull a card from the deck':
	*clr & cla
	you_slut += 1

	!!if you_slut < 10:end

	if you_slut >= 10 and you_slut < 20:
		pcs_horny += 1
	elseif you_slut >= 20 and you_slut < 30:
		pcs_horny += 2
	elseif you_slut >= 30 and you_slut < 40:
		pcs_horny += 3
	elseif you_slut >= 40 and you_slut < 50:
		pcs_horny += 4
	elseif you_slut >= 50 and you_slut < 60:
		pcs_horny += 5
	elseif you_slut >= 60 and you_slut < 70:
		pcs_horny += 6
	elseif you_slut >= 70 and you_slut < 80:
		pcs_horny += 7
	elseif you_slut >= 80 and you_slut < 90:
		pcs_horny += 8
	elseif you_slut >= 90 and you_slut < 100:
		pcs_horny += 9
	elseif you_slut >= 100:
		pcs_horny += 10
	end
	minut += 1
	gs 'stat'
	papkarand = rand(0, 4)

	if papkarand = 0:$papkacard = 'a'
	if papkarand = 1:$papkacard = 'b'
	if papkarand = 2:$papkacard = 'c'
	if papkarand = 3:$papkacard = 'd'
	if papkarand = 4:$papkacard = 'j'
	if papkarand = 4:
		numcard = rand(1, 2)
		nomcard = 10
	else
		numcard = rand(2, 14)

		if numcard < 10:nomcard = numcard
		if numcard >= 10:nomcard = 10
	end

	if card_deck = 0:
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/cards/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
	elseif card_deck = 1:
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/cards/card2/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
	end
	'Denomination card <<nomcard>>'

	act 'Put the card back into the deck':gt 'card'
end

if card_deck = 0:
	act 'Throw away your deck of vintage porn cards': 
		vcard = 0
		vcard_trash = 1
		killvar '$card_loc'
		gt $loc
	end
elseif card_deck = 1:
	act 'Throw away your deck of new porn cards': 
		card = 0
		killvar '$card_loc'
		gt $loc
	end
end


--- card ---------------------------------