divnos77

playersettingsmodule.py
en emotions, escriben esto, los numeros
"EMOTICON+25" se tiene que corregir a el cliente de ustedes, por que si tienen 25-29 no pueden usar los mismos numeros.
los "[TAB]" no se escriben, es solo una ayuda para que pongan los tabuladores.
screen:http://prntscr.com/17jbx9
 
 
game.py
screen de commandlist:
Debes iniciar sesión para ver el contenido del enlace en esta publicación. screen de la funcion abajo:
Debes iniciar sesión para ver el contenido del enlace en esta publicación. buscan a esto
def __ServerCommand_Build(self):
serverCommandList={
y pongan abajo de eso, esto
 
 
uichat.py
screen:
Debes iniciar sesión para ver el contenido del enlace en esta publicación. buscan a esto
def __SendChatPacket(self, text, type):
y escriben a bajo esto
 
 
para usar el shining como en mi video
tienen q cargar el pack archivo, y ponerlo en el cliente de ustedes, en el pack ruta.
despues tienen que editar el index a
*
shining
como se ve en el screen aqi

Debes iniciar sesión para ver el contenido del enlace en esta publicación. lo que falta es la quest aqi esta
1 rojo
2 azul
3 orage
4 amarillo
5 verde
para que tenga una armadura ese shining, solo nesesitan editar la tabla,
 
[vnumdelaarmadura]={shiningnumero,vnumdelaarmadura},
 

quest testshining begin state start begin when login begin loop_timer("check",1) end when check.timer begin local items={ [11200]={1,11200},--los items que qiera tener un shining, lo pongan aqi [11201]={2,11201}, [11202]={3,11202} } pc.setqf("check",pc.get_armor()) if pc.get_armor()==0 then pc.setqf("use",0) pc.setqf("check",1) pc.setqf("last",2) end if pc.getqf("check")!= pc.getqf("last") then pc.setqf("use",0) pc.setqf("last",2) end if pc.getqf("check")!= pc.getqf("last") and pc.getqf("use")==0 then if pc.get_armor() == items[pc.get_armor()][2] then pc.setqf("last",pc.get_armor()) cmdchat("peng "..items[pc.get_armor()][1].."") pc.setqf("use",1) end end end end end

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Buenas a todos hoy vengo a traeros un login que he realizado gracias a HaveGone, un gran diseñador.
 
Aqui una preview.
 
 

 
Y aqui os dejo los archivos y os explico como editarlo.
 
Una vez descargados los adjuntos...
 
Vamos a root, abrimos constinfo.py, y agregamos lo siguiente:
 

abierto = 0  
ahora, vamos a intrologin.py
 
y buscamos:
 

self.sema.SetPosition(300, 160) Aqui cada uno lo pondrá en la pantalla cambiando esas coordenadas.
 
luego
 

self.sema.AddFlag("movable") Esto sirve para que podais mover el login por toda la pantalla arrastrandolo, si no lo quereis, simplemente borrais esa linea.
 
y luego lo mas importante.
 
 
buscamos:
 

def __ch1(self): y dentro veremos lo siguiente:
 

self.stream.SetConnectInfo("192.168.2.90", 13001, "192.168.2.90", 11002) 1 net.SetServerInfo("Nombre - Ch 1") 2 net.SetMarkServer("192.168.2.90", 13001) 3 self.serverInfo.SetText("Nombre - Ch 1") 4 app.SetGuildMarkPath("10.tga") 5 app.SetGuildSymbolPath("10") 6 Aqui lo editamos
 
 
1- Ponemos nuestra ip , puerto de channel, la ip de nuevo y puerto de login
 
2- Ponemos el nombre del ch
 
3- Ponemos nuestra ip y el puerto de channel
 
4- Ponemos el nombre del servidor ( esto es para que se vea debajo del minimapa )
 
5- No lo tocamos
 
6- No lo tocamos.
 
Y bueno , esto es todo si teneis algun tipo de error me comentais.
 
Gracias a HaveGone por las imágenes.
 
Link Mega:
 
Nuevo Link: Con un pequeño bug fix...
 
Login.rar (98 KB)

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
tambien lo podeis bajar aqui:
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Holla,
para la gente que qiera un editor de lua
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación. es un direkt link.
 
el Programm se llama SciTe y es mi favorido para trabajar con tablas en lua, con ese editor ise por ejemplo el itemshop completo en lua despues, lo escribi en Metin.

Bueno chicos , os traigo estos metines, que a my me gustan un monton , espero que os guste.

 
Espero que os guste estan bastante buenos , y bien echos
Fuente : epvp
 
Descarga :
Debes iniciar sesión para ver el contenido del enlace en esta publicación.

NO LLEVAR A OTROS FOROS, APORTE SOLO PARA METIN2 ZONE

Bueno, aqui os dejo 4529 iconos mas del runes of magic, aclaro que los saque yo mismo del juego.




Varias Imagenes para guiaros:



Descarga:
Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Saludos y agradezcan si les gusto

Buenas zoneros y zoneras,
 
Hace tiempo que no posteaba ninguna quest, asi que hoy me ha dado por haceros un "mini-sistema" para que lo podais meter en vuestro servidores si os gusta
 
Lo he llamado sistema de "Puntos Metin" y como el nombre sugiere tiene que ver con los metines. Por cada metin que destruyas en el servidor obtendrás una determinada cantidad de un item que yo bautize como "Esfera Metin" pero que cada uno puede llamar como quiera (yo os dejo el tga del item por si lo quereis).
 
Las esferas que te da cada metin son diferentes (configurables a voluntad) y ademas os he hecho un npc de canjes para que podais llevar vuestras esferas metin y canjearlas por los items que querais (vosotros configurais el npc) .
 
Primero unas fotitos del proceso:
 
1 - Petando un metin, te da esferas:
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
* Detalle: La quest reconoce automaticamente que metin destruyes y te da los puntos correspondientes a ese metin, mas abajo os enseñare a editar los puntos.
 
2 - Esta es una esfera metin:
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
3 - Vamos al npc de los canjes:
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
4 - Elegimos el item a canjear:
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
5 - Si no tenemos las esferas suficientes saldra este mensaje, si las tenemos nos dara el item y nos quitara las esferas correspondientes (podeis poner el coste de cada item al lado del nombre en el local).
 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
Y bueno ahora que os he explicado un poco como va, aqui os dejo la quest:
 
 
 
 
(Aqui en pastebin para quien la prefiera tener con las tabs
Debes iniciar sesión para ver el contenido del enlace en esta publicación.)  
Y bueno ahora os voi a enseñar como editarla:
 
Paso 1 - Los metines:
 
Para añadir nuevos metines ponemos su id en el array y vamos a configurarles el nombre y esferas que daran:
 

local metin = { [8001] = {1,"Metin de Dolor"}, [8002] = {1,"Metin de Combate"}, [8003] = {2,"Metin de Batalla"}, [8004] = {2,"Metin de Avaricia"}, [8005] = {3,"Metin Negro"}, [8006] = {3,"Metin de Oscuridad"}, [8007] = {3,"Metin de Celos"}, [8008] = {4,"Metin de Alma"}, [8009] = {4,"Metin de Sombra"}, [8010] = {5,"Metin de Dureza"}, [8011] = {5,"Metin de Demonio"}, [8012] = {6,"Metin de Caida"}, [8013] = {6,"Metin de Muerte"}, [8014] = {8,"Metin Asesino"}, [8024] = {10,"Metin Pung-Ma"}, [8025] = {11,"Metin de Ma-An"}, [8026] = {12,"Metin de Tu-Young"}, [8027] = {13,"Metin Jeon-Un"} } Este array contiene 3 elementos
 

[8027] Entre [ ] la id del metin de nuevo, si quereis añadir uno nuevo la poneis igual
 

{12,"Metin de Tu-Young"}, Entre { va primero la cantidad de esferas que dara (en este caso 12) una coma y luego entre " " el nombre del metin (es opcional, lo dice por el chat al peta uno).
 
Si quereis añadir una nueva linea pos haceis asi:
 

{esferas,"nombre"}, Ojo! El ultimo de los metines NO debe llevar una , al acabar el }
 
Y lo ultimo es poner la id de las esferas en el give_item
 

pc.give_item2("27003",metin[npc.get_race()][1]) Donde yo tengo 27003 (si, las potas rojas G, me aburria xd) vosotros pondreis la id que le pongais a la esfera (o el item que useis).
 
Paso 2: El npc de los canjes
 
Podeis ponerle tantos canjes como querais, yo en este caso he puesto 7 posibles canjes que podemos editar de la siguiente manera:
 

local elegir = select("Item1","Item2","Item3","Item4","Item5","Item6","Item7","Cancelar") Ponemos el nombre del item en cada caso. Si quereis añadir mas podeis hacer otra pagina (aunque a la segunda tendreis que hacerle vosotros las condiciones :trollface: ).
 
Luego debeis configurar este array:
 

local premios = { {27002,1,27003,1}, -- Premio1 {27002,5,27003,2}, -- Premio2 {27002,10,27003,3}, -- Premio3 {27002,15,27003,4}, --Premio4 {27002,50,27003,5}, --Premio5 {27002,100,27003,6}, --Premio6 {27002,200,27003,7} --Premio7 (sin la , despues del } recordad) } Os explico que hace cada cosa:
 
