Hawk Server's Posted December 3, 2012 Report Share Posted December 3, 2012 say_title ( "Pago a trabajadores theRAPTOR" ) say ( "Hola, este es el Sistema de pago a trabajadores" ) say ( "Que desea?" ) local item =select ("Cobrar","Info","Cancelar") if item == 1 then say_title ( "Sistema de Pagos theRAPTOR" ) say ( "Hola, este es el Sistema de Canje de Ficha" ) say ( "Aqui puedes recibir premios por cada Ficha que tengas" ) say ( "1 ficha 100kk 10 Fichas Collar OL+9 12 Fichas Braza OL+9 " ) say ( "15 Fichas Zapatos OL+9 20 Fichas Casco OL+925 Fichas Escudo OL+9" ) say ( "Quiere canjear alguna ficha?" ) local confirm =select ( "Si" , "No" ) if confirm == 1 then say_reward ( "Cuantas fichas desea canjear:" ) local ritiro = select ("1 Ficha","10 Fichas","12 Fichas","15 Fichask","20 Fichas",","25 Fichas","NO quiero") if ritiro == 1 then if pc . count_item ( 37997 ) >= 1 then pc . remove_item ( 37997 , 1 ) say ( "Aqui tienes el dinero!!!" ) pc . changegold ( 100000000 ) else say ( "No tienes tal cnatidad de Fichas" ) say ( "Regresa cuado tengas mas. " ) return end elseif ritiro == 2 then if pc . count_item ( 37997 ) >= 10 then pc . remove_item ( 37997 , 10 ) say ( "Toma tu premio!!!" ) pc . give_item2 ( "116209" , 1 ) else say ( "No tienes tal cnatidad de Fichas" ) say ( "Regresa cuado tengas mas. " ) return end elseif ritiro == 3 then if pc . count_item ( 37997 ) >= 12 then pc . remove_item ( 37997, 12 ) say ( "Toma tu premio!!!" ) pc . give_item2 ( "14229" , 1 ) else say ( "No tienes tal cnatidad de Fichas" ) say ( "Regresa cuado tengas mas. " ) return end elseif ritiro == 4 then if pc . count_item ( 37997 ) >= 15 then pc . remove_item ( 37997, 15 ) say ( "Toma tu premio!!!" ) pc . give_item2 ( "15269" , 1 ) else say ( "No tienes tal cantidad de fichas" ) say ( "Regresa cuado tengas mas. " ) return end end elseif ritiro == 5 then if pc . count_item ( 37997 ) >= 20 then pc . remove_item ( 37997 , 20 ) say ( "Toma tu premio!!!" ) pc . give_item2 ( "91009" , 1 ) else say ( "No tienes tal cantidad de fichas" ) say ( "Regresa cuado tengas mas. " ) return end end elseif ritiro == 6 then if pc . count_item ( 37997 ) >= 25 then pc . remove_item ( 37997 , 25 ) say ( "Toma tu premio!!!" ) pc . give_item2 ( "92009" , 1 ) else say ( "No tienes tal cantidad de fichas" ) say ( "Regresa cuado tengas mas. " ) return end end elseif confirm == 2 then return end elseif item == 2 then say_title ( "Sistema de pagos" ) if pc . gold >= 1 then pc . changegold ( - 100000 ) say ( "-Hola, este es el sistema de canje de coins.." ) say ( "Estoy aquà para darle alguna información .." ) say ( "como estamos en un evento especial te dare unas fichas" ) say ( "y luego las podras canjear por premios.." ) say ( "-" ) say ( "-" ) say ( "Esto te dura solo 30 dias" ) say ( "asi que aprovecha.." ) say ( "De esta forma puedes aumentar " ) say ( "tu poder" ) ; else say ( "no hay suficiente yang" ) say ( "Mi informacion tiene un precio!! xD" ) return end elseif item == 3 then return end Debes iniciar sesión para ver el contenido del enlace en esta publicación. Link to comment Share on other sites More sharing options...
Croqueta Posted December 3, 2012 Report Share Posted December 3, 2012 delete# Hawk Server's 1 Link to comment Share on other sites More sharing options...
Hawk Server's Posted December 3, 2012 Author Report Share Posted December 3, 2012 pruebalo asi quest quest begin state start begin function say() local says={ {"No tienes tal cantidad de Fichas", "Regresa cuado tengas mas.","Aqui tienes el dinero!!!", "Toma tu premio!!!", "No tienes suficiente dinero"} } end when ID.chat."Fichas" begin say_title ( "Pago a trabajadores theRAPTOR" ) say ( "Hola, este es el Sistema de pago a trabajadores" ) say ( "Que desea?" ) local tabl={[1]= 100000000, [2]= 116209, [3]= 14229, [4]= 15269, [5]= 91009, [6]= 92009} local ficha= pc . count_item (37997) local sel= {"ficha1", "ficha10", "ficha12","ficha15", "ficha20", "ficha25", "cerrar"} local item =select ("Cobrar","Info","Cancelar") if item == 1 then say_title ( "Sistema de Pagos theRAPTOR" ) say ( "Hola, este es el Sistema de Canje de Ficha" ) say ( "Aqui puedes recibir premios por cada Ficha que tengas" ) say ( "1 ficha 100kk 10 Fichas Collar OL+9 12 Fichas Braza OL+9 " ) say ( "15 Fichas Zapatos OL+9 20 Fichas Casco OL+925 Fichas Escudo OL+9" ) say ( "Quiere canjear alguna ficha?" ) local confirm =select ( "Si" , "No" ) if confirm == 1 then say_reward ( "Cuantas fichas desea canjear:" ) local ritiro = select (sel[1], sel[2], sel[4], sel[5], sel[6], sel[7]) if ritiro == 1 then if ficha >= 1 then pc . remove_item (ficha,1) quest.says([3]) pc . changegold ( tabl[1] ) else quest.says() return end elseif ritiro == 2 then if ficha >= 10 then pc . remove_item (ficha, 10 ) quest.says([3]) pc . give_item2 (tabl[2]) else quest.says() return end elseif ritiro == 3 then if ficha >= 12 then pc . remove_item ( ficha, 12 ) quest.says([4]) pc . give_item2 (tabl[3]) else quest.says() return end elseif ritiro == 4 then if ficha >= 15 then pc . remove_item ( ficha, 15 ) quest.says([4]) pc . give_item2 (tabl[4]) else quest.says() return end elseif ritiro == 5 then if ficha >= 20 then pc . remove_item ( ficha , 20 ) quest.says([4]) pc . give_item2 (tabl[5]) else quest.says() return end elseif ritiro == 6 then if ficha >= 25 then pc . remove_item ( ficha , 25 ) quest.says([4]) pc . give_item2 (tabl[6]) else quest.says() return end end elseif confirm == 2 then return end elseif item == 2 then say_title ( "Sistema de pagos" ) if pc .get_gold() >= 100000 then pc . changegold ( - 100000 ) say ( "-Hola, este es el sistema de canje de coins.." ) say ( "Estoy aquà para darle alguna información .." ) say ( "como estamos en un evento especial te dare unas fichas" ) say ( "y luego las podras canjear por premios.." ) say ( "-" ) say ( "-" ) say ( "Esto te dura solo 30 dias" ) say ( "asi que aprovecha.." ) say ( "De esta forma puedes aumentar " ) say ( "tu poder" ) ; else quest.says([5]) return end elseif item == 3 then return end end end end tienes que ser el tipo de quest que va en la carpeta de los NPC xq tengo un problema al implementar quest.quest en los files de igual manera gracias jeje se agradece mucho la intencion =) Link to comment Share on other sites More sharing options...
Santy!. Posted December 3, 2012 Report Share Posted December 3, 2012 tienes que ser el tipo de quest que va en la carpeta de los NPC xq tengo un problema al implementar quest.quest en los files de igual manera gracias jeje se agradece mucho la intencion =) formatea y sigue al 100% mi guia veras q podras. Link to comment Share on other sites More sharing options...
AgustinMüller Posted December 3, 2012 Report Share Posted December 3, 2012 tienes que ser el tipo de quest que va en la carpeta de los NPC xq tengo un problema al implementar quest.quest en los files de igual manera gracias jeje se agradece mucho la intencion =) te recomiendo que agas esto.vas a la maquina virtual y escribesla ruta de las quest ej cd /home/game/quest enter -- esto es para que sepa que va debajo chmod qc 777 enter -- esto es para que sepa que va debajo cd /home/game/quest enter -- esto es para que sepa que va debajo ./qc nombre.quest y deberia funcionar.. Link to comment Share on other sites More sharing options...
Hawk Server's Posted December 4, 2012 Author Report Share Posted December 4, 2012 Ya he probado todo eso y no se xq no anda xD por eso lo pido para meterlo dentro de la carpeta del npc y solo me hace falta que la corrijan xq al momento de darle click se cierra el dialogo Link to comment Share on other sites More sharing options...
AgustinMüller Posted December 4, 2012 Report Share Posted December 4, 2012 Ya he probado todo eso y no se xq no anda xD por eso lo pido para meterlo dentro de la carpeta del npc y solo me hace falta que la corrijan xq al momento de darle click se cierra el dialogo Intenta solucionar eso , no es un problema leve el que no te anden las quest , sin quest el metin no tendria casi funciones , te recomiendo que sino agas un srvr de pruebas que te anden las quest , y al leer la quest se te va generar la carpeta npc que quieres... Link to comment Share on other sites More sharing options...
Hawk Server's Posted December 4, 2012 Author Report Share Posted December 4, 2012 Intenta solucionar eso , no es un problema leve el que no te anden las quest , sin quest el metin no tendria casi funciones , te recomiendo que sino agas un srvr de pruebas que te anden las quest , y al leer la quest se te va generar la carpeta npc que quieres... Las quest si andan solo que al intentar añadir nuevas no las lee Link to comment Share on other sites More sharing options...
AgustinMüller Posted December 4, 2012 Report Share Posted December 4, 2012 Las quest si andan solo que al intentar añadir nuevas no las lee por eso te digo para las quest nuevas , intenta arreglar eso ya que no es un error leve. Link to comment Share on other sites More sharing options...
Recommended Posts