;=======================================================================
;
;	staatsfreund heaven-ass-and-thread [tm] scripting lanuage
;
;========-===-==--=----------------- --- -- -  -     -

		bpm 125.0
	;	seeksong 78.2		; raus aus den federn
	;	seeksong 86.2		; durchmess
	;	seeksong 109.3		; refrain1

;----- --- -- -  -     -

		addtex TITEL_SF		{gfx/titel_staatsfreund} 1
		addtex TITEL_DEUTSCH	{gfx/titel_deutsch} 1
		addtex TITEL_GRUPPEN	{gfx/titel_groups} 1
		addtex INTRO_HAUS	{gfx/intro_haus} 1
		addtex INTRO_STRASSE	{gfx/intro_strasse} 1
		addtex INTRO_FESTNAHME	{gfx/intro_festnahme} 1
		addtex INTRO_OBDACH	{gfx/intro_obdach} 1

		addtex TXT_11	{txt/11_out_of_the_feathers} 1
		addtex TXT_12	{txt/12_get_some_fresh_air} 1
		addtex TXT_13	{txt/13_roam_the_nice_forests} 1
		addtex TXT_14	{txt/14_tails_up_in_the_air} 1
		addtex TXT_21	{txt/21_take_your_freedom} 1
		addtex TXT_22	{txt/22_dont_hang_around} 1
		addtex TXT_23	{txt/23_stay_away_from_corners} 1
		addtex TXT_24	{txt/24_dont_talk_rubbish} 1
		addtex TXT_31	{txt/31_steel_your_body} 1
		addtex TXT_32	{txt/32_play_an_instrument} 1
		addtex TXT_33	{txt/33_study_the_fine_arts} 1
		addtex TXT_34	{txt/34_wipe_your_bum} 1
		addtex TXT_41	{txt/41_protect_your_loved_one} 1
		addtex TXT_42	{txt/42_take_her_to_the_altar} 1
		addtex TXT_43	{txt/43_produce_new_citizens} 1
		addtex TXT_44	{txt/44_pay_my_pension} 1
		addtex TXT_51	{txt/51_dont_be_a_pothead} 1
		addtex TXT_52	{txt/52_attend_cancer_precaution} 1
		addtex TXT_53	{txt/53_how_about_vegetables} 1
		addtex TXT_54	{txt/54_and_fish_on_fridays} 1
		addtex TXT_61	{txt/61_respect_minorities} 1
		addtex TXT_62	{txt/62_help_the_police} 1
		addtex TXT_63	{txt/63_register_place_of_residence} 1
		addtex TXT_64	{txt/64_everything_is_fine} 1
		addtex TXT_71	{txt/71_pay_your_taxes} 1
		addtex TXT_72	{txt/72_go_to_the_polls} 1
		addtex TXT_73	{txt/73_help_your_neighbour} 1
		addtex TXT_74	{txt/74_dont_begrudge_his_car_to_him} 1
		addtex TXT_81	{txt/81_dont_dream_the_days_away} 1

		addtex tex_outofthefeathers {gfx/text_outofthefeathers} 1
		addtex tex_paymypension {gfx/text_paymypension} 1

		addtex tex_spritze {gfx/spritze} 1
		addtex tex_haschverbot {gfx/haschen-verbot} 1
		addtex tex_krebszettel {gfx/krebszettel} 1
		addtex tex_fisch {gfx/fisch} 1
		addtex tex_fischpupl {gfx/fischpupl} 1
		addtex tex_fischpupr {gfx/fischpupr} 1

                addtex tex_maedel {gfx/maedel} 1
                addtex tex_mackermaedel {gfx/macker_maedel} 1
                addtex tex_mackermaedel_heirat {gfx/macker_maedel_heirat} 1
                addtex tex_stern {gfx/stern} 1

		addtex tex_wecker {gfx/wecker} 1
		addtex tex_sonne {gfx/sonne_ohne_strahlen} 1
		addtex tex_sonnenkranz1 {gfx/sonnenkranz} 1
		addtex tex_sonnenkranz2 {gfx/sonnenkranz2} 1

		addtex tex_wolke1 {gfx/wolke_eins} 1
		addtex tex_wolke2 {gfx/wolke_zwei} 1
		addtex tex_wolke3 {gfx/wolke_drei} 1

		addtex tex_wald {gfx/schoenerwald} 1
		addtex tex_pfeil {gfx/pfeil} 1
		addtex tex_reh {gfx/reh_neu} 1
		addtex tex_brett {gfx/brett} 1

		addtex tex_tacho {gfx/tacho} 1
		addtex tex_nadel {gfx/nadel} 1

		addtex tex_adler {gfx/adler} 1
		addtex tex_altar {gfx/altar} 1
		addtex tex_rentenformel {gfx/rentenformel} 1
		addtex tex_neuer_buerger {gfx/neuer_buerger} 1
		addtex tex_kunstkoerper {gfx/kunstkoerper} 1

		addtex tex_koerper {gfx/staehle_deinen_koerper} 1

		addtex tex_alibot {gfx/comical-ali-unten} 1
		addtex tex_alitop {gfx/comical-ali-oben} 1
		addtex tex_lungern {gfx/lungern} 1
		addtex tex_lungern_mask {gfx/lungern_mask} 1

	        addtex tex_pacscreen {gfx/pacman-screen} 1
        	addtex tex_pachead {gfx/pacman-head} 1
	        addtex tex_pacstreich {gfx/durchstreich} 1

		addtex tex_tusse {gfx/staehle_deinen_koerper} 1
		addtex tex_oberarm {gfx/oberarm} 1
		addtex tex_unterarm {gfx/unterarm} 1

		addtex tex_dbass {gfx/dblbass} 1
		addtex tex_keithbaby {gfx/keithbaby} 1

		addtex CREDITS {gfx/credits} 1
		addtex GREETINGS {gfx/greetings} 1

		addtex tex_kopf {gfx/kopf} 1
		addtex tex_kopfschale {gfx/kopfschale} 1
		addtex tex_klobuerste {gfx/klobuerste} 1


		addtex tex_10e {gfx/euro10} 1 
		addtex tex_20e {gfx/euro20} 1
		addtex tex_100e {gfx/euro100} 1

		addtex tex_muenze {gfx/muenze} 1
		addtex tex_wallet {gfx/wallet} 1
		addtex tex_wahl {gfx/geh_zur_wahl} 1
		addtex tex_nachbar {gfx/nachbar} 1
		addtex tex_benz {gfx/benz} 1
		addtex tex_thumbsup {gfx/thumbsup} 1

		addtex tex_minderheiten {gfx/minderheiten} 1

		addtex tex_schily {gfx/schily-ohne-arm} 1
		addtex tex_schily_arm {gfx/schily-arm} 1
		
		addtex tex_punk {gfx/punk} 1

		addtex tex_plan {gfx/stadtplan} 1
		addtex tex_kringel {gfx/kringel} 1

		addtex tex_alles {gfx/alles_wird_gut} 1


		loadtex

;----- --- -- -  -     -

		; world
		insert world World 0 0
		setrgb world 0.0 0.0 0.0

			; untertitel
			insert omu Surface 1 0
			setopacity * 0.0
			setsize * 0.6 0.6
			setpos * 0.5 0.8
			sinexq * 3.8 0.012
			sinexq * -1.0 0.0
			sineyq * 4.1 0.013
			sineyq * -1.0 0.0
			widthq * 3.0 0.63
			widthq * 3.0 0.6
			widthq * -2.0 0.0


;----------ingotest---------------
;		seeksong 245.0
;@2.5	gosub	zahle_steuern		; dauer: 8
;@4.0 	gosub	geh_wahl
;@4.0 	gosub	hilf_nachbar
;@8.0 	gosub	goenne_benz
;		return

;	seeksong 232.3
;	gosub achte_minderheiten
;	waitabs 8.0

;	gosub hilf_polizei
;	waitabs 8.0

;	gosub melde_wohnsitz
;	waitabs 8.0

;	gosub alles_wird_gut
;	waitabs 8.0

