Skorm

Nice work! You scaled it very well to RO.

Pretty close. You can modify it with the NPC settings to get what you want. I added @grtime since I felt you might not be able to add that on your own.

@Questune Here's a modified version of my goldroom script. You can download free here: https://skorm.gumroad.com/l/wJIhW?layout=profile //NPCS //Goldroom V1.1 prontera,160,158,2 script Private Gold Room 100,{ mes .npc$; mes "Hello, "+strcharinfo(0)+", I'm the "; mes "Private gold room manager."; mes "Here you can rent your own private gold room."; next; for(.@a = 0;getarraysize(getd(".room"+.@a+"$"));.@a++) { .rmn$ = ".room"+.@a+"$"; .rrm$ = getd(.rmn$+"[0]"); .map$ = getd(.rmn$+"[1]"); .mes$[.@a] = .rrm$; setd ".remain"+.@a+"$", callfunc("t",atoi(getd(".rtime_"+.map$+"$"))-gettimetick(2)); while(.@b<=getarraysize(.srch$)) { .@b++; if(.srch$[.@b-1] != "") { while(.@i<=countstr(.rrm$, .srch$[.@b-1])) { .@i++; if(atoi(getd(".remain"+.@a+"$"))>0) set .mes$[.@a], replacestr(.mes$[.@a], .srch$[.@b-1], getd(getd(".srch$["+(.@b-1)+"]")+.@a+"$"), 1, 1); else set .mes$[.@a], replacestr(.mes$[.@a], .repl$, .empty$, 1, 1); } } set .@i, 0; } set .@b,0; } set .@menu$, implode(.mes$,":"); set .@menu, select(.@menu$)-1; set .@remain, atoi(getd(".remain"+.@menu+"$")); if(strcharinfo(atoi(getd(".type"+.@menu+"$")))==getd(".name" +.@menu+"$") || getgmlevel() >= 60) { if(.@remain>0) { warp getd(".room"+.@menu+"$[1]"),0,0; end; } } if(.@remain>0) { mes .npc$; mes "This room is already in use please pick a different one."; close; } mes .npc$; mes "You may rent this room for ^0000FFYourself^000000, ^0000FFParty members^000000, or ^0000FFGuild members^000000."; next; set .@menu2, select("Myself Only:Party Members:Guild Members")-1; mes .npc$; mes "How long would you like to rent this room?"; next; set @menu, select(.menu2$)-1; if(Zeny<(.price[@menu]*.multi)) { mes .npc$; mes "I'm sorry you don't have enough"; mes "Zeny for that."; emotion ET_CRY; close; } set Zeny, Zeny-(.price[@menu]*.multi); setd(".type" +.@menu+"$", .@menu2); setd(".time" +.@menu+"$", callfunc("t",.times[@menu])); setd(".name" +.@menu+"$", strcharinfo(.@menu2)); setd(".rtime_"+getd(".room"+.@menu+"$[1]")+"$", gettimetick(2)+.times[@menu]); initnpctimer(.cnt$+"#"+.@menu); warp getd(".room"+.@menu+"$[1]"),0,0; end; Oninit: // Room# Room Name , Map ; setarray .room0$ , "PGR 1 = .name, .time, .remain" , "06guild_01"; setarray .room1$ , "PGR 2 = .name, .time, .remain" , "06guild_02"; setarray .room2$ , "PGR 3 = .name, .time, .remain" , "06guild_03"; setarray .room3$ , "PGR 4 = .name, .time, .remain" , "06guild_04"; setarray .room4$ , "PGR 5 = .name, .time, .remain" , "06guild_05"; setarray .room5$ , "PGR 6 = .name, .time, .remain" , "06guild_06"; setarray .room6$ , "PGR 7 = .name, .time, .remain" , "06guild_07"; setarray .room7$ , "PGR 8 = .name, .time, .remain" , "06guild_08"; setarray .srch$, ".name", ".time", ".remain"; //String searched and replaced in the Room Name Field. setarray .mapfs, mf_nomemo, mf_nosave, mf_noteleport, mf_nowarp, mf_nowarpto, mf_noskill; //mapflags setarray .times, 60, 60*15, 60*30, 60*45, 60*60; //In seconds. setarray .price, 10, 150 , 300 , 450 , 600 ; //Price of time multiplied by .multi. set .npc$, "[^0000FFManager^000000]"; //NPC name set .cnt$, "NPC"; //connected npc name set .repl$, ".name, .time, .remain"; //part of the name you want replace by .empty$ if it's not being used. set .empty$, "EMPTY"; // This text will appear when the room is not being used. set .multi, 100000; while(.@a++<=getarraysize(.price)) //Building static menus set .menu2$, .menu2$+(.times[.@a-1]/60)+" minute"+((.times[.@a-1]/60>1)?"s":"")+" costs "+.price[.@a-1]+"M.:"; while(getarraysize(getd(".room"+.@i+"$"))) { setmapflag getd(".room"+.@i+"$[1]"),.mapfs[.@i]; set .maps$, .maps$+"|"+getd(".room"+.@i+"$[1]"); .@i++; } set .maps$, .maps$+"|"; } 06guild_01,50,50,5 script NPC#0 100,500,500,{ if(mobcount(strcharinfo(3),strnpcinfo(0)+"::OnDeathEvent")) { mes .npc$; mes getd(".amnt_"+strcharinfo(3))+" mobs still remain!"; mes "You need to kill them all before I can summon more."; emotion ET_SWEAT; close; } set .@len, getarraysize(getd(".monster"+strnpcinfo(2))); for(.@h = 0; .@h < .@len; .@h += 3) { .@i++; set .@mobs[.@i-1], getd(".monster"+strnpcinfo(2)+"["+.@h+"]"); set .@chnc[.@i-1], getd(".monster"+strnpcinfo(2)+"["+(.@h+1)+"]"); set .@amnt[.@i-1], getd(".monster"+strnpcinfo(2)+"["+(.@h+2)+"]"); set .@menu$, .@menu$+getmonsterinfo(.@mobs[.@i-1],0)+":"; } set .@menu$, .@menu$+"Back to SavePoint"; mes .npc$; mes "Select which mob you'd like me to summon!"; next; set @menu, select(.@menu$)-1; if(@menu>=getarraysize(.@mobs)) { close2; warp "SavePoint",0,0; end; } setd ".drop_"+strcharinfo(3), .@chnc[@menu]; setd ".amnt_"+strcharinfo(3), .@amnt[@menu]; monster strcharinfo(3),0,0,"--ja--",.@mobs[@menu],.@amnt[@menu],strnpcinfo(0)+"::OnDeathEvent"; close; OnTouch: if(strcharinfo(atoi(getvariableofnpc(getd(".type"+strnpcinfo(2)+"$"),.cnt$)))!=getvariableofnpc(getd(".name"+strnpcinfo(2)+"$"),.cnt$) && getgmlevel() <= 60) { warp "SavePoint",0,0; end; } end; OnTimer1000: initnpctimer; setd ".timer"+strnpcinfo(2), (atoi(getvariableofnpc(getd(".rtime_"+strnpcinfo(4)+"$"),.cnt$))-gettimetick(2)); if(gettimetick(2)>=getd(".tick"+strnpcinfo(2))) { setd ".tick"+strnpcinfo(2), gettimetick(2)+60; mapannounce strnpcinfo(4),callfunc("t",getd(".timer"+strnpcinfo(2)))+" remaining!",bc_map|bc_blue; } if( getd(".timer"+strnpcinfo(2)) <= 0 ) { stopnpctimer; mapannounce strnpcinfo(4),"Gold Room Time has ended!",bc_map|bc_blue; mapwarp strnpcinfo(4),"prontera",156,191; killmonster strnpcinfo(4),strnpcinfo(0)+"::OnDeathEvent"; } end; OnDeathEvent: if(!playerattached()) end; getitem 969,rand(getd(".drop_"+strcharinfo(3))); setd ".amnt_"+strcharinfo(3), getd(".amnt_"+strcharinfo(3))-1; if( getd(".amnt_"+strcharinfo(3))<=0 ) mapannounce strcharinfo(3),"All monsters have been killed!",bc_map|bc_blue; end; OnCommandEvent: if ( !compare(getvariableofnpc(.maps$,.cnt$),"|"+strcharinfo(3)+"|") || getgmlevel() >= 99 ) atcommand .@atcmd_command$+" "+ implode( .@atcmd_parameters$," " ); else if (.@atcmd_command$ == "grtime") dispbottom callfunc("t",getd(".timer"+strnpcinfo(2)))+" remaining!"; else message strcharinfo(0), "You're not allowed to use that command here!"; end; OnInit: // Room# <ID> Chance Amount ... setarray .monster0, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster1, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster2, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster3, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster4, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster5, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster6, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; setarray .monster7, 1002, 2 , 100 , 1236, 3, 100, 1095, 4, 100, 1105, 5, 100, 1176, 6, 100; set .cnt$, "Private Gold Room"; //Connecting NPC name (Change this if you change the npc above) set .npc$, "[^0000FF"+strnpcinfo(1)+"^000000]"; //NPC Name set .dlay, 60; //Announce timer delay in seconds bindatcmd "storage",strnpcinfo(3)+"::OnCommandEvent"; //Disabled commands. bindatcmd "warp",strnpcinfo(3)+"::OnCommandEvent"; bindatcmd "savepoint",strnpcinfo(3)+"::OnCommandEvent"; bindatcmd "useskill",strnpcinfo(3)+"::OnCommandEvent"; bindatcmd "skillon",strnpcinfo(3)+"::OnCommandEvent"; bindatcmd "grtime",strnpcinfo(3)+"::OnCommandEvent"; } //DUPLICATIONS 06guild_02,50,50,5 duplicate(NPC#0) NPC#1 100,500,500 06guild_03,50,50,5 duplicate(NPC#0) NPC#2 100,500,500 06guild_04,50,50,5 duplicate(NPC#0) NPC#3 100,500,500 06guild_05,50,50,5 duplicate(NPC#0) NPC#4 100,500,500 06guild_06,50,50,5 duplicate(NPC#0) NPC#5 100,500,500 06guild_07,50,50,5 duplicate(NPC#0) NPC#6 100,500,500 06guild_08,50,50,5 duplicate(NPC#0) NPC#7 100,500,500 //FUNCTIONS function script t { function s; set .@left, getarg(0); if ( .@left <= 0 ) return getarg(0); set .@day, .@left / 86400; set .@hour, .@left % 86400 / 3600; set .@min, .@left % 3600 / 60; set .@sec, .@left % 60; return ( ( .@day ? .@day +" day"+ s( .@day ) : "" ) + ( .@hour ? .@hour +" hour"+ s( .@hour ) : "" ) + ( .@min ? .@min +" min"+ s( .@min ) : "" ) + ( .@sec ? .@sec +" sec"+ s( .@sec,1 ) : "" ) ); function s { return ( ( getarg(0) > 1 ? "s" : "" ) + ( getarg(1,0) ? "" : " " ) ); } }

