Ir para conteúdo

[OPEN-SOURCE] PokeXCrazy


Tungs

Posts Recomendados

9 minutos atrás, Duhisback disse:

antivirus ta bloqueando o download pelo jeito tem algo infectado, acho que deve ser o exe!

Pode ser um falso positivo também, joga no vírus total e vê com o que está infectado.

Link para o comentário
Compartilhar em outros sites

@deividjulio159 Troca seu login.lua por esse

 

Spoiler

local config = {
	loginMessage = getConfigValue('loginMessage'),
	useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}
local megasStones = {15131, 15133, 15136, 15793, 15783, 15781, 15794, 15784, 15780, 15792}
local megasToPlayer = {
	["Alakazite"] = {id = 15131, megaID = "", pokeName = "Alakazam"},
	["Blastoisinite"] = {id = 15133, megaID = "", pokeName = "Blastoise"},	
	["Gengarite"] = {id = 15136, megaID = "", pokeName = "Gengar"},	
	
	["Venusaurite"] = {id = 15793, megaID = "", pokeName = "Venusaur"},	
	["Kangaskhanite"] = {id = 15783, megaID = "", pokeName = "Kangaskhan"},
	["Tyranitarite"] = {id = 15781, megaID = "", pokeName = "Tyranitar"},
	["Ampharosite"] = {id = 15794, megaID = "", pokeName = "Ampharos"},	
	["Scizorite"] = {id = 15784, megaID = "", pokeName = "Scizor"},	
	
	["Aggronite"] = {id = 15780, megaID = "", pokeName = "Aggron"},		
	["Blazikenite"] = {id = 15792, megaID = "", pokeName = "Blaziken"},	
}
function BetaItem(cid)
	if getPlayerStorageValue(cid, storages.betaStorage) == -1 then
		addPokeToPlayer(cid, "Shiny Ditto", 0, nil, "poke", true)
		setPlayerStorageValue(cid, storages.betaStorage, 1)
		doSendMsg(cid, "Você ganhou um Shiny Ditto, uma TV Cam e uma Mega Stone para testalos a vontade.")
		
		item = doCreateItemEx(12330)
		doItemSetAttribute(item, "unique", getCreatureName(cid))
		doPlayerAddItemEx(cid, item)
		
		local mega = megasStones[math.random(1, #megasStones)]
		
		for a, b in pairs(megasToPlayer) do
			if mega == b.id then 
				addPokeToPlayer(cid, b.pokeName, 0, nil, "shinyyume", true, a)
				break
			end
		end	
	end
end

function AutoLootinit(cid)
	if getPlayerStorageValue (cid, storages.AutoLootCollectAll) == -1 then
	setPlayerStorageValue(cid, storages.AutoLootCollectAll, "no")
	end
	return true 
	end

function onLogin(cid)

if isFirstLogin(cid) then
doPlayerAddKitInicial(cid)
if getPlayerSex(cid) == 0 then
doSetCreatureOutfit(cid, {lookType = 511, lookHead = math.random(1, 150), lookBody = math.random(1, 150), lookLegs = math.random(1, 150), lookFeet = math.random(1, 150)}, -1)
end
end

if isInOutland(cid) then
doTeleportThing(cid, {x=1054, y=1046, z=7})
setPlayerStorageValue(cid, outlandGeneralConfiguration.storageStatus, 2)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você deslogou na outland e foi teleportado de volta para o cp de saffron.")
return true
end

    doPlayerSetVocation(cid, 10)
	doSendPlayerExtendedOpcode(cid, 126, "nao")
	doResetPlayerTVSystem(cid)	
	resetStoragesDailyCatch(cid) -- by deadpool
	
	if not isGod(cid) then
	   setPlayerGroupId(cid, 1)
	   doRegainSpeed(cid)
	end
	
		if isGod(cid) then -- Resetar diarias se for God
			setPlayerStorageValue(cid, storages.miniQuests.storDayTask1, -1)
			setPlayerStorageValue(cid, storages.miniQuests.storDayTask2, -1)
			setPlayerStorageValue(cid, storages.miniQuests.storDayTask3, -1)
			setPlayerStorageValue(cid, storages.miniQuests.storDayTask4, -1)
		end
		
    if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then
       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0)
    else     
       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) )
	end

	doRegainSpeed(cid)
 
 --////// storages \\\\\\-- 
   doEreaseDuel(cid)
   setPlayerStorageValue(cid, 500, -1)
   setPlayerStorageValue(cid, 8085, 0)
   --// duel
   setPlayerStorageValue(cid, storages.requestCountPlayer, 0)
   setPlayerStorageValue(cid, storages.requestCountPokemon, 0)
   setPlayerStorageValue(cid, storages.requestedPlayer, 0)
   --// duel
 --////// storages \\\\\\-- 
 
 --////// Eventos \\\\\\-- 
     registerCreatureEvent(cid, "ShowPokedex")
     registerCreatureEvent(cid, "ClosePokedex")
 	 registerCreatureEvent(cid, "Mail")
	 registerCreatureEvent(cid, "WildAttack")
	 registerCreatureEvent(cid, "GuildMotd")
	 registerCreatureEvent(cid, "Idle")
	 registerCreatureEvent(cid, "ReportBug")
	 registerCreatureEvent(cid, "AdvanceSave")
	 registerCreatureEvent(cid, "Bots")
	 --Adicionados \/
	 registerCreatureEvent(cid, "PlayerLogout")
	 registerCreatureEvent(cid, "LookSystem")
	 registerCreatureEvent(cid, "Opcode")
	 registerCreatureEvent(cid, "EmeraldShop")
	 registerCreatureEvent(cid, "PokeStats")
	 registerCreatureEvent(cid, "PokeWalk")
	 registerCreatureEvent(cid, "PokeSleep")
	 registerCreatureEvent(cid, "MoveItem")
	 registerCreatureEvent(cid, "UpLevel")
	 registerCreatureEvent(cid, "BlockWords")
	 --registerCreatureEvent(cid, "PartySystem")
	 registerCreatureEvent(cid, "Target")
	 registerCreatureEvent(cid, "GeneralConfiguration")
	 registerCreatureEvent(cid, "EffectOnAdvance")
	 registerCreatureEvent(cid, "TradeRequest")
	 registerCreatureEvent(cid, "TradeAccpet")  
	 registerCreatureEvent(cid, "embeddedTp")  	
	 registerCreatureEvent(cid, "adventurerDungeon")
	 registerCreatureEvent(cid, "speedDrk")
	 registerCreatureEvent(cid, "cofreLook")
	 registerCreatureEvent(cid, "workshops")
	 registerCreatureEvent(cid, "moto")	
	 registerCreatureEvent(cid, "mecha")	
	 registerCreatureEvent(cid, "uniqueItem")
	 registerCreatureEvent(cid, "berrys")
	 registerCreatureEvent(cid, "Fboots")		 	
	 registerCreatureEvent(cid, "uniqueItemSys")			 		 
	 registerCreatureEvent(cid, "Outland")		  	  	
 --////// Eventos \\\\\\-- 
 
	if(not isPlayerGhost(cid)) then
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
	end
   