;	gosub traeum_nicht
;	waitabs 100.0
;	return

	;	seeksong 78.2			; raus aus den federn
	;	gosub	raus_aus_den_federn	; dauer:8
	;	waitabs	8.0
	;	gosub	an_die_luft		; dauer:8
	;	waitabs	16.0
	;	gosub	durchstreif_waelder	; dauer:16
	;	waitabs 24.0
	;	gosub	nimm_freiheit		; dauer:8
	;	waitabs 32.0





	;seeksong 139.3
	;gosub staehle_koerper
	;waitabs 16.0
	;gosub studier_kunst
	;waitabs 32.0

        ;seeksong 155.0
        ;gosub beschuetz_maedel
        ;waitabs 16.0
        ;gosub zeuge_buerger
        ;waitabs 32.0

	;seeksong 109.3		; refrain1
	;gosub refrain1


	;waitabs 16.0
	;gosub durchstreif_waelder
	;waitabs 32.0
	;seeksong 170.9		; refrain2
	;gosub refrain2
	;waitabs 96.0


		gosub	intro			; dauer: 164
		waitabs 164.0

		gosub	raus_aus_den_federn	; dauer:8
		waitabs	172.0
		gosub	an_die_luft		; dauer:8
		waitabs	180.0
		gosub	durchstreif_waelder	; dauer:16
		waitabs 194.0
		gosub	nimm_freiheit		; dauer:8
		waitabs 204.0
		gosub	lunger_nicht		; dauer:8
		waitabs 212.0
		gosub	meide_dunkle_ecken	; dauer:8
		waitabs 218.0
		gosub	red_keinen_stuss	; dauer:8
		waitabs 228.0

		gosub	refrain1		; dauer: 64
		waitabs 292.0

		gosub	staehle_koerper		; dauer: 16
		waitabs 308.0
		gosub	studier_kunst		; dauer: 16
		waitabs 324.0

		gosub	beschuetz_maedel	; dauer: 16
		waitabs 340.0
		gosub	zeuge_buerger		; dauer: 8
		waitabs 356.0

		gosub	refrain2		; dauer: 96
		waitabs 452.0

		gosub	gesundheit		; dauer: 32
		waitabs 484.0

		gosub	achte_minderheiten	; dauer: 8
		waitabs 492.0
		gosub	hilf_polizei
		waitabs 500.0
		gosub	melde_wohnsitz
		waitabs 508.0
		gosub	alles_wird_gut

		waitabs 514.0			; -2 (!)

		gosub	zahle_steuern		; dauer: 8
@4.0		gosub	geh_wahl
@4.0		gosub	hilf_nachbar
@8.0		gosub 	goenne_benz
		waitabs 548.0

		gosub	traeum_nicht
		waitabs 556.0

		waitabs	590.0			; end of demo
		return
		
;----- --- -- -  -     -

refrain1:	setrgb world 0.00 0.0 0.00
		setopacity omu 0.0

		insert wald Surface 1 63.0
		setopacity * 0.73
		settex * tex_wald
		setsize * 1.0 1.0
			sinezq * 4.0 -0.06
			sinezq * -1.0 0.0
			sinerxq * 2.0 4.0
			sinerxq * -1.0 0.0

		insert strahlen Surface 1 63.0
		setsize * 1.4 1.4
		settex * tex_sonnenkranz2
		rotzq * 0.0 0.0
		rotzq * 8.0 360.0
		rotzq * -2.0 0.0


			insert textraus Surface 2 56.0
			settex * tex_outofthefeathers
			setopacity * 0.0
			sinexq * 8.0 0.01
			sinexq * -1.0 0.0
			sineyq * 6.0 0.01
			sineyq * -1.0 0.0
			sinezq * 6.0 0.2
			sinezq * -1.0 0.0
			sinerzq * 8.0 1.0
			sinerzq * -1.0 0.0
			frameq * 24.0 0.0
			frameq * 0.0 1.0
			frameq * 20.0 1.0
			frameq * 0.0 0.0

			opacityq * 4.0 0.0
			opacityq * 0.0 1.0		; 4: sichtbar
			opacityq * 8.0 1.0
			opacityq * 8.0 0.0
			opacityq * 4.0 0.0
			opacityq * 0.0 1.0		; 24: sichtbar
			opacityq * 8.0 1.0
			opacityq * 8.0 0.0
			opacityq * 4.0 0.0
			opacityq * 0.0 1.0		; 44: sichtbar
			opacityq * 8.0 1.0
			opacityq * 8.0 0.0

			setsize * 6.0 0.5
			widthq * 4.0 6.0
			widthq * 1.0 0.5		; gro
			widthq * 19.0 0.5
			widthq * 0.0 6.0
			widthq * 1.0 0.5
			widthq * 19.0 0.5
			widthq * 0.0 6.0
			widthq * 1.0 0.5

		insert hop1 Surface 2 63.0
		setsize * 0.3 0.3
		settex * tex_reh
		jumpq * 0.8 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
			rgbq world 0.0 0.77 0.44 0.88		; blitzen auf snare
			rgbq world 0.4 0.33 0.00 0.44
			rgbq world 1.6 0.00 0.00 0.00
			rgbq world -3.0 0.00 0.00 0.00


		insert hop2 Surface 2 62.0
		setsize * 0.2 0.2
		settex * tex_wolke1
		jumpq * 0.7 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0

		insert hop2_2 Surface 2 62.0
		setsize * 0.3 0.3
		settex * tex_wolke2
		jumpq * 0.8 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
		insert hop3 Surface 2 61.0
		setsize * 0.2 0.2
		settex * tex_sonne
		rotzq * 0.5 -30.0
		rotzq * 1.0 30.0
		rotzq * 1.0 -30.0
		rotzq * -2.0 0.0
		jumpq * 0.9 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
		insert hop4 Surface 2 60.0
		setsize * 0.2 0.2
		settex * tex_wecker
		frameq * 0.0 0.0
		frameq * 0.26 2.0
		frameq * -2.0 0.0
		widthq * 0.23 0.38
		widthq * 0.21 0.17
		widthq * -2.0 0.0
		heightq * 0.22 0.15
		heightq * 0.26 0.35
		heightq * -2.0 0.0
		jumpq * 0.77 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0

@58.9		rgbq world -1.0 0.00 0.00 0.00		; break blitzen loop
@2.0
		return


;----- --- -- -  -     -

intro:
		insert sflogo Surface 1 64.0
		settex * TITEL_SF
		setsize * 0.8 0.8

		insert deutsch Surface 1 170.0
		settex * TITEL_DEUTSCH
		setsize * 1.0 0.8
		setpos * 0.0 0.5

@7.5
		jumpq * 1.0 0.01 0.0
		jumpq * 1.0 0.02 0.0
		jumpq * 1.0 0.05 0.0
		jumpq * 1.0 0.1 0.0
		jumpq * 1.0 0.2 0.0
		jumpq * 1.0 0.3 0.0
		jumpq * 1.0 0.4 0.0
		jumpq * 1.0 0.5 0.0
		jumpq * 1.0 0.6 0.0
		jumpq * 1.0 0.7 0.0
		jumpq * 1.0 0.8 0.0
		jumpq * 1.0 0.9 0.0
		jumpq * 1.0 1.0 0.0
		jumpq * -1.0 0.0 0.0

@24.0		rgbq world 1.0 1.0 1.0 1.0
		jumpq deutsch -1.0 0.0 0.0	; break loop
	;	sineyq sflogo 4.0 0.05
	;	sineyq sflogo -1.0 0.0
	;	sinexq sflogo 3.0 -0.05
	;	sinexq sflogo -1.0 0.0
	;	sinezq sflogo 4.0 -0.04
	;	sinezq sflogo -1.0 0.0

@14.5		opacityq sflogo 4.0 0.0

@2.5		insert groups Surface 1 40.0
		settex * TITEL_GRUPPEN
		setsize * 0.8 0.8
		setopacity * 0.0
		opacityq * 2.0 1.0
	;	sinezq * 4.0 -0.04
	;	sinezq * -1.0 0.0
	;	sinerxq * 4.0 4.0
	;	sinerxq * -1.0 0.0
	
@13.0		opacityq groups 8.0 0.0

		waitabs 64.0

		insert haus1 Surface 1 40.0
		settex * INTRO_HAUS
		setopacity * 0.0
		setsize * 1.08 1.08
		opacityq * 4.0 0.5
			sinezq * 6.0 -0.04
			sinezq * -1.0 0.0
			sinerxq * 4.0 2.0
			sinerxq * -1.0 0.0
		rgbq world 4.0 0.5 0.15 0.0


		waitabs 80.0
		opacityq haus1 3.0 0.0
		insert haus2 Surface 1 40.0
		settex * INTRO_STRASSE
		setopacity * 0.0
		setsize * 1.07 1.07
		opacityq * 3.0 0.5
			sinezq * 6.0 0.04
			sinezq * -1.0 0.0
			sinerxq * 4.0 2.0
			sinerxq * -1.0 0.0
		rgbq world 3.0 0.15 0.1 0.47
		posxq deutsch 2.0 1.0
		jumpq deutsch 2.0 0.0 0.0
		jumpq deutsch 0.6 -0.1 0.0
		jumpq deutsch 0.3 -0.025 0.0
		jumpq deutsch 0.1 -0.007 0.0

		waitabs 96.0
		opacityq haus2 3.0 0.0
		insert haus3 Surface 1 40.0
		settex * INTRO_FESTNAHME
		setopacity * 0.0
		setsize * 1.07 1.07
		opacityq * 3.0 0.5
			sinezq * 6.0 0.04
			sinezq * -1.0 0.0
			sinerxq * 4.0 -2.0
			sinerxq * -1.0 0.0
		rgbq world 3.0 0.15 0.42 0.0

		waitabs 112.0
		opacityq haus3 3.0 0.0
		insert haus4 Surface 1 23.5
		settex * INTRO_OBDACH
		setopacity * 0.0
		setsize * 1.08 1.08
		opacityq * 3.0 0.5
			sinezq * 6.0 -0.04
			sinezq * -1.0 0.0
			sinerxq * 4.0 -2.0
			sinerxq * -1.0 0.0
		rgbq world 3.0 0.30 0.0 0.40
		posxq deutsch 2.0 0.0
		jumpq deutsch 2.0 0.0 0.0
		jumpq deutsch 0.6 0.1 0.0
		jumpq deutsch 0.3 0.025 0.0
		jumpq deutsch 0.1 0.007 0.0

		waitabs 129.0				; blitzen liegt auf snare
		rgbq world 0.0 0.77 0.44 0.88
		rgbq world 0.4 0.30 0.00 0.40
		rgbq world 1.6 0.30 0.00 0.40
		rgbq world -3.0 0.00 0.00 0.00

		waitabs 135.0
		opacityq haus4 0.5 0.0
		remove deutsch

		insert adler Surface 1 22.0
		settex adler tex_adler
		setopacity * 0.0
		setsize * 3.0 3.0
		sinezq * 8.0 -0.4
		sinezq * -1.0 0.0
		widthq * 20.0 0.7
		widthq * 1.5 0.7
		widthq * 0.5 3.0
		heightq * 20.0 0.7
		heightq * 1.5 0.7
		heightq * 0.5 3.0
		opacityq * 20.0 0.25
		opacityq * 1.5 0.25
		opacityq * 0.5 0.0

		insert credits Surface 1 22.0
		settex * CREDITS
		setopacity * 0.0
		setsize * 2.0 2.0
		setpos * 0.6 1.92
		posyq * 3.0 1.92
		posyq * 19.0 -1.8
		opacityq * 1.0 0.0
		opacityq * 2.0 0.7
		opacityq * 14.0 0.7
		opacityq * 5.0 0.0

;	157 snare + bumm
;	---
;	---
;	---
;	158 bumm
;	---
;	---
;	--- snare
;	159 
;	---
;	--- snare
;	--- 
;	160

		waitabs 157.0
		rgbq world -1.0 0.00 0.00 0.00		; break loop
		rgbq world 0.0 0.77 0.44 0.88
		rgbq world 0.4 0.30 0.00 0.40

		waitabs 158.75
		rgbq world 0.0 0.77 0.44 0.88
		rgbq world 0.4 0.30 0.00 0.40

		waitabs 159.5
		rgbq world 0.0 0.77 0.44 0.88
		rgbq world 0.4 0.30 0.00 0.40


		waitabs 163.9
		return

;----- --- -- -  -     -

raus_aus_den_federn:		; 78.2s

		setrgb world 0.4 0.0 0.4
		settex omu TXT_11
		setopacity omu 1.0

		insert weck Surface 1 9.0
		setpos * 0.4995 0.481
		settex * tex_wecker
		setsize * 0.2 0.2
		frameq * 0.0 0.0
		frameq * 0.26 2.0
		frameq * -2.0 0.0

		widthq * 1.0 0.2
		heightq * 1.0 0.2

		widthq * 0.23 0.58
		widthq * 0.21 0.32
		widthq * -2.0 16.0

		heightq * 0.22 0.36
		heightq * 0.26 0.57
		heightq * -2.0 15.6

		opacityq * 8.0 1.0
		opacityq * 1.0 0.0

		widthq * 1.8 0.001
		heightq * 1.0 0.001



		insert wekkerkranz1 Surface 1 9.0
		settex * tex_sonnenkranz1
		setsize * 0.01 0.01

		widthq * 1.0 0.01
		heightq * 1.0 0.01


		rotzq * 0.0 0.0
		rotzq * 8.1 360
		rotzq * -2.0 0.0

		widthq * 2.0 2.0
		heightq * 2.0 2.0

		opacityq * 8.1 1.0
		opacityq * 1.0 0.0

@7.9	

		return


;----- --- -- -  -     -

an_die_luft:				; 82.0s

		settex omu TXT_12
		rgbq world 2.0 0.5 0.5 1.0


		insert sonne Surface 2 9.0
		settex * tex_sonne
		setsize * 0.2 0.2
		setpos * 0.2 0.30
		gosub einblenden

		rotzq * 0.0 -15
		rotzq * 1.0 15
		rotzq * 1.0 -15
		rotzq * -2.0 0.0
		
		insert sonnenkranz1 Surface 1 9.0
		settex * tex_sonnenkranz1
		setsize * 0.31 0.31
		setpos * 0.2 0.30

		rotzq * 0.0 0.0
		rotzq * 32.0 360
		rotzq * -2.0 0.0
		widthq * 8.1 0.31
		widthq * 1.0 2.0
		heightq * 8.1 0.31
		heightq * 1.0 2.0
		gosub einblenden

		insert sonnenkranz2 Surface 1 9.0
		settex * tex_sonnenkranz2
		setsize * 0.3 0.3
		setpos * 0.2 0.30
		rotzq * 0.0 0.0
		rotzq * 27.0 -360
		rotzq * -2.0 0.0
		widthq * 8.0 0.3
		widthq * 1.0 2.0
		heightq * 8.0 0.3
		heightq * 1.0 2.0
		gosub einblenden


		insert wolke1 Surface 3 9.0
		gosub einblenden
		settex * tex_wolke1
		setsize * 0.15 0.15

		setpos * 0.0 0.49
		posxq * 0.0 -0.21
		posxq * 29.0 1.2 
		posxq * -2.0 0.0


		insert wolke2 Surface 3 9.0
		gosub einblenden
		settex * tex_wolke2
		setsize * 0.2 0.2

		setpos * 0.0 0.37
		posxq * 0.0 -0.1
		posxq * 43.0 1.2 
		posxq * -2.0 0.0


		insert wolke3 Surface 3 9.0
		gosub einblenden
		settex * tex_wolke3
		setsize * 0.2 0.2

		setpos * 0.0 0.43
		posxq * 0.0 0.5
		posxq * 29.0 1.2 
		posxq * -2.0 0.0


@8.0
		current sonnenkranz1
		gosub ausblenden
		current sonnenkranz2
		gosub ausblenden
		current sonne
		gosub ausblenden
		current wolke1
		gosub ausblenden
		current wolke2
		gosub ausblenden
		current wolke3
		gosub ausblenden



		return


;------------------------------------------
einblenden:
		opacityq * 0.0 0.0
		opacityq * 2.0 1.0
		return

ausblenden:
		opacityq * 4.0 0.0
		return
;------------------------------------------


;----- --- -- -  -     -

