home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / motel_b.dir / 00024_Script_24 < prev    next >
Text File  |  1994-12-03  |  4KB  |  85 lines
  1. on loaddata
  2.   openxlib  "fileio.dll"
  3.   put FileIO(mnew,"?read","TXT") into fileobj
  4.   if objectp(fileobj) then
  5.     updatestage
  6.     set data=fileobj(mreadfile)
  7.     if (the number of lines in data)=6 then
  8.       global getpoints,getpieces,getitems,explode,etcpict,moteloldman,sheriffcheck,masterrunning,nearmiss,seedog,oldsuzan
  9.       repeat with i=1 to 8
  10.         setat getpoints,i,value(item i of line 1 of data)
  11.       end repeat
  12.       repeat with i=1 to 10
  13.         setat getpieces,i,value(item i of line 2 of data)
  14.       end repeat
  15.       repeat with i=1 to 7
  16.         setat getitems,i,value(item i of line 3 of data)
  17.       end repeat
  18.       repeat with i=1 to 4
  19.         setat explode,i,value(item i of line 4 of data)
  20.       end repeat
  21.       repeat with i=1 to 13
  22.         setat etcpict,i,value(item i of line 5 of data)
  23.       end repeat
  24.       set moteloldman=value(item 1 of line 6 of data)
  25.       set sheriffcheck=value(item 2 of line 6 of data)
  26.       set masterrunning=value(item 3 of line 6 of data)
  27.       set nearmiss=value(item 4 of line 6 of data)
  28.       set seedog=value(item 5 of line 6 of data)
  29.       set oldsuzan=value(item 6 of line 6 of data)
  30.       return true
  31.     else
  32.       updatestage
  33.       alert "Can't loaded -->This error is" && quote & "File type error" & quote
  34.       return false
  35.     end if
  36.     fileobj(mdispose)
  37.   else
  38.     return false
  39.     updatestage
  40.     if FileIO(merror,fileobj)<>"File Not Found" then
  41.       alert "Can't loaded -->This error is" && quote & FileIO(merror,fileobj) & quote
  42.     end if
  43.   end if
  44.   closexlib "fileio.dll"
  45. end
  46.  
  47. on savedata
  48.   openxlib "fileio.dll"
  49.   put FileIO(mnew,"?write","S_DATA.TXT") into fileobj
  50.   if objectp(fileobj) then
  51.     global getpoints,getpieces,getitems,explode,etcpict,moteloldman,sheriffcheck,masterrunning,nearmiss,seedog,oldsuzan
  52.     set line1=string(getat(getpoints,1)) & "," & string(getat(getpoints,2)) & "," & string(getat(getpoints,3)) & "," &ﾂ
  53.                    string(getat(getpoints,4)) & "," & string(getat(getpoints,5)) & "," & string(getat(getpoints,6)) & "," &ﾂ
  54.                    string(getat(getpoints,7)) & "," & string(getat(getpoints,8)) & return
  55.     set line2=string(getat(getpieces,1)) & "," & string(getat(getpieces,2)) & "," & string(getat(getpieces,3)) & "," &ﾂ
  56.                    string(getat(getpieces,4)) & "," & string(getat(getpieces,5)) & "," & string(getat(getpieces,6)) & "," &ﾂ
  57.                    string(getat(getpieces,7)) & "," & string(getat(getpieces,8)) & "," & string(getat(getpieces,9)) & "," &ﾂ
  58.                    string(getat(getpieces,10)) & return
  59.     set line3=string(getat(getitems,1)) & "," & string(getat(getitems,2)) & "," & string(getat(getitems,3)) & "," &ﾂ
  60.                    string(getat(getitems,4)) & "," & string(getat(getitems,5)) & "," & string(getat(getitems,6)) & "," &ﾂ
  61.                    string(getat(getitems,7)) & return
  62.     set line4=string(getat(explode,1)) & "," & string(getat(explode,2)) & "," & string(getat(explode,3)) & "," &ﾂ
  63.                    string(getat(explode,4)) & return
  64.     set line5=string(getat(etcpict,1)) & "," & string(getat(etcpict,2)) & "," & string(getat(etcpict,3)) & "," &ﾂ
  65.                    string(getat(etcpict,4)) & "," & string(getat(etcpict,5)) & "," & string(getat(etcpict,6)) & "," &ﾂ
  66.                    string(getat(etcpict,7)) & "," & string(getat(etcpict,8)) & "," & string(getat(etcpict,9)) & "," &ﾂ
  67.                    string(getat(etcpict,10)) & "," & string(getat(etcpict,11)) & "," & string(getat(etcpict,12)) & "," &ﾂ
  68.                    string(getat(etcpict,13)) & return
  69.     set line6=string(moteloldman) & "," & string(sheriffcheck) & "," & string(masterrunning) & "," &ﾂ
  70.                    string(nearmiss) & "," & string(seedog) & "," & string(oldsuzan)
  71.     set data=line1 & line2 & line3 & line4 & line5 & line6
  72.     fileobj(mwritestring,data)
  73.     fileobj(mdispose)
  74.   else
  75.     if FileIO(merror,fileobj)<>"File Not Found" then
  76.       alert "Can't saved -->This error is" && quote & FileIO(merror,fileobj) & quote
  77.     end if
  78.   end if
  79.   closexlib "fileio.dll"
  80. end
  81.  
  82.  
  83.  
  84.  
  85.