awesomazingxed

* bump *

Thanks. I'll try it asap. How about if i want to make it server wide. So players can know how many people are in the server atm. Thanks alot Ford. Thanks men. Appreciated. Sorry bout that.

Hello everyone. I would like to request an NPC that shows how many users are in the map. It's like a normal NPC that has chat waiting room that has a message like "40 Players are in the Prontera" Something like that. Thanks. Hi everyone. I would like to request an npc that shows how many users are online. It's like an NPC that has a Chat waiting room that says "50 Players are online" Thanks in advance. Ciao

up for this

UP

Only Guild master are allowed to use the Guild Skill Giver NPC. When you click the NPC, automatically your guild can get all the skill.

[ Permission to Post ] Anyone has a script that will disable dual clienting via means of ONLY 1 MAC IP is enable OnPCLoginEvent. [ script description ] 1. Only 1 account is enable to log in per computer 2. Players who have joined IP address is enable to log in if they're only using 2 different computer.

Can you remake my script? Thanks.

UP

Hello everyone, can somebody help me. This is a working Instant +4 refiner. My problem is this also upgrade headgears like beret, and any other items that is not refinable. Thank you. turbo_room,64,86,5 script Insta +4 Refiner 907,{ mes "[Smith]"; mes "Hi,I can Refine your"; mes "Equipment to +4"; mes "or Repair your"; mes "Equipment.Also I'm able"; mes "to Derefine your Equipment."; mes "What do you want from me?"; next; switch(select("I want a Repair:I want a Refine:I want a Derefine:Nothing")) { case 1: mes "[Smith]"; mes "Okay I'm going to repair"; mes "your Equipment."; next; while (getbrokenid(1)) { repair(1); set .@i, .@i +1; } if (.@i) dispbottom .@i + " items repaired."; mes "[Smith]"; mes "Congrats!Enjoy!"; close; end; case 2: mes "[Smith]"; mes "Okay I'm going"; mes "to refine your Equipment"; mes "to +4,Thx for using my Service!"; next; for(set @part,1;@part<101;set @part,@part+1) if(getequipisequiped(@part)) while(getequiprefinerycnt(@part) < 4) successrefitem @part; mes "[Smith]"; mes "Congrats Enjoy it!"; close; end; case 3: mes "[ Smith ]"; mes "Okay I'm going to Derifne your Equipment now."; next; setarray .@a[1],4,16,64,256; select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10)); if ( !getequipisequiped(@menu) ) { mes "[ Smith ]"; mes "There's nothing equipped there..."; close; } if ( zeny < 1 ) { mes "[ Smith ]"; mes "You don't have enough zeny"; close; } if ( getequiprefinerycnt(@menu) > 10 || getequiprefinerycnt(@menu) == 0 ) { mes "[ Smith ]"; mes "This item cannot be de-refined."; close; } atcommand "@refine "+ .@a[@menu] +" -90"; set zeny,zeny - 1; mes "[ Smith ]"; mes "Your item has de-refined successfully"; close; case 4: mes "[ Smith ]"; mes "Okay,come back when you need me."; close; } }

[ Permission To Post ] Don't know if this is the right section, but can anyone of you guys help me how to change the Vending Currency to a specific item. ie: skull, tcg, etc. instead of zenny. Thanks in advance. Ciao!

Yo. Anyone has a Delete Item NPC, which has a function to select which item the player wants to delete in his/her inventory. Thanks.

Emperium tester in prontera, not an emp room. Emperium doesnt die Same emperium like the one at the castle. Angel > Holy > Small > Def 40 Thanks in advance.

Is it just only for Tarot skill? I'm not good in this stuff but you can disable Tarot skill in the map while waiting for a fix. Anyone can help?