durchstreif_waelder:

		settex omu TXT_13

		insert reh Surface 1 18.0
		settex * tex_reh
		setsize * 0.4 0.4
		setpos * 1.2 0.71
		posxq * 48.0 -1.0
		jumpq * 0.5 0.0 -0.02
		jumpq * -1.0 0.0 0.0

		insert brett Surface 1 18.0
		settex * tex_brett
		setsize * 0.4 0.4
		setpos * 1.29 0.88
		posxq * 48.0 -1.0

		insert pfeil Surface 1 18.0
		settex * tex_pfeil
		setsize * 0.15 0.15
		setpos * 1.45 0.55
		posxq * 48.0 -0.83
		rotzq * 0.0 120.0
		jumpq * 0.75 0.12 -0.12
		jumpq * -1.0 0.0 0.0

		insert wald Surface 1 18.0
		opacityq * 0.0 0.0
		opacityq * 1.0 1.0
		settex * tex_wald
		setsize * 2.5 2.5
		setpos * 0.0 0.57
		posxq * 32.0 1.0


@8.0
		settex omu TXT_14

@2.0		;rgbq world 2.0 0.2 0.3 0.7
		opacityq wald 6.0 0.0
		opacityq brett 6.0 1.0
		opacityq brett 1.0 0.0
		opacityq pfeil 6.0 1.0
		opacityq pfeil 1.0 0.0
		opacityq reh 6.0 1.0
		opacityq reh 1.0 0.0
		

		return

;----- --- -- -  -     -

nimm_freiheit:

        settex omu TXT_21

		insert tacho Surface 1 9.0
		settex * tex_tacho

	;	setpos * 0.50 0.52

		gosub einblenden

		insert nadel Surface 2 9.0
		settex * tex_nadel

	;	setpos * 0.50 0.56

		gosub einblenden

		rotzq nadel 0.0 120.0

@1.5	rotzq nadel 0.5 90.0
		rotzq nadel 0.4 50.0
		rotzq nadel 0.4 0.0

		rotzq nadel 0.4 -120.0

		rotzq nadel 2.5 -450.0



@1.5	posxq nadel 3.0 1.5
		jumpq nadel 3.0 0.0 -0.2

@0.27	jumpq tacho 0.5 0.0 0.01

@0.67	posyq tacho 1.0 1.55

		return

lunger_nicht:
		settex omu TXT_22
	;	setrgb world 0.0 0.0 1.0

		insert lungern Surface 1 7.9
		settex * tex_lungern
		setrgb * 1.0 0.7 0.4
		setsize * 1.06 1.06
		setopacity * 0.0
		opacityq * 1.0 1.0

		insert lungern_mask Surface 2 7.9
		settex * tex_lungern_mask
		setsize * 1.06 1.06
		setopacity * 0.0
		opacityq * 3.5 0.0
		opacityq * 1.0 1.0


		return


meide_dunkle_ecken:
		settex omu TXT_23
		setrgb world 0.0 0.0 0.0

		insert pacscreen Surface 1 9.0
		settex pacscreen tex_pacscreen

		setsize pacscreen 1.0 1.0
		setpos pacscreen 0.5 0.52

		insert pacman Surface 2 9.0
		settex pacman tex_pachead
		setsize pacman 0.045 0.045
		setpos pacman 0.2 0.523

		posxq pacman 2.0 0.35

@2.0	posyq pacman 1.2 0.585

		insert streifenl Surface 2 9.0
		settex streifenl tex_pacstreich
		setsize streifenl 0.02 0.01

		setpos streifenl 0.13 0.37
		rotzq streifenl 0.0 -50.0

		heightq streifenl 0.5 0.8

   		insert streifenr Surface 2 9.0
		settex streifenr tex_pacstreich
		setsize streifenr 0.02 0.01

   		setpos streifenr 0.13 0.37
		rotzq streifenr 0.0 50.0

		heightq streifenr 0.5 0.8

@1.2	posxq pacman 4.5 0.7

@2.0	opacityq pacscreen 1.0 0.0
		opacityq pachead 1.0 0.0
		opacityq streifenl 1.0 0.0
		opacityq streifenr 1.0 0.0
		opacityq pacman 1.0 0.0

		return

;-------

red_keinen_stuss:
		settex omu TXT_24

		insert alibot Surface 1 25.0
		settex * tex_alibot

		setpos * 0.50 0.7
		setsize * 0.0 0.0

   		widthq alibot 0.3 0.7
		heightq alibot 0.3 0.7

		insert alitop Surface 2 25.0
		settex * tex_alitop

        setsize * 0.0 0.0
;		setsize * 0.19 0.19
		setpos * 0.59 0.42
		widthq * 0.3 0.19
		heightq * 0.3 0.19


@0.2	widthq alitop 0.3 0.17
		heightq alitop 0.3 0.17
		widthq alibot 0.3 0.6
		heightq alibot 0.3 0.6

@0.2	widthq alitop 0.3 0.19
		heightq alitop 0.3 0.19

		widthq alibot 0.3 0.7
		heightq alibot 0.3 0.7

@0.8	posyq alitop 0.4 0.41
		posyq alitop 0.2 0.42
		posxq alitop 0.2 0.58

		posxq alitop 0.2 0.59
		posxq alitop 0.3 0.595

@1.0	posyq alitop 0.2 0.41
		posyq alitop 0.1 0.42

		posxq alitop 0.2 0.595
		posxq alitop 0.3 0.585

@0.4	posyq alitop 0.2 0.41
		posyq alitop 0.2 0.42

		posxq alitop 0.2 0.59
		posxq alitop 0.2 0.595

@0.6	posyq alitop 0.4 0.39
		posyq alitop 0.2 0.42

		posxq alitop 0.2 0.585
		posxq alitop 0.2 0.59

@1.0	posyq alitop 0.2 0.41	; keinen stuss,...,...,..
		posyq alitop 0.1 0.42

		posxq alitop 0.2 0.595
		posxq alitop 0.3 0.585

@0.4	posyq alitop 0.2 0.41
		posyq alitop 0.2 0.42

		posxq alitop 0.2 0.59
		posxq alitop 0.2 0.595

@0.6	posyq alitop 0.4 0.39
		posyq alitop 0.2 0.42

		posxq alitop 0.2 0.585
		posxq alitop 0.2 0.59

@1.0	posyq alitop 0.2 0.41	; keinen stuss,...,...,..
		posyq alitop 0.1 0.42
@0.4	posyq alitop 0.2 0.41
		posyq alitop 0.2 0.42
@0.6	posyq alitop 0.4 0.39
		posyq alitop 0.2 0.42

; 7.0

@0.99
		posxq alitop 1.0 0.873
		posyq alitop 1.0 0.760
		widthq alitop 1.0 0.054
		heightq alitop 1.0 0.054

		posxq alibot 1.0 0.85
		posyq alibot 1.0 0.835
		widthq alibot 1.0 0.2
		heightq alibot 1.0 0.2


		rotzq alitop 0.5 20.0
		rotzq alitop 0.5 0.0

		rotzq alitop -2.0 0.0

		posxq alitop 0.5 0.865
		posxq alitop 0.5 0.873
		posxq alitop -2.0 0.0

		return
		

;-------------

@2.0	rotzq alitop 0.0 0.0
		rotzq alitop 0.5 20.0
		rotzq alitop 0.5 0.0

		rotzq alitop -2.0 0.0

		posxq alitop 0.5 0.56
		posxq alitop 0.5 0.59

		posxq alitop -2.0 0.0

;@32.0	posxq alitop 0.0 0.0
;		rotzq alitop 0.0 0.0

		return

;----- --- -- -  -     -

staehle_koerper:
		settex omu TXT_31
		setopacity omu 1.0
		rgbq world 0.5 0.5 0.4 0.6

		insert unterarm Surface 1 23.9
		settex unterarm tex_unterarm
		setsize unterarm 0.5 0.5
		setpos unterarm 0.75 0.53
		rotzq unterarm 1.0 -70.0
		rotzq unterarm 1.0 -20.0
		rotzq unterarm -2.0 0.0

		insert dbass Surface 1 15.9
		settex dbass tex_dbass
		setsize dbass 0.0 0.0

		insert oberarm Surface 1 23.9
		settex oberarm tex_oberarm
		setsize oberarm 0.243 0.243
		setpos oberarm 0.68 0.58
		frameq oberarm 0.5 0.0
		frameq oberarm 0.0 0.0
		frameq oberarm 2.0 2.0
		frameq oberarm -2.0 0.0

		insert tusse Surface 1 23.9
		settex tusse tex_tusse

		setsize tusse 0.65 0.65
		setpos tusse 0.4 0.6