- El 27002 es el item que te daran al canjear cada elemento.
- El numero siguiente es la cantidad del premio que te daran.
- El tercer elemento es la id de las esferas o el item que useis como necesario para canjear
- El cuarto elemento es la cantidad de esferas que pedira cada premio.
 
Si quereis añadir mas recordar que el local anterior esta ligado a este, asi que si haceis otra pagina tendreis que usar otro array (o hacerlo normal).
 
Y eso seria todo, el resto de la quest ya esta configurada.
 
Espero que os guste :tiocereales:
 
P.D: Os dejo adjunto el icono de la esfera metin (solo icono sin item_proto ni na ya lo haceis vosotros :trolldad: )

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Os regalo la armadura de ninja masculino para vosotros, dagas no incluidas. (En la foto los pies salen bajo tierra porque estoy en una zona del mapa que es así) solo vengo a regalaros para que la tengáis en vuestros servidores y podáis disfrutar de ella tanto como la disfruto yo cada día.

Enlace de descarga: Debes iniciar sesión para ver el contenido del enlace en esta publicación.
Contraseña: metin2zone.net

NO LLEVAR A OTROS FOROS, APORTE SOLO PARA METIN2 ZONE

Holaa, que tal? xD

Bueno, Hoy me siento generoso :yaoming: y ya que he descompilado Runes of Magic, os dejo sus 4950 iconos.



