<% browsertype=LCase(Request.ServerVariables("HTTP_USER_AGENT")) query_string = Request.ServerVariables("QUERY_STRING") if ( (InStr(browsertype, "kindle") + InStr(browsertype, "silk") + InStr(browsertype, "kindle fire")) >0 ) then Response.redirect "http://www.games2win.com/en/amazon-games/kindle-fire-game-apps.asp" End If if ( (InStr(browsertype, "ipad")) >0 ) then Response.redirect "http://www.games2win.com/en/ios-games/ios-ipad-game-apps.asp" End If if ( (InStr(browsertype, "android")) >0 ) then if((InStr(query_string,"utm_source=game"))>0)then 'Response.redirect "http://www.games2win.com/en/android-games/android-game-apps.asp" Response.redirect "http://www.games2win.com/corporate/privacy-policy.asp" else Response.redirect "http://www.games2winmedia.com/our-games" End if End If if ( (InStr(browsertype, "iphone") + InStr(browsertype, "ipod") + InStr(browsertype, "itouch")) >0 ) then Response.redirect "http://www.games2win.com/en/ios-games/ios-iphone-game-apps.asp" End If if ( (InStr(browsertype, "android")) >0 ) then if((InStr(query_string,"privacy-policy.asp"))>0)then Response.redirect "https://www.games2win.com/corporate/privacy-policy-mobile.asp" else Response.redirect "https://www.games2win.com/corporate/privacy-policy.asp" End if End If if ( (InStr(browsertype, "iphone") + InStr(browsertype, "ipod") + InStr(browsertype, "itouch")) >0 ) then if((InStr(query_string,"privacy-policy.asp"))>0)then Response.redirect "https://www.games2win.com/corporate/privacy-policy-mobile.asp" else Response.redirect "https://www.games2win.com/corporate/privacy-policy.asp" End if End If if ( (InStr(browsertype, "windows phone") ) >0 ) then Response.redirect "http://www.games2win.com/en/windows-games/windows-game-apps.asp" End If if ( (InStr(browsertype, "windows tablet") + InStr(browsertype, "touch")) >0 ) then Response.redirect "http://www.games2win.com/en/windows-games/windows-tab-game-apps.asp" End If Response.redirect "http://www.games2winmedia.com/our-games" %> <% SetLanguage = Request.Cookies("language") 'Response.Write(SetLanguage) page = split(Request.ServerVariables("URL"),"/") section_name = page(2) section_name = replace(section_name,".asp","") 'Response.Write(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")) 'if SetLanguage =""then SetLanguage = page(1) 'end if if SetLanguage <>"" then SetLanguage = SetLanguage 'Response.Write(SetLanguage) else SetLanguage = "en" end if if SetLanguage ="en" then char_set = "UTF-8" set appDict = appDictEnglish char_code = 1252 end if if SetLanguage ="zh" then char_set = "UTF-8" set appDict = appDictChinese char_code = 65001 end if if SetLanguage ="fr" then char_set = "UTF-8" set appDict = appDictFrench char_code = 65001 end if if SetLanguage ="es" then char_set = "UTF-8" set appDict = appDictSpenish char_code = 65001 end If if SetLanguage ="de" then char_set = "UTF-8" set appDict = appDictGerman char_code = 65001 end If if SetLanguage ="it" then char_set = "UTF-8" set appDict = appDictItalian char_code = 65001 end If if SetLanguage ="nl" then char_set = "UTF-8" set appDict = appDictDutch char_code = 65001 end If if SetLanguage ="ru" then char_set = "UTF-8" set appDict = appDictRussian char_code = 65001 end If if SetLanguage ="no" then char_set = "UTF-8" set appDict = appDictNorwegian char_code = 65001 end If if SetLanguage ="sv" then char_set = "UTF-8" set appDict = appDictSwedish char_code = 65001 end If if SetLanguage ="da" then char_set = "UTF-8" set appDict = appDictDanish char_code = 65001 end If if SetLanguage ="fi" then char_set = "UTF-8" set appDict = appDictFinnish char_code = 65001 end If if SetLanguage ="pl" then char_set = "UTF-8" set appDict = appDictPolish char_code = 65001 end If if SetLanguage ="el" then char_set = "UTF-8" set appDict = appDictGreek char_code = 65001 end If if SetLanguage ="br" then char_set = "UTF-8" set appDict = appDictPortuguese char_code = 65001 end If if SetLanguage ="ja" then char_set = "UTF-8" set appDict = appDictJapanese char_code = 65001 end If if SetLanguage ="cs" then char_set = "UTF-8" set appDict = appDictCzech char_code = 65001 end if if SetLanguage ="ko" then char_set = "UTF-8" set appDict = appDictKorean char_code = 65001 end if if SetLanguage ="tw" then char_set = "UTF-8" set appDict = appDictChineseTaiwan char_code = 65001 end if if SetLanguage ="tr" then char_set = "UTF-8" set appDict = appDictTurkish char_code = 65001 end if if SetLanguage ="hu" then char_set = "UTF-8" set appDict = appDictHungarian char_code = 65001 end if if SetLanguage ="bg" then char_set = "UTF-8" set appDict = appDictBulgarian char_code = 65001 end if if SetLanguage ="ro" then char_set = "UTF-8" set appDict = appDictRomanian char_code = 65001 end if if SetLanguage ="sk" then char_set = "UTF-8" set appDict = appDictSlovak char_code = 65001 end if session("lang") = SetLanguage 'Check whether the page is home page, section page or game page if ubound(page) =2 then 'Include section file - desi, bolyywod, etc... include_file = "/"&SetLanguage&"/gamemenu_"§ion_name&".html" 'For Home page featured_include_file = "/"&SetLanguage&"/"&"homepage_feat.html" teen_include_file = "/"&SetLanguage&"/"&"homepage_teen.html" exotic_include_file = "/"&SetLanguage&"/"&"homepage_desi.html" international_include_file = "/"&SetLanguage&"/"&"homepage_intl.html" misc_include_file = "/"&SetLanguage&"/"&"homepage_misc.html" bollywood_include_file = "/"&SetLanguage&"/"&"homepage_blyw.html" cricket_include_file = "/"&SetLanguage&"/"&"homepage_crkt.html" sports_include_file = "/"&SetLanguage&"/"&"homepage_sprt.html" shooting_include_file = "/"&SetLanguage&"/"&"homepage_shot.html" logic_include_file = "/"&SetLanguage&"/"&"homepage_logc.html" action_include_file = "/"&SetLanguage&"/"&"homepage_actn.html" 'Response.Write(include_file) 'Response.End() ' Game page then else Set xmlGamePage = Server.CreateObject("Microsoft.XMLDOM") xmlGamePage.async = False end if Response.CodePage = char_code response.Charset= char_set 'Look UP Function for Cacheing XML values function LookUp(keyname) LookUp = empty If appDict.Exists(keyname)= True then LookUp = appDict.item(keyname) Else Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM") CommonFilePath = "/"&SetLanguage&"/"&"common.xml" xmlCommon.async = False xmlCommon.load (Server.MapPath(CommonFilePath)) 'Response.Write(keyname) 'Response.End() 'Find Item in DOM, FoundItem FoundItem = xmlCommon.getElementsByTagName(keyname).item(0).text 'Put FoundItem into Global Array appDict.Add keyname, FoundItem 'Return = FoundItem.value LookUp = FoundItem end if end function ' ' ' For Common Language and HomePage ********************************************************** ' ' 'Response.Buffer = True ' ' 'Set xmlCommon = Server.CreateObject("Microsoft.XMLDOM") '' Set xmlHome = Server.CreateObject("Microsoft.XMLDOM") ' ' ' SetLanguage = Request.Cookies("language") ' if SetLanguage ="" then ' SetLanguage = "en" ' end if ' ' '' CommonFilePath = "/"&SetLanguage&"/"&"common.xml" '' GameListFilePath = "/"&SetLanguage&"/"&"homepage.xml" '' '' xmlCommon.async = False '' xmlHome.async = False ' Dim xmlCommon ' if SetLanguage ="en" then ' char_set = "ISO-8859-1" ' 'xmlCommon1 = Application("appDict") ' char_code = 1252 ' end if ' if SetLanguage ="zh" then ' char_set = "gb2312" ' ' char_code = 936 ' ' end if ' if SetLanguage ="fr" then ' char_set = "ISO-8859-1" ' ' char_code = 1252 ' end if ' if SetLanguage ="sp" then ' char_set = "ISO-8859-1" ' ' char_code = 1252 ' end if ' ' 'page = split(Request.ServerVariables("URL"),"/") ' 'Response.Write(xmlCommon1.value) ' 'Response.Write "hello" ' ' 'Response.Write(xmlCommon.getElementsByTagName("featured_game_tab").item(0).text) ' 'Response.End() ' ' 'Set objLstFeaturedTab = xmlHome.getElementsByTagName("featured_online_games_tab") '' Set objLstTeenTab = xmlHome.getElementsByTagName("teen_games_tab") '' Set objLstExoticTab = xmlHome.getElementsByTagName("exotic_games_tab") '' Set objLstInternationalTab = xmlHome.getElementsByTagName("international_games_tab") '' Set objLstMiscellaneousTab = xmlHome.getElementsByTagName("miscellaneous_games_tab") '' Set objLstBollywoodTab = xmlHome.getElementsByTagName("bollywood_games_tab") '' Set objLstCricketTab = xmlHome.getElementsByTagName("cricket_games_tab") '' Set objLstSportsTab = xmlHome.getElementsByTagName("sports_games_tab") '' Set objLstShootingTab = xmlHome.getElementsByTagName("shooting_games_tab") '' Set objLstLogicTab = xmlHome.getElementsByTagName("logic_games_tab") ' ' 'Response.Write( objLst(0) ' 'Response.Write(objLstFeaturedTab.length) ' 'Response.End() ' ' 'Set objLst = xml.getElementsByTagName("header") ' ' 'headingtag = xmlCommon.getElementsByTagName("headingtag").item(0).text ' 'hometab = xmlCommon.getElementsByTagName("hometab").item(0).text ' 'featuredtab = xmlCommon.getElementsByTagName("featuredtab").item(0).text ' 'Response.Write(headingtag) ' 'Set xmlCommon = Nothing ' '%>
preview preview
Tesoro Isla
Jugar Tesoro Isla
previewpreview

Descripcion:

Riquezas y la gloria espera de los piratas. Será la búsqueda cada vez mayor. Pero es usted quien decide su destino. Ayudar a estos piratas de la conquista de la Isla del Tesoro.

Instrucciones:

Paso 1 Haga clic y mantenga en un barco para ver el número en su bandera Paso 2 Haga clic en el muelle con el buque de la serie Paso 3 Haga clic aquí tantas veces como el número del buque El número de barras de indicar el número de buques que deben ser estacionadas en cada muelle.Haga clic en el cañón y luego en el barco enemigo a golpe ella. Haga clic en el cañón de nuevo para anular su selección.Las naves enemigas con un signo de una corona en sus banderas.Cuando un tornado de visitas, haga clic en el ahogamiento barco y luego en el bote de rescate para salvar a los piratas.