Jump to content

GHOSTKILLER1546

Members
  • Posts

    32
  • Joined

  • Last visited

GHOSTKILLER1546's Achievements

Rat

Rat (9/54)

0

Reputation

  1. Hola, como dice el titulo quisiera aprender script avanzado para mejorar la creacion de un server que estoy haciendo. Porfavor quisiera que me ayudaran de alguna manera.
  2. Hola a todos, tengo un pequeño problema en este resource, estuve viendo varios post sobre adaptar el boss en la gamemode DayZ, el detalle es que al morir no se crea el cuerpo para recoger el premio que tiene en el cuerpo, y no da la experiencia para el quien lo mata espero que me puedan ayudar, se los agradeceria mucho SERVER --local hillRadar = createRadarArea ( 93, 1800, 200, 200, 181, 0, 0, 200 ) function BossDayZ ( ) nemesi = exports [ "slothBot" ]:spawnBot ( 206.19999694824, 1860.4000244141, 20.60000038147, 90, 33, 0, 0, Nemesis, 38, "hunting", true ) setElementData( nemesi, "blood", 10000000 ) outputChatBox ("#9E0000Nemesis Respawned!",getRootElement(), 255, 255, 255, true ) outputChatBox ("#9E0000Nemesis: #9E0000 Grrr Grrr!",getRootElement(), 255, 255, 255, true ) local sound = playSound3D("data/nemesis.mp3",x,y,z,false) end addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), BossDayZ ) function onPedAttack ( attacker ) if ( isElement ( attacker ) == true ) then if ( getElementModel ( attacker ) == 33) then setElementData ( source, getElementData(source, "blood") - 400) setElementData ( ptarget, source, "blood" - 200) end end end addEventHandler( "onPlayerDamage", getRootElement ( ), OnPedAttack ) addEvent ( "getBloodBoss", true ) function getBloodBoss( nemesi ) if ( isElement ( nemesi ) ) then killPed ( nemesi ) destroyElement ( nemesi ) end end addEventHandler ( "getBloodBoss", getRootElement(), getBloodBoss ) function destroyDeadBoss (boss,bossCol) destroyElement(boss) destroyElement(bossCol) end function killBoss(killer,headshot) --Aqui inicia el problema if killer then setElementData(killer,"experience",getElementData(killer,"experience")+15000) end local skin = getElementModel(source) local x,y,z = getElementPosition(source) local boss = createPed(skin,x,y,z) local bossCol = createColSphere(x,y,z,1.5) killPed(boss) setTimer(destroyDeadBoss,360000 ,1,bossCol,boss) attachElements (bossCol,boss,0,0,0) setElementData(bossCol,"parent",boss) setElementData(bossCol,"playername","Nemesis") setElementData(bossCol,"deadman",true) setElementData(boss,"deadzombie",true) setElementData(bossCol,"deadman",true) setElementData(bossCol,"MAX_Slots",12) setElementData(bossCol,"Medic Kit", 10) setElementData(bossCol,"Antibiotics", 10) setElementData(bossCol,"Blood Bag", 10) setElementData(bossCol,"Transfusion Kit", 10) local hours,minutes = getTime() local loot_table = "" setElementData(bossCol,"deadreason","Someone murderer, but how?. Estimated time of death: "..hours..":"..minutes) for i, id in ipairs(ZombieLoot) do if skin == id[1] then loot_table = tostring(id[2]) end end for i, item in ipairs(zombieLootType[loot_table]) do local value = math.percentChance(item[2],math.random(0,1)) setElementData(bossCol,item[1],value) local ammoData,weapID = getWeaponAmmoFromName (item[1],true) if ammoData and value > 0 then setElementData(bossCol,ammoData,math.random(0,1)) end end end addEvent("onBotWasted",true) addEventHandler("onBotWasted",root,killBoss) function RespawnBoss() setTimer(BossDayZ,360000 ,1) end addEvent("onBotWasted",true) addEventHandler("onBotWasted",getRootElement,RespawnBoss) CLIENTE function Skinemesis1() txd = engineLoadTXD("data/107.txd", 2 ) engineImportTXD(txd, 2) dff = engineLoadDFF("data/107.dff", 2 ) engineReplaceModel(dff, 2) end addEventHandler ( "onClientResourceStart", getResourceRootElement(getThisResource()), Skinemesis1) function getBloodBoss ( attacker, weapon, bodypart ) if ( isElement ( attacker ) ) then if ( getElementModel ( source == 33 ) ) then setElementData ( source, getElementData(source, "blood") - 600) if ( getElementData( source, "blood") < 1 ) then triggerServerEvent ( "getBloodBoss", root ) end end end end addEventHandler ( "onClientPedDamage", root, getBloodBoss )
  3. no amigo, que me puedes recomendar hacer Si eres mayor de edad busca un hosting que acepten pagos por Western unión gracias amigo
  4. Esto del host no me queda muy claro, por eso necesito que me ayuden a saber todo sobre esto, consejos de como comprar host o VPS, o si se puede conseguir gratis(ya que no cuento con ningún método de pago). También que necesito hacer después para subir mi server 24 horas. Se los agradeceria demasiado.
  5. Este es un nuevo servidor estilo Dayz Standalone (Zombis) que llevo creando y editando un buen tiempo, que al fin pude "terminar". Este servidor contiene: *22 Skins diferentes. *Sistema de Chalecos y Cascos. *Sistema de Craft. *Sistema de Lanza granadas. *Debug Monitor único. *Selección de Genero (Masculino y Femenino). *Nuevo scoreboard. *Nuevo Inventario. *Sistema de Lenguaje. *Nuevo GPS y brújula. *Mira para cada armas (por clase). *47 Armas diferentes. *24 Vehículos. Despues estare agregando mas cosas con el paso del tiempo y si el servidor progresa, espero que les guste y se diviertan. Visiten la pagina para mas informacion. Pagina Oficial: http://theghostarmando.wix.com/survival-legend No pude subirimagenes al foro, pero aqui esta un URL para que las vean. Imagenes: https://archive.org/details/Screen9 Pronto subire un video sobre este.
  6. Este error esta provocando un lag en mi servidor ya que en todo momento esta marcando, el problema es que no recuerdo cual resource tenia el evento, hay alguna forma de saber en que ubicacion se encuentra? Por si la imagen no se ve: https://archive.org/details/hjghjh_20160530
  7. Es lo mismo, no se puede crear un objeto con ID booleana. else if (getWeaponObjectID(weapID)) then elementWeaponbBack[source] = createObject(getWeaponObjectID(weapID1),x,y,z) setObjectScale(elementWeaponbBack[source],0.875) end end Por ahora agrege lo que pusiste: elementWeaponbBack = {} function weaponSwitchbBack ( previousWeaponID, currentWeaponID ) local weapon2 = getElementData(source,"currentweapon_2") if not weapon2 then return end local ammoData1,weapID1 = getWeaponAmmoFromName(weapon2) local x,y,z = getElementPosition(source) local rx,ry,rz = getElementRotation(source) if previousWeaponID == weapID1 then if elementWeaponbBack[source] then detachElementFromBone(elementWeaponbBack[source]) destroyElement(elementWeaponbBack[source]) elementWeaponbBack[source] = false end if weapon2 == "Baseball Bat" then elementWeaponbBack[source] = createObject(336,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Shovel" then elementWeaponbBack[source] = createObject(337,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Crowbar" then elementWeaponbBack[source] = createObject(333,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Hunting Knife" then elementWeaponbBack[source] = createObject(335,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "--" then else if (getWeaponObjectID(weapID)) then elementWeaponbBack[source] = createObject(getWeaponObjectID(weapID1),x,y,z) setObjectScale(elementWeaponbBack[source],0.875) end end if elementBackpack[source] then attachElementToBone(elementWeaponbBack[source],source,3,-0.18,-0.05,-0.1,-0.1,0,260) else attachElementToBone(elementWeaponbBack[source],source,3,-0.18,-0.05,-0.1,-0.1,0,260) end elseif currentWeaponID == weapID1 then detachElementFromBone(elementWeaponbBack[source]) destroyElement(elementWeaponbBack[source]) elementWeaponbBack[source] = false end end addEventHandler ( "onPlayerWeaponSwitch", getRootElement(), weaponSwitchbBack ) Arreglo los dos primeros, pero sigue dando el error en la linea 40 destroyElement, no entiendo porque
  8. La funcion es esta function getWeaponObjectID (weaponID) for i,weaponData in ipairs(weaponIDtoObjectID) do if weaponID == weaponData[1] then return weaponData[2] end end end
  9. Nose porque marca esto en el server, pero en el juego funciona bien, porfavor me podrian decir porque marca este error. WARNING: BACKPACK.lua: 28 : Bad argument @ 'createObject' [excepted number at argument 1, got boolean] WARNING: BACKPACK.lua: 29 : Bad argument @ 'setObjectScale' [excepted number at argument 1, got boolean] WARNING: BACKPACK.lua: 38 : Bad argument @ 'DestroyElement' [excepted number at argument 1, got boolean] elementWeaponbBack = {} function weaponSwitchbBack ( previousWeaponID, currentWeaponID ) local weapon2 = getElementData(source,"currentweapon_2") if not weapon2 then return end local ammoData1,weapID1 = getWeaponAmmoFromName(weapon2) local x,y,z = getElementPosition(source) local rx,ry,rz = getElementRotation(source) if previousWeaponID == weapID1 then if elementWeaponbBack[source] then detachElementFromBone(elementWeaponbBack[source]) destroyElement(elementWeaponbBack[source]) elementWeaponbBack[source] = false end if weapon2 == "Baseball Bat" then elementWeaponbBack[source] = createObject(336,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Shovel" then elementWeaponbBack[source] = createObject(337,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Crowbar" then elementWeaponbBack[source] = createObject(333,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "Hunting Knife" then elementWeaponbBack[source] = createObject(335,x,y,z) setObjectScale(elementWeaponbBack[source],0.875) elseif weapon2 == "--" then else elementWeaponbBack[source] = createObject(getWeaponObjectID(weapID1),x,y,z) setObjectScale(elementWeaponbBack[source],0.875) end if elementBackpack[source] then attachElementToBone(elementWeaponbBack[source],source,3,-0.18,-0.05,-0.1,-0.1,0,260) else attachElementToBone(elementWeaponbBack[source],source,3,-0.18,-0.05,-0.1,-0.1,0,260) end elseif currentWeaponID == weapID1 then detachElementFromBone(elementWeaponbBack[source]) destroyElement(elementWeaponbBack[source]) elementWeaponbBack[source] = false end end addEventHandler ( "onPlayerWeaponSwitch", getRootElement(), weaponSwitchbBack )
  10. No, me refiero que si quiero poner varios objetos de una coordenada hasta otra muy lejos, asi como si fuera a hacer un panel.
  11. Quisiera saber si existen herramientas para el map editor, estoy pensando en hacer un mapa que reemplace el de gta, pero se que costara mucho tiempo, por eso me gustaría saber si hay herramientas mas fáciles para esto, se los agradeceria demaciado.
  12. ¿Por que esta a la venta si cualquier newbie puede hacerlo? @GHOSTKILLER1546 puedes crear una imagen y luego renderizarla y despues checar si el player esta apuntando o no con getKeyState. y si quisiera hacerlo para el primera persona esta mas complicado no?
×
×
  • Create New...