@6.0		frameq oberarm -1.0 0.0
		frameq oberarm 0.0 0.0

@2.0		settex omu TXT_32
		rotzq unterarm -1.0 0.0

		setsize dbass 0.9 0.9
		setpos dbass 0.6 0.7
@6.6
		rotxq tusse 0.5 88.0
		rotxq dbass 0.5 88.0
		rotxq oberarm 0.5 88.0
		rotxq unterarm 0.5 88.0

@0.7		widthq tusse 0.5 0.0
		widthq dbass 0.5 0.0
		widthq oberarm 0.5 0.0
		widthq unterarm 0.5 0.0
@0.49		return


studier_kunst:	settex omu TXT_33		; studier kunst
		rgbq world 0.5 0.3 0.4 0.5

		insert kopf_verdeck Surface 1 15.9
		settex * tex_kopf
		setpos * 0.5 0.75
		setsize * 0.55 0.55
		setopacity * 0.0

		insert kunstkoerper Surface 1 6.9
		settex * tex_kunstkoerper
		setpos * -0.2 0.8	
		setsize * 0.4 0.4
		jumpq * 0.5 0.0 0.0
		jumpq * 1.0 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		sinerzq * 1.0 15.0
		sinerzq * -1.0 0.0
		posxq * 2.0 0.3

		insert keithbaby Surface 1 6.9
		settex * tex_keithbaby
		setpos * 1.2 0.72
		setsize * 0.3 0.3
		jumpq * 1.0 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		sinerzq * 1.0 20.0
		sinerzq * -1.0 0.0
		posxq * 2.0 0.7
		
		insert kopf Surface 1 7.9
		settex * tex_kopf
		setpos * 0.5 0.75
		setsize * 0.55 0.55
		setopacity * 0.0
		jumpq * 1.2 0.0 0.0
		jumpq * 1.5 0.0 -2.0
		jumpq * 0.7 0.0 -0.5
		jumpq * 0.2 0.0 -0.125
		opacityq * 1.2 0.0
		opacityq * 0.75 0.0
		opacityq * 0.0 1.0

@4.0
		jumpq keithbaby -0.8 0.0 0.0
		jumpq keithbaby 2.0 0.0 -1.0
		posxq keithbaby 2.0 0.5

		jumpq kunstkoerper -0.8 0.0 0.0
		jumpq kunstkoerper 2.0 0.0 -1.0
		posxq kunstkoerper 2.0 0.5

@1.0
		setopacity kopf_verdeck 1.0
		setopacity kopf 0.0

@0.5
		insert kopfschale Surface 1 10.0
		settex * tex_kopfschale
		setpos * 0.5 0.37
		setsize * 0.45 0.45
		setopacity * 0.0
		jumpq * 1.2 0.0 0.0
		jumpq * 1.5 0.0 -2.0
		jumpq * 0.7 0.0 -0.5
		jumpq * 0.2 0.0 -0.125
		opacityq * 1.2 0.0
		opacityq * 0.75 0.0
		opacityq * 0.0 1.0

		opacityq * 0.05 1.0
		opacityq * 8.0 0.0

		opacityq kopf_verdeck 2.0 1.0
		opacityq kopf_verdeck 8.0 0.0

@2.5		settex omu TXT_34

		insert klo1 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 0.0
		rotzq * 4.0 360.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

		insert klo2 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 60.0
		rotzq * 4.0 420.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

		insert klo3 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 120.0
		rotzq * 4.0 480.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

		insert klo4 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 180.0
		rotzq * 4.0 540.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

		insert klo5 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 240.0
		rotzq * 4.0 600.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

		insert klo6 Surface 1 7.9
		settex * tex_klobuerste
		setsize * 6.5 6.5
		rotzq * 0.0 300.0
		rotzq * 4.0 660.0
		rotzq * -2.0 0.0
		widthq * 4.0 0.7
		widthq * 3.9 6.5
		heightq * 4.0 0.7
		heightq * 3.9 6.5

@7.9
		return


;----- --- -- -  -     -

beschuetz_maedel:
		settex omu TXT_41
		setrgb world 0.6 0.2 0.0

		insert stern Surface 1 15.0
		settex * tex_stern
		setpos * 0.38 0.61
		setsize * 0.05 0.05
		setopacity * 0.0
		insert stern2 Surface 1 15.0
		settex * tex_stern
		setpos * 0.57 0.26
		setsize * 0.05 0.05
		setopacity * 0.0

                insert maedel Surface 1 3.0
                settex maedel tex_maedel
                setpos maedel -0.6 0.4
                setsize maedel 0.55 0.55
                posxq maedel 1.5 0.25
                posxq maedel 1.5 0.25 5
                posxq maedel 1.0 -0.6
@4.0
                insert macker Surface 1 10.0
                settex macker tex_mackermaedel
                setsize macker 0.6 0.6
                setpos macker -0.6 0.55
                posxq macker 2.0 0.5
                jumpq macker 1.0 0.0 -0.1
                jumpq macker 1.0 0.0 -0.1
                sinerxq macker 1.0 10.0
                sinerxq macker 1.0 -10.0

		insert altar Surface 1 10.0
		settex altar tex_altar
		setopacity altar 0.0
		setsize altar 0.8 0.65
		setpos altar 0.5 0.65

@4.0		settex omu TXT_42

@1.0		settex macker tex_mackermaedel_heirat
		opacityq altar 1.0 0.0
		opacityq altar 2.5 1.0
@1.5
		widthq stern 0.75 0.3
		heightq stern 0.75 0.3
		opacityq stern 0.0 1.0
		opacityq stern 0.75 0.0
		rotzq stern 0.75 189.0

		widthq stern2 0.75 0.3
		heightq stern2 0.75 0.3
		opacityq stern2 0.0 1.0
		opacityq stern2 0.75 0.0
		rotzq stern2 0.75 189.0

@1.5
                posxq macker 0.5 1.4
		opacityq altar 1.0 1.0
		opacityq altar 2.5 0.0

		return



zeuge_buerger:
		settex omu TXT_43
		setrgb world 0.3 0.6 0.85
		
		insert bub1 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.9 0.4
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 1.1 0.01
		sinexq * -1.0 0.0
		sineyq * 1.4 -0.024
		sineyq * -1.0 0.0
		sinezq * 1.62 -0.033
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.37 -6.0
		sinerzq * 1.37 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub2 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.6 0.35
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 1.7 -0.021
		sinexq * -1.0 0.0
		sineyq * 1.6 0.009
		sineyq * -1.0 0.0
		sinezq * 1.5 0.013
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.67 -6.0
		sinerzq * 1.67 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub3 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.02 0.07
		setpos * 0.3 0.6
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 2.0 0.03
		sinexq * -1.0 0.0
		sineyq * 1.3 -0.01
		sineyq * -1.0 0.0
		sinezq * 2.2 -0.044
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.32 -6.0
		sinerzq * 1.32 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub4 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.85 0.8
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 1.7 0.045
		sinexq * -1.0 0.0
		sineyq * 1.6 -0.015
		sineyq * -1.0 0.0
		sinezq * 1.5 -0.022
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.47 -6.0
		sinerzq * 1.47 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub5 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.143 0.35
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 2.0 -0.011
		sinexq * -1.0 0.0
		sineyq * 1.3 0.0088
		sineyq * -1.0 0.0
		sinezq * 2.2 0.023
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 2.22 -6.0
		sinerzq * 2.22 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub6 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.104 0.76
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 1.6 -0.018
		sinexq * -1.0 0.0
		sineyq * 1.9 0.022
		sineyq * -1.0 0.0
		sinezq * 2.2 -0.015
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.87 -6.0
		sinerzq * 1.87 6.0
		sinerzq * -2.0 0.0

