home *** CD-ROM | disk | FTP | other *** search
/ VIPER Paradice / VIPER.ISO / pc / ENG / SCRIPTS / ROULETTE.VSC next >
Encoding:
Text File  |  2002-06-24  |  9.3 KB  |  308 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; Æ╩Åφ
  3.  
  4. (define (event-roulette-0 session)
  5.   (call-prompt "<p>It's number [1]!</p>")
  6.   (let* ((player    (current-player session))
  7.          (character (current-character player))
  8.          (earn        (get-bonus (character-lap-get character)))
  9.          (currency-unit (session-currencyunit-get session)))
  10.     (character-money-apply character (lambda (x) (+ x earn)))
  11.     (call-prompt "<p>bonus point! "
  12.                  (number->string earn)
  13.                  currency-unit
  14.                  " as a present</p>")
  15.     )
  16.   )
  17.  
  18. (define (event-roulette-1 session)
  19.   (call-prompt "<p>It's number [2]!</p>")
  20.   (let* ((player    (current-player session))
  21.          (character (current-character player)))
  22.     (call-message "<p>card present!<br/>"
  23.                   " choose a card among the three.</p>")
  24.     (call-chest character 1)
  25.     )
  26.   )
  27.  
  28. (define (event-roulette-2 session)
  29.   (call-prompt "<p>It's number [3]!</p>")
  30.   (let* ((player    (current-player session))
  31.          (character (current-character player))
  32.          (card        (call-generate-specified-spell-card "Dunball!!!"))
  33.          (spell        (call-pull-spell card))
  34.          (desc        (spell-description-get spell)))
  35.     (call-gain-spell-card character card)
  36.     (call-show-spell-card card)
  37.     (call-caption "<p>dunball card present!</p>")
  38.     (call-prompt desc)
  39.     (call-hide-spell-card)
  40.     )
  41.   )
  42.  
  43. (define (event-roulette-3 session)
  44.   (call-prompt "<p>It's number [4]!</p>")
  45.   (let* ((player    (current-player session))
  46.          (character (current-character player))
  47.          (earn        (/ (character-money-get character) 2))
  48.          (currency-unit (session-currencyunit-get session)))
  49.     (character-money-apply character (lambda (x) (- x earn)))
  50.     (call-prompt "<p>minus point! Unfortunately you loose half "
  51.                  (number->string earn)
  52.                  currency-unit
  53.                  "of the money you have.</p>")
  54.     )
  55.   )
  56. (define (event-roulette-4 session)
  57.   (call-prompt "<p>It's number [5]!</p>")
  58.   (let* ((player    (current-player session))
  59.          (character (current-character player)))
  60.     (call-message "<p>Present! The special treasure box of the island!<br/>"
  61.                   "Do you want to open the treasure box?</p>")
  62.     (if (call-query-yesno)
  63.         (begin
  64.           (call-message "<p>Choose a card</p>")
  65.           (call-chest character 0)
  66.           )
  67.         (call-prompt "<p>You went away without opening the box.</p>"))
  68.     )
  69.   )
  70.  
  71. (define (event-roulette-5 session)
  72.   (call-prompt "<p>It's number [6]!</p>")
  73.   (let* ((player    (current-player session))
  74.          (character (current-character player))
  75.          (card        #f)
  76.          (spell        #f)
  77.          (desc        #f))
  78.     (do ((i 0 (+ i 1)))
  79.         ((<= 2 i) #f)
  80.       (set! card (call-generate-specified-spell-card "Dunball!!!"))
  81.       (set! spell (call-pull-spell card))
  82.       (set! desc (spell-description-get spell))
  83.       (call-gain-spell-card character card)
  84.       )
  85.     (call-show-spell-card card)
  86.     (call-caption "<p>2 dunball cards, present!</p>")
  87.     (call-prompt desc)
  88.     (call-hide-spell-card)
  89.     )
  90.   )
  91.  
  92. (define (event-roulette-6 session)
  93.   (call-prompt "<p>It's number [7]!</p>")
  94.   (let* ((player    (current-player session))
  95.          (character (current-character player)))
  96.     (call-message "<p>lucky seven! gold movie present!<br/>"
  97.                   "Choose a card you like.</p>")
  98.     (call-chest character 2)
  99.     )
  100.   )
  101.  
  102. (define (event-roulette-7 session)
  103.   (call-prompt "<p>It's number [8]!</p>")
  104.   (let* ((player    (current-player session))
  105.          (character (current-character player)))
  106.     (call-prompt "<p>Your head is spinning around due to the<br/>roulette, and you rest for a turn.</p>")
  107.     (character-rest-set character 2)
  108.     )
  109.   )
  110.  
  111. (define (event-roulette-8 session)
  112.   (call-prompt "<p>It's number [9]!</p>")
  113.   (let* ((player    (current-player session))
  114.          (character (current-character player))
  115.          (movies    (movie-list character))
  116.          (card        (call-generate-movie-card #f))
  117.          (gold        (car card))
  118.          (silver    (cdr card))
  119.          (count        (movie-gaincount-get
  120.                      (character-moviecards-get character
  121.                                                (+ (* gold 5) silver))))
  122.          )
  123.     (call-prompt "<p>one of your movie cards will be taken away!</p>")
  124.     (if (= 0 (length movies))
  125.         (begin
  126.           (call-increment-bingo-item character gold silver)
  127.           (call-show-movie-card gold silver)
  128.           (call-prompt "<p> we thought so but since you don't have any we feel sorry"
  129.                        " and give you 1 card.</p>")
  130.           (call-hide-movie-card)
  131.           )
  132.         (begin
  133.           (set! card (list-ref movies (random (length movies))))
  134.           (set! card (cons (quotient card 5) (modulo card 5)))
  135.           (set! gold (car card))
  136.           (set! silver (cdr card))
  137.  
  138.           (call-decrement-bingo-item character gold silver)
  139.           (call-show-movie-card gold silver)
  140.           (call-prompt "<p>"
  141.                        (call-get-movie-priced-text #f gold silver)
  142.                        "<br/>You lost the card...</p>")
  143.           (call-hide-movie-card)
  144.           )
  145.         )
  146.     )
  147.   )
  148.  
  149. (define (event-roulette-9 session)
  150.   (call-prompt "<p>It's number [10]</p>")
  151.   (call-prompt "<p>Ohps! Wrong! You don't get anything.</p>")
  152.   )
  153.  
  154. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  155. ;;â_âôâ{ü[âïâ}âô
  156.  
  157. (define (event-roulette-10 session)
  158.   (call-prompt "<p>It's number [1]!</p>")
  159.   (let* ((player    (current-player session))
  160.          (character (current-character player))
  161.          (earn        (* (+ 1 (character-lap-get character)) 98000))
  162.          (currency-unit (session-currencyunit-get session)))
  163.     (character-money-apply character (lambda (x) (+ x earn)))
  164.     (call-prompt "<p>bonus point!"
  165.                  (number->string earn)
  166.                  currency-unit
  167.                  " as a present!</p>")
  168.     )
  169.   )
  170.  
  171. (define (event-roulette-11 session)
  172.   (event-roulette-1 session)
  173.   )
  174.  
  175. (define (event-roulette-12 session)
  176.   (call-prompt "<p>It's number [3]!</p>")
  177.   (let* ((player    (current-player session))
  178.          (character (current-character player)))
  179.     (call-message "<p>lucky three! gold movie present!<br/>"
  180.                   "choose a card you like.</p>")
  181.     (call-chest character 2)
  182.     )
  183.   )
  184.  
  185. (define (event-roulette-13 session)
  186.   (call-prompt "<p>It's number [4]!</p>")
  187.   (let* ((player    (current-player session))
  188.          (character (current-character player))
  189.          (card        (call-generate-specified-spell-card "Dunball!!!"))
  190.          (spell        (call-pull-spell card))
  191.          (desc        (spell-description-get spell)))
  192.     (call-gain-spell-card character card)
  193.     (call-show-spell-card card)
  194.     (call-caption "<p>dunball card present!</p>")
  195.     (call-prompt desc)
  196.     (call-hide-spell-card)
  197.     )
  198.   )
  199.  
  200. (define (event-roulette-14 session)
  201.   (event-roulette-4 session)
  202.   )
  203.  
  204. (define (event-roulette-15 session)
  205.   (call-prompt "<p>It's number [6]!</p>")
  206.   (let* ((player    (current-player session))
  207.          (character (current-character player))
  208.          (card        #f)
  209.          (spell        #f)
  210.          (desc        #f))
  211.     (do ((i 0 (+ i 1)))
  212.         ((<= 3 i) #f)
  213.       (set! card (call-generate-specified-spell-card "Dunball!!!"))
  214.       (set! spell (call-pull-spell card))
  215.       (set! desc (spell-description-get spell))
  216.       (call-gain-spell-card character card)
  217.       )
  218.     (call-show-spell-card card)
  219.     (call-caption "<p>we give you 3 dunball cards!</p>")
  220.     (call-prompt desc)
  221.     (call-hide-spell-card)
  222.     )
  223.   )
  224.   
  225. (define (event-roulette-16 session)
  226.   (event-roulette-6 session)
  227.   )
  228.  
  229. (define (event-roulette-17 session)
  230.   (call-prompt "<p>It's number [8]!</p>")
  231.   (let* ((player    (current-player session))
  232.          (character (current-character player))
  233.          (earn        (* (+ 1 (character-lap-get character)) 98000))
  234.          (currency-unit (session-currencyunit-get session)))
  235.     (character-money-apply character (lambda (x) (+ x earn)))
  236.     (call-prompt "<p>Bonus point! "
  237.                  (number->string earn)
  238.                  currency-unit
  239.                  " as a present!</p>")
  240.     )
  241.   )
  242.  
  243. (define (event-roulette-18 session)
  244.   (call-prompt "<p>It's number [9]!</p>")
  245.   (let* ((player    (current-player session))
  246.          (character (current-character player))
  247.          (currency-unit (session-currencyunit-get session))
  248.          (movies    (movie-list character))
  249.          (card        (call-generate-movie-card #f))
  250.          (gold        (car card))
  251.          (silver    (cdr card))
  252.          (price        #f))
  253.     (call-prompt "<p>we buy from you one movie card you have,"
  254.                  "5 times its price!</p>")
  255.     (if (= 0 (length movies))
  256.         (begin
  257.           (call-increment-bingo-item character gold silver)
  258.           (call-show-movie-card gold silver)
  259.           (call-prompt "<p>we thought so but since you don't have any we feel sorry"
  260.                        " and give you 1 card.</p>")
  261.           (call-hide-movie-card)
  262.           )
  263.         (begin
  264.           (set! card (list-ref movies (random (length movies))))
  265.           (set! card (cons (quotient card 5) (modulo card 5)))
  266.           (set! gold (car card))
  267.           (set! silver (cdr card))
  268.           (set! price (* 5 (call-get-movie-price #f gold silver)))
  269.  
  270.           (call-decrement-bingo-item character gold silver)
  271.           (call-show-movie-card gold silver)
  272.           (call-prompt "<p>"
  273.                        (call-get-movie-priced-text #f gold silver)
  274.                        "<br/>you lost the card...</p>")
  275.           (call-prompt "<p>but on the other side "
  276.                        (number->string price)
  277.                        currency-unit
  278.                        "you earned!</p>")
  279.           (character-money-apply character (lambda (x) (+ x price)))
  280.           (call-show-income price)
  281.           (call-hide-movie-card)
  282.           )
  283.         )
  284.     )
  285.   )
  286.   
  287. (define (event-roulette-19 session)
  288.   (call-prompt "<p>It's number [10]!</p>")
  289.   (let* ((player    (current-player session))
  290.          (character (current-character player))
  291.          (card        #f)
  292.          (spell        #f)
  293.          (desc        #f))
  294.     (do ((i 0 (+ i 1)))
  295.         ((<= 2 i) #f)
  296.       (set! card (call-generate-specified-spell-card "Dunball!!!"))
  297.       (set! spell (call-pull-spell card))
  298.       (set! desc (spell-description-get spell))
  299.       (call-gain-spell-card character card)
  300.       )
  301.     (call-show-spell-card card)
  302.     (call-caption "<p>2 dumball cards present!</p>")
  303.     (call-prompt desc)
  304.     (call-hide-spell-card)
  305.     )
  306.   )
  307.   
  308.