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 = 'gad_gpbarn', 'an old desk in the barn', 'your desk') + ' to look at them.'

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

	if you_slut >= 10 and you_slut <= 100: 
		pcs_horny += (you_slut/10)
	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': 
		mc_inventory['vintage_card'] = 0
		vcard_trash = 1
		killvar '$card_loc'
		killvar '$papkacard'
		killvar 'papkarand'
		killvar 'numcard'
		killvar 'nomcard'
		killvar 'card_deck'
		gt $loc
	end
elseif card_deck = 1:
	act 'Throw away your deck of new porn cards': 
		mc_inventory['card']  = 0
		killvar '$card_loc'
		killvar '$papkacard'
		killvar 'papkarand'
		killvar 'numcard'
		killvar 'nomcard'
		killvar 'card_deck'
		gt $loc
	end
end


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