example-block-script.scm

; If you look at this you'll get wrecked.
(register-event concrete-block event-type-player-look
  (lambda (ev)
    (cause-effect
      #:type 'explosion
      #:at (event-triggering-object ev)
      #:radius 100)))

example-gui-script.scm

; Set up a dialogue box that will pop up congratulating you every
; time you level up.
(define congrats-dialogue 
  (dialogue
    #:capture-focus #t
    #:modal #t))
(register-event congrats-dialogue event-player-level-up
  (lambda (ev this)
    (add-textbox this
      (textbox (format "Congratulations on reaching level %"
        (lookup 'level ev))))
    (clear-buttons this)
    (add-button this #:label "OK"
      (lambda (click)
        (close-dialogue this)))
    (show-dialogue this)))