Hello. How can I change the prize of the of the disguise event. I want players to win 3 Event Ticker per round Event Ticket Item ID [ 7711 ] //===== rAthena Script ======================================= //= Disguise Event //===== By: ================================================== //= GmOcean //===== Current Version: ===================================== //= 5.1 //===== Compatible With: ===================================== //= rAthena Project //===== Description: ========================================= //= Guess a monster name correctly for prizes. //= //= NOTE: Requires PCRE library installed. //===== Additional Comments: ================================= //= 5.0 Last update by GmOcean. //= 5.1 Cleaned and standardized, mostly. [Euphy] //============================================================ prontera,160,155,4 script Disguise Event 795,{ // Currently set to run every two hours. // To change times, edit the OnClock labels below. set .@GMLevel,60; // GM level required to access NPC. set .@n$,"[^0000FFDisguise NPC^000000]"; if (getgmlevel()>=.@GMLevel) { mes .@n$; mes "Select an option."; next; switch(select("Turn ON/OFF Event:Event Settings")) { case 1: mes .@n$; if (.EventON) { mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?"; } else { mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?"; } if(select("Yes:No")==2) close; if (.EventON) { set .EventON,0; set .Timer,0; setnpctimer 0; stopnpctimer; announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue; deletepset 1; setnpcdisplay "Disguise Event",795; close; } set .EventON,1; set .Timer,1; setnpctimer 0; initnpctimer; set .ResetCounter,.ResetCounter+1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; close; case 2: mes .@n$; mes "Pick a setting to modify."; next; switch(select("Monster Display:Number of Rounds:Prize Settings")) { case 1: setarray .@r$[0],"Disguise as all monsters.","Disguise as MVPs only."; mes .@n$; mes "Choose a disguise rule."; next; set .Rule, select(implode(.@r$,":")); mes .@n$; mes "The Disguise Rule has been set:"; mes " > ^0055FF"+.@r$[.Rule-1]+"^000000"; close; case 2: mes .@n$; mes "Input the number of rounds you want the event to last."; mes "Current number: [^0000FF"+.Rounds+"^000000]"; next; input .@Rounds; set .Rounds,.@Rounds; mes .@n$; mes "The number of rounds has been changed to "+.Rounds+"."; close; case 3: mes .@n$; mes "Input the Item ID of the prize given each round."; mes "Current item: [^0000FF"+getitemname(.Prize)+"^000000] (ID #"+.Prize+")"; next; input .@Prize; mes .@n$; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") { mes "That item does not exist. Please try again."; close; } set .Prize,.@Prize; mes "Input the amount to be given."; next; input .@amount; mes .@n$; if (.@amount<=0 || .@amount>=10000) { mes "That amount is invalid. Using default ammount of 1."; set .@amount,1; next; mes .@n$; } set .PrizeAmt,.@amount; mes "The Prize has been changed successfully."; mes "Prize: "+.PrizeAmt+"x [^0000FF"+getitemname(.Prize)+"^000000]"; close; } } } if (.EventON) end; mes .@n$; mes "Welcome."; mes "How may I be of assistance?"; if(select("Information:Nothing, just passing through.")==2) close; next; mes .@n$; mes "This event is quite simple."; mes "At the start of the event, I will"; mes "disguise myself as a random"; mes "monster. You have to shout"; mes "that monter's name out loud."; next; mes "If you are correct, you will receive"; mes "a prize. If not, keep trying!"; mes "That's all that there is to this event."; close; OnInit: set .EventON,0; set .Wait,0; set .Winner,0; set .ResetCounter,0; set .Rounds,10; set .Prize,512; set .PrizeAmt,1; set .Rule,1; setarray .MVP[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373, 1389,1399,1418,1492,1502,1511,1583,1623,1630,1646,1647,1648,1649,1650,1651,1658,1685,1688, 1708,1719,1734,1751,1768,1779,1785,1802,1832,1871,1874,1885,1917,1980,2022,2068,2087,2131, 2156,2165; set .BlackList$, "1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168," + "1171,1172,1173,1181,1187,1210,1217,1218,1222,1223,1224,1225,1226,1227,1228," + "1233,1284,1407,1411,1414,1495,1501,1900,1996,2000,2001,2002,2003,2004," + "2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035," + "2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049," + "2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063," + "2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2083,2084,2085," + "2086,2087,2088,2089,2090,2091,2092,2093,2094,2095,2096,2097,2098,2099," + "2100,2101,2012,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113," + "2114,2115,2116,2117,2118,2119,2120,2121,2123,2124,2125,1496,"; end; OnClock0000: OnClock0200: OnClock0400: OnClock0600: OnClock0800: OnClock1000: OnClock1200: OnClock1400: OnClock1600: OnClock1800: OnClock2000: OnClock2200: set .ResetCounter,.ResetCounter+1; set .EventON,1; set .Timer,1; set .Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; setnpctimer 0; initnpctimer; end; OnTimer10000: if (.Timer || .Change) end; set .Wait,0; goto iDisguise; end; OnTimer30000: if (.Timer) end; set .Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what I was. Please wait 10 seconds while I disguise again."; specialeffect EF_DETECT2; set $MonsterName$,""; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if (.Timer!=1) end; announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer120000: if (.Timer!=1) end; announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer180000: if (.Timer!=1) end; announce "The Disguise Event has begun!",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; set .Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; iDisguise: if (.Rule==1) { set .Winner,0; set .Monster,1000+rand(1,995); if (compare(","+.BlackList$+"," , ","+.Monster+",")) goto iDisguise; if (.Monster==.LastMonster) goto iDisguise; set .LastMonster,.Monster; set $MonsterName$,getmonsterinfo(.Monster,0); } if (.Rule==2) { set .Winner,0; set .Monster,rand(49); set $MonsterName$,getmonsterinfo(.MVP[.Monster],0); } deletepset 1; defpattern 1,"([^:]+):.\\s*"+$MonsterName$+".*", "iCorrect"; activatepset 1; if (.Rule==1) setnpcdisplay "Disguise Event",.Monster; if (.Rule==2) setnpcdisplay "Disguise Event",.MVP[.Monster]; set .Change,1; setnpctimer 0; end; iCorrect: if (.Winner) { dispbottom "Someone has already won this round."; end; } set .Winner,1; set .RoundCount,.RoundCount+1; deletepset 1; activatepset 1; getitem .Prize,.PrizeAmt; announce strcharinfo(0)+" is correct! I was disguised as: "+$MonsterName$+"",bc_map | bc_blue; if (.RoundCount>=.Rounds) { setnpcdisplay "Disguise Event",795; set .RoundCount,0; set .Change,0; set .EventON,0; setnpctimer 0; stopnpctimer; npctalk "Thank you all for playing. That was the last round of the Disguise Event. Come play again later."; end; } setnpcdisplay "Disguise Event",795; set .Change,0; setnpctimer 0; end; }

