518_card 681 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. # card
  2. gs'stat'
  3. act'pull the card':
  4. cls
  5. dynamic $d_slut_horny
  6. minut+=1
  7. gs'stat'
  8. papkarand=rand(0,4)
  9. if papkarand=0:$papkacard='a'
  10. if papkarand=1:$papkacard='b'
  11. if papkarand=2:$papkacard='c'
  12. if papkarand=3:$papkacard='d'
  13. if papkarand=4:$papkacard='j'
  14. if papkarand=4:
  15. numcard=rand(1,2)
  16. nomcard=10
  17. else
  18. numcard=rand(2,14)
  19. if numcard<10:nomcard=numcard
  20. if numcard>=10:nomcard=10
  21. end
  22. '<center><img src="qwest/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg" ></center>'
  23. 'Denomination card <<nomcard>>'
  24. act'Put in the stocks':gt $curloc
  25. end
  26. act'remove card':gt $loc
  27. !act'Playing cards':gt'blackjack'
  28. --- card ---------------------------------