Unas fotos viene bien:




Descarga:
Debes iniciar sesión para ver el contenido del enlace en esta publicación.


Saludos y agradezcan

Buenas gente de MZ
 
buscando en Internet encontré estos efectos de habilidades.
Pues ami la verdad me han parecido muy guapos estos efectos vienen en pc epk lo descompilan y van por ejemplo a Sourceymir workpcwarrioreffect y pegan hay y reemplazan..
si tienen alguna duda mandenme mp.
 
los creditos: la verdad no se de quien son simplemente encontre los efectos por hay googleando..
 
Hay les dejo un video de las habilidades del ninja

http-~~-//www.youtube.com/watch?v=_3K4ZPpp0WU
 
descarga:
Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
si les sirvio no olviden dar gracias y me gusta saludos

Listo chicos ya estan fixeados todos los errores que tenía la tool, un pequeño error de sintaxis que tuve, como dije todavía soy principiante. Actualizado el link en el post.

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Hola chicos hoy os traigo mi nuevo proyecto, el cual llevo unas semanas haciendo en mi afán por aprender PHP.
 
 
SerexTool - WebTool for private servers

Esta herramienta os ayudara en la gestión del servidor, es perfecta para una gestión rápida y sencilla, con las operaciones más comunes cuenta con muchísimas opciones que os facilitarán vuestra tarea en la administración de vuestro servidor.


Gestión de Cuentas



 
Gestión de jugadores



 
Gestión del servidor






La herramienta como veis es bastante completa. En cuanto al apartado de "Ingresar coins" lleva otra contraseña y te da la opción de registrar los logs de quien mete MDs para controlar este tema que suele ser de los más importantes.


 
Su instalación es bastante sencilla, una vez descargada la tool, la subis a vuestro sitio web en una carpeta o directorio vacío y modificais el archivo config.php con vuestros datos para vuestro servidor, y el acceso a la tool por user y pass.

Si queréis el log para el ingreso de coins debéis ejecutar esta query en la base de datos account:

/* Navicat MySQL Data Transfer[/center] Source Server : METIN2 ELEMENTS Source Server Version : 50528 Source Host : localhost Source Database : website Target Server Type : MYSQL Target Server Version : 50528 File Encoding : 65001 Date: 2013-05-06 23:46:50 */ SET FOREIGN_KEY_CHECKS=0; -- ---------------------------- -- Table structure for `coins_log` -- ---------------------------- DROP TABLE IF EXISTS `coins_log`; CREATE TABLE `coins_log` ( `cuenta` varchar(100) NOT NULL, `coins_ingresadas` varchar(100) NOT NULL, `motivo` varchar(100) NOT NULL, `ip` varchar(100) NOT NULL ) ENGINE=MyISAM DEFAULT CHARSET=latin1; -- ---------------------------- -- Records of coins_log Y lo que esperabais la descarga: Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Informacion:
Hola a todos aca les traigo una quest de una item shop en el juego. realizada en su totalidad por mi
Contiene:
-Historial de Compras(log)
-Historial De Donaciones (log)
-Ingreso Como administrador (Agregar artículos / y quitarlos)
-Tienda: Lecto de coins (Este archivo ha de ser creado manualmente)
-Imagenes:
 