@0.5		insert bub7 Surface 1 15.9
		settex * tex_neuer_buerger
		setopacity * 0.0
		setsize * 0.05 0.05
		setpos * 0.941 0.148
		widthq * 1.5 0.25
		heightq * 1.5 0.25
		sinexq * 1.87 -0.006
		sinexq * -1.0 0.0
		sineyq * 1.6 0.0042
		sineyq * -1.0 0.0
		sinezq * 1.9 0.0028
		sinezq * -1.0 0.0
		opacityq * 2.0 1.0
		sinerzq * 1.23 -6.0
		sinerzq * 1.23 6.0
		sinerzq * -2.0 0.0

@3.0		

		insert schein1 Surface 1 9.9
		setpos * 0.1 0.0
		settex * tex_100e
		setsize * 0.2 0.2
		rotxq * 0.0 70.0
		sinerzq * 2.0 15.0
		sinerzq * 2.0 -15.0
		sinerzq * -2.0 0.0
		posyq * 9.5 0.86

		insert schein1 Surface 1 9.9
		setpos * 0.3 0.0
		settex * tex_10e
		setsize * 0.18 0.18
		rotxq * 0.0 73.0
		sinerzq * 1.8 14.0
		sinerzq * 2.2 -16.0
		sinerzq * -2.0 0.0
		posyq * 2.3 0.0
		posyq * 6.5 0.86

		insert schein1 Surface 1 9.9
		setpos * 0.45 0.0
		settex * tex_100e
		setsize * 0.23 0.23
		rotxq * 0.0 66.0
		sinerzq * 2.3 14.0
		sinerzq * 2.4 -16.0
		sinerzq * -2.0 0.0
		posyq * 3.3 0.0
		posyq * 5.9 0.86

		insert schein1 Surface 1 9.9
		setpos * 0.72 0.0
		settex * tex_20e
		setsize * 0.2 0.2
		rotxq * 0.0 74.0
		sinerzq * 1.3 10.0
		sinerzq * 1.5 -20.0
		sinerzq * -2.0 0.0
		posyq * 2.3 0.0
		posyq * 6.3 0.86

		insert schein1 Surface 1 9.9
		setpos * 0.90 0.0
		settex * tex_10e
		setsize * 0.19 0.19
		rotxq * 0.0 78.0
		sinerzq * 1.3 23.0
		sinerzq * 1.5 -18.0
		sinerzq * -2.0 0.0
		posyq * 1.5 0.0
		posyq * 7.8 0.86

@2.0
		settex omu TXT_44

@5.5
		posyq bub1 2.0 -0.1
		posyq bub2 2.0 -0.1
		posyq bub3 2.0 -0.1
		posyq bub4 2.0 -0.1
		posyq bub5 2.0 -0.1
		posyq bub6 2.0 -0.1
		posyq bub7 2.0 -0.1

@2.4
		return

;----- --- -- -  -     -

achte_minderheiten:
		settex omu TXT_61
		setpos omu 0.5 0.8
		setopacity omu 1.0

		setrgb world 0.5 0.3 0.5

		insert gorbi Surface 1 7.9
		settex gorbi tex_minderheiten
		setsize gorbi 0.0 0.0

		rotzq gorbi 0.0 0.0
		rotzq gorbi 0.5 360.0
		rotzq gorbi -2.0 0.0

		widthq gorbi 0.5 0.0
		heightq gorbi 0.5 0.0

		widthq gorbi 1.5 0.5
		heightq gorbi 1.5 0.5

@2.0
		rotzq gorbi -1.0 0.0

		rotzq gorbi 0.0 0.0
		rotzq gorbi 5.9 10.0		

		posxq gorbi 5.9 0.47
		posyq gorbi 5.9 0.53
@3.0
		opacityq gorbi 2.5 0.0

@2.9
		return

hilf_polizei:
		settex omu TXT_62
;		setrgb world 0.0 0.8 1.0
		rgbq world 0.5 0.0 0.3 0.0

		insert schily Surface 1 7.9
		settex schily tex_schily
		setsize schily 0.6 0.6
		setpos schily 0.72 0.61

		insert sarm Surface 1 7.9
		settex sarm tex_schily_arm
		setsize sarm 1.25 1.25
		setpos sarm 0.7 0.87

		insert punk1 Surface 1 7.9
		settex punk1 tex_punk
		setsize punk1 0.5 0.5
		setpos punk1 0.2 0.7
		
		rotzq sarm 0.2 0.0
		rotzq sarm 0.2 20.0
		rotzq sarm -2.0 0.0

		insert stern1 Surface 1 2.0
		settex stern1 tex_stern
		setpos stern1 0.2 0.5
		setsize stern1 0.02 0.02
		opacityq stern1 0.0 0.0
		opacityq stern1 1.0 1.0
		opacityq stern1 0.5 0.0
		rotzq stern1 1.0 360.0
		posxq stern1 1.0 0.4
		widthq stern1 1.0 0.1
		heightq stern1 1.0 0.1

@0.2		insert stern2 Surface 1 2.0
		settex stern2 tex_stern
		setpos stern2 0.2 0.5
		setsize stern2 0.02 0.02
		opacityq stern2 0.0 0.0
		opacityq stern2 1.0 1.0
		opacityq stern2 0.5 0.0
		rotzq stern2 1.0 120.0
		posxq stern2 1.0 0.07
		posyq stern2 1.0 0.33
		widthq stern2 1.0 0.1
		heightq stern2 1.0 0.1

@0.2		insert stern3 Surface 1 2.0
		settex stern3 tex_stern
		setpos stern3 0.2 0.5
		setsize stern3 0.02 0.02
		opacityq stern3 0.0 0.0
		opacityq stern3 1.0 1.0
		opacityq stern3 0.5 0.0
		rotzq stern3 1.0 -240.0
		posxq stern3 1.0 0.07
		posyq stern3 1.0 0.67
		widthq stern3 1.0 0.1
		heightq stern3 1.0 0.1
@7.9
		return

melde_wohnsitz:
		settex omu TXT_63
		setrgb world 0.0 0.0 0.0

		insert kringel Surface 1 7.9
		settex kringel tex_kringel
		setsize kringel 1.0 1.0
		setrgb * 0.5 1.0 0.3
		posxq * 0.0 1.5
		posxq * 3.2 0.3
		posyq * 0.0 0.45
		posyq * 3.2 0.45
		widthq * 3.5 1.0
		widthq * 0.4 0.2
		heightq * 3.5 1.0
		heightq * 0.4 0.2
		opacityq kringel 0.0 1.0
		opacityq kringel 4.0 1.0
		opacityq kringel 2.0 0.0

		insert plan Surface 1 7.9
		settex plan tex_plan
		setsize plan 1.1 1.1

		rgbq plan 0.0 0.0 0.0 0.0
		rgbq plan 0.7 0.7 0.3 0.0
		rgbq plan 0.7 1.0 0.7 0.5
		rgbq plan 0.7 1.0 1.0 1.0
		opacityq * 7.8 1.0
		opacityq * 0.0 0.0
	
		jumpq * 5.4 0.0 0.0
		jumpq * 0.4 0.0 -0.05	
		jumpq * 0.4 0.0 -0.1	
		jumpq * 0.4 0.0 -0.2	
		jumpq * 0.4 0.0 -0.4	
		jumpq * 0.4 0.0 -0.8	
		jumpq * 0.4 0.0 -1.6
@7.9	
		return

alles_wird_gut:
		settex omu TXT_64

		insert alles Surface 1 7.9
		settex * tex_alles
		setsize * 4.0 4.0
		posyq * 0.0 1.5
		posyq * 1.5 1.5
		posyq * 5.5 0.5

		opacityq * 0.0 0.0
		opacityq * 1.5 1.0
		opacityq * 5.5 1.0
		opacityq * 0.9 0.0

		widthq * 1.5 4.0
		widthq * 5.5 1.05
		heightq * 1.5 4.0
		heightq * 5.5 1.05
@5.99
		return

;----- --- -- -  -     -

traeum_nicht:	settex omu TXT_81
		setrgb world 0.05 0.09 0.17

endlos:		gosub neuerscheiss
		goto endlos

