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