001 $waitforplayer = [TRUE]
002
003 while $waitforplayer
004 skip if [THIS] -> exists
005 break
006
007 $playersector = [PLAYERSHIP] -> get sector
008 if $playersector == [SECTOR]
009 $waitforplayer = [FALSE]
010 else
011 @ = wait randomly from 15000 to 25000 ms
012 end
013 end
014
015 $maxID = [PLAYERSHIP] -> get SectorObject ID
016 $maxID = $maxID + 10000
017 while $maxID
018 dec $maxID =
019 $wareType = get ware type of SectorObject $maxID
020 if $wareType
021 $mainType = get maintype of ware $wareType
022 if $mainType == 30
023 $object = get object from SectorObject $maxID
024 skip if not $object -> exists
025 $object -> destruct: show no explosion=[TRUE]
026 end
027 end
028 end
029 return null
Bookmarks