Importante:
 
Dentro de la descarga hay un archivo llamado vnumUtype.txt este se le modifica la extencion a .lua
 
pathti="/usr/home/game/share/locale/germany/quest/test/" <<-- en esta ruta la tabla de la item shop y el vnumUtype.lua
pathtc="/usr/home/game/share/locale/germany/quest/coins/"
 
Se crea una nueva carpeta en las rutas anteriores, que depende de usted.
Más importante aún es un punto que hay que generar la tabla en el juego,
como un ejemplo de la matriz que me queda, por lo que puede orientarse a la misma.
 
special thx on stein20 for help to translate
 
imagen
 
 
 
Quest
 

quest ingameshop begin state start begin when 20006.chat."recharge ccoins" begin say_title(mob_name(npc.get_race())) spenden() end when 20006.chat."generate table" with pc.is_gm() begin --if pc.get_gm_level()!=5 then return end say("really generate table?") if select("Yes","No")==2 then return end local ingameshop={ --[[ if you use this first time, push Yes ]] {--weapons {item1,item2},--ids {coins1,cois2}--coins }, {--armor {item1,item2},--ids {coins1,coins2}--coins }, {--special tems {item1,item2},--ids {coins1,item2}--coins } } table.save(ingameshop,pathti.."testtabelle.lua") end when 20006.chat."ItemShop" begin local name_items={} local ingameshop=table.load(pathti.."testtabelle.lua") say_title(mob_name(npc.get_race())) say() say("Choose your category") local auswahl=select3(itemshopk) for i=1,table.getn(ingameshop[auswahl][1]) do table.insert(name_items,tostring(item_name(ingameshop[auswahl][1][i]))) end say_title(mob_name(npc.get_race())) say() say("select the item ") say() local itemshop_i = select3(name_items) if itemshop_i == table.getn(name_items) then return end say_title(string.format("Coins :%d ", get_coins())) say() say("Would you really buy the item?") say() say_gold("it cost "..ingameshop[auswahl][2][itemshop_i].." Coins") say_item_vnum(ingameshop[auswahl][1][itemshop_i]) say("") if select("Yes","No") == 2 then return end if get_coins()<ingameshop[auswahl][2][itemshop_i] then say("not enough coins ") return end say_green("you have buy "..item_name(ingameshop[auswahl][1][itemshop_i]).." for- ") say_green(ingameshop[auswahl][2][itemshop_i].." Coins") say_item_vnum(ingameshop[auswahl][1][itemshop_i]) coins_write((get_coins()-ingameshop[auswahl][2][itemshop_i])) pc.give_item2(ingameshop[auswahl][1][itemshop_i]) write_log(ingameshop[auswahl][1][itemshop_i],ingameshop[auswahl][2][itemshop_i]) end when 20006.chat."Manage Itemshop" with pc.is_gm() begin local tabelle=table.load(pathti.."vnumUtype.lua") local i_shop=table.load(pathti.."testtabelle.lua") say_title(mob_name(npc.get_race())) say() say("Hello "..string.format("%s",pc.get_name())) say("What would you like do?") local s=select("add new items","removing Items","Nothig") if s==3 then return end if s==1 then say_title(mob_name(npc.get_race())) say() say("Choose a category") say("where you want to add the item") local auswahl=select3(itemshopk) say_title(mob_name(npc.get_race())) say() say(itemshopk[auswahl]..": insert into this category?") if select("Yes","No") == 2 then return end say_title(mob_name(npc.get_race())) say() say("Which item you wish to add?") say("Enter the vnum") local vnum= tonumber(input()) if vnum ==nil then say("You have to enter something") return end if auswahl== 1 then if tabelle[vnum][1] != 1 then say("This is not a weapon") return end elseif auswahl == 2 then if tabelle[vnum][1] != 2 then say("This is not a amor") return end elseif auswahl == 3 then if tabelle[vnum][1] == 1 or tabelle[vnum][1]==2 then say("only for special items") return end end say_title(mob_name(npc.get_race())) say() say("Give the price of that item") say() local money= tonumber(input()) if money==nil then say("You have to enter something") return end say_title(mob_name(npc.get_race())) say() say("keeping?") say() say("Item: "..item_name(vnum).." Price: "..money) say_item_vnum(vnum) if select("Yes","No") == 2 then return end i_shop[auswahl][1][table.getn(i_shop[auswahl][1])+1]=vnum i_shop[auswahl][2][table.getn(i_shop[auswahl][2])+1]=money --table.insert(i_shop[auswahl][1],vnum) --table.insert(i_shop[auswahl][2],money) table.save(i_shop,pathti.."testtabelle.lua") say("you have add "..item_name(vnum)) elseif s==2 then local auswahl_items={} say("Choose the item that you wish to remove") say() local a=select3(itemshopk) for i=1,table.getn(i_shop[a][1]) do table.insert(auswahl_items,tostring(item_name(i_shop[a][1][i]))) end say("Choose the item that you wish to remove") say() local itemshop_r = select3(auswahl_items) if itemshop_r==table.getn(auswahl_items) then return end table.remove(i_shop[a][1],i_shop[a][1][itemshop_r]) table.remove(i_shop[a][2],i_shop[a][2][itemshop_r]) table.save(i_shop,pathti.."testtabelle.lua") --[[for i= 1,table.getn(ingameshop[auswahl][1]) do say(i_shop[auswahl][1][i].."\t"..i_shop[auswahl][2][i]) end]] end end end end questlib.lua
 