Still, it doesn't work. I'm using eathena, by the way.

Hello there. I just wanna know how to remove all of the NPC in mid_camp. Thanks in advance. Merry Christmas.

still not working~

Hi everyone. I don't know if this is the right section but can anyone of you guys help me on how to disable smokie card in pvp / woe / and battlegrounds in champion class. Thank you.

Eathena

Hello everyone. Can anyone help me with this error. - script KoE -1,{ OnInit: disablenpc "The King#KoE"; disablenpc "Exit#KoE"; bindatcmd "koe", strnpcinfo(0)+"::Oncommand", 99,99; end; Oncommand: if ( compare( .@atcmd_parameters$, "on" ) ) goto L_start; else if ( compare( .@atcmd_parameters$, "off" ) ) goto L_end; else { dispbottom "type - '@koe on' to start the event"; dispbottom "type - '@koe off' to end the event"; } end; OnHour12: L_start: gvgon "koe"; announce "The King of Emperium Hill has begun!", bc_all; .start = 1; enablenpc "The King#KoE"; disablenpc "Exit#KoE"; $koegid = 0; donpcevent "::OnRevKoE"; maprespawnguildid "koe", $koegid, 7; monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead"; end; OnHour13: L_end: gvgoff "koe"; announce "The King of Emperium Hill is over!", bc_all; .start = 0; enablenpc "Exit#KoE"; disablenpc "The King#KoE"; killmonsterall "koe"; // maprespawnguildid "koe", $koegid, 6; end; OnEmpDead: $koegid = getcharid(2); announce "The current King of Emperium Hill is the ["+ strcharinfo(2) +"] guild.", bc_all; donpcevent "::OnRevKoE"; maprespawnguildid "koe", $koegid, 6; sleep 500; if ( .start ) monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead"; end; } // KoE Entrance phtownall,221,211,4 script The King#KoE 58,{ mes "[The King]"; if ( !getcharid(2) ) { mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000."; close; } mes "Hello."; mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?"; if ( select ( "Yes", "No" ) == 2 ) close; switch( rand(1,4) ){ case 1: warp "koe", 50, 88; end; case 2: warp "koe", 88, 50; end; case 3: warp "koe", 50, 11; end; case 4: warp "koe", 11, 50; end; } } // KoE Exit koe,49,56,5 script Exit#KoE 51,{ mes "[Exit]"; mes "See ya."; if ( getcharid(2) == $koegid ) getitem 7711, 2; // configure prize here close2; warp "Save",0,0; end; } // Flags koe,49,38,4 script King of Emperium Hill#1::koe_flag 722,{ if ( !$koegid ) end; mes "[King of Emperium Hill]"; mes "The Current King of Emperium Hill is the ["+ getguildname($koegid) +"] guild."; close; OnRevKoE: flagemblem $koegid; end; } koe,61,49,6 duplicate(koe_flag) King of Emperium Hill#2 722 koe,38,49,2 duplicate(koe_flag) King of Emperium Hill#3 722 koe,49,61,0 duplicate(koe_flag) King of Emperium Hill#4 722 koe mapflag nobranch koe mapflag nomemo koe mapflag nopenalty koe mapflag noreturn koe mapflag nosave SavePoint koe mapflag noteleport koe mapflag gvg_noparty koe mapflag nowarp koe mapflag nowarpto koe mapflag guildlock note: I don't know how to check if it's automated or not. I want it to be automated during 12 pm ( server time ) Thank you.

Can anyone help me here. Thanks in advance // ALTER TABLE `guild` ADD `storage_restriction` INT( 11 ) NOT NULL DEFAULT '0' - script Gstorage -1,{ .@char_id = getcharid(0); .@guild_id = getcharid(2); if( !.@guild_id ){ mes "You dont have any guild."; }else{ query_sql( "SELECT `storage_restriction` FROM `guild` WHERE `guild_id` = '"+.@guild_id+"'",.@restriction ); query_sql( "SELECT `position` FROM `guild_member` WHERE `char_id` = '"+.@char_id+"'",.@position ); switch( select( "Access Guild Storage",( .@position )?"":"Edit Restriction" ) ){ Case 1: if( .@restriction && .@restriction & ( 2 << .@position ) ){ mes "Your position cant access this Storage.."; }else{ mes "Storage opened."; guildopenstorage(); } break; Case 2: query_sql( "SELECT `position`,`name` FROM `guild_position` WHERE `guild_id` = '"+.@guild_id+"'",.@guild_position,.@guild_position_name$ ); do{ .@menu$ = ""; .@i = 1; while( .@i < .guild_max_position ){ .@menu$ = .@menu$ + (( .@restriction & ( 2 << .@i) )?"^FF0000[Disabled]":"^EE55FF[Enabled]" )+" "+.@guild_position_name$[.@i] +"^000000" +":"; .@i++; } mes "Select a Position"; mes "^FF0000RED - Disable Access^000000"; .@i = select( .@menu$+":Done" ); if( .@i <= .guild_max_position ){ .@bitvalue = ( 2 << .@i ); if( .@restriction & .@bitvalue ){ .@restriction -= .@bitvalue; mes "Position : ^0055FF"+.@guild_position_name$[.@i]+"^000000 granted Storage Access."; }else{ mes "Position : ^0055FF"+.@guild_position_name$[.@i]+"^000000 disabled Storage Access."; .@restriction += .@bitvalue; } next; } }while( select( "Continue Edit","Finished Edit" ) == 1 ); query_sql( "UPDATE `guild` SET `storage_restriction` = '"+.@restriction+"' WHERE `guild_id` = '"+.@guild_id+"'" ); mes "Guild Storage Restriction updated."; default: break; } } close; OnInit: .guild_max_position = 20; end; }

Don't know what this error means. Thanks in advance. - script GM Kick -1,{ OnPCLoginEvent: if( !getgmlevel() || getgmlevel() >= 90 ) end; if( agitcheck() || agitcheck2() ) goto OnAgitStart; set .GMList$[ getarraysize( .GMList$ ) ],strcharinfo(0); end; OnPCLogoutEvent: for( set .@i,0; .@i < getarraysize( .GMList$ ); set .@i,.@i + 1 ) if( strcharinfo(0) == .GMList$[.@i] ) deletearray .GMList$[.@i],1; end; OnAgitStart: for( set .@i,0; .@i < getarraysize( .GMList$ ); set .@i,.@i + 1 ) atcommand "@kick "+.GMList$[.@i]

Don't know what's wrong. Can anyone help me with this. - script GMNAmes -1,{ OnPCLoginEvent: if(getgroupid() >= 50 ) end; set .Yourname$,strcharinfo(0); setarray .GmNames$[0],"GM","Admin","Staff","Police","P0lice","AwesomazingRO","AwesomazingR0","Juan"; for( set .x, 0; .x < getarraysize(.GmNames$); set .x, .x +1) if(compare(.Yourname$,.GmNames$[.x])) { mes "Are you trying to be Fake GM?"; mes "You Automatic Kick From Server"; sleep2 3000; atcommand "@kick "+strcharinfo(0); end; } percentheal 100,100; end; } Thank you in advance.

OMG Thank you guys.