home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / obj.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  928 b   |  27 lines
  1. main local.index local.status local.objective local.location:
  2.     if (local.index == NIL)
  3.         exec global/error.scr ("Error, tried to create an objective with no index.")
  4.     if (local.status == NIL)
  5.         exec global/error.scr ("Error, tried to create an objective with no status.")
  6.  
  7.     if (local.status == complete)
  8.         local.status = 3
  9.     if (local.status == shown)
  10.         local.status = 2
  11.     if (local.status == hidden)
  12.         local.status = 1
  13.  
  14.     if (((local.status != 1) && (local.status != 2) && (local.status != 3)) || (local.status == current))
  15.     {
  16.         local.objective = waitthread global/string_format.scr::str_format local.objective 41
  17.         addobjective local.index 2 local.objective local.location
  18.         setcurrentobjective local.index
  19.         local.status = 2
  20.     }
  21.     else
  22.     {
  23.         local.objective = waitthread global/string_format.scr::str_format local.objective 41
  24.         addobjective local.index local.status local.objective local.location
  25.     }
  26. end
  27.