9 Beispiele


9.1 Wasserfall Animation
VAR n.l

WHILE env_location.s = "Am Wasserfall.loc"
  image_drawanim "Wasserfall.pcx", n.l, 122, 43, 1
  WAIT
  n.l = n.l + 1
  IF n.l >= 12
    n.l = 0
  ENDIF
WEND

EXIT
Datei: "Wasserfall.script"


9.2 Stock auf dem Boden zum Aufheben
name = "wunderschönes Stöckchen"
a_nimm = "stock_aktionen.script"
a_schauan = "stock_aktionen.script"
image_inventory = "stock.pcx"
Datei: "stock.obj"



GLOBAL stock_aufgehoben.b

SELECT env_object_action.s
  CASE "a_schauan"
    object_say "Guybrush","Was für ein wunderschöner Stock !"
    CALL "guybrush_laber_anim.script"

  CASE "a_nimm"
    stock_aufgehoben.b = True
    object_remove "Stock"
    image_remove "stockimwald.pcx"
    object_inventory_store "Stock"
    object_say "Guybrush","So einen Stock wollte ich schon immer mal haben !"
    CALL "guybrush_laber_anim.script"

  DEFAULT
    ERROR "Unbekannte Aktion !!!"
ENDSELECT

EXIT
Datei: "stock_aktionen.script"



GLOBAL stock_aufgehoben.b

...

IF stock_aufgehoben.b = False
  object_set "Stock", 231, 122, 30, 20
  image_draw "stockimwald.pcx", 231, 122
ENDIF

...

EXIT
Datei: "Im Wald Startup.script"