eminem990
:Label046DCC
03A4: name_thread "EEGGS"
^ Create easter eggs in game
08B1: 0@ = 0.0
08B1: 1@ = 0.0
08B1: 2@ = -100.0
08B1: 3@ = -180.0
^ Spawn coordinates and their integers
02E4: $var2028F1E = ""
02E4: $var2028F23 = ""
02E4: $var2028F27 = ""
^ Unknown easter eggs
02E4: $var2028F2A = "od_newufo"
^ UFO
02E4: $var2028F2E = "sasquatch01"
^ Bigfoot
016A: 0 1
038E: 320.0 224.0 640.0 448.0 0 0 0 255
^ Unknown
0050: gosub ££Label04949A
^ Create characterictics for easter eggs
0050: gosub ££Label047376
^ Spawn easter eggs if coordinates are correct
0208: 11@ = random float -3000.0 3000.0
0208: 12@ = random float -3000.0 3000.0
0208: 13@ = random float 150.0 2000.0
0208: 14@ = random float -2500.0 -1500.0
0208: 15@ = random float -2800.0 -1750.0
0208: 16@ = random float 50.0 250.0
^ Spawn coordinates and their integers
029B: $var2028F1E = init_object -230 (od_newufo) at 11@ 12@ 13@
^ UFO spawns at (11,12) and (13) high
05CB: -1 $var2028F1E 10000
0605: $var2028F1E "" "" 8.0 1 0 0 0 -1
060B: $var2028F1E
0568: $var2028F1E 1
^ UFO characteristics
009A: $var2028F23 = create_actor -223 #sasquatch01 at 14@ 15@ 16@
^ Bigfoot spawns at (14,15) and (16) high
05CB: 12 $var2028F23 15000
0605: $var2028F23 "" "" 6.0 1 1 1 1 -1
060B: $var2028F23
0568: $var2028F23 1
^ Bigfoot characteristics
0001: wait 100000 ms
^ Wait for Bigfoot to appear
0002: jump ££Label046DCC
^ Jump easter eggs to new location
:Label04949A
^ List characteristics
0209: 40@ = random int 0 49
^ Spawn at random integers?
01BD: 41@ = current_time_in_ms
^ Spawn at random times
01C4: remove_references_to_object $var2028F1E;;
^ Jump object to unknown location
01C2: remove_references_to_actor $var2028F23;;
^ Change characteristics
:Label04949E
^ Unknown object
0001: wait 600000 ms
^ Wait to spawn
00D6: if 2
^ Coordinates must be correct
003A: 41@ >= 20000;; integer values and handles
803A: NOT 41@ >= 6000;; integer values and handles
003F: 40@ == 0;; integer values and handles
^ Unknown object's spawn integers
004D: jump_if_false ££Label04949A
^ Jump if coordinates are wrong
0051: return
^ Return when coordinates are correct
:Label047376
^ Request easter eggs
0247: request_model -230 (od_newufo)
^ Request UFO if integers are correct
0247: request_model -223 (sasquatch01)
^ Request Bigfoot if integers are correct
:Label04737D
^ Spawn specifications listed below
0001: wait 0 ms
^ Wait for right spawn time
00D6: if 0
^ Spawns if time is correct
0248: model -230 (od_newufo) available
^ UFO appears when everything is correct
0248: model -223 (sasquatch01) available
^ Bigfoot appears when everything is correct
004D: jump_if_false ££Label04737D
^ Jump if anything is false
0051: return
^ Return when correct
è in inglese