home *** CD-ROM | disk | FTP | other *** search
/ 15 Beaut Aussie Games 1 / BEAUTGAMESV1.iso / pc / Windows / data1.cab / Program_Files / dswmedia / games / canetoad.dcr / ezoneControl_1_initProtection2.ls < prev    next >
Encoding:
Text File  |  2002-01-01  |  2.3 KB  |  89 lines
  1. global domainList, author, version, domainName, ezoneControl
  2.  
  3. on initProtection
  4.   repeat with i = 1 to 48
  5.     puppetSprite(i, 0)
  6.     set the visible of sprite i to 1
  7.   end repeat
  8.   domainList = ["ezone.com", "lennyinspace.com", "loosejocks.com", "pussuckers.com"]
  9.   case the runMode of
  10.     "plugin":
  11.       if voidp(ezoneControl) then
  12.         if the moviePath contains "http://" then
  13.           urlOK = 0
  14.           getDomainName()
  15.           repeat with i in domainList
  16.             if domainName = i then
  17.               urlOK = 1
  18.               exit repeat
  19.             end if
  20.           end repeat
  21.           if not urlOK then
  22.             jumpOut("Sorry, you can't play this game here, but you can play it at Ezone.com")
  23.           end if
  24.         else
  25.         end if
  26.       else
  27.         init(ezoneControl)
  28.         puppetSprite(2, 1)
  29.         set the member of sprite 2 to member("sponsor")
  30.       end if
  31.     "author":
  32.       if voidp(author) then
  33.         jumpOut("Sorry, you can't play this game here, but you can play it at Ezone.com")
  34.       end if
  35.     "projector":
  36.       if voidp(ezoneControl) then
  37.         jumpOut("Sorry, you can't play this game here, but you can play it at Ezone.com")
  38.       else
  39.         init(ezoneControl)
  40.         puppetSprite(2, 1)
  41.         set the member of sprite 2 to member("sponsor")
  42.       end if
  43.   end case
  44. end
  45.  
  46. on savedLocal
  47.   if voidp(ezoneControl) then
  48.     getNetText("http://www.ezone.com/cgi-bin/smlog.cgi?type=addlog&game=" & the movieName)
  49.     alert("Be sure to check out http://www.ezone.com for more great games to download with your shockMachine!")
  50.   else
  51.     smlog(ezoneControl)
  52.   end if
  53. end
  54.  
  55. on getDomainName
  56.   domainName = EMPTY
  57.   fullPath = the moviePath
  58.   delete char 1 to 7 of fullPath
  59.   repeat with i = 1 to length(fullPath)
  60.     if char i of fullPath = "/" then
  61.       exit repeat
  62.       next repeat
  63.     end if
  64.     domainName = domainName & char i of fullPath
  65.   end repeat
  66.   repeat with i = 1 to length(domainName)
  67.     if char i of domainName = "." then
  68.       cutOff = i
  69.       exit repeat
  70.     end if
  71.   end repeat
  72.   domainName = char cutOff + 1 to length(domainName) of domainName
  73. end
  74.  
  75. on jumpOut whatMessage
  76.   alert(whatMessage)
  77.   gotoNetPage("http://www.ezone.com")
  78.   go("theEnd")
  79.   quit()
  80. end
  81.  
  82. on goHighScores
  83.   if voidp(ezoneControl) then
  84.     go("credits")
  85.   else
  86.     goHighScores(ezoneControl)
  87.   end if
  88. end
  89.