pathti="/usr/home/game/share/locale/germany/quest/test/"--ruta de la tabla pathtc="/usr/home/game/share/locale/germany/quest/coins/"--ruta de los coins itemshopk={"Waffe","Rüstungen","Sonstiges"} function write_log(vnum,coins) local i_name=item_name(vnum) datei = io.open(pathti.."shop_log.lua", "a+") if datei==nil then say("Error loading the file") return end datei:write("PLayerID:\t"..pc.get_player_id().."\tPlayerName:\t"..pc.get_name().."\tItemName:\t"..i_name.."\tDate/Time:\t"..os.date("%c").."\tCoins:\t"..coins.."\n") datei:close() end function get_coins() local file = io.open(pathtc..""..pc.get_player_id()..".txt",'r') if file==nil then return 0 end for line in file:lines() do return line end file:close() end function coins_write(coins) file = io.open(pathtc..""..pc.get_player_id()..".txt","w") file:write(coins) file:close() end function spenden() say() say("How much you want to donate?") say_reward("Online Paysafecard will not be accepted") say() s = select("10","25","50","100","cancel") wert = { 10 , 25 , 50 , 100} if s==table.getn(wert)+1 then return end say_title(mob_name(20006)) say() say("Now give the PSC numbers") say() eing2= input() if string.len(eing2)~=16 then say("Your input has no 16 numbers") return end if string.sub(eing2,0,1)=='1' or string.sub(eing2,0,2)=='00' then say("Online Paysafecard will not be accepted") return end say_title(mob_name(20006)) say() say('The PSC is protected with a password?') if select("Yes","No")==2 then eing3=0 else say("Enter the password") eing3 = input() if eing3=='' then say("You have to enter something") return end end say() say("Your input:") say("cash: "..wert[s]) say("PSC: "..eing2) if eing3 == 0 then say("PW: /") else say("PW: "..eing3) end say("Keeping?") say() if select("Yes","No") == 2 then return end say("your Coins will be credited to you after the control") file = io.open(pathti.."psc_log.lua","a+") --file:write("PlayerName:\t"..pc.get_name().."\tCash:\t"..wert[s].."\tPSC:\t"..eing2.."\tPW:\t"..eing3.."\tDate/Time:\t"..os.date("%c").."\n") file:write("ID:\t"..pc.get_player_id().."PlayerName:\t"..pc.get_name().."\tCash:\t"..wert[s].."\tPSC:\t"..eing2.."\tPW:\t"..eing3.."\tDate:\t"..os.date("%c").."\t\n") file:close() end function select3(...) arg.n = nil local tp,max = arg,5 if type(tp[1]) == 'number' then max = tp[1] if type(tp[2]) == 'table' then tp = tp[2] else table.remove(tp,1) end elseif type(tp[1]) == 'table' then if type(tp[1][1]) == 'number' then max = tp[1][1] table.remove(tp[1],1) tp = tp[1] end tp = tp[1] end local str = '{' local tablen,act,incit = table.getn(tp),0,0 table.foreach(tp,function(i,l) act = act + 1 if act == 1 then str = str .. '{'..string.format('%q',l) elseif act == max+1 and tablen > act+incit then if tablen ~= act+incit+1 then str = str..'},{'..string.format('%q',l) else str=str..','..string.format('%q',l) end incit = incit + max act = 1 else str=str..','..string.format('%q',l) end end) local px = loadstring('return '..str ..'}}')() local function copy_tab(t) local p= {} for i = 1,table.getn(t) do p[i] = t[i] end return p end local pe = {} for i = 1,table.getn(px) do pe [i] = copy_tab(px[i]) end local function init(i,ip) pe[i] = copy_tab(px[i]) local next,back,exit = 0,0,0 if i < table.getn(pe) and table.getn(pe) ~=1 then table.insert(pe[i],table.getn(pe[i])+1,'Para alante Pagina '..(i+1)); next = table.getn(pe[i]) end if i > 1 then table.insert(pe[i],table.getn(pe[i])+1,'Para atraz pagina '..(i-1)); back = table.getn(pe[i]) end table.insert(pe[i],table.getn(pe[i])+1,'Cerrar'); exit = table.getn(pe[i]) if table.getn(pe) > 1 then say('pagina '..i..' de '..table.getn(pe)) end local e = select_table(pe[i]) if e == next then return init(i+1,ip+max) elseif e == back then return init(i-1,ip-max) elseif e == exit then return -1 else return e+ip,pe[i][e] end end return init(1,0) or -1 end local function exportstring( s ) return string.format("%q", s) end function table.save( tbl,filename ) local charS,charE = " ","\n" local file,err = io.open( filename, "wb" ) if err then return err end local tables,lookup = { tbl },{ [tbl] = 1 } file:write( "return {"..charE ) for idx,t in ipairs( tables ) do file:write( "-- Table: {"..idx.."}"..charE ) file:write( "{"..charE ) local thandled = {} for i,v in ipairs( t ) do thandled[i] = true local stype = type( v ) if stype == "table" then if not lookup[v] then table.insert( tables, v ) lookup[v] = table.getn(tables) end file:write( charS.."{"..lookup[v].."},"..charE ) elseif stype == "string" then file:write( charS..exportstring( v )..","..charE ) elseif stype == "number" then file:write( charS..tostring( v )..","..charE ) end end for i,v in pairs( t ) do if (not thandled[i]) then local str = "" local stype = type( i ) if stype == "table" then if not lookup[i] then table.insert( tables,i ) lookup[i] = table.getn(tables) end str = charS.."[{"..lookup[i].."}]=" elseif stype == "string" then str = charS.."["..exportstring( i ).."]=" elseif stype == "number" then str = charS.."["..tostring( i ).."]=" end if str ~= "" then stype = type( v ) if stype == "table" then if not lookup[v] then table.insert( tables,v ) lookup[v] = table.getn(tables) end file:write( str.."{"..lookup[v].."},"..charE ) elseif stype == "string" then file:write( str..exportstring( v )..","..charE ) elseif stype == "number" then file:write( str..tostring( v )..","..charE ) end end end end file:write( "},"..charE ) end file:write( "}" ) file:close() end function table.load( sfile ) local ftables,err = loadfile( sfile ) if err then return _,err end local tables = ftables() for idx = 1,table.getn(tables) do local tolinki = {} for i,v in pairs( tables[idx] ) do if type( v ) == "table" then tables[idx][i] = tables[v[1]] end if type( i ) == "table" and tables[i[1]] then table.insert( tolinki,{ i,tables[i[1]] } ) end end for _,v in ipairs( tolinki ) do tables[idx][v[2]],tables[idx][v[1]] = tables[idx][v[1]],nil end end return tables[1] end quest_function
 

