[OPEN-SOURCE] PokeXCrazy

[STWorks 2]

42 minutos atrás, Jair Kevick disse:

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

Kevick, se o OTC apresentar alguns problemas, oq devo fazer?

 

[HaisemSas 0]

[02/12/2018 07:46:11] [Error - CreatureScript Interface] 
[02/12/2018 07:46:11] data/creaturescripts/scripts/player/login.lua:onLogin
[02/12/2018 07:46:11] Description: 
[02/12/2018 07:46:11] (luaDoItemSetAttribute) Item not found 

Oque quer dizer exatamente? 

[lSainty 81]

Em 01/12/2018 em 14:27, pikalisa disse:

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!!!

O OTC tem vários executáveis, mas só 1 deles está funcionando corretamente, teste os outros.

[batuax 1]

o kevick é tão pal no cu que posta base dos outros e com varias coisas errada esse cliente não é da base esse fdp pegou o projeto dos outros e postou assim como o evolution tenho varias print comprovando isso caso a moderação do forum quiser ver 

[leonidasc 0]

47 minutos atrás, batuax disse:

o kevick é tão pal no cu que posta base dos outros e com varias coisas errada esse cliente não é da base esse fdp pegou o projeto dos outros e postou assim como o evolution tenho varias print comprovando isso caso a moderação do forum quiser ver 

Você teria o client verdadeiro ? Achei muito interessante o servidor.

[Marshmello 270]

1 hora atrás, batuax disse:

o kevick é tão pal no cu que posta base dos outros e com varias coisas errada esse cliente não é da base esse fdp pegou o projeto dos outros e postou assim como o evolution tenho varias print comprovando isso caso a moderação do forum quiser ver 

Você está em um forum, não em um ring de luta, então abaixe o tom nos tipos de comentarios

[boxxer321 67]

Sem sistema de TM....

[xmaster0 3]

eu logo, mas a conta fica deslogando sozinha

[Marshmello 270]

@xmaster0

Troque seu login.lua por esse

 

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

 

[xmaster0 3]

Ohh mano vlw kkk eu tinha visto seu login.lua agorinha, mas eu tava lendo config.lua e fiquei sem entender kkk

Editado Dezembro 4, 2018 por xmaster0

[Th3g1m3s 2]

OTC desse servidor bugado.

[boxxer321 67]

Alguém conseguiu utilizar o sistema de TM?

@Jair Kevick sugiro que de alguma explicação. 

Editado Dezembro 5, 2018 por boxxer321

[ReginaldoFilho 4]

Amigo tem algum site pra recomendar que rode em php 7? esses Modern que achei por ai, quando nãoe stão quebrados, estão com script totalmente defasados, queria algo mais atual para meu ponto de partida!! Obrigado desde já!

[ReginaldoFilho 4]

Que doidera é essa? kkk

 

é bug ou ta incompleto?

[ClaudioMar231o 15]

removido

Editado Dezembro 20, 2018 por ClaudioMar231o