fr-06: Black 2000 - the script

script.txt

; startup info
set tune to "b2k/pnq-bl2k.it"
set minxres to 0
set minyres to 0
set prefxres to 640
set prefyres to 480
set prefbpp to 32

; effektinstanzen

effect fred1 is fred
effect fred2 is fred
effect fred3 is fred

effect fs3 is fred
effect fs4 is fred
effect fs5 is fred
effect fs6 is fred
effect fs7 is fred
effect fs8 is fred

effect fa1 is fred
effect fa2 is fred
effect fa3 is fred
effect fa4 is fred

effect rinne is fred

effect fc1 is fred

effect fd1 is fred

effect fk1 is fred
effect fk2 is fred

effect dbox is designbox
effect dlines is designlines
effect copy is copier
effect blk is fade
effect blk2 is fade
effect yo is yodawriter
effect yo2 is yodawriter
effect blur is motionblur
effect greets is multitext
effect endtext is multitext

effect clr is clear
effect yow is yodawriter
effect cra is crashzoom
effect img2 is image

rendertarget infoscreen 100% 100%
rendertarget blurout 100% 100%

viewport isc 0 0 100% 100% target infoscreen
viewport mvp 0x 120y 640x 360y target infoscreen

viewport fredrect 20x 230y 128x 128y target primary
viewport blr 0 0 100% 100% target blurout

viewport fs3r  0% 40% 18% 20% target primary
viewport fs4r 17% 40% 18% 20% target primary
viewport fs5r 34% 40% 18% 20% target primary
viewport fs6r 50% 40% 18% 20% target primary
viewport fs7r 67% 40% 18% 20% target primary
viewport fs8r 84% 40% 16% 20% target primary


; und hier kommt die demo.

; ------------------ rumflashende Lautsprecher

effect ispeaker is image


macro spkrflash
  fade ispeaker.zoom from 1.5 to 1 for 0.5 seconds
  and fade ispeaker.fade from 1 to 0 for 0.5 seconds
endmacro

macro spkrpattern runs for 1 orders
  start ispeaker z 10000
  at row 0x00 set ispeaker.x to 60x
  and set ispeaker.y to 420y
  and set ispeaker.w to -64x
  and set ispeaker.h to 64y
  and play spkrflash
  and wait for 12 rows
  then set ispeaker.x to 120x
  and set ispeaker.w to 64x
  and play spkrflash

  at row 0x20 set ispeaker.x to 60x
  and set ispeaker.w to -64x
  and play spkrflash
  and wait for 12 rows
  then set ispeaker.x to 120x
  and set ispeaker.w to 64x
  and play spkrflash

  at row 0x40 set ispeaker.x to 60x
  and set ispeaker.w to -64x
  and play spkrflash
  and wait for 12 rows
  then set ispeaker.x to 120x
  and set ispeaker.w to 64x
  and play spkrflash

  at row 0x60 set ispeaker.x to 60x
  and set ispeaker.w to -64x
  and play spkrflash
  and wait for 12 rows
  then set ispeaker.x to 120x
  and set ispeaker.w to 64x
  and play spkrflash

  then stop ispeaker
endmacro



; ------ eins zwei drei - farbrauschmann

effect box123 is designbox
effect f123_1 is fred
effect f123_2 is fred
effect f123_3 is fred
effect i123_1 is image
effect i123_2 is image
effect i123_3 is image

viewport r123_1 150x 30y 128x 128y target primary
viewport r123_2 300x 30y 128x 128y target primary
viewport r123_3 450x 30y 128x 128y target primary

macro einszweidrei runs for 1 orders
  wait until row 0x40
  then start box123 z 10000
    and set box123.x to 214x
	and set box123.y to 94y
	and set box123.xsize to 128x
	and set box123.ysize to 128y
	and set box123.fade to 1
	and set box123.thick to 3
  then start f123_1 vp r123_1
  and start i123_1

  and wait until row 0x46
  then stop f123_1
	and stop i123_1
    and start f123_2 vp r123_2
	and start i123_2
    and set box123.x to 364x

  and wait until row 0x4c
  then stop f123_2
	and stop i123_2
    and start f123_3 vp r123_3
	and start i123_3
    and set box123.x to 514x

  and wait until row 0x52
  then stop f123_3
  and stop i123_3
  and stop box123
endmacro


; ------------------ trompetengelöt für den Weltfrieden

effect itromp is image