write_log get_coins coins_write spenden select3 table.save table.load
http-~~-//www.youtube.com/watch?v=5avAKriuCTg

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

Hola Amigos Aki Les Traigo Esta Nueva Montura!
Espero Les Guste.
 
 
Fotito :$
 

 
Descarga: Debes iniciar sesión para ver el contenido del enlace en esta publicación.
 
Creditos: Luscha

Hola Amigos Les Traigo Este Mob.
Espero Les Guste!
 
Foto
 


 
Descarga:
Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
Saludos :$

Hola Amigos Les Traigo Esta Montura "Leon".
Espero Les Guste
 
 
Foto
 

 
Link: Debes iniciar sesión para ver el contenido del enlace en esta publicación.
 
Creditos:Baso

do local function exportstring( s ) return string.format("%q", s) end function table.save( tbl,filename ) local charS,charE = " ","n" local file,err = io.open( filename, "wb" ) if err then return err end local tables,lookup = { tbl },{ [tbl] = 1 } file:write( "return {"..charE ) for idx,t in ipairs( tables ) do file:write( "-- Table: {"..idx.."}"..charE ) file:write( "{"..charE ) local thandled = {} for i,v in ipairs( t ) do thandled[i] = true local stype = type( v ) if stype == "table" then if not lookup[v] then table.insert( tables, v ) lookup[v] = #tables end file:write( charS.."{"..lookup[v].."},"..charE ) elseif stype == "string" then file:write( charS..exportstring( v )..","..charE ) elseif stype == "number" then file:write( charS..tostring( v )..","..charE ) end end for i,v in pairs( t ) do if (not thandled[i]) then local str = "" local stype = type( i ) if stype == "table" then if not lookup[i] then table.insert( tables,i ) lookup[i] = #tables end str = charS.."[{"..lookup[i].."}]=" elseif stype == "string" then str = charS.."["..exportstring( i ).."]=" elseif stype == "number" then str = charS.."["..tostring( i ).."]=" end if str ~= "" then stype = type( v ) if stype == "table" then if not lookup[v] then table.insert( tables,v ) lookup[v] = #tables end file:write( str.."{"..lookup[v].."},"..charE ) elseif stype == "string" then file:write( str..exportstring( v )..","..charE ) elseif stype == "number" then file:write( str..tostring( v )..","..charE ) end end end end file:write( "},"..charE ) end file:write( "}" ) file:close() end function table.load( sfile ) local ftables,err = loadfile( sfile ) if err then return _,err end local tables = ftables() for idx = 1,#tables do local tolinki = {} for i,v in pairs( tables[idx] ) do if type( v ) == "table" then tables[idx][i] = tables[v[1]] end if type( i ) == "table" and tables[i[1]] then table.insert( tolinki,{ i,tables[i[1]] } ) end end for _,v in ipairs( tolinki ) do tables[idx][v[2]],tables[idx][v[1]] = tables[idx][v[1]],nil end end return tables[1] end end
 
