gnashxalex Posted August 21, 2020 Group: Members Topic Count: 15 Topics Per Day: 0.01 Content Count: 52 Reputation: 1 Joined: 08/19/18 Last Seen: February 23, 2021 Share Posted August 21, 2020 (edited) Buenas, alguien podria ayudarme a cambiar este script. - script ghouse -1,{ OnWhisperGlobal: if ( getgmlevel() > 90 ) { if ( @whispervar0$ == "abrir" ) { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( select ( " >^AA3000 Menu GM^000000 : >^AA3000 Menu User^000000 ") == 1 ) { do { set .@loop , 1; mes "Selecciona el slot que quieras editar:"; set .Num,0; set .@Menu$,""; for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( !getd("$GROOM" + .@i) ) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 Disponible ^000000 ]:"; else if ( getd("$GROOM" + .@i) && !getd("$GROOMB" + .@i)) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 "+GetGuildName(getd("$GROOM" + .@i))+"^000000 ]:"; else if ( getd("$GROOM" + .@i) && getd("$GROOMB" + .@i)) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 "+GetGuildName(getd("$GROOM" + .@i))+"^000000 ][ ^1CBC81 "+GetGuildName(getd("$GROOMB" + .@i))+"^000000]:"; } set .@j , select(.@Menu$); mes "¿Qué quieres hacer con el slot "+.@j+"?"; next; switch (select( "> Quiero ^0066FFEliminar una Guild^000000","> Quiero ^CC0000Agregar una Guild^000000") ) { case 1: setd "$GROOM" + .@j , 0; setd "$GROOMB" + .@j , 0; break; case 2: do { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( getd("$GROOM" + .@j) != 0 ) { if ( getd("$GROOM" + .@j) != 0 && !getd("$GROOMB" + .@j) ) { mes "Deseas agregar una guild MB ??"; if ( select ( "> ^0066FFSi^000000","> ^CC0000No^000000") == 2 )close; mes "Coloca el ID de la guild que quieres agregar a este slot."; input .@guildMB; next; mes "[ ^AA3000Menú Administrador^000000 ]"; if ( GetGuildName(.@guildMB) == "No existe" ) { mes "La guild que ha ingresado no existe. Vuélvalo a intentar."; mes "guild : " + GetGuildName(.@guild); set .@opt , 0; next; break; } for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( getd("$GROOMB" + .@i) && getd("$GROOMB" + .@i) == .@guild ) { mes "Ya esta guild tiene un cuarto, no le puedes asignar otro"; close; } } setd "$GROOMB" + .@j , .@guildMB; close; } mes " Ya hay una guild registrada aqui, primero eliminala"; close; } mes "Coloca el ID de la guild que quieres agregar a este slot."; input .@guild; next; mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( GetGuildName(.@guild) == "null" ) { mes "La guild que ha ingresado no existe. Vuélvalo a intentar."; mes "guild : " + GetGuildName(.@guild); set .@opt , 0; next; break; } for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( getd("$GROOM" + .@i) && getd("$GROOM" + .@i) == .@guild ) { mes "Ya esta guild tiene un cuarto, no le puedes asignar otro"; close; } } mes "Quieres agregar ^9933FF[^000000 ^0033FF"+GetGuildName(.@guild)+"^000000 ^9933FF]^000000"; next; if ( select ( "> ^0066FFContinuar^000000","> ^CC0000Regresar^000000") == 1 ) { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; setd "$GROOM" + .@j , .@guild; mes "Guild: ^0033FF"+GetGuildName(.@guild)+"^000000"; mes "Asignada al Slot [ ^FF0000"+.@j+"^000000 ]"; set .@opt , 0; next; break; } else set .@opt , 1; } while ( .@opt == 1 ); break; } } while ( .@loop ); } next; } for( set .@i , 0; .@i <= 30; set .@i , .@i + 1 ) { if ( ( getd( "$GROOM" + .@i ) && getcharid(2) == getd( "$GROOM" + .@i ) ) || ( getd( "$GROOMB" + .@i ) && getcharid(2) == getd( "$GROOMB" + .@i ) ) ) { mes "[ ^AA3000Guild Guard^000000 ]"; mes "Hola, ^E96D07"+strcharinfo(0)+"^000000."; mes "Veo que tu guild tiene la casa # " + .@i; mes "¿Quieres que te lleve a tu ^FF3300Guild Room^000000?"; emotion e_pif; next; if ( select("> ^0066FFSí, gracias.^000000","> ^CC0000Mejor en otro momento.^000000") == 2 ) close; close2; warp "gr_"+.@i+"",56,61; end; } } mes "[ ^AA3000Guild Guard^000000 ]"; mes "Hola, ^E96D07"+strcharinfo(0)+"^000000."; mes "¿En qué puedo ayudarte?"; emotion e_dots; next; switch (select("> ^0066FF¿Quién eres?^000000","> ^CC0000Uhm, nada...^000000") ) { case 1: mes "[ ^AA3000Guild Guard^000000 ]"; mes "Soy el guardián de los ^FF3300Guild Rooms^000000."; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "Mi función es llevar a los miembros de guilds registradas a sus salas de guild. Pero no todos pueden acceder a este sistema único, antes de registrarte tienes que cumplir una serie de requisitos."; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "> Tener ^0033FFmínimo 20 miembros^000000."; mes "> Estar ^0033FFactivos en WoE o MVP^000000."; mes "> Ser una guild ^0033FFconsolidada y seria con futuro^0033FF."; mes "> Ganarse o pagar por la residencia"; emotion e_pif; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "Si cumples con los requisitos contacta con un ^0033FFmiembro del Staff^000000 para que te activen tu ^FF3300Guild Room^000000 y puedas disfrutar de sus ventajas."; break; case 2: emotion e_an; break; } close; } } //Flags gr_1 mapflag noteleport gr_2 mapflag noteleport gr_3 mapflag noteleport gr_4 mapflag noteleport gr_5 mapflag noteleport gr_6 mapflag noteleport gr_7 mapflag noteleport gr_8 mapflag noteleport gr_9 mapflag noteleport gr_10 mapflag noteleport gr_11 mapflag noteleport gr_12 mapflag noteleport gr_13 mapflag noteleport Quisiera que en lugar de un GM dar una guild house, el usuario pueda comprarla por ejemplo por 1000 Cash Points. Ahora mismo el NPC esta en que si detecta GM level > 99 aparecen 2 opciones para agregar y quitar house a una guild, quiero que el usuario tenga la opcion para el mismo comprarla por 1000 Cash points. Gracias de antemano! Edited August 21, 2020 by gnashxalex Quote Link to comment Share on other sites More sharing options...
Neragalengel Posted January 6, 2021 Group: Members Topic Count: 1 Topics Per Day: 0.00 Content Count: 13 Reputation: 2 Joined: 03/16/16 Last Seen: Sunday at 05:06 AM Share Posted January 6, 2021 aun lo necesitas? I hope the NPC will help you, thanks for the code, I modified many things about the NPC and fixed some bugs as well as update it. Remember to change the map ok. ///////////////////////////////////////////// // Guild or Base NPC from guild // created by gnashxalex // Thanks for the scrip many functions of it I will take advantage of them ///////////////////////////////// /////////// / ------------- Changes ////////////////////////// /////////// // - Added the command @ guild this to access this npc without problems // - added the option that only Guild masters can buy the guild // - - Only GMs can remove a Guild from a Guild // - You can configure the NPC from below in the OnInit option // - You can change the map in line 133 // // //////// /////////////////////////////////// - script ghouse -1, { OnAtcommand: if (getguildmasterid (getcharid (2)) == getcharid (0)) { month "[^ AA3000Menu Administrator ^ 000000]"; if (select ("> ^ AA3000 Menu GM ^ 000000:> ^ AA3000 Menu User ^ 000000") == 1) { do { set. @ loop, 1; mes "Select the slot you want to edit:"; set .Num, 0; set. @ Menu $, ""; for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (! getd ("$ GROOM" +. @ i)) set. @ Menu $, . @ Menu $ + "Slot" + (. @ I) + "[^ 1CBC81 Available ^ 000000]:"; else if (getd ("$ GROOM" +. @ i) & set. @ Menu $,. @ Menu $ + "Slot" + (. @ i) + "[^ 1CBC81" + GetGuildName (getd ("$ GROOM" +. @ i)) + "^ 000000]:"; else if (getd ("$ GROOM" +. @ i) && getd ("$ GROOMB" +. @ i)) set. @ Menu $ ,. @ Menu $ + "Slot" + (. @ i) + "[ ^ 1CBC81 "+ GetGuildName (getd (" $ GROOM "+. @ I)) +" ^ 000000] [^ 1CBC81 "+ GetGuildName (getd (" $ GROOMB "+. @ I)) +" ^ 000000]: "; } set. @ j, select (. @ Menu $); mes "What do you want to do with the slot" +. @ j + "?"; next; switch (select ("^ FFA500Add a Guild", (getgmlevel () <. // switch (select ("> I want ^ 0066FFDelete a Guild ^ 000000", "> I want ^ CC0000Add a Guild ^ 000000")) { case 1: do { mes "To get this You need"; month "You need" + # CASHPOINTS + " month" You have "+ .camount +" cash points. "; next; month" Let's see if you have the items ... "; if (#cashpoints <.camount) month" [^ AA3000Menu Administrator ^ 000000] "; month" "; logmes" if (getd ("$ GROOM" +. @ j)! = 0) { if (getd ("$ GROOM" +. @ j)! = 0 &&! getd ("$ GROOMB" +. @ j)) { month "There is already a guild registered here, first delete it"; close; month "[^ AA3000Menu Administrator ^ 000000]"; if (GetGuildName (. @ guildMB) == "null") { month "The guild you entered does not exist. Please try again."; mes "guild:" + GetGuildName (. @ guild); set. @ opt, 0; break; } for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (getd ("$ GROOMB" +. @ i) && getd ("$ GROOMB" +. @ i) ==. @ guild) { month "This guild already has a room, you can't assign it another"; close; } } setd "$ GROOMB" +. @ j,. @ guildMB; close; } mes "There is already a guild registered here, first delete it"; close; } mes "Put the ID of the guild you want to add to this slot."; input. @ guild; next; month "[^ AA3000Menu Administrator ^ 000000]"; month " "; if (GetGuildName (. @ guild) == "null") { month "The guild you entered does not exist. Please try again."; mes "guild:" + getguildname (. @ guild); set. next; break; } for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (getd ("$ GROOM" +. @ i) && getd ("$ GROOM" +. @ i) ==. @ guild) { month "This guild already has a room, you can't assign another"; close; } } month "Do you want to add ^ 9933FF [^ 000000 ^ 0033FF" + GetGuildName (. @ guild) + "^ 000000 ^ 9933FF] ^ 000000"; next; if (select ("> month "[^ AA3000Menu Administrator ^ 000000]"; month " "; setd "$ GROOM" +. @ j,. @ guild; month "Guild: ^ 0033FF" + GetGuildName (. @ guild) + "^ 000000"; mes "Assigned to Slot [^ FF0000" +. @ j + "^ 000000]"; set. @ opt, 0; set #cashpoints, (# cashpoints - (1 * .camount)); logmes "A guild has been assigned for [" + GetGuildName (. @ guild) + "]"; next; break; } while (. @ opt == 1); break; case 2: setd "$ GROOM" +. @ j, 0; setd "$ GROOMB" +. @ j, 0; break; } } while (. @ loop); } next; } for (set. @ i, 0;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if ((getd ("$ GROOM" +. @ i) && getcharid (2) == getd ("$ GROOM" +. @ i)) || (getd ("$ GROOMB" +. @ i) && getcharid (2) == getd ("$ GROOMB" +. @ i))) { month "[ ^ AA3000Guild Guard ^ 000000] "; mes "Hello, ^ E96D07" + strcharinfo (0) + "^ 000000."; mes "I see your guild has the house #" +. @ i; mes "Do you want me to take you to your ^ FF3300Guild Room ^ 000000?"; emotion e_pif; next; if (select ("> ^ 0066FFYes, thanks. ^ 000000", "> ^ CC0000 Better another time. ^ 000000") == 2) close; close2; // // Here you can change the name of the basemap just replace "ghouse_1-" // warp "ghouse_1 -" +. @ I + "", 92,36; end; } } month "[^ AA3000Guild Guard ^ 000000]"; mes "Hello, ^ E96D07" + strcharinfo (0) + "^ 000000."; mes "How can I help you?"; emotion e_dots; next; switch (select ("> ^ 0066FFWho are you? ^ 000000", "> ^ CC0000Uhm, nothing ... ^ 000000")) { case 1: month "[^ AA3000Guild Guard ^ 000000]"; mes "I am the guardian of the ^ FF3300Guild Rooms ^ 000000."; next; month "[^ AA3000Guild Guard ^ 000000]"; mes "My role is to bring registered guild members to their guild rooms. But not everyone can access this unique system, month "[^ AA3000Guild Guard ^ 000000]"; month "> Have ^ 0033FFminimum 20 members ^ 000000."; month "> Be ^ 0033FFactive in WoE or MVP ^ 000000."; mes "> To be a consolidated guild ^ 0033FF with a future ^ 0033FF."; mes "> Earn or pay for residency"; emotion e_pif; next; month "[^ AA3000Guild Guard ^ 000000]"; mes "If you meet the requirements, contact a ^ 0033FF Staff Member ^ 000000 so that they activate your ^ FF3300Guild Room ^ 000000 and you can enjoy its benefits."; break; case 2: emotion e_an; break; } close; noitems: mes "I'm sorry but you don't have all the necessary items"; close; // OnInit configuration : bindatcmd "guild", strnpcinfo (3) + ":: OnAtcommand"; .MAXguilds = 9; .GMAccess = 50; .camount = 1000; } // Flags ghouse_1-1 mapflag noteleport ghouse_1-2 mapflag noteleport ghouse_1-3 mapflag noteleport ghouse_1-4 mapflag noteleport ghouse_1-5 mapflag noteleport ghouse_1-6 mapflag noteleport ghouse_1-7 mapflag noteleport ghouse_1-8 mapflag noteleport ghouse_1-9 mapflag notele 1 Quote Link to comment Share on other sites More sharing options...
gnashxalex Posted January 6, 2021 Group: Members Topic Count: 15 Topics Per Day: 0.01 Content Count: 52 Reputation: 1 Joined: 08/19/18 Last Seen: February 23, 2021 Author Share Posted January 6, 2021 On 1/6/2021 at 11:00 AM, Neragalengel said: aun lo necesitas? Si, aún lo necesito.... no sé como hacerlo On 1/9/2021 at 2:20 PM, Neragalengel said: I hope the NPC will help you, thanks for the code, I modified many things about the NPC and fixed some bugs as well as update it. Remember to change the map ok. ///////////////////////////////////////////// // Guild or Base NPC from guild // created by gnashxalex // Thanks for the scrip many functions of it I will take advantage of them ///////////////////////////////// /////////// / ------------- Changes ////////////////////////// /////////// // - Added the command @ guild this to access this npc without problems // - added the option that only Guild masters can buy the guild // - - Only GMs can remove a Guild from a Guild // - You can configure the NPC from below in the OnInit option // - You can change the map in line 133 // // //////// /////////////////////////////////// - script ghouse -1, { OnAtcommand: if (getguildmasterid (getcharid (2)) == getcharid (0)) { month "[^ AA3000Menu Administrator ^ 000000]"; if (select ("> ^ AA3000 Menu GM ^ 000000:> ^ AA3000 Menu User ^ 000000") == 1) { do { set. @ loop, 1; mes "Select the slot you want to edit:"; set .Num, 0; set. @ Menu $, ""; for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (! getd ("$ GROOM" +. @ i)) set. @ Menu $, . @ Menu $ + "Slot" + (. @ I) + "[^ 1CBC81 Available ^ 000000]:"; else if (getd ("$ GROOM" +. @ i) & set. @ Menu $,. @ Menu $ + "Slot" + (. @ i) + "[^ 1CBC81" + GetGuildName (getd ("$ GROOM" +. @ i)) + "^ 000000]:"; else if (getd ("$ GROOM" +. @ i) && getd ("$ GROOMB" +. @ i)) set. @ Menu $ ,. @ Menu $ + "Slot" + (. @ i) + "[ ^ 1CBC81 "+ GetGuildName (getd (" $ GROOM "+. @ I)) +" ^ 000000] [^ 1CBC81 "+ GetGuildName (getd (" $ GROOMB "+. @ I)) +" ^ 000000]: "; } set. @ j, select (. @ Menu $); mes "What do you want to do with the slot" +. @ j + "?"; next; switch (select ("^ FFA500Add a Guild", (getgmlevel () <. // switch (select ("> I want ^ 0066FFDelete a Guild ^ 000000", "> I want ^ CC0000Add a Guild ^ 000000")) { case 1: do { mes "To get this You need"; month "You need" + # CASHPOINTS + " month" You have "+ .camount +" cash points. "; next; month" Let's see if you have the items ... "; if (#cashpoints <.camount) month" [^ AA3000Menu Administrator ^ 000000] "; month" "; logmes" if (getd ("$ GROOM" +. @ j)! = 0) { if (getd ("$ GROOM" +. @ j)! = 0 &&! getd ("$ GROOMB" +. @ j)) { month "There is already a guild registered here, first delete it"; close; month "[^ AA3000Menu Administrator ^ 000000]"; if (GetGuildName (. @ guildMB) == "null") { month "The guild you entered does not exist. Please try again."; mes "guild:" + GetGuildName (. @ guild); set. @ opt, 0; break; } for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (getd ("$ GROOMB" +. @ i) && getd ("$ GROOMB" +. @ i) ==. @ guild) { month "This guild already has a room, you can't assign it another"; close; } } setd "$ GROOMB" +. @ j,. @ guildMB; close; } mes "There is already a guild registered here, first delete it"; close; } mes "Put the ID of the guild you want to add to this slot."; input. @ guild; next; month "[^ AA3000Menu Administrator ^ 000000]"; month " "; if (GetGuildName (. @ guild) == "null") { month "The guild you entered does not exist. Please try again."; mes "guild:" + getguildname (. @ guild); set. next; break; } for (set. @ i, 1;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if (getd ("$ GROOM" +. @ i) && getd ("$ GROOM" +. @ i) ==. @ guild) { month "This guild already has a room, you can't assign another"; close; } } month "Do you want to add ^ 9933FF [^ 000000 ^ 0033FF" + GetGuildName (. @ guild) + "^ 000000 ^ 9933FF] ^ 000000"; next; if (select ("> month "[^ AA3000Menu Administrator ^ 000000]"; month " "; setd "$ GROOM" +. @ j,. @ guild; month "Guild: ^ 0033FF" + GetGuildName (. @ guild) + "^ 000000"; mes "Assigned to Slot [^ FF0000" +. @ j + "^ 000000]"; set. @ opt, 0; set #cashpoints, (# cashpoints - (1 * .camount)); logmes "A guild has been assigned for [" + GetGuildName (. @ guild) + "]"; next; break; } while (. @ opt == 1); break; case 2: setd "$ GROOM" +. @ j, 0; setd "$ GROOMB" +. @ j, 0; break; } } while (. @ loop); } next; } for (set. @ i, 0;. @ i <= .MAX guilds; set. @ i,. @ i + 1) { if ((getd ("$ GROOM" +. @ i) && getcharid (2) == getd ("$ GROOM" +. @ i)) || (getd ("$ GROOMB" +. @ i) && getcharid (2) == getd ("$ GROOMB" +. @ i))) { month "[ ^ AA3000Guild Guard ^ 000000] "; mes "Hello, ^ E96D07" + strcharinfo (0) + "^ 000000."; mes "I see your guild has the house #" +. @ i; mes "Do you want me to take you to your ^ FF3300Guild Room ^ 000000?"; emotion e_pif; next; if (select ("> ^ 0066FFYes, thanks. ^ 000000", "> ^ CC0000 Better another time. ^ 000000") == 2) close; close2; // // Here you can change the name of the basemap just replace "ghouse_1-" // warp "ghouse_1 -" +. @ I + "", 92,36; end; } } month "[^ AA3000Guild Guard ^ 000000]"; mes "Hello, ^ E96D07" + strcharinfo (0) + "^ 000000."; mes "How can I help you?"; emotion e_dots; next; switch (select ("> ^ 0066FFWho are you? ^ 000000", "> ^ CC0000Uhm, nothing ... ^ 000000")) { case 1: month "[^ AA3000Guild Guard ^ 000000]"; mes "I am the guardian of the ^ FF3300Guild Rooms ^ 000000."; next; month "[^ AA3000Guild Guard ^ 000000]"; mes "My role is to bring registered guild members to their guild rooms. But not everyone can access this unique system, month "[^ AA3000Guild Guard ^ 000000]"; month "> Have ^ 0033FFminimum 20 members ^ 000000."; month "> Be ^ 0033FFactive in WoE or MVP ^ 000000."; mes "> To be a consolidated guild ^ 0033FF with a future ^ 0033FF."; mes "> Earn or pay for residency"; emotion e_pif; next; month "[^ AA3000Guild Guard ^ 000000]"; mes "If you meet the requirements, contact a ^ 0033FF Staff Member ^ 000000 so that they activate your ^ FF3300Guild Room ^ 000000 and you can enjoy its benefits."; break; case 2: emotion e_an; break; } close; noitems: mes "I'm sorry but you don't have all the necessary items"; close; // OnInit configuration : bindatcmd "guild", strnpcinfo (3) + ":: OnAtcommand"; .MAXguilds = 9; .GMAccess = 50; .camount = 1000; } // Flags ghouse_1-1 mapflag noteleport ghouse_1-2 mapflag noteleport ghouse_1-3 mapflag noteleport ghouse_1-4 mapflag noteleport ghouse_1-5 mapflag noteleport ghouse_1-6 mapflag noteleport ghouse_1-7 mapflag noteleport ghouse_1-8 mapflag noteleport ghouse_1-9 mapflag notele Muchisimas gracias, de verdad se aprecia Estuve revisando y tiene demasiados errores y que son esas lineas de month? Quote Link to comment Share on other sites More sharing options...
Neragalengel Posted January 15, 2021 Group: Members Topic Count: 1 Topics Per Day: 0.00 Content Count: 13 Reputation: 2 Joined: 03/16/16 Last Seen: Sunday at 05:06 AM Share Posted January 15, 2021 no se el administrador daño el scrip edito mi post por que yo tenia el scrip en español y yo no escribo en ingles en este foro. 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.