///This function takes an array of strings and builds a menu players can navigate. ///Usage: f_displayPages(.@string_array${, .@page_size {, .@extra_string_array$}}); ///Output: This function returns the selected item index from the given array. function script f_displayPages { .@page_size = getarg(1, 10); .@len = getarraysize(getarg(0)); .@pages = .@len / .@page_size; .@pages -= .@len > .@page_size && .@len % .@page_size ? 0 : 1; .@foo_len = getarraysize(getarg(2, .@foo$)); copyarray .@foo$[0], getarg(2, .@foo$), .@foo_len; .@foo$[0] = .@foo_len ? .@foo$[0] : "foo"; // This is only here to avoid warnings. do { copyarray .@copy$[0], getelementofarray(getarg(0), .@page_size * .@page), .@page_size; if( .@page < .@pages ) .@copy$[.@page_size] = "Next Page =>"; if( .@page > 0 ) .@copy$[.@page_size +1] = "<= Previous Page"; .@menu = select(implode(.@copy$,":")+( .@foo_len ? ":" + implode(.@foo$,":") : "" )); if( .@menu == .@page_size +1 ) .@page++; else if( .@menu == .@page_size +2 ) .@page--; else if( .@menu > getarraysize(.@copy$) ) return getarraysize(.@copy$) - .@menu; deletearray .@copy$; } while( .@menu > .@page_size ); .@menu += .@page_size * .@page; return .@menu-1; } function script f_timeKeep { function s; set .@left, getarg(0); if ( .@left <= 0 ) return getarg(0); set .@day, .@left / 86400; set .@hour, .@left % 86400 / 3600; set .@min, .@left % 3600 / 60; set .@sec, .@left % 60; .@mes$ = ( .@day ? .@day +" day"+ s( .@day ) : "" ) + ( .@hour ? .@hour +" hour"+ s( .@hour ) : "" ) + ( .@min ? .@min +" minute"+ s( .@min ) : "" ) + ( .@sec ? .@sec +" second"+ s( .@sec,1 ) : "" ); if ( charat( .@mes$, getstrlen(.@mes$)-1 ) == " " ) .@mes$ = delchar( .@mes$, getstrlen(.@mes$)-1 ); return ( .@mes$ ); function s { return ( ( getarg(0) > 1 ? "s" : "" ) + ( getarg(1,0) ? "" : " " ) ); } } // By Skorm... Selection Buffer Version 2.2 prontera,150,150,5 script Buffer 100,{ if( @h_last > gettimetick(2) && !.dual_mode || compare(strnpcinfo(2),"set") || !slc_bufs ) goto OnSetBuff; OnBuff: if( @h_last > gettimetick(2) ) end; @h_last = gettimetick(2) + .trigger; .@total = callsub(Sub_PriceCheck); if( .@total > Zeny ) { message strcharinfo(0), "You don't have enough Zeny to buff "+( .dual_mode ? "" : "double ")+"click the "+( .dual_mode ? "Buff Setter" : "Buffer ")+"to modify your selection."; end; } for( .@a = 0; .@a < .len; .@a++ ) if( ( slc_bufs & pow( 2, .@a ) ) ) { switch(.sc_num[.@a]) { case 0: case 1: skilleffect .skil_num[.@a], .levels[.@a]; sc_start .sc_effect[.@a], .ticks[.@a], .levels[.@a]; break; case 2: case 3: sc_start2 .sc_effect[.@a], .ticks[.@a], .skil_num[.@a], .levels[.@a]; break; case 4: sc_start4 .sc_effect[.@a], .ticks[.@a], .skil_num[.@a], .levels[.@a], .sc_arg1[.@a], .sc_arg2[.@a]; break; } message strcharinfo(0),"Buff "+.skil_txt$[.@a]+" Added!"; } Zeny = Zeny - .@total; end; Sub_PriceCheck: for( .@a = 0; .@a < .len; .@a++ ) if( ( slc_bufs & pow( 2, .@a ) ) ) .@total = .@total + .price[.@a]; return .@total; OnSetBuff: .@slc_bufs = slc_bufs; .@total = callsub(Sub_PriceCheck); .@len = getarraysize(.skil_txt$); for (.@i = 0; .@i < .@len; .@i++) .@buffs$[.@i] = "( "+(.@slc_bufs&pow(2,.@i)?"^35a100On":"^FF0000Off")+"^000000 ) [ ^0054ff"+.skil_txt$[.@i]+(.sc_num < 2 ? " Lv"+.levels[.@i] : "")+"^000000 ] "+F_InsertComma(.price[.@i])+"z, "+f_timeKeep(.ticks[.@i]/1000); do { mes .npc_nm$; mes "Select your buffs!"; .@select = f_displayPages(.@buffs$, .page_size, .format$); next; switch( .@select ) { case -1: mes .npc_nm$; mes "Alright, your current total will be "+F_InsertComma(.@total)+"z each time you use my buffing service. Is that ok?"; next; if( select( "Yes:No" ) == 1 ) slc_bufs = .@slc_bufs; break; default: .@total = ( .@slc_bufs & pow( 2, .@select ) ) ? .@total - .price[.@select] : .@total + .price[.@select]; .@slc_bufs = .@slc_bufs ^ pow( 2, .@select ); .@buffs$[.@select] = "( "+(.@slc_bufs&pow(2,.@select)?"^35a100On":"^FF0000Off")+"^000000 ) [ ^0054ff"+.skil_txt$[.@select]+(.sc_num < 2 ? " Lv"+.levels[.@select] : "")+"^000000 ] "+F_InsertComma(.price[.@select])+"z, "+f_timeKeep(.ticks[.@select]/1000); } } while ( .@select > -1 ); end; function add_sc_effect { if(getargcount() <= 6) { .sc_num[.effect_size] = 0; } else if(getargcount() <= 7) { .sc_num[.effect_size] = 2; } else { .sc_num[.effect_size] = 4; } .sc_effect[.effect_size] = getarg(0, SC_INCREASEAGI); .skil_txt$[.effect_size] = getarg(1, "Increase Agi"); .ticks[.effect_size] = getarg(2, 300000); .price[.effect_size] = getarg(3, 1000); .skil_num[.effect_size] = getarg(4, 29); .levels[.effect_size] = getarg(5, 10); .sc_arg1[.effect_size] = getarg(6, 0); .sc_arg2[.effect_size] = getarg(7, 0); .effect_size++; } OnInit: if(compare(strnpcinfo(2),"set")) .dual_mode = 1; .npc_nm$ = "[ "+strnpcinfo(1)+" ]"; // Only the first loaded NPC can continue... if(.len) end; // SC_EFFECT, TEXT, TICKS, PRICE, ARG1(Skill Number), ARG2(Skill Level), ARG3, ARG4; add_sc_effect(SC_INCREASEAGI, "Increase Agi", 300000, 1000, 29, 10); add_sc_effect(SC_BLESSING, "Blessing", 300000, 1000, 34, 10); add_sc_effect(SC_ASSUMPTIO, "Assumptio", 300000, 5000, 361, 5); add_sc_effect(SC_IMPOSITIO, "Impositio", 300000, 5000, 66, 5); add_sc_effect(SC_ANGELUS, "Angelus", 300000, 5000, 33, 5); add_sc_effect(SC_MAGNIFICAT, "Magnificat", 300000, 10000, 74, 5); add_sc_effect(SC_GLORIA, "Gloria", 300000, 10000, 75, 5); add_sc_effect(SC_ARMOR_ELEMENT_EARTH, "Earthproof", 1200000, 10000, 0, 20, -15, 0); setarray .format$, "Done"; // This is the conformation button at the end of the menu. .page_size = 10; // Buffs shown per page. .trigger = 2; // Number of seconds between clicks to not trigger select page. .len = getarraysize(.sc_effect); bindatcmd "setbuff",strnpcinfo(0)+"::OnSetBuff"; bindatcmd "buff",strnpcinfo(0)+"::OnBuff"; } // Any duplicate npc with a hidden name that contains "set" will be considered a buff setter. For Example, set1, set2, or setting are all valid hidden names. // To enable one-npc-mode where double clicking on the same npc allows for buffs to be changed. Just remove all duplicate npcs with "set" in their hidden names. prontera,152,150,4 duplicate(Buffer) Buff Setter#set 100

