home *** CD-ROM | disk | FTP | other *** search
/ PC Joker 2000 December / PCJ1200CD2.ISO / JOKER95.EXE / JOKER95.dxr / Scripts_13.ls < prev    next >
Encoding:
Text File  |  2000-10-17  |  618 b   |  23 lines
  1. on aktpatch
  2.   global gInst, gInstMode, gInf, gLink
  3.   set gInstMode to 2
  4.   set gInst to the applicationPath & "patches"
  5.   set gInf to "patches"
  6.   put "Patches" into field "Ihre Auswahl"
  7.   StartButt()
  8.   set the member of sprite 2 to member "InfDe"
  9.   set the member of sprite 3 to member "ScreenDe"
  10.   set the member of sprite 5 to member "WWWDe"
  11.   updateStage()
  12.   changeviewI()
  13.   if objectp(myfile) then
  14.     set myfile to 0
  15.   end if
  16.   set myfile to new(xtra("fileio"))
  17.   openFile(myfile, gInf & ".txt", 1)
  18.   set theFile to readFile(myfile)
  19.   put theFile into field "InfoFenster"
  20.   closeFile(myfile)
  21.   set myfile to 0
  22. end
  23.