home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / scripts / common.tcl < prev    next >
Text File  |  2005-12-06  |  397b  |  13 lines
  1. proc checkIngredient { name } {
  2.   if { [getVar "wantToChangeZakInDragon"] == "ok" &&
  3.        [getVar "hasTakeTheCirclet"] == "ok" &&
  4.        [getVar "hasTakeTheBook"] == "ok" &&
  5.        [getVar $name] == "ok" } {
  6.     return "ok"
  7.   }
  8.   return ""
  9. }
  10.  
  11. #PS: Need to paste this: "source "../res/scripts/tools.tcl" at top of every tcl file I will use it.
  12. #EXEMPLE: check Crescent Coast Waterway
  13.