macro trompete
  start itromp z 10000
  and set itromp.zoom to 100%
  and set itromp.fade to 100%
  and wait for 0.25 seconds
  then fade itromp.fade from 100% to 0% curve 5 for 0.25 seconds
  and fade itromp.zoom from 100% to 200% curve 0.2 for 0.25 seconds
  then stop itromp
endmacro

macro trompetekurz
  start itromp z 10000
  then fade itromp.fade from 100% to 0% curve 5 for 0.1 seconds
  and fade itromp.zoom from 100% to 200% curve 0.2 for 0.1 seconds
  then stop itromp
endmacro

macro trompetenpattern runs for 1 orders
  set itromp.y to 50%
    and set itromp.w to 128x
    and set itromp.h to 128y
  and set itromp.x to 67%
    and play trompete
  at row 0x18 set itromp.x to 50%
    and play trompete
  at row 0x28 set itromp.x to 33%
    and play trompete
  at row 0x40 set itromp.x to 67%
    and play trompete
  at row 0x58 set itromp.x to 50%
    and play trompete
  at row 0x68 set itromp.x to 33%
    and play trompete
endmacro



; ----------------- usw





macro ficken runs for 2 orders
	wait for 8 rows
	then stop fred1
		and start fred3 z 10
	at row 14 stop fred3
		and start fred1 z 10
	at row 24 stop fred1
		and start fred3 z 10
	at row 40 stop fred3
		and start fred1 z 10
	at row 46 stop fred1
		and start fred3 z 10
	at row 56 stop fred3
		and start fred1 z 10
	at row 72 stop fred1
		and start fred3 z 10
	at row 78 stop fred3
		and start fred1 z 10
	at row 88 stop fred1
		and start fred3 z 10
	at row 104 stop fred3
		and start fred1 z 10
	at row 110 stop fred1
		and start fred3 z 10
	at row 120 stop fred3
		and start fred1 z 10
	at row 126 stop fred1
		and start fred3 z 10
	and wait for 0.2 seconds
	at row 8 stop fred3
		and start fred1 z 10
	at row 14 stop fred1
		and start fred3 z 10
	at row 24 stop fred3
		and start fred1 z 10
	at row 40 stop fred1
		and start fred3 z 10
	at row 46 stop fred3
		and start fred1 z 10
	at row 56 stop fred1
		and start fred3 z 10
	at row 72 stop fred3
		and start fred1 z 10
	at row 78 stop fred1
		and start fred3 z 10
	at row 88 stop fred3
		and start fred1 z 10
	at row 104 stop fred1
		and start fred3 z 10
	at row 110 stop fred3
		and start fred1 z 10
	at row 120 stop fred1
		and start fred3 z 10
	at row 126 stop fred3
		and start fred1 z 10
endmacro


macro ficken2 runs for 2 orders
	wait for 8 rows
	then stop fa1
		and start fa2 z 10 vp isc
	at row 14 stop fa2
		and start fa3 z 10 vp isc
	at row 24 stop fa3
		and start fa4 z 10 vp isc
	at row 40 stop fa4
		and start fa1 z 10 vp isc
	at row 46 stop fa1
		and start fa2 z 10 vp isc
	at row 56 stop fa2
		and start fa3 z 10 vp isc
	at row 72 stop fa3
		and start fa4 z 10 vp isc
	at row 78 stop fa4
		and start fa1 z 10 vp isc
	at row 88 stop fa1
		and start fa2 z 10 vp isc
	at row 104 stop fa2
		and start fa3 z 10 vp isc
	at row 110 stop fa3
		and start fa4 z 10 vp isc
	at row 120 stop fa4
		and start fa1 z 10 vp isc
	at row 126 stop fa1
		and start fa2 z 10 vp isc
	and wait for 0.2 seconds
	at row 8 stop fa2
		and start fa3 z 10 vp isc
	at row 14 stop fa3
		and start fa4 z 10 vp isc
	at row 24 stop fa4
		and start fa1 z 10 vp isc
	at row 40 stop fa1
		and start fa2 z 10 vp isc
	at row 46 stop fa2
		and start fa3 z 10 vp isc
	at row 56 stop fa3
		and start fa4 z 10 vp isc
	at row 72 stop fa4
		and start fa1 z 10 vp isc
	at row 78 stop fa1
		and start fa2 z 10 vp isc
	at row 88 stop fa2
		and start fa3 z 10 vp isc
	at row 104 stop fa3
		and start fa2 z 10 vp isc
	at row 110 stop fa2
		and start fa4 z 10 vp isc
	at row 120 stop fa4
		and start fa3 z 10 vp isc
	at row 126 stop fa3
		and start fa1 z 10 vp isc