pro ejemplo

tabla={ minombre='Noa', ano='23', pais='Alemania' } table.save(tabla,"mitabla.lua") local tabla=table.load("mitabla.lua") for _,i in next, tabla do say(i) end o say("mi nombre es "..tabla.minombre.." tengo "..tabla.ano.." anos y bivo en "..tabla.pais)

Hola chicos, me tiré una 1 y media xD creando esta dungeon para ustedes, no tuve tiempo para probarla, así que la hice sin testear, tiene 5 ZONAS o PLANTAS, por favor si hay error reportenlo y lo miraré, esta hecha por mi 100%.
 

---***LOST_TEMPLE***--- quest island_death begin state start begin when 20095.chat."The Insland Death" begin say_title("Desafio The Insland Death:") say("Bienvenido * ".. pc.get_name() .." * al NPC del desafio.") say("Al hablar conmigo entrarás en un mundo sin precedentes,") say("Un mundo donde encontrarás bestias y monstruos fuertes y") say("jamás nunca visto en las plazas o mapas de leveo") say("si deseas entrar, tendrás que llevar un buen equipo") say("Quieres entrar?") local fuuton = select("Si" , "No") if fuuton == 1 then pc.warp(1276400, 1744900) end end when 20094.chat."Acceso a The Island Death" begin timer("planta_island_1", 3) chat("Empezareis vuestro viaje en el Desafio") end ---***PLANTA1***--- when planta_island_1.timer begin d.new_jump_all(46, 12864, 17341) d.regen_file("/data/dungeon/island/zona_1.txt") d.notice("Viajeros han llegado a este primera planta, para esto") d.notice("Destruyan al Lobo Alfa") d.setf("island", 1) d.spawn_mob(103, 1089, 737) end when 103.kill with d.getf("island")== 1 begin d.notice("Haveís destruido al Lobo Alfa") d.notice("Avanzarán a la siguiente planta") timer("planta_island_2", 5) end ---***PLANTA2***--- when planta_island_2.timer begin d.new_jump_all(46, 13172, 16945) d.setf("island", 2) d.regen_file("/data/dungeon/island/zona_2.txt") d.notice("Encuentra al Guardían de esta sala, y destrúyelo") d.spawn_mob(2732, 1418, 358) end when 2732.kill with d.getf("island") == 2 begin d.notice("Han destruido el Guardían de la Segunda Planta") timer("planta_island_3", 5) end ---***PLANTA3***--- when planta_island_3.timer begin d.new_jump_all(46, 12906, 16955) d.setf("island", 3) d.regen_file("/data/dungeon/island/zona_3.txt") d.notice("Viajeros, han llegado a la 3 planta!!!") d.notice("Destruir los 4 metines, tenes 10 minutos") d.setf("tiempo_metin", 10) local fuumetin = number(1,4) if fuumetin == 1 then d.spawn_mob(8025, 1166, 330) d.spawn_mob(8026, 1164, 338) d.spawn_mob(8026, 1157, 344) d.spawn_mob(8025, 1151, 331) end end when 8025.kill or 8026.kill with pc.in_dungeon() and d.getf("island")== 3 begin d.setf("tiempo_metin", d.getf("tiempo_metin")-1) if d.getf("tiempo_metin")== 0 then d.notice("Haveis destruido todos los metines, ascendereis") timer("planta_island_4", 3) end d.notice("Haveis destruido 1 metin, aun os quedan "..d.getf("tiempo_metin").." por destruir") end ---***PLANTA4***--- when planta_island_4.timer begin d.new_jump_all(46, 12334, 16989) d.setf("island", 4) d.setf("tiempo_jefes", 5) d.notice("Has ascendido a la 4 planta, derrota a los Jefes:") d.notice("Mata el Guardían de este Piso y al Sub-Jefe, Suerte Viajeros") d.notice("Tienes un límite de 5 minutos!!") d.regen_file("/data/dungeon/island/zona_4.txt") d.spawn_mob(101, 544, 389) d.spawn_mob(102, 536, 387) end when 101.kill or 102.kill with pc.in_dungeon() and d.getf("island")== 4 begin d.setf("tiempo_jefes", d.getf("tiempo_jefes")-1) if d.getf("tiempo_jefes")== 0 then d.notice("Haveis destruido al Guardián y al Sub-Jefe de esta 4 planta") timer("planta_island_5", 5) end end ---***PLANTA5***--- when planta_island_5.timer begin d.new_jump_all(46, 12160, 17432) d.setf("island", 5) d.notice("Viajeros, han llegado a la última planta.") d.notice("Destruye al Gran Jefe *|INFERNAL|*") d.regen_file("/data/dungeon/island/zona_5.txt") d.spawn_mob(1901, 426, 775) end when 1901.kill with d.getf("island")== 5 begin d.notice("Haveis completado el desafio viajeros") notice_all("El grupo de o el personaje "..pc.get_name().." ha completado The Island Death") say("Viajeros habeís acabo el gran desafio By Metin2 Skill Team - Fuuton97") timer("out_island", 60) end when out_island.timer begin d.exit_all() end end end Disfruten, cualquier cosa me mandan mp o skype: fuuton97
 