neuerscheiss:
		insert traum Surface 1 9.1
		settex * TXT_81
		widthq * 0.0 0.63
		widthq * 9.0 2.4
		heightq * 0.0 0.8
		heightq * 9.0 2.4
		posyq * 0.0 0.8
		posyq * 9.0 0.35
		opacityq * 0.0 0.0
		opacityq * 3.0 0.5
		opacityq * 3.0 0.5
		opacityq * 3.0 0.0 
		sinerzq * 4.0 -3.0
		sinerzq * 4.0 3.0
		sinerzq * -2.0 0.0
		sinexq * 3.33 0.077
		sinexq * -1.0 0.0
@1.373
		return

;----- --- -- -  -     -

refrain2:
		setopacity omu 0.0

		insert wald Surface 1 47.0
		setopacity * 0.73
		settex * tex_rentenformel
		setrgb * 0.75 0.75 0.75
		setsize * 1.0 1.0
			sinezq * 4.0 -0.06
			sinezq * -1.0 0.0
			sinerxq * 2.0 4.0
			sinerxq * -1.0 0.0

		insert strahlen Surface 1 47.0
		setsize * 1.4 1.4
		settex * tex_sonnenkranz2
		rotzq * 0.0 0.0
		rotzq * 8.0 360.0
		rotzq * -2.0 0.0

			insert textraus Surface 2 47.0
			settex * tex_paymypension
			setopacity * 0.0
			sinexq * 8.0 0.01
			sinexq * -1.0 0.0
			sineyq * 6.0 0.01
			sineyq * -1.0 0.0
			sinezq * 6.0 0.2
			sinezq * -1.0 0.0
			sinerzq * 8.0 1.0
			sinerzq * -1.0 0.0
			frameq * 12.0 0.0
			frameq * 0.0 1.0
			frameq * 8.0 1.0
			frameq * 0.0 0.0
			frameq * 8.0 0.0
			frameq * 0.0 2.0

			setsize * 6.0 0.5
			widthq * 4.0 6.0
			widthq * 1.0 0.5
			widthq * 7.0 0.5
			widthq * 0.0 6.0
			widthq * 1.0 0.5
			widthq * 7.0 0.5
			widthq * 0.0 6.0
			widthq * 1.0 0.5
			widthq * 7.0 0.5
			widthq * 0.0 6.0
			widthq * 1.0 0.5
			

			opacityq * 4.0 0.0
			opacityq * 0.0 1.0		; 4: sichtbar
			opacityq * 4.0 1.0
			opacityq * 3.0 0.0
			opacityq * 1.0 0.0
			opacityq * 0.0 1.0		; 4: sichtbar
			opacityq * 4.0 1.0
			opacityq * 3.0 0.0
			opacityq * 1.0 0.0
			opacityq * 0.0 1.0		; 4: sichtbar
			opacityq * 4.0 1.0
			opacityq * 3.0 0.0
			opacityq * 1.0 0.0
			opacityq * 0.0 1.0		; 4: sichtbar
			opacityq * 4.0 1.0
			opacityq * 3.0 0.0
			opacityq * 1.0 0.0


			
		;	opacityq * 12.0 1.0
		;	opacityq * 8.0 0.0		; 24: komplett verblasst
		;	opacityq * 0.0 1.0		; 24: sichtbar
		;	opacityq * 8.0 0.0		; 32
		;	opacityq * 12.0 0.0
		;	opacityq * 0.0 1.0
		;	opacityq * 8.0 0.0

		insert hop1 Surface 2 47.0
		setsize * 0.3 0.3
		settex * tex_altar
		jumpq * 0.8 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
			rgbq world 0.0 0.77 0.44 0.88		; blitzen auf snare
			rgbq world 0.4 0.33 0.00 0.44
			rgbq world 1.6 0.33 0.00 0.44
			rgbq world -3.0 0.00 0.00 0.00

		insert hop2 Surface 2 46.0
		setsize * 0.2 0.2
		settex * tex_neuer_buerger
		jumpq * 0.7 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
		insert hop3 Surface 2 45.0
		setsize * 0.29 0.29
		setopacity * 0.77
		settex * tex_maedel
		rotzq * 0.5 -30.0
		rotzq * 1.0 30.0
		rotzq * 1.0 -30.0
		rotzq * -2.0 0.0
		jumpq * 0.9 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0
@1.0
		insert hop4 Surface 2 44.0
		setsize * 0.3 0.3
		settex * tex_kunstkoerper
		jumpq * 0.77 0.0 -0.1
		jumpq * -1.0 0.0 0.0
		circlezq * 4.0 0.2 0.3 0.8 0.7
		circlezq * -1.0 0.0 0.0 0.0 0.0

@41.0
		opacityq hop1 3.9 0.0
		opacityq hop2 3.9 0.0
		opacityq hop3 3.9 0.0
		opacityq hop4 3.9 0.0
		opacityq wald 3.9 0.0
		opacityq strahlen 3.9 0.0

@4.0		rgbq world -1.0 0.00 0.00 0.00		; break blitzen loop

		insert adler Surface 1 47.0
		settex adler tex_adler
		setopacity * 0.0
		setsize * 3.0 3.0
		sinezq * 8.0 -0.4
		sinezq * -1.0 0.0
		widthq * 32.0 0.7
		widthq * 12.0 0.7
		widthq * 1.5 0.7
		widthq * 0.5 3.0
		heightq * 32.0 0.7
		heightq * 12.0 0.7
		heightq * 1.5 0.7
		heightq * 0.5 3.0
		opacityq * 32.0 0.25
		opacityq * 12.0 0.25
		opacityq * 1.5 0.25
		opacityq * 0.5 0.0

		insert credits Surface 1 47.0
		settex * GREETINGS
		setopacity * 0.0
		setsize * 0.8 0.8
		opacityq * 15.0 0.0
		opacityq * 1.0 1.0
		opacityq * 19.0 1.0
		opacityq * 1.0 0.0

		return


;----- --- -- -  -     -

gesundheit:
		rgbq	world 0.5 0.4 0.4 0.4
		setopacity omu 1.0

        gosub	schluss_mit_haschen
	;	waitabs 8

		gosub	krebsvorsorge
	;	waitabs 16.5
		gosub 	iss_fisch
	;	waitabs 8

		return


;----- --- -- -  -     -

schluss_mit_haschen:
		settex omu TXT_51

		insert spritze Surface 1 6.0
		settex spritze tex_spritze

        setsize spritze 0.35 0.35
		setpos spritze 1.5 -0.35

		insert verbot Surface 2 9.0
		settex verbot tex_haschverbot
		setsize verbot 15.0 15.0
		opacityq verbot 0.0 0.0

		posxq spritze 1.5 0.51
		posyq spritze 1.5 0.49

@1.5	widthq verbot 1.5 0.5
		heightq verbot 1.5 0.5
		opacityq verbot 1.5 1.0

		rotzq spritze 0.2 8.0
		rotzq spritze 0.2 0.0

		rotzq spritze -2.0 0.0

		posxq spritze 0.2 0.49
		posxq spritze 0.2 0.51

		posxq spritze -2.0 0.0

		posyq spritze 0.2 0.48
		posyq spritze 0.2 0.50

		posyq spritze -2.0 0.0

@0.8	posxq spritze -2.0 0.0
		posyq spritze -2.0 0.0
		rotzq spritze -2.0 0.0

@3.0	opacityq spritze 2.0 0.0
		opacityq verbot  2.0 0.0

@2.69		return


;----- --- -- -  -     -

krebsvorsorge:
		settex omu TXT_52

		insert krebszettel Surface 1 7.0
		settex krebszettel tex_krebszettel

		widthq krebszettel 8.0 0.7
		heightq krebszettel 8.0 0.7

@6.0	opacityq krebszettel 0.7 0.0

@2.99
@0.5
		return

;----- --- -- -  -     -


