home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_61_cfmRetreive.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  597 b   |  29 lines
  1. property pNetId, pFieldName, pURL, precordData
  2.  
  3. on new me, aURL, fieldname, aBoolean
  4.   if voidp(aBoolean) then
  5.     aBoolean = 0
  6.   end if
  7.   pURL = aURL
  8.   precordData = aBoolean
  9.   pFieldName = fieldname
  10.   member(pFieldName).text = EMPTY
  11.   getCFMData(me)
  12.   add(the actorList, me)
  13. end
  14.  
  15. on stepFrame me
  16.   if not netDone(pNetId) then
  17.     return 
  18.   end if
  19.   if (netError(pNetId) = EMPTY) or (netError(pNetId) = "OK") then
  20.     processResults(netTextresult(pNetId), pFieldName, precordData)
  21.   end if
  22.   deleteOne(the actorList, me)
  23. end
  24.  
  25. on getCFMData me
  26.   bdGetNetText(pURL)
  27.   pNetId = getLatestNetID()
  28. end
  29.