1
0

519_blackjack 785 B

1234567891011121314151617181920212223242526272829303132
  1. # blackjack
  2. gs'stat'
  3. num=1
  4. :markcard
  5. papkarand[num]=rand(0,4)
  6. if papkarand[num]=0:$papkacard[num]='a'
  7. if papkarand[num]=1:$papkacard[num]='b'
  8. if papkarand[num]=2:$papkacard[num]='c'
  9. if papkarand[num]=3:$papkacard[num]='d'
  10. if papkarand[num]=4:$papkacard[num]='j'
  11. if papkarand[num]=4:
  12. numcard[num]=rand(1,2)
  13. nomcard[num]=10
  14. else
  15. numcard[num]=rand(2,14)
  16. if numcard[num]<10:nomcard[num]=numcard[num]
  17. if numcard[num]>=10:nomcard[num]=10
  18. end
  19. num+=1
  20. if num<10:jump'markcard'
  21. '<center><img src="qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg" ><img src="qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg" ></center>'
  22. sumcard=nomcard[1]+nomcard[2]
  23. 'denomination cards <<sumcard>>'
  24. act'remove card':gt $loc
  25. --- blackjack ---------------------------------