home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / rescue.dcr / 00041_èâä²âª.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  2.4 KB  |  101 lines
  1. global greslist, grestmp, gbarlist, gscoretop, gscoreend, gcnt, gflg, glife, gten, gspeed, userid, userpw, userpg, userpm, jumpmoviename, jumpmode
  2.  
  3. on startMovie
  4.   resetglobal()
  5.   if voidp(userid) then
  6.     set userid to "guest"
  7.   end if
  8.   put 0 into field "point"
  9.   put 0 into field "label"
  10.   cursor([71, 72])
  11. end
  12.  
  13. on stopMovie
  14.   put field "addinfoText1" into field "addInfo"
  15. end
  16.  
  17. on resetglobal
  18.   set greslist to []
  19.   set gbarlist to [0, 0, 0, 0, 0, 0]
  20.   set gscoretop to 35
  21.   set gscoreend to 40
  22.   set gcnt to 0
  23.   set gflg to 0
  24.   set glife to 3
  25.   set gten to 0
  26.   set gspeed to 0
  27.   initsw()
  28. end
  29.  
  30. on jumpnetmovie mname, jmode
  31.   set jumpmoviename to mname
  32.   set jumpmode to jmode
  33.   if userid = "guest" then
  34.     set jumpmode to 1
  35.   end if
  36.   repeat with s = 1 to 48
  37.     set the puppet of sprite s to 0
  38.   end repeat
  39.   if jumpmode then
  40.     gotonetmovie(mname)
  41.   else
  42.     setuserpm()
  43.   end if
  44.   go("exit")
  45. end
  46.  
  47. on setuserpm
  48.   getnettext("http://202.224.191.2/cgi-bin/EcOpe.cgi?name=" & userid & "&password=" & userpw & "&amount=" & userpg & "¶meter=" & userpm)
  49. end
  50.  
  51. on checknetresult
  52.   if jumpmode then
  53.     exit
  54.   end if
  55.   if netdone() then
  56.     set nresult to nettextresult()
  57.     if nresult starts "<" then
  58.       alert(deletetag(nresult))
  59.       go("1")
  60.       abort()
  61.     else
  62.       if nresult starts "E000" then
  63.         if line 1 of nresult = "E0000" then
  64.           set rtext to "Error : Server System Error"
  65.         else
  66.           if line 1 of nresult = "E0001" then
  67.             set rtext to "Error : " & userid & "The name is not registered."
  68.           else
  69.             if line 1 of nresult = "E0002" then
  70.               set rtext to "Error : The password is wrong."
  71.             else
  72.               if line 1 of nresult = "E0003" then
  73.                 set rtext to "Error : The parameter's form is wrong."
  74.               else
  75.                 if line 1 of nresult = "E0003" then
  76.                   set rtext to "Error : Your balance is short - you cannot make a withdrawal."
  77.                 end if
  78.               end if
  79.             end if
  80.           end if
  81.         end if
  82.         alert(rtext)
  83.         go("1")
  84.         abort()
  85.       else
  86.         set jumpmode to 1
  87.         gotonetmovie(jumpmoviename)
  88.       end if
  89.     end if
  90.   end if
  91. end
  92.  
  93. on deletetag ctext
  94.   repeat while ctext contains "<"
  95.     set fchar to offset("<", ctext)
  96.     set echar to offset(">", ctext)
  97.     delete char fchar to echar of ctext
  98.   end repeat
  99.   return ctext
  100. end
  101.