endmacro


macro ficken3 runs for 2 orders
	wait for 8 rows
	then stop fk1
		and start fk2 z 10 vp isc
	at row 14 stop fk2
		and start fk1 z 10 vp isc
	at row 24 stop fk1
		and start fk2 z 10 vp isc
	at row 40 stop fk2
		and start fk1 z 10 vp isc
	at row 46 stop fk1
		and start fk2 z 10 vp isc
	at row 56 stop fk2
		and start fk1 z 10 vp isc
	at row 72 stop fk1
		and start fk2 z 10 vp isc
	at row 78 stop fk2
		and start fk1 z 10 vp isc
	at row 88 stop fk1
		and start fk2 z 10 vp isc
	at row 104 stop fk2
		and start fk1 z 10 vp isc
	at row 110 stop fk1
		and start fk2 z 10 vp isc
	at row 120 stop fk2
		and start fk1 z 10 vp isc
	at row 126 stop fk1
		and start fk2 z 10 vp isc
	and wait for 0.2 seconds
	at row 8 stop fk2
		and start fk1 z 10 vp isc
	at row 14 stop fk1
		and start fk2 z 10 vp isc
	at row 24 stop fk2
		and start fk1 z 10 vp isc
	at row 40 stop fk1
		and start fk2 z 10 vp isc
	at row 46 stop fk2
		and start fk1 z 10 vp isc
	at row 56 stop fk1
		and start fk2 z 10 vp isc
	at row 72 stop fk2
		and start fk1 z 10 vp isc
	at row 78 stop fk1
		and start fk2 z 10 vp isc
	at row 88 stop fk2
		and start fk1 z 10 vp isc
	at row 104 stop fk1
		and start fk2 z 10 vp isc
	at row 110 stop fk2
		and start fk1 z 10 vp isc
	at row 120 stop fk1
		and start fk2 z 10 vp isc
	at row 126 stop fk2
		and start fk1 z 10 vp isc
endmacro


demo runs until order 0x1d row 0x40

first set cra.steps to 5

  and set greets.font   to arial.fnt
  and set greets.count  to 11
  and set greets.msg1   to "Greetings"
  and set greets.msg2   to " "
  and set greets.msg3   to "SCALA Family"
  and set greets.msg4   to "Haujobb"
  and set greets.msg5   to "Freestyle"
  and set greets.msg6   to "Smash Designs"
  and set greets.msg7   to "Icebird"
  and set greets.msg8   to "3State"
  and set greets.msg9   to "Aardbei"
  and set greets.msg10   to "Kolor (aber nur Shiva und Noize)"
  and set greets.msg11   to "and Otis, our biggest fan"
  and set greets.time   to 0

  and set endtext.font   to arial.fnt
  and set endtext.count  to 11
  and set endtext.msg1   to "Farb-Rausch"
  and set endtext.msg2   to "FR-06: Black 2000 (final)"
  and set endtext.msg3   to ""
  and set endtext.msg4   to "fg th fb kp lr"
  and set endtext.msg5   to ""
  and set endtext.msg6   to "5 people again, 1 day again"
  and set endtext.msg7   to "doing the dau-jobb"
  and set endtext.msg8   to "(fresst nelken!)"
  and set endtext.msg9   to ""
  and set endtext.msg10  to "Farb-Rausch"
  and set endtext.msg11  to "Was Ihr wollt, wird serviert"
  and set endtext.time   to 0

  and set fred1.scene to "b2k\s.frs"
    and set fred1.camera to 0
  and set fred2.scene to "b2k\exp2.frs"
  and set fred3.scene to "b2k\s.frs"
    and set fred3.camera to 1

    and set fs3.scene to "b2k/s.frs"
      and set fs3.camera to 2
    and set fs4.scene to "b2k/s.frs"
      and set fs4.camera to 3
    and set fs5.scene to "b2k/s.frs"
      and set fs5.camera to 4
    and set fs6.scene to "b2k/s.frs"
      and set fs6.camera to 5
    and set fs7.scene to "b2k/s.frs"
      and set fs7.camera to 6
    and set fs8.scene to "b2k/s.frs"
      and set fs8.camera to 7

    and set fa1.scene to "b2k/a.frs"
      and set fa1.camera to 0
    and set fa2.scene to "b2k/a.frs"
      and set fa2.camera to 1
    and set fa3.scene to "b2k/a.frs"
      and set fa3.camera to 2
    and set fa4.scene to "b2k/a.frs"
      and set fa4.camera to 3

	and set fc1.scene to "b2k/c1.frs"
	and set fd1.scene to "b2k/d1.frs"

	and set fk1.scene to "b2k/stachel.frs"
	and set fk2.scene to "b2k/stretch.frs"

	and set rinne.scene to "b2k/rinne.frs"

	and set yo.font to arial.fnt
	and set yo.mode to spray
	and set yo.text to "farb-rausch 06"
	and set yo.xpos to 220x
	and set yo.ypos to 140y
	and set yo2.font to arial.fnt
	and set yo2.mode to spray
	and set yo2.text to "black 2000"
	and set yo2.xpos to 100x
	and set yo2.ypos to 300y
	and set blk.fade to 1
	and set blk.color to 0


	; th sein designkram
	and set ispeaker.image to "b2k/ispeaker.bmp"
	  and set ispeaker.opaque to 0
	and set f123_1.scene to "b2k/klein1.frs"
	  and set f123_1.clear to 0
	and set f123_2.scene to "b2k/klein2.frs"
	  and set f123_2.clear to 0
	and set f123_3.scene to "b2k/klein3.frs"
	  and set f123_3.clear to 0
	and set i123_1.image to "b2k/i_eins.bmp"
	  and set i123_1.opaque to 0
	  and set i123_1.x to 214x
	  and set i123_1.y to 170y
	  and set i123_1.w to 128x
	  and set i123_1.h to 16y
	and set i123_2.image to "b2k/i_zwei.bmp"
	  and set i123_2.opaque to 0
	  and set i123_2.x to 364x
	  and set i123_2.y to 170y
	  and set i123_2.w to 128x
	  and set i123_2.h to 16y
	and set i123_3.image to "b2k/i_drei.bmp"
	  and set i123_3.opaque to 0
      and set i123_3.x to 514x
	  and set i123_3.y to 170y
	  and set i123_3.w to 128x
	  and set i123_3.h to 16y
	and set itromp.image to "b2k/itromp.bmp"

	and set blur.half-life to 0.25
  
	and set ims.amplify to 250%


