Advertisement
Guest User

Untitled

a guest
Jun 29th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.97 KB | None | 0 0
  1.  
  2.     <StationType UNID="&stStasisPodPlacement1;" backgroundObject="true" virtual="true">
  3.         <Events>
  4.             <OnGlobalSystemCreated>
  5.                 (if (eq (sysGetNode) 'SK) (sysCreateStation &stStasisPodPlacement2; (sysVectorPolarOffset Nil 0 10000)))
  6.             </OnGlobalSystemCreated>
  7.         </Events>
  8.     </StationType>
  9.  
  10.     <StationType UNID="&stStasisPodPlacement2;"
  11.             name=               "Gate Keeper"
  12.             attributes=         "GateKeeper"
  13.             levelFrequency=     "----- ----- ----- ----- -----"
  14.             locationCriteria=   ""
  15.             >
  16.         <Image imageID="&rsStar1;" imageX="0" imageY="0" imageWidth="1" imageHeight="1"/>
  17.         <Events>
  18.             <OnCreate>
  19.                 (sysAddObjTimerEvent 5 gSource 'place)
  20.             </OnCreate>
  21.             <Place>
  22.                 (block (sta itm)
  23.                     (setq sta (sysFindObject gSource "TF+stKatsArcology"))
  24.                     (setq itm (itmCreate &itStasisPodOff; 3))
  25.                     (objAddItem obj itm)
  26.                 )
  27.             </Place>
  28.         </Events>
  29.     </StationType>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement