Link to thread : http://80.237.211.54/viewtopic.php?t=21 ... d705eae768
basic code to find him :
Code: Select all
Script glen.findpearle
Version: 0
for Script Engine Version: 41
Description
Description
Arguments
1: sector , Var/Sector , 'sector to search in'
Source Text
001 if $sector == null
002 |return null
003 end
004
005 $shiptype = Space Suit
006 $findflags = [Find.Nearest] | [Find.Multiple]
007
008 $stations = find station: sector=$sector class or type=null race=null flags=$findflags refobj=[THIS] maxdist=null maxnum=20 refpos=null
009
010 if $stations == null
011 |return null
012 end
013
014 $count = size of array $stations
015
016 $iStation = 0
017 while $iStation < $count
018 |$station = $stations[$iStation]
019 |if $station != null
020 ||
021 ||$ship = $station -> find ship: class or type=$shiptype race=null flags=0 refobj=$station maxnum=1 with homebase=null
022 ||
023 ||$station.name = $station -> get name
024 ||$sector.name = $sector -> get name
025 ||
026 ||if $ship != null
027 |||write to player logbook: printf: fmt='found spacesuit at sector '%s' station '%s'', $sector.name, $station.name, null, null, null
028 ||end
029 ||
030 ||
031 |end
032 |inc $iStation =
033 end
034 return null
Code: Select all
Script glen.ejectpearle
Version: 0
for Script Engine Version: 41
Description
Description
Arguments
1: station , Var/Station , 'station'
Source Text
001 $pearle = $station -> find ship: class or type=Space Suit race=Terran flags=0 refobj=$station maxnum=1 with homebase=null
002 if $pearle != null
003 @ |= $pearle -> move to position: x=0 y=0 z=0 with precision 1000 m
004 end
005 return null