local legs = getPlayerSlotItem(cid, CONST_SLOT_LEGS)
local ball = getPlayerSlotItem(cid, 8)

	if getPlayerSlotItem(cid, CONST_SLOT_FEET).uid ~= 0 then
		doItemEraseAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "healthChanged")
	end
	--doOTCSendPokemonHealth(cid)
	--doClearPokemonStatus(cid)

	if isRiderOrFlyOrSurf(cid) and ball.uid ~= 0 then 
	local pokeName = getItemAttribute(ball.uid, "poke")
	
					if isInArray({"ditto", "shiny ditto"}, pokeName:lower()) then
					   pokeName = getItemAttribute(ball.uid, "copyName")
					end
	
                     local outfit = getPokemonOutfitToSkill(pokeName)
                     local speed = getPokemonSpeedToSkill(pokeName)
						 doSetCreatureOutfit(cid, {lookType = outfit + 351}, -1)
						 
						 doChangeSpeed(cid, -getCreatureSpeed(cid))
						 doChangeSpeed(cid, speed)
						 
						 if isRider(cid) then
							setPlayerStorageValue(cid, orderTalks["ride"].storage, 1)
							local pb = getPlayerSlotItem(cid, 8).uid
local doGet = getItemAttribute(pb, "rideAddon") 
local poke = getCreatureSummons(cid)[1]
if doGet then
doSetCreatureOutfit(cid, {lookType = doGet}, -1)
return true
end
						 elseif isFly(cid) then
							setPlayerStorageValue(cid, orderTalks["fly"].storage, 1)
local pb = getPlayerSlotItem(cid, 8).uid
local doGet = getItemAttribute(pb, "flyAddon") 
local poke = getCreatureSummons(cid)[1]
if doGet then
doSetCreatureOutfit(cid, {lookType = doGet}, -1)
return true
end
							  if not hasSqm(getThingPos(cid)) then
							  --   doCreateItem(460, 1, getThingPos(cid))
							  end
						 elseif isSurf(cid) then
							setPlayerStorageValue(cid, orderTalks["surf"].storage, 1) -- rever o markedPos
local pb = getPlayerSlotItem(cid, 8).uid
local doGet = getItemAttribute(pb, "surfAddon") 
local poke = getCreatureSummons(cid)[1]
if doGet then
doSetCreatureOutfit(cid, {lookType = doGet}, -1)
							doChangeSpeed(cid, -getCreatureSpeed(cid))
							doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))
return true
end
							doChangeSpeed(cid, -getCreatureSpeed(cid))
							doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))
						 end
						 doTeleportThing(cid, getMarkedSpawnPos(cid))
						 setPokemonGhost(cid)
    end                    
	
	setPlayerStorageValue(cid, storages.gobackDelay, -1)
	setPlayerStorageValue(cid, storages.pokedexDelay, -1)
	setPlayerStorageValue(cid, 154585, -1)
	doAddFirstItemsToPlayer(cid)
	AutoLootinit(cid)
	--doAddShoppingItem(cid)
		
	-- otclient life
		doSendLifePokeToOTC(cid)
	-- otclient life
	
	
	return true