Can you test this and let me know if you have any issues. I'll upload it if you give the all clear. ///This function takes an array of strings and builds a menu players can navigate. ///Usage: f_displayPages(.@string_array${, .@page_size {, .@extra_string_array$}}); ///Output: This function returns the selected item index from the given array. function script f_displayPages { .@page_size = getarg(1, 10); .@len = getarraysize(getarg(0)); .@pages = .@len / .@page_size; .@pages -= .@len > .@page_size && .@len % .@page_size ? 0 : 1; .@foo_len = getarraysize(getarg(2, .@foo$)); copyarray .@foo$[0], getarg(2, .@foo$), .@foo_len; .@foo$[0] = .@foo_len ? .@foo$[0] : "foo"; // This is only here to avoid warnings. do { copyarray .@copy$[0], getelementofarray(getarg(0), .@page_size * .@page), .@page_size; if( .@page < .@pages ) .@copy$[.@page_size] = "Next Page =>"; if( .@page > 0 ) .@copy$[.@page_size +1] = "<= Previous Page"; .@menu = select(implode(.@copy$,":")+( .@foo_len ? ":" + implode(.@foo$,":") : "" )); if( .@menu == .@page_size +1 ) .@page++; else if( .@menu == .@page_size +2 ) .@page--; else if( .@menu > getarraysize(.@copy$) ) return getarraysize(.@copy$) - .@menu; deletearray .@copy$; } while( .@menu > .@page_size ); .@menu += .@page_size * .@page; return .@menu-1; } function script f_timeKeep { function s; set .@left, getarg(0); if ( .@left <= 0 ) return getarg(0); set .@day, .@left / 86400; set .@hour, .@left % 86400 / 3600; set .@min, .@left % 3600 / 60; set .@sec, .@left % 60; .@mes$ = ( .@day ? .@day +" day"+ s( .@day ) : "" ) + ( .@hour ? .@hour +" hour"+ s( .@hour ) : "" ) + ( .@min ? .@min +" minute"+ s( .@min ) : "" ) + ( .@sec ? .@sec +" second"+ s( .@sec,1 ) : "" ); if ( charat( .@mes$, getstrlen(.@mes$)-1 ) == " " ) .@mes$ = delchar( .@mes$, getstrlen(.@mes$)-1 ); return ( .@mes$ ); function s { return ( ( getarg(0) > 1 ? "s" : "" ) + ( getarg(1,0) ? "" : " " ) ); } } // By Skorm... Selection Buffer Version 2.2 prontera,150,150,5 script Buffer 100,{ if( @h_last > gettimetick(2) && !.dual_mode || compare(strnpcinfo(2),"set") || !slc_bufs ) goto OnSetBuff; OnBuff: if( @h_last > gettimetick(2) ) end; @h_last = gettimetick(2) + .trigger; .@total = callsub(Sub_PriceCheck); if( .@total > Zeny ) { message strcharinfo(0), "You don't have enough Zeny to buff "+( .dual_mode ? "" : "double ")+"click the "+( .dual_mode ? "Buff Setter" : "Buffer ")+"to modify your selection."; end; } for( .@a = 0; .@a < .len; .@a++ ) if( ( slc_bufs & pow( 2, .@a ) ) ) { switch(.sc_num[.@a]) { case 0: case 1: skilleffect .skil_num[.@a], .levels[.@a]; sc_start .sc_effect[.@a], .ticks[.@a], .levels[.@a]; break; case 2: case 3: sc_start2 .sc_effect[.@a], .ticks[.@a], .levels[.@a], .sc_arg1[.@a]; break; case 4: sc_start4 .sc_effect[.@a], .ticks[.@a], .levels[.@a], .sc_arg1[.@a], .sc_arg2[.@a]; break; } message strcharinfo(0),"Buff "+.skil_txt$[.@a]+" Added!"; } Zeny = Zeny - .@total; end; Sub_PriceCheck: for( .@a = 0; .@a < .len; .@a++ ) if( ( slc_bufs & pow( 2, .@a ) ) ) .@total = .@total + .price[.@a]; return .@total; OnSetBuff: .@slc_bufs = slc_bufs; .@total = callsub(Sub_PriceCheck); .@len = getarraysize(.skil_txt$); for (.@i = 0; .@i < .@len; .@i++) .@buffs$[.@i] = "( "+(.@slc_bufs&pow(2,.@i)?"^35a100On":"^FF0000Off")+"^000000 ) [ ^0054ff"+.skil_txt$[.@i]+(.sc_num < 2 ? " Lv"+.levels[.@i] : "")+"^000000 ] "+F_InsertComma(.price[.@i])+"z, "+f_timeKeep(.ticks[.@i]/1000); do { mes .npc_nm$; mes "Select your buffs!"; .@select = f_displayPages(.@buffs$, .page_size, .format$); next; switch( .@select ) { case -1: mes .npc_nm$; mes "Alright, your current total will be "+F_InsertComma(.@total)+"z each time you use my buffing service. Is that ok?"; next; if( select( "Yes:No" ) == 1 ) slc_bufs = .@slc_bufs; break; default: .@total = ( .@slc_bufs & pow( 2, .@select ) ) ? .@total - .price[.@select] : .@total + .price[.@select]; .@slc_bufs = .@slc_bufs ^ pow( 2, .@select ); .@buffs$[.@select] = "( "+(.@slc_bufs&pow(2,.@select)?"^35a100On":"^FF0000Off")+"^000000 ) [ ^0054ff"+.skil_txt$[.@select]+(.sc_num < 2 ? " Lv"+.levels[.@select] : "")+"^000000 ] "+F_InsertComma(.price[.@select])+"z, "+f_timeKeep(.ticks[.@select]/1000); } } while ( .@select > -1 ); end; function add_sc_effect { if(getargcount() <= 6) { .sc_num[.effect_size] = 0; } else if(getargcount() <= 7) { .sc_num[.effect_size] = 2; } else { .sc_num[.effect_size] = 4; } .sc_effect[.effect_size] = getarg(0, SC_INCREASEAGI); .skil_txt$[.effect_size] = getarg(1, "Increase Agi"); .ticks[.effect_size] = getarg(2, 300000); .price[.effect_size] = getarg(3, 1000); .skil_num[.effect_size] = getarg(4, 29); .levels[.effect_size] = getarg(5, 10); .sc_arg1[.effect_size] = getarg(6, 0); .sc_arg2[.effect_size] = getarg(7, 0); .effect_size++; } OnInit: if(compare(strnpcinfo(2),"set")) .dual_mode = 1; .npc_nm$ = "[ "+strnpcinfo(1)+" ]"; // Only the first loaded NPC can continue... if(.len) end; // SC_EFFECT, TEXT, TICKS, PRICE, ARG1(Skill Number), ARG2(Skill Level), ARG3, ARG4; add_sc_effect(SC_INCREASEAGI, "Increase Agi", 300000, 1000, 29, 10); add_sc_effect(SC_BLESSING, "Blessing", 300000, 1000, 34, 10); add_sc_effect(SC_ASSUMPTIO, "Assumptio", 300000, 5000, 361, 5); add_sc_effect(SC_IMPOSITIO, "Impositio", 300000, 5000, 66, 5); add_sc_effect(SC_ANGELUS, "Angelus", 300000, 5000, 33, 5); add_sc_effect(SC_MAGNIFICAT, "Magnificat", 300000, 10000, 74, 5); add_sc_effect(SC_GLORIA, "Gloria", 300000, 10000, 75, 5); add_sc_effect(SC_ARMOR_ELEMENT_EARTH, "Earthproof", 1200000, 10000, 0, 20, -15, 0); setarray .format$, "Done"; // This is the conformation button at the end of the menu. .page_size = 10; // Buffs shown per page. .trigger = 2; // Number of seconds between clicks to not trigger select page. .len = getarraysize(.sc_effect); bindatcmd "setbuff",strnpcinfo(0)+"::OnSetBuff"; bindatcmd "buff",strnpcinfo(0)+"::OnBuff"; } // Any duplicate npc with a hidden name that contains "set" will be considered a buff setter. For Example, set1, set2, or setting are all valid hidden names. // To enable one-npc-mode where double clicking on the same npc allows for buffs to be changed. Just remove all duplicate npcs with "set" in their hidden names. prontera,152,150,4 duplicate(Buffer) Buff Setter#set 100