; FAKE-INFOSCREEN

; DESIGNEFFEKTE

at order 0x00 play spkrpattern times 14
at order 0x14 play spkrpattern times 8
at order 0x04 play einszweidrei times 12
at order 0x14 play einszweidrei times 8

at order 0x13 row 0x60 set itromp.y to 50%
  and fade itromp.angle from 0 to 6000 for 8 orders
  and set itromp.w to 48x
  and set itromp.h to 48y
  and set itromp.x to 10%
  and play trompetekurz
at order 0x13 row 0x64 set itromp.x to 20%
  and set itromp.w to 58x
  and set itromp.h to 58y
  and play trompetekurz
at order 0x13 row 0x68 set itromp.x to 30%
  and set itromp.w to 68x
  and set itromp.h to 68y
  and play trompetekurz
at order 0x13 row 0x6c set itromp.x to 40%
  and set itromp.w to 78x
  and set itromp.h to 78y
  and play trompetekurz
at order 0x13 row 0x70 set itromp.x to 50%
  and set itromp.w to 88x
  and set itromp.h to 88y
  and play trompetekurz
at order 0x13 row 0x74 set itromp.x to 60%
  and set itromp.w to 98x
  and set itromp.h to 98y
  and play trompetekurz
at order 0x13 row 0x78 set itromp.x to 70%
  and set itromp.w to 108x
  and set itromp.h to 108y
  and play trompetekurz
at order 0x13 row 0x7c set itromp.x to 80%
  and set itromp.w to 118x
  and set itromp.h to 118y
  and play trompetekurz


at order 0x14 play trompetenpattern times 8




;ABLAUF

at order 0x00 start fred1 z 1
	and start dbox z 4
		and set dbox.x to 84x
		and set dbox.y to 294y
		and set dbox.xsize to 128x
		and set dbox.ysize to 128y
		and set dbox.fade to 0
		and set dbox.thick to 5
	and start yo z 3001
	and start blk z 1000
	and set blk.fade to 1

at order 0x01 start yo2 z 3002

at order 0x02 fade blk.fade from 1 to 0 for 1 orders
  and wait for 64 rows
  then start dlines z 3
  and set dlines.x1 to 100%
  and set dlines.y1 to 294y
  and set dlines.x2 to 148x
  and set dlines.y2 to 294y
  and set dlines.thick to 3
  and fade dlines.length from 0.0 to 1.0 until order 0x03


