chase.clj

(dialog chase_main "The chase" -1 -1 600 400
    (pushButton pbStartGame "Start game" 0 0 450 20)
    (pushButton pbIntro "Intro" 0 20 450 20)
    (tabs 0 50 450 330
        (tab tabPlayers "Players"
            (gridLayout
                (1 1 (lineEdit leP1 "Pl1"))
                (1 2 (lineEdit leP2 "Pl2"))
                (1 3 (lineEdit leP1 "Pl3"))
                (1 4 (lineEdit leP2 "Pl4"))
                (2 1 (pushButton pbP1 "Let go Pl1"))
                (2 2 (pushButton pbP2 "Let go Pl2"))
                (2 3 (pushButton pbP1 "Let go Pl3"))
                (2 4 (pushButton pbP2 "Let go Pl4"))))
        (tab tabQuickFire "Quick fire"
            (gridLayout
                (1 1 (pushButton pbBlitz "Start blitz"))
                (1 2 (label pbBlitzQuestion "Blitz question"))
                ))))

(defn chase_qf_start
    (let [ch_qf_endime (nth calc (+ ticks 60000)]
        (chase_qf_question)
        (timer 1000 (chase_qf_timer)))))

(defn pbBlitzClick
    (let [ch_qf_corans 0]
        (msg ch_chan "14,10[0 1:00 0,2 0 WMR 12] 0play ch_timer60.mp3")
        (splay "ch_timer.mp3")
        (timer 1000 (chase_qf_start))
        (timer 1000 (set-prop pbBlitz enabled false))))

(bind-signal pbBlitz click pbBlitzClick)

(defn chase_resetfinal
    (let [ch_fplcor $1 ch_fchcor 0 ch_chaser_time 120000]
    (if (= $1 0)
        (msg ch_chan "1,1 $+ $chr(160) $+ 1,11 0  $+ 1,1 $+ $chr(160) $+  0play ch_fstpos.wav")
        (msg ch_chan "$chase_showfinaltable $+  0play ch_fstpos.wav"))
    (splay "ch_fstpos.wav")))