iss_fisch:
		settex omu TXT_53

		setrgb 	world 0.4 0.4 0.4
		insert 	fisch Surface 1 18.0
		settex 	fisch tex_fisch
		setsize fisch 0.1 0.1
		setpos	fisch 1.2 0.6

		insert	pupl Surface 2 18.0
		settex	pupl tex_fischpupl
		setsize	pupl 0.012 0.012
		setpos	pupl 1.19 0.6

		insert	pupr Surface 2 18.0
		settex	pupr tex_fischpupr
		setsize	pupr 0.012 0.012
		setpos	pupr 1.21 0.6

		jumpq	fisch 1.0 0.0 -0.1
    	jumpq	fisch -1.0 0.0 0.0

		posxq	fisch 4.0 0.5
		posyq	fisch 4.0 0.52

		jumpq	pupl 1.0 0.0 -0.1
    	jumpq	pupl -1.0 0.0 0.0

   		posxq	pupl 4.0 0.45
		posyq	pupl 4.0 0.52

		jumpq	pupr 1.0 0.0 -0.1
    	jumpq	pupr -1.0 0.0 0.0

   		posxq	pupr 4.0 0.52
		posyq	pupr 4.0 0.52

        widthq	fisch 4.0 0.4
        heightq	fisch 4.0 0.4

        widthq	pupl 4.0 0.06
        heightq	pupl 4.0 0.06

        widthq	pupr 4.0 0.06
        heightq	pupr 4.0 0.06

@4.0	jumpq	fisch -1.0 0.0 0.0
		jumpq	pupl -1.0 0.0 0.0
		jumpq	pupr -1.0 0.0 0.0

		jumpq	fisch 1.0 0.0 -0.06
		jumpq	pupl 1.0 0.0 -0.06
		jumpq	pupr 1.0 0.0 -0.06

		jumpq	fisch 1.0 0.0 -0.03
		jumpq	pupl 1.0 0.0 -0.03
		jumpq	pupr 1.0 0.0 -0.03

		jumpq	fisch 1.0 0.0 -0.01
		jumpq	pupl 1.0 0.0 -0.01
		jumpq	pupr 1.0 0.0 -0.01

@4.0
		settex omu TXT_54
		setpos omu 1.4 0.5
		posxq omu 3.5 1.4
		posxq omu 4.0 0.5
		opacityq omu 6.5 1.0
		opacityq omu 1.0 0.0 
		


@4.0		posxq	pupl 0.1 0.465
		posxq	pupr 0.1 0.54

;		posyq	pupl 0.2 0.51
;		posyq	pupr 0.2 0.51

;		posyq	pupl 0.2 0.53
;		posyq	pupr 0.2 0.53

@2.0		posxq	fisch 1.0 -0.5
		posxq	pupl 1.0 -0.55
		posxq	pupr 1.0 -0.48

@1.49
		return









;--------------------------------------------------------
; hier die letzte strophe
;--------------------------------------------------------
zahle_steuern:

		rgbq world 1.0 1.0 0.8 0.0

		insert wallet Surface 3 12.0
		settex wallet tex_wallet
		setpos * 0.75 0.5
		rotzq * 0.0 150.0
		setopacity * 0.0
		opacityq * 3.0 0.0
		opacityq * 1.0 1.0
		sineyq * 4.0 -0.5
		sinexq * 4.0 0.0

		sinexq * 0.43 0.020
		sinexq * 0.37 0.020
		sinexq * -2.0 3.0
		sineyq * 0.37 0.020
		sineyq * 0.41 0.020
		sineyq * -2.0 3.0

		posxq * 7.0 0.75
		posxq * 2.0 1.5
		opacityq * 3.0 1.0
		opacityq * 2.0 0.0

@2.0
		settex omu TXT_71

@2.0	
	;	setopacity omu 1.0

		insert _auto Surface 1 4.0
		setpos * 1.25 0.25
		posxq * 8.0 -1.5
		gosub zs_schein
		
		insert _auto Surface 1 4.0
		setpos * 1.75 0.35
		posxq * 7.0 -1.5
		gosub zs_schein

		insert _auto Surface 1 4.0
		setpos * 1.3 0.75
		posxq * 9.0 -1.5
		gosub zs_schein

		insert _auto Surface 1 4.0
		setpos * 1.1 0.55
		posxq * 12.0 -1.2
		gosub zs_schein



		insert muenze1 Surface 2 4.0
		gosub zs_muenze
@0.5
		insert muenze1 Surface 2 4.0
		gosub zs_muenze
@0.5
		insert muenze1 Surface 2 4.0
		gosub zs_muenze

@0.1
		insert muenze1 Surface 2 4.0
		gosub zs_muenze
		setpos * 0.65 0.50
@0.1
		insert muenze1 Surface 2 4.0
		gosub zs_muenze
		setpos * 0.75 0.55
@0.1
		insert muenze1 Surface 2 4.0
		gosub zs_muenze
		setpos * 0.65 0.50
@0.1
		insert muenze1 Surface 2 4.0
		gosub zs_muenze
		setpos * 0.75 0.55

@0.6
		insert _auto Surface 1 4.0
		setpos * 1.25 0.23
		posxq * 8.0 -1.5
		gosub zs_schein
		
		insert _auto Surface 1 4.0
		setpos * 1.75 0.47
		posxq * 7.0 -1.5
		gosub zs_schein

		insert _auto Surface 1 4.0
		setpos * 1.3 0.85
		posxq * 9.0 -1.5
		gosub zs_schein

		insert _auto Surface 1 4.0
		setpos * 1.1 0.49
		posxq * 12.0 -1.2
		gosub zs_schein



		return
		
zs_schein:
		settex * tex_100e
		setsize * 0.5 0.5

		setopacity * 0.0
		opacityq * 2.0 0.5
		opacityq * 6.0 0.5
		opacityq * 2.0 0.0

		return
		
		
zs_muenze:
		settex * tex_muenze
		setpos * 0.70 0.50
		setsize * 0.10 0.10
		rotzq * 3.0 360.0
		rotzq * 0.0 0.0
		rotzq * -2.0 0.0
		posyq * 3.0 1.5
		posxq * 3.0 0.45
		jumpq * 2.0 0.0 -0.2
		return
		


		
geh_wahl:
		settex omu TXT_72
		rgbq world 0.7 0.0 0.4 0.4
		
		insert wahl Surface 1 7.0
		settex wahl tex_wahl
		setsize * 1.1 1.1
		setpos * 0.5 1.5
		posyq * 4.0 0.5


@4.0
		insert streifenl Surface 2 7.0
		settex streifenl tex_pacstreich
		setsize streifenl 0.02 0.01

		setpos streifenl 0.445 0.69
		rotzq streifenl 0.0 -50.0

		heightq streifenl 0.2 0.2

@0.1
   		insert streifenr Surface 2 7.0
		settex streifenr tex_pacstreich
		setsize streifenr 0.02 0.01

  		setpos streifenr 0.445 0.69
		rotzq streifenr 0.0 50.0

		heightq streifenr 0.2 0.2
		
@1.0
		posxq wahl 2.0 1.6
		posxq streifenl 2.0 1.53
		posxq streifenr 2.0 1.53

		return
		
hilf_nachbar:
		settex omu TXT_73
		rgbq world 0.7 0.3 0.1 0.4
		
		insert nachbar Surface 1 7.9
		settex nachbar tex_nachbar
		setsize * 0.75 0.75
		sinerzq * 2.0 4.0
		sinerzq * -1.0 0.0
		setopacity * 0.0
		opacityq * 2.0 1.0
		opacityq * 4.0 1.0
		opacityq * 2.0 0.0

		return
		
goenne_benz:
		settex omu TXT_74
		rgbq world 0.7 0.5 0.24 0.1

		insert thumbsup Surface 1 2.0
		settex thumbsup tex_thumbsup
		setopacity * 0.0

		insert benz Surface 1 2.0
		settex benz tex_benz
		setsize * 0.01 0.01
		widthq * 0.5 0.8
		heightq * 0.5 0.8
		
		sinerzq * 0.5 10.0
		sinerzq * 0.4  8.0
		sinerzq * 0.3  4.0
		sinerzq * 0.2  2.0
		sinerzq * 0.1  1.0
		
@2.0	
		opacityq thumbsup 0.5 1.0
		setpos * 0.8 0.7
		setsize * 0.2 0.2

		widthq * 0.5 0.25
		widthq * 0.5 0.2
		widthq * -2.0 0.0

		heightq * 0.5 0.25
		heightq * 0.5 0.2
		heightq * -2.0 0.0
		
		return