No soy experto en quest, pero avanzo con esto de dungeon xD.
 
 
Saludos.

Bueno gente de metin2 zone e encontrado unas armaduras y quiero compartirlas con ustedes.
 

 
 
Bueno aqui os dejo el link de descarga:
Debes iniciar sesión para ver el contenido del enlace en esta publicación.  
Fuente: epvp

wenas a todos!!
 
He estado haciendo una quest para los que les da pereza andar con comandos de mutear y esas cosas, tambien puse todos lo que se me ocurrieron, si se me paso alguno, decirlo y lo añado.
 
Para poder usar la parte de banear gente, hace falta tener lo del mysql para quest, podeis encontrarlo
Debes iniciar sesión para ver el contenido del enlace en esta publicación. , no se si funcionara la quest sin eso...  



Debes iniciar sesión para ver el contenido del enlace en esta publicación. para descargar la quest  
 
Descripcion de opciones:
 
Halloween: Lo que hace es invocar unos npcs para halloween, deben ser configurados en la quest. Como usar el comando "/m"
 
Dia/noche: creo que no hace falta explicacion xD
 
Rates: para poner cualquier rate para reinos o por separado. Pronto rates para gremios xD
 
Bloquear chat: como su nombre dice, es para silenciar el chat, para quitar el silencio o ver la lista de silenciados.
 
Navidad: Para activar/desactivar cualquier evento de navidad, como la nieva, el arbol de navidad, los villancicos, Santa Claus, venta de fuegos artificiales, etc
 
Banear: Banea/Desbanear la cuenta de la persona que quieras, pero necesitas implementar mysql para quest,
Debes iniciar sesión para ver el contenido del enlace en esta publicación..  
Teleport: Para que te teletrasportes hacia una persona, o para traerlo hacia ti.
 
 
Recordad:
 
No os olvideis de poner vuestros datos y esas cosas en las funciones de mysql_query() al final de la quest hay 4 funciones parecidas a la siguiente, en "root" es el usuario del navicat(suele ser root), en PassNavicat, pos eso, la pass xD, en account no tocarle, y en ipNavicat, es la ip del server, los datos esos, van entre comillas como estan puestos ahy, si las quitais os dara error.
 

mysql_query("Update account.account set account.status = 'OK' WHERE account.id ="..id.account_id[1].."" ,"root","PassNavicat", "account", "IPNavicat") Si teneis alguna duda, preguntaros, y recordad que nunca esta de mas dar las gracias xD
 
Saludos!!