at order 0x03 fade dbox.fade from 0 to 1 for 3 rows
	then start fred2 z 5 vp fredrect
		and set fred2.clear to 0

	and set yo.mode to smooth
	and set yo2.mode to smooth

at order 0x04 set yo.text to "fg.code"
	and set yo.x to 30%
	and set yo.y to 80%
	and play ficken times 2
at order 0x04 row 0x08 stop fred2
	and stop dlines
	and stop dbox
at order 0x05 set yo2.text to "fb.code.graphics"
	and set yo2.x to 40%
	and set yo2.y to 90%

at order 0x06 set yo.text to "th.code.design"
    and start fs3 vp fs3r  z 12
		and set fs3.clear to 0
	and wait for 16 rows
    then start fs4 vp fs4r z 12
		and set fs4.clear to 0
	and wait for 16 rows
    then start fs5 vp fs5r z 12
		and set fs5.clear to 0
	and wait for 16 rows
    then start fs6 vp fs6r z 12
		and set fs6.clear to 0
	and wait for 16 rows
    then start fs7 vp fs7r z 12
		and set fs7.clear to 0
	and wait for 16 rows
    then start fs8 vp fs8r z 12
		and set fs8.clear to 0
	and wait for 16 rows

at order 0x07 set yo2.text to "lr.music"


; ab hier: a-szenen

at order 0x08 set yo.text to "kp.graphics"

	and stop fred1
	and stop fs3
	and stop fs4
	and stop fs5
	and stop fs6
	and stop fs7
	and stop fs8
	and start fa1 z 10 vp isc
	and play ficken2 times 2
	and set copy.source to infoscreen
	and start copy z 20


at order 0x09 set yo2.text to "ds.sitting[around]"
at order 0x0a set yo.text to "pc.demo"
  and start blur z 15 vp blr
	and set blur.source to infoscreen
	and set copy.source to blurout

at order 0x0b set yo2.text to "fr.black[2k]f"

at order 0x0c stop fa1
  and stop blur
  and stop copy
  and start rinne z 10
  and set rinne.speed to 0.9

at order 0x0f row 0x60 set blk.color to 0xffffff
  and fade blk.fade from 0 to 1 until order 0x10

at order 0x10 stop rinne
  and start fc1 z 10
  and fade blk.fade from 1 to 0 for 0.25 seconds
  then stop blk

  and start greets z 20
  and fade greets.time from 0 to 1 until order 0x14

at order 0x12 stop fc1
  and start fd1 z 10
  and set fd1.speed to 0.1

at order 0x14 stop fd1
  and stop greets
  and start fk1 z 10 vp isc
  and play ficken3 times 4
  and start cra z 12
  and set cra.torkel to 0
  and set cra.maxzoom to 0
  and set cra.source to infoscreen

at order 0x16 fade cra.maxzoom from 0 to 0.3 until order 0x17 row 0x60
  then fade cra.maxzoom from 0.3 to 0 until order 0x18

  then fade cra.farbrausch from 0 to 40% until order 0x1c
  and fade cra.light from 1 to 1.5 until order 0x1c

	and start fs3 vp fs3r z 12
		and set fs3.clear to 0
	and wait for 16 rows
    then start fs4 vp fs4r z 12
		and set fs4.clear to 0
	and wait for 16 rows
    then start fs5 vp fs5r z 12
		and set fs5.clear to 0
	and wait for 16 rows
    then start fs6 vp fs6r z 12
		and set fs6.clear to 0
	and wait for 16 rows
    then start fs7 vp fs7r z 12
		and set fs7.clear to 0
	and wait for 16 rows
    then start fs8 vp fs8r z 12
		and set fs8.clear to 0


at order 0x1c start fred1 z 10
  and stop fk1
  and stop fs3
  and stop fs4
  and stop fs5
  and stop fs6
  and stop fs7
  and stop fs8
  and stop cra
  and start blk2 z 12 vp isc
  and set blk2.fade to 1
  and set blk2.color to 0
  and start endtext z 20 vp isc
  and start cra z 30 vp blr
  and set cra.maxzoom to 0.01
  and set cra.torkel to 20
  and set cra.farbrausch to 0
  and set cra.light to 1
  and set img2.image to "rtt:blurout"
  and set img2.opaque to 0
  and start img2
  and fade endtext.time from 0 to 1 until order 0x1c row 0x60

  at order 0x1d start blk
  and set blk.color to 0x000000
  and fade blk.fade from 0 to 1 until row 0x38

  then stop endtext
  and stop fred1

enddemo