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