I don't think there's an option for that. I'll find time to add it tomorrow.

If there is an NPC with "set" in the hidden part of its name then duplicate NPCs without set in their name are buffers and ones with it are setters. Granted in retrospect this is a little annoying because you can only ever have the two system or the one system on a server never both via duplicates. Here is an example of a setter NPC. // Any duplicate npc with a hidden name that contains "set" will be considered a buff setter. For Example, set1, set2, or setting are all valid hidden names. // To enable one-npc-mode where double clicking on the same npc allows for buffs to be changed. Just remove all duplicate npcs with "set" in their hidden names. prontera,152,150,4 duplicate(Buffer) Buff Setter#set 100

Not necessarily you could give the enhancement incrementally +10 to all stats for each refine with enriched elunium or if you really want the effect to happen all at once you could give it a stat bonus of +0 all stats until +10. Remove the +0 stat bonus if the refine it with normal elunium. Weapon bonuses can be 0 but are still set and retained through trades etc.

The problem with this approach is what's stopping the A.I. from summoning more slaves? Wouldn't recommend having a loop. I like the command idea, but I think this is the wrong application for it. What would be better is my previous suggestion of a completely different duplicate mob that doesn't spawn slaves. This is pretty simple to achieve with mob_avail. You can also look into adding a new mapflag that prevents summoning slaves on a map: `mf_monster_noslaves` Honestly summoning slaves might be a skill that mobs use so maybe you could use the restricted map flag. I'm not entirely sure if that applies to mobs though.

Thanks it's mainly for the search engines. What if someone else has the same question as you? They wouldn't find it buried under this topic. While your question might be related, it isn't exactly the same.

This is topic hijacking btw. I would recommend creating another version of the MVPs without the slave spawns.

This is a stupid bug what the early sf function I made. Replace it with f_DisplayPages. You should be able to find it with a quick search on rAthena.

@Dolphin86 This is a problem I've run into when accessing an NPC that is on a map you're not on. Instead of "end" you could try "close". Or just warp the player where they are and it'll unstuck them.

I'm just now seeing this and don't have the time to test things out, but I've had problems warping players with similar BG scripts. I can't exactly remember what the problem was because its been years, but you should try collecting all of the players cids/aids for each team and then warping them individually instead of mapwarp/partywarp.

Oh I love this! Fantastic script idea.