TU

[OPEN-SOURCE] PokeXCrazy

Por Tungs, 30 de nov. de 2018 em OTServer Alternativo (ATS)

102
35.9k
STWorksS
01 de dezembro de 2018 às 19:15
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?

 

HaisemSasH
02 de dezembro de 2018 às 07:47

[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? 

lSaintyL
03 de dezembro de 2018 às 15:31
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.

batuaxB
03 de dezembro de 2018 às 18:12

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 

leonidascL
03 de dezembro de 2018 às 19:01
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.

MarshmelloM
03 de dezembro de 2018 às 19:39
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

boxxer321B
03 de dezembro de 2018 às 20:50

Sem sistema de TM....

xmaster0X
03 de dezembro de 2018 às 21:41

eu logo, mas a conta fica deslogando sozinha :/

MarshmelloM
03 de dezembro de 2018 às 21:44

@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

 

xmaster0X
03 de dezembro de 2018 às 22:30

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

Editado Dezembro 3 por xmaster0

Th3g1m3sT
04 de dezembro de 2018 às 10:37

OTC desse servidor bugado.

boxxer321B
04 de dezembro de 2018 às 10:57

Alguém conseguiu utilizar o sistema de TM?

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

Editado Dezembro 5 por boxxer321

07 de dezembro de 2018 às 00:57

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

07 de dezembro de 2018 às 14:43

Que doidera é essa? kkk

 

image.thumb.png.848a3238ab8bca932b48bf0cf65415cf.png

image.thumb.png.fca3f39d438d62aab240bf36846aacb9.pngé bug ou ta incompleto?

ClaudioMar231oC
07 de dezembro de 2018 às 17:15

removido

Editado Dezembro 20 por ClaudioMar231o