home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #2 / CKSPCV32.BIN / movies / clubroom.dir / 00182_Script_clsCellStraight < prev    next >
Text File  |  1995-04-03  |  608b  |  19 lines
  1.  
  2. property ancestor
  3. property orient --  0 -north-south; 1 east-west
  4. property pictureLeft -- a cast that can hang on the left of orient 0 direction 0
  5. property pictureRight -- a cast that can hang on the right of orient 0 direction 0
  6. -----------------------------------------------------------
  7. on birth me, myOrient
  8.   set orient to myOrient 
  9.   set ancestor  to birth(script  "clsCell")
  10.   
  11.   set the cellType of me to  "S" & numToChar(orient) 
  12.   return me
  13. end
  14. -------------------------------------------------------------
  15. on getMarkerName me, direction
  16.   
  17.   return "Straight"
  18. end getMarkerName
  19.