VIPER Paradice/VIPER.ISO/pc/SCRIPTS/SERVER.VSC

Text File | 2002-06-27 | 14.8 KB | 535 lines

;;;
;;; server.vsc
;;;

(define *entry-point* #f)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; run-flow
;; É│ÅφÅIù╣é╡é╜ÅΩìçé═#fé≡üA
;; ÆEÅoé│éΩé╜ÅΩìçé═îpæ▒é≡ò╘é╖
(define (run-flow flow . args)
  (call/cc (lambda (x)
             (set! *entry-point* x)
             (apply flow args)
             #f))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; continue-flow
;; É│ÅφÅIù╣é╡é╜ÅΩìçé═#fé≡üA
;; ÆEÅoé│éΩé╜ÅΩìçé═îpæ▒é≡ò╘é╖
(define (continue-flow cont ret)
  (call/cc (lambda (x)
             (set! *entry-point* x)
             (cont ret)))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-caption
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-caption . messages)
  (apply server-caption messages)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-message
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-message . messages)
  (apply server-message messages)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-prompt
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-prompt . messages)
  (apply server-prompt messages)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-query-selection
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-query-selection items can-cancel?)
  (server-query-selection items can-cancel?)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-query-yesno
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-query-yesno)
  (case (call-query-selection '("<p>Ja</p>" "<p>Nein</p>") #f)
    ((0) #t)
    ((1) #f))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-query-course
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-query-course junction courses walk can-cancel?)
  (cond
   ((null? courses)            #f)
   ((null? (cdr courses))    (car courses))
   (else
    (begin
      (server-query-course junction courses walk can-cancel?)
      (list-ref courses (call/cc *entry-point*)))))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-query-drawing
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-query-drawing extra teleca)
  (server-query-drawing extra teleca)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-walk
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-walk character node)
  (server-walk character node)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-react
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-react character type)
  (server-react character type)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-dance
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-dance character type)
  (server-dance character type)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-freeze
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-freeze character type)
  (server-freeze character type)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-jump
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-jump character node)
  (server-jump character node)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-warp
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-warp character node)
  (server-warp character node)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-ghost-begin
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-ghost-begin character node)
  (server-ghost-begin character node)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-ghost-walk
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-ghost-walk character node remaining-step)
  (server-ghost-walk character node remaining-step)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-ghost-end
;; âRü[âïâoâbâNè╓Éöé≡î─é╤Åoé╖
(define (call-ghost-end character)
  (server-ghost-end character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-play-dice
;; â_âCâXé≡ô]é¬é╖
(define (call-play-dice count)
  (server-play-dice count)
  (call/cc *entry-point*)
  ;;(call-prompt (list player) "<p>Test</p>")
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-show-spell-card
;; ô┴ÄΩâJü[âhé≡ò\Ī
(define (call-show-spell-card card)
  (server-show-spell-card card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-hide-spell-card
;; ô┴ÄΩâJü[âhò\Īé≡ÅIù╣
(define (call-hide-spell-card)
  (server-hide-spell-card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-show-movie-card
;; âÇü[ârü[âJü[âhé≡ò\Ī
(define (call-show-movie-card gold silver)
  (server-show-movie-card gold silver)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-hide-movie-card
;; âÇü[ârü[âJü[âhò\Īé≡ÅIù╣
(define (call-hide-movie-card)
  (server-hide-movie-card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-trade-spell
;; ïαîöâVâçâbâv
(define (call-trade-spell character)
  (server-trade-spell character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-trade-movie
;; â\âjâAâVâçâbâv
(define (call-trade-movie character)
  (server-trade-movie character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-trade-hands
;; âvâëâCâxü[âgâVâçâbâv
(define (call-trade-hands character master)
  (server-trade-hands character master)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-trade-with-collector
;; żÉ∞îNé╠âeâîâJöâéóĵéΦ
(define (call-trade-with-collector character)
  (server-trade-with-collector character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-enter-dungeon
;; â_âôâWâçâôé╔ôⁿéΘ
(define (call-enter-dungeon character)
  (server-enter-dungeon character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-exit-dungeon
;; â_âôâWâçâôé⌐éτÅoéΘ
(define (call-exit-dungeon character)
  (server-exit-dungeon character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-chest
;; 3ûçé╠Æåé⌐éτâJü[âhé≡êΩûçæIé╬é╣éΘ
(define (call-chest character type)
  ;; type
  ;;  0:é╚é±é┼éαéáéΦ
  ;;  1:â~â~âbâNé╚é╡
  ;;  2:ïαâJü[âhé╠é▌
  (server-chest character type)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-roulette
(define (call-roulette character)
  (server-roulette character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-duel
;; æ╬îê
(define (call-duel character opponent)
  (server-duel character opponent)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-show-left-duelist
;; æ╬îê
(define (call-show-left-duelist character)
  (server-show-left-duelist character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-show-right-duelist
;; æ╬îê
(define (call-show-right-duelist character)
  (server-show-right-duelist character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-play-movie
;; âÇü[ârü[Åπëf

(define (call-play-movie-aux gold silver first?)
  (server-play-movie gold silver first?)
  (call/cc *entry-point*)
  )

(define (call-play-movie gold silver first?)
  (if (< silver 0)
      (begin
        ;; û╩ô|é¡é│éóé╠é┼goldé═é▒é┐éτÅêù¥
        ;; (server-play-movieé╠ê°Éösilveré≡0ûóû₧é╔é╡é─éαû│Äïé│éΩéΘ)
        (call-play-movie-aux gold 0 first?)
        (call-play-movie-aux gold 1 first?)
        (call-play-movie-aux gold 2 first?)
        (call-play-movie-aux gold 3 first?)
        (call-play-movie-aux gold 4 first?)
        )
      (call-play-movie-aux gold silver first?))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-play-voice
(define (call-play-voice soundpath)
  (server-play-voice soundpath)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-play-se
(define (call-play-se sound-no loop?)
  (server-play-se sound-no loop?)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-stop-se
(define (call-stop-se sound-no)
  (server-stop-se sound-no)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; üuæ╝é╠âvâîâCâäü[üvé╠æIæ≡
(define (call-query-another-player)
  (server-query-another-player)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; âJü[âhé╠æIæ≡
(define (call-query-card character)
  (server-query-card character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ârâôâSâëâCâôé╠î≡è╖
(define (call-exchange-bingo-line character)
  (server-exchange-bingo-line character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; âXâyâïâJü[âhé╠î≡è╖
(define (call-exchange-spell-card character)
  (server-exchange-spell-card character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; é╡é╬é╡æ╥é┬
(define (call-wait-a-moment n)
  (server-wait-a-moment n)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ä√ôⁿé╠ò\Ī
(define (call-show-income n)
  (server-show-income n)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ôkòαâ{ü[âiâXé╠ò\Ī
(define (call-show-float-income bonus node)
  (server-show-float-income bonus node)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; âSü[âï
(define (call-finish character)
  (server-finish character)
  (call/cc *entry-point*)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-generate-movie-card
;; âÇü[ârü[âJü[âhé≡É╢ɼé╖éΘ
;; gold   -> gold-index
;; silver -> (gold-index . silver-index)
(define (call-generate-movie-card can-gold?)
  (server-generate-movie-card can-gold?)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-increment-bingo-item
;; ârâôâSâJü[âhé≡âvâëâX
(define (call-increment-bingo-item character gold silver)
  (server-increment-bingo-item character gold silver)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-decrement-bingo-item
;; ârâôâSâJü[âhé≡âvâëâX
(define (call-decrement-bingo-item character gold silver)
  (server-decrement-bingo-item character gold silver)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-generate-spell-card
;; ô┴ÄΩâJü[âhé≡É╢ɼé╖éΘ
(define (call-generate-spell-card category)
  (server-generate-spell-card category)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-generate-specified-spell-card
;; ô┴ÄΩâJü[âhé≡É╢ɼé╖éΘ
(define (call-generate-specified-spell-card name)
  (server-generate-specified-spell-card name)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-copy-spell-card
;; ô┴ÄΩâJü[âhé≡É╢ɼé╖éΘ
(define (call-copy-spell-card card)
  (server-copy-spell-card card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-remove-spell-card
;; ô┴ÄΩâJü[âhé≡öjë≤é╖éΘ
(define (call-remove-spell-card card)
  (server-remove-spell-card card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-gain-spell-card
;; ô┴ÄΩâJü[âhé≡ôⁿÄΦé╖éΘ
(define (call-gain-spell-card character card)
  (server-gain-spell-card character card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-pull-spell
;; ô┴ÄΩâJü[âhé⌐éτâXâyâïé≡ê°é½Åoé╖
(define (call-pull-spell card)
  (server-pull-spell card)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-count-silver-cards
;; âVâïâoü[âJü[âhé╠âJâEâôâg
(define (call-count-silver-cards character)
  (server-count-silver-cards character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-count-panic-cards
;; âpâjâbâNâJü[âhé╠âJâEâôâg
(define (call-count-panic-cards character)
  (server-count-panic-cards character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-count-bingo-lines
;; ârâôâSâëâCâôé╠âJâEâôâg
(define (call-count-bingo-lines character)
  (server-count-bingo-lines character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-count-mystery-cards
;; â~âXâeâèü[âJü[âhé╠âJâEâôâg
(define (call-count-mystery-cards character)
  (server-count-mystery-cards character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-check-bingo-row
;; ârâôâSìsé╠â`âFâbâN
(define (call-check-bingo-row character n)
  (server-check-bingo-row character n)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-check-bingo-column
;; ârâôâSù±é╠â`âFâbâN
(define (call-check-bingo-column character n)
  (server-check-bingo-column character n)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-check-bingo-perfect
;; ârâôâSù±é╠â`âFâbâN
(define (call-check-bingo-perfect character)
  (server-check-bingo-perfect character)
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-check-finished
;; âSü[âïé╡é╜é⌐é╟éñé⌐â`âFâbâN
(define (call-check-finished character)
  (server-check-finished character)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-get-rank
(define (call-get-rank character moved)
  (server-get-rank character moved)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-get-movie-price
(define (call-get-movie-price purchase? gold silver)
  (server-get-movie-price purchase? gold silver)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-get-movie-priced-text
(define (call-get-movie-priced-text purchase? gold silver)
  (server-get-movie-priced-text purchase? gold silver)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-get-spell-priced-text
(define (call-get-spell-priced-text purchase? spell)
  (server-get-spell-priced-text purchase? spell)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-run-rotater
(define (call-run-rotater)
  (server-run-rotater)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; call-lap-effect
(define (call-lap-effect character bonus adjustment)
  (server-lap-effect character bonus adjustment)
  )