end

function doAddFirstItemsToPlayer(cid)
local config = {
			storage = 30001,
			items = {1988, 1987, 2382, 2120, 2550, 2580, 7385, 2395}
			-- 7385 (pokeinfo)
			-- 2395 (portfoil)  ok
			-- 2382	(pokedex)	ok
			-- 2550 (order)		ok
			-- 1987 (bag)		ok
			-- 1988 (badge case)	ok
			-- 2120 (rope)		ok
			-- 2580 (fishing rod)	ok
		}
	        setPlayerCap(cid, 7)
			if getCreatureName(cid) == "Account Manager" then
				doSetCreatureOutfit(cid, {lookType = 655}, -1)
			return true
			end
			if getPlayerStorageValue(cid, storages.BugFishing) ~= -1 then return true end
			
		    if getPlayerSlotItem(cid, CONST_SLOT_ARMOR).itemid > 0 then
			return true
			end
			
			for _, id in ipairs(config.items) do
				doPlayerAddItem(cid, id, 1)
			end
			local bag = getPlayerItemById(cid, false, 1988).uid
			doAddContainerItem(bag, 12267, 1)
			doAddContainerItem(bag, 12266, 1)
			doAddContainerItem(bag, 12264, 1)
			doAddContainerItem(bag, 12265, 1)
			doAddContainerItem(bag, 12263, 1)
			doAddContainerItem(bag, 12262, 1)
			doAddContainerItem(bag, 12261, 1)
			doAddContainerItem(bag, 12260, 1)
			setPlayerStorageValue(cid, duelTable.wins, 0)
			setPlayerStorageValue(cid, duelTable.loses, 0)
			local pokeBag = getPlayerItemById(cid, false, 1987).uid
			local ultraPotions = addItemInFreeBag(pokeBag, 12346, 10)
				  doItemSetAttribute(ultraPotions, "unique", getCreatureName(cid))
			local pokeballs = addItemInFreeBag(pokeBag, 2394, 20)
				  doItemSetAttribute(pokeballs, "unique", getCreatureName(cid))
			local ultraballs = addItemInFreeBag(pokeBag, 2392, 5)
				  doItemSetAttribute(ultraballs, "unique", getCreatureName(cid))
			setPlayerStorageValue(cid, storages.BugFishing, 1)
			doTeleportThing(cid, getTownTemplePosition(1), false)

return true
end

local itensShopping = {
	[1] = {{2394, 100}, {12344, 25}, {12286, 2}},
	[2] = {{2391, 200}, {2393, 100}, {2392, 100}},
	[3] = {{12832, 1}},
	[4] = {{12286, 1}},
	[5] = {premiumDays = 30}
}

function doAddShoppingItem(cid)
	local allItems = {}
	local compra = 0
	local msg = ""
	local result = db.getResult("SELECT itemID, compraID FROM playercompras WHERE playerID = '" .. getPlayerGUID(cid) .. "' AND entregue = 0")
	if result:getID() ~= -1 then
		compra = result:getDataInt("compraID")
	    allItems[#allItems+1] = result:getDataInt("itemID")
		db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";")
		while(result:next()) do
			allItems[#allItems+1] = result:getDataInt("itemID")
			compra = result:getDataInt("compraID")
			db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";")
		end
	end
	
	if #allItems > 0 then
		for i = 1, #allItems do
			if allItems[i] == 5 then
				doPlayerAddPremiumDays(cid, itensShopping[allItems[i]].premiumDays)
				msg = "Seu pacote de '30 premium days' foi adicionado a sua conta com sucesso!"
				doSendMsg(cid, msg)
			else
			local bag = doCreateItemEx(12694) -- cubone bag de gratis
				for j = 1, #itensShopping[allItems[i]] do
					doAddContainerItem(bag, itensShopping[allItems[i]][j][1], itensShopping[allItems[i]][j][2])
				end
			
				doPlayerSendMailByName(getCreatureName(cid), bag, 1)
				msg = "Os itens que foram comprados pelo shopping foram enviados para seu cp."
				doSendMsg(cid, msg)
			end
		end
	end
end

function addSkillsToDB(cid)
		local str1 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 5, 5, 0);"
		local str2 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 6, 5, 0);"
			db.executeQuery(str1)
			db.executeQuery(str2)
end

 

Isso e por no login tem um array bloqueando contas no registrada pro closebeta

Link para o comentário
Compartilhar em outros sites

Pessoal, aqui está dando um erro ao criar a conta no login.lua, o boneco criado fica invisível e todo bugado, não da para abrir a bag e nasce no cp. Se alguém puder me ajudar porfavor. Valeu!!!

Link para o comentário
Compartilhar em outros sites

1 hora atrás, fabiosa disse:

algum é grave?

nops e n tem vírus... esse site deu 3/alguma coisa... quer dizer que 3 antivirus detectou algo.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...