Yoga

ada sapa yang boleh tolong saya install client harmony..

Hey, anyone know how to make @broadcast only announce on chatbox? with blue colour , like @main and im using eAthena, thanks

thanks

i need help about body relocation spam nodelay.. how to make it delay like 0.05 seconds i tried change it at skill_cast_db.txt but its not working. THANKS

Like @me? OR npctalk "Omg "+strcharinfo(0)+" just click Me ";

i know lol.. check second update

Op some fixed, - script bot2 -1,{ OnInit: OnPCLoadMapEvent: if( !Checking ) end; OnNPCKillEvent: if ( strcharinfo(3) == "bat_c01" ) { set Kill,Kill+1; if( Kill >= rand( 15,35 ) ){ set Checking,1; announce "RO Guard : Bot Check time! Thank you for your patience!",bc_yellow|bc_self; atcommand "@option 2"; mes "[^ff557fRO Guard^000000]"; mes "Please enter the ^FF0000RED COLOUR NUMBER^000000"; next; set [email protected],rand( 999999 ); mes "[^ff557fRO Guard^000000]"; mes "Number : "; mes rand( 999999 )+"^ff0000"[email protected]+"^000000"+rand( 999999 ); input @Number; if( @Number != [email protected] ){ mes "Sorry, WRONG."; atcommand "@kick "+strcharinfo(0); }else{ mes "Thank you. You now can move!."; dispbottom "100% of effectiveness."; announce "RO Guard : To rewared your kindness, please take a bonus of some Buffs.",bc_blue|bc_self; sc_start SC_INCREASEAGI,500000,10; sc_start SC_BLESSING,500000,10; percentheal 100,100; atcommand "@option 0 0 0"; if(@cart == 1) { setcart; set @cart,0; } if(@falcon == 1) { setfalcon; set @falcon,0; } if(@riding == 1) { setriding; set @riding,0; } set Checking,0; set Kill,0; } close; } } } bat_c01 mapflag loadevent Try it .

Try this // to set monster just change if( Kill >= rand( 35,50 ) ){ // 30 - 50 Monster - script bot2 -1,{ OnInit: if ( strcharinfo(3) == "bat_c01" ) { end; OnPCLoadMapEvent: if( !Checking ) end; OnNPCKillEvent: set Kill,Kill+1; if( Kill >= rand( 35,50 ) ){ set Checking,1; announce "RO Guard : Bot Check time! Thank you for your patience!",bc_yellow|bc_self; atcommand "@option 2"; mes "[^ff557fRO Guard^000000]"; mes "Please enter the ^FF0000RED COLOUR NUMBER^000000"; next; set [email protected],rand( 999999 ); mes "[^ff557fRO Guard^000000]"; mes "Number : "; mes rand( 999999 )+"^ff0000"[email protected]+"^000000"+rand( 999999 ); input @Number; if( @Number != [email protected] ){ mes "Sorry, WRONG."; atcommand "@kick "+strcharinfo(0); }else{ mes "Thank you. You now can move!."; dispbottom "100% of effectiveness."; announce "RO Guard : To rewared your kindness, please take a bonus of some Buffs.",bc_blue|bc_self; sc_start SC_INCREASEAGI,500000,10; sc_start SC_BLESSING,500000,10; percentheal 100,100; atcommand "@option 0 0 0"; if(@cart == 1) { setcart; set @cart,0; } if(@falcon == 1) { setfalcon; set @falcon,0; } if(@riding == 1) { setriding; set @riding,0; } set Checking,0; set Kill,0; } close; } } } bat_c01 mapflag loadevent

try this. - script ban_gm_name -1,{ OnPCLoginEvent: if(getgmlevel() >=99) end; [email protected]$ = strcharinfo(0); if( compare( [email protected]$,"GM " ) || compare( [email protected]$,"Admin " ) ){ mes "You will be jailed for using 'GM'/'Admin' within your name"; sleep2 3500; atcommand "@jail "[email protected]$; globalmes [email protected]$+" has been jailed for having 'GM'/'Admin' in their name."; } end; }

prontera,120,130,4 script POD 100,{ mes "[Trader]"; mes "You currently have ^ff0000"+countitem(9524)+"^000000 "+getitemname(9524)+""; menu "Exchange "+getitemname(9524)+" to "+getitemname(7179)+"", L_PODS, "Nevermind", L_Cancel; L_PODS: next; mes "[Trader]"; mes "How many you want to exchange?"; mes "^ff0000Note^000000: 1000 "+getitemname(9524)+" currently 1 "+getitemname(7179)+""; input [email protected]; if ([email protected] == 0) close; if (countitem(9524) < [email protected]*1000) goto L_Noitem; delitem 9524,[email protected]*1000; getitem 7179,[email protected]*1; close; L_Noitem: next; mes "[Trader]"; mes "[ ^ff0000X^000000 ] Insulfficient "+getitemname(9524)+""; close; L_Cancel: mes "[Trader]"; mes "Come back anytime!"; close; end; }

prontera,120,130,4 script POD 100,{ mes "[Trader]"; mes "You currently have ^ff0000"+countitem(9524)+"^000000 "+getitemname(9524)+""; menu "Exchange "+getitemname(7179)+" to "+getitemname(9524)+"", L_PODS, "Nevermind", L_Cancel; L_PODS: next; mes "[Trader]"; mes "How many you want to exchange?"; mes "^ff0000Note^000000: 1 "+getitemname(7179)+" currently 1000 "+getitemname(9524)+""; input [email protected]; if ([email protected] == 0) close; if (countitem(7179) < [email protected]*1) goto L_Noitem; delitem 7179,[email protected]*1; getitem 9524,[email protected]*1000; close; L_Noitem: next; mes "[Trader]"; mes "You dont have enough "+getitemname(7179)+""; close; L_Cancel: mes "[Trader]"; mes "Come back anytime!"; close; end; }

prontera,120,130,4 script POD 100,{ mes "[Trader]"; mes "You currently have ^ff0000"+countitem(9524)+"^000000 "+getitemname(9524)+""; menu "Exchange "+getitemname(7179)+" to "+getitemname(9524)+"", L_PODS, "Nevermind", L_Cancel; L_PODS: next; mes "[Trader]"; mes "How many you want to exchange?"; mes "^ff0000Note^000000: 1 "+getitemname(7179)+" currently 1000 "+getitemname(9524)+""; input [email protected]; if ([email protected] == 0) close; if (countitem(7179) < [email protected]*1) goto L_Noitem; delitem 7179,[email protected]*1; getitem 9524,[email protected]*1000; close; L_Noitem: next; mes "[Trader]"; mes "You dont have enough "+getitemname(7179)+""; close; L_Cancel: mes "[Trader]"; mes "Come back anytime!"; close; end; }

Oh my bad

Maybe new_1-3?

// Just change map whatever you want geffen,67,63,4 script Farm Zone 900,{ mes "This is a Farm Zone."; mes "You are able to Hunt Budots Coin inside this Room."; mes "But please be careful, this room is PK Enabled."; next; menu "Are you sure to go? [" + getmapusers("guild_vs5.gat") +"/5]", L_Go, "Nevermind", L_nvm; L_Go: next; if (getmapusers("guild_vs5") >= 5) { mes "This map is currently full."; } warp "guild_vs5",23,50; end; L_nvm: mes "No problem come back again"; close; end; } // -------------------------------------------------------------- - script Monsters -1,{ OnInit: OnNPCKillEvent: if ( strcharinfo(3) == "guild_vs5" ) { if( killedrid == 1369){ getitem 607,1; } end; } } guild_vs5,0,0,52,52 monster Grand Peco 1369,20,10,10;

Aumm

- script EmpireRO -1,{ //--Start of the Script OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. announce "Server Attendant : Hi Players!, Every 30 minutes you will receive a gift from us.",0; sleep2 10000; announce "Server Attendant : Please make your way to the centre of Prontera.",0; sleep2 10000; announce "Server Attendant : After all this message you will receive a attendance card.",0; sleep2 10000; announce "Server Attendant : Special thanks to [GM Yoe].",0; dispbottom "Thank you for playing EmpireRO"; getitem 6101,1; end; }

// Just change map whatever you want geffen,67,63,4 script Farm Zone 900,{ mes "[ Farm Zone ]"; mes "blalalaal"; next; menu "Are you sure to go?", L_Go, "Nevermind", L_nvm; L_Go: warp "prontera",100,100; close; L_nvm: mes "No problem come back again"; close; end; } // -------------------------------------------------------------- - script Monsters -1,{ OnInit: monster "prontera",0,0,"Farm",1002,10,"Monsters::OnPoringKilled"; OnPoringKilled: getitem 9524,1; end; }

// 1 Pod = 2k Cash Point // 2k Cash Point = 1 Pod prontera,120,120,4 script POD 100,{ mes "[Trader]"; mes "You currently have ^ff0000"+#CASHPOINTS+"^000000 Cash Points"; menu "Exchange Proof of Donation to Cash Point", L_PODS, "Exchange Cash Point to Proof of Donation", L_Point, "Cancel", L_Cancel; L_PODS: next; mes "[Trader]"; mes "How many you want to exchange?"; mes "^ff0000Note^000000: 1 Proof of Donation currently 2000 Cash Point"; input [email protected]; if ([email protected] == 0) close; if (countitem(7179) < [email protected]*1) goto L_Noitem; delitem 7179,[email protected]*1; set #CASHPOINTS, #CASHPOINTS + ( [email protected]*2000 ); close; L_Point: next; mes "[Trader]"; mes "How many you want to exchange?"; mes "^ff0000Note^000000: 2000 Cash Point currently 1 Proof of Donation"; input [email protected]; if ([email protected] == 0) close; if (#CASHPOINTS < [email protected]*1) goto L_Nopoint; set #CASHPOINTS, #CASHPOINTS - ( [email protected]*2000 ); getitem 7179,[email protected]*1; close; L_Nopoint: next; mes "[Trader]"; mes "Sorry you dont have enough of Cash Point"; close; L_Noitem: next; mes "[Trader]"; mes "Sorry you dont have enough of Proof of Donation"; close; L_Cancel: mes "[Trader]"; mes "No problem, Come back again"; close; end; }

- script autowarpquest -1,{ OnPCLoadMapEvent: OnInit: if ( strcharinfo(3) == "prt_fild01" ) { if(countitem(672)>=1) warp "prontera",141,229; end; } } prt_fild01 mapflag loadevent

try this. // Credit to emistry Multi-shop // use @pc for check point // -------- Dummy data (duplicate as needed) -------- - shop Emistry_Shop -1,512:100 // -------------------------------------------------- prontera,100,100,4 script Redeem Points 852,{ function ShopSettings; function ValidateCost; function CurrencyInfo; function ClearData; function ValueConvert; function ErrorNotice; mes "Each Shop from the Menu may purchase using ^FF0000Different Currency^000000."; mes "^00FF00____________________________^000000"; mes "So,Which shop you would like to look at it"; next; // Menu Selection select("Headgear","Foods","Cossumber"); ClearData(); ShopSettings( @menu ); npcshopitem "Emistry_Shop",512,100; npcshopdelitem "Emistry_Shop",512; for(set [email protected],0; [email protected] < getarraysize( @ItemLists ); set [email protected],[email protected]+1) npcshopadditem "Emistry_Shop",@ItemLists[[email protected]],@ItemCost[[email protected]]; mes "Okay...wait awhile"; mes "^00FF00____________________________^000000"; CurrencyInfo( @Currency$ ); mes "^00FF00____________________________^000000"; callshop "Emistry_Shop",1; npcshopattach "Emistry_Shop"; end; function ShopSettings { switch( getarg(0) ){ Case 1: // Currency [ Item ID / Variable Name ] set @Currency$,"pvppoint"; // Item ID Lists setarray @ItemLists[0],5377,5288,5146,5269,5376,5235,5236,5237,5289,5306,5322,5366; // ITEM ID // Item Price setarray @ItemCost[0],200,220,150,400,450,250,250,250,200,250,230,300; // ITEM COST/AMOUNT break; Case 2: // Currency [ Item ID / Variable Name ] set @Currency$,"pvppoint"; // Item ID Lists setarray @ItemLists[0],1815; // Item Price setarray @ItemCost[0],100; break; Case 3: // Currency [ Item ID / Variable Name ] set @Currency$,"pvppoint"; // Item ID Lists setarray @ItemLists[0],2776,12260,14037; // Item Price setarray @ItemCost[0],500,50,30; break; // Case 4,5,6.....etc... default: ErrorNotice( "Invalid Menu Selection for Menu "[email protected]+"." ); close; } if( @Currency$ == "" ) ErrorNotice( "Invalid Currency Setting in Menu "[email protected]+" ." ); if( getarraysize( @ItemCost ) != getarraysize( @ItemLists ) || getarraysize( @ItemLists ) != getarraysize( @ItemCost ) ) ErrorNotice( "Missing or Extra Value of Item or Cost Settings in Menu "[email protected]+" ." ); return; } function ErrorNotice { mes "^FF0000ERROR^000000 - "+getarg(0); mes "^00FF00____________________________^000000"; mes "Inform this Message to ^0000FFGame Staffs^000000 immediately !"; close; } function CurrencyInfo { if( getitemname( atoi( getarg(0) ) ) != "null" ){ mes "Item Currency : ^FF0000"+getitemname( atoi( getarg(0) ) )+"^000000"; mes "Available Amount : ^0000FF"+ValueConvert( countitem( atoi( getarg(0) ) ) )+"^000000"; }else if( getitemname( atoi( getarg(0) ) ) == "null" ){ mes "Variable Currency : ^FF0000"+getarg(0)+"^000000"; mes "Available Amount : ^0000FF"+ValueConvert( getd( getarg(0) ) )+"^000000"; } return; } function ValidateCost { if( getitemname( atoi( getarg(0) ) ) != "null" ){ if( countitem( atoi( getarg(0) ) ) < getarg(1) ) return 1; }else{ if( getd( getarg(0) ) < getarg(1) ) return 1; } return 0; } function ClearData { set @Currency$,""; set @TotalCost,0; deletearray @bought_nameid[0],getarraysize( @bought_nameid ); deletearray @bought_quantity[0],getarraysize( @bought_quantity ); deletearray @ItemLists[0],getarraysize( @ItemLists ); deletearray @ItemCost[0],getarraysize( @ItemCost ); return; } function ValueConvert { set [email protected], atoi(""+getarg(0)); if ( [email protected] == 0 || [email protected] >= 2147483647 ) return getarg(0); set [email protected], getstrlen(""[email protected]); for ( set [email protected],0; [email protected] < [email protected]; set [email protected], [email protected] + 1 ) { set [email protected]$, [email protected] % pow(10,[email protected]+1) / pow(10,[email protected]) + [email protected]$; if ( ([email protected]+1) % 3 == 0 && [email protected]+1 != [email protected] ) set [email protected]$, ","+ [email protected]$; } return [email protected]$; } OnBuyItem: ShopSettings( @menu ); for(set @i,0; @i < getarraysize( @bought_nameid ); set @i,@i+1) for(set @j,0; @j < getarraysize( @ItemLists ); set @j,@j+1) if( @ItemLists[@j] == @bought_nameid[@i] ) set @TotalCost,@TotalCost + ( @ItemCost[@j] * @bought_quantity[@i] ); mes "^FF0000 BILLING LIST^000000"; mes "^00FF00____________________________^000000"; for( set @i,0; @i < getarraysize( @bought_nameid ); set @i,@i+1 ) mes "^FF0000"[email protected]_quantity[@i]+" x ^0000FF"+getitemname( @bought_nameid[@i] )+"^000000"; mes "^00FF00____________________________^000000"; if( getitemname( atoi( @Currency$ ) ) != "null" ) mes "Total Cost : ^0000FF"+ValueConvert( @TotalCost )+" x "+getitemname( atoi( @Currency$ ) )+"^000000"; else if( getitemname( atoi( @Currency$ ) ) == "null" ){ mes "Total Cost : ^0000FF"+ValueConvert( @TotalCost )+" "[email protected]$+"^000000"; } mes "^00FF00____________________________^000000"; if( ValidateCost( @Currency$,@TotalCost ) ){ if( getitemname( atoi( @Currency$ ) ) != "null" ) mes "[ ^FF0000X^000000 ] Insufficient ^0000FF"+getitemname( atoi( @Currency$ ) )+"^000000"; else{ mes "[ ^FF0000X^000000 ] Insufficient ^0000FF"[email protected]$+"^000000"; } }else{ if( select( "^0000FFPurchase^000000:Cancel" ) == 1 ){ if( getitemname( atoi( @Currency$ ) ) != "null" ) delitem atoi( @Currency$ ),@TotalCost; else{ set getd( @Currency$ ),getd( @Currency$ ) - @TotalCost; } for(set @i,0; @i < getarraysize( @bought_nameid ); set @i,@i+1) getitem @bought_nameid[@i],@bought_quantity[@i]; message strcharinfo(0),"Purchased "+getarraysize( @bought_nameid )+" Items."; mes "Thank you for shopping."; } } ClearData(); close; } - script qwerty -1,{ OnPCKillEvent: if ( strcharinfo(3) == "guild_vs3" ) { set pvppoint,pvppoint+1; dispbottom "You have gained 1 Points. Total "+pvppoint+" Point"; end; } } // --------------------------------------------------- - script pointscheck -1,{ OnInit: bindatcmd("pc","pointscheck::OnAtcommand"); end; OnAtcommand: message strcharinfo(0),"You currently have "+pvppoint+" PvP Points"; end; }

Like this? // ID(672) = Bag of Coin edit to change prontera,231,338,5 script Bag Exchangers 757,{ menu "Exchange " +getitemname(9524)+" to Bag Coin", L_bag, "Exchange " +getitemname(9524)+ " to Zeny", L_zeny, "Cancel", L_Cancel; L_bag: mes "How many you want to exchange?"; mes "^ff0000Note^000000: 300 "+getitemname(9524)+" currently 1 Bag Coins"; input [email protected]; if ([email protected] == 0) close; // optional: if player enter 0 script will terminate if (countitem(9524) < [email protected]*300) goto L_Noitem; delitem 9524,[email protected]*300; getitem 672,[email protected]; close; close; L_zeny: mes "How many you want to exchange?"; mes "^ff0000Note^000000: 1 Bag coin currently 10m each"; input [email protected]; if ([email protected] == 0) close; readparam(Zeny); if( [email protected] < 1 )||( countitem(672) < [email protected] ) || (readparam(Zeny)>= 1000000000) goto Max_Zeny; //1B max Zeny set Zeny,Zeny+10000000*[email protected]; // 10m of zeny delitem 9524,[email protected]; close; Max_Zeny: next; mes "Coin Cannot Change Due to Max Zeny you Have."; close; close; L_Noitem: next; mes "Sorry you dont have enough of item"; close; L_Cancel: mes "No problem, Come back again"; close; end; }

3923

script item? { skill "MC_OVERCHARGE",1; skill "MC_CHANGECART",1; skill "MC_PUSHCART",10; skill "MC_VENDING",10; bonus bAllStats,5; },{ setcart; },{ skill "MC_PUSHCART",10; setcart 0; }

still got error on line 9. prontera,120,100,4 script ranking 100,{ set [email protected], query_sql( "select name, kills, deaths, class from pvpladder order by kills desc limit 10", [email protected]$, [email protected], [email protected], [email protected] ); if ( [email protected] ) { mes "ladder is empty"; close; } mes "[ Top PvP Ranking ]"; mes "Name - Job - Killed - Death"; for ( [email protected] = 0; [email protected] < [email protected]; [email protected]++ ) // ERROR LINE 9* mes "^0000FF"+ ([email protected]+1) +": ^228B22"+ [email protected]$[[email protected]] +" ^606060"+ jobname([email protected][[email protected]]) +" ^006699"+ [email protected][[email protected]] +" / ^C80000"+ [email protected][[email protected]] +"^000000"; close; OnPCKillEvent: query_sql "insert into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql( strcharinfo(0) ) +"', 1, 0, "+ class +" ) on duplicate key update kills = kills +1, name = '"+ escape_sql( strcharinfo(0) ) +"', class = "+ class; attachrid killedrid; query_sql "insert into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql( strcharinfo(0) ) +"', 0, 1, "+ class +" ) on duplicate key update deaths = deaths +1, name = '"+ escape_sql( strcharinfo(0) ) +"', class = "+ class; } for ( [email protected] = 0; [email protected] < [email protected]; [email protected]++ ) // ERROR LINE 9* Solved. ty Patskie prontera,120,100,4 script ranking 100,{ set [email protected], query_sql( "select name, kills, deaths, class from pvpladder order by kills desc limit 10", [email protected]$, [email protected], [email protected], [email protected] ); if ( [email protected] ) { mes "ladder is empty"; close; } mes "[ Top PvP Ranking ]"; mes "Name - Job - Killed - Death"; for(set [email protected], 0; [email protected] < getarraysize ([email protected]); set [email protected], [email protected] + 1){ mes "^0000FF"+ ([email protected]+1) +": ^228B22"+ [email protected]$[[email protected]] +" ^606060"+ jobname([email protected][[email protected]]) +" ^006699"+ [email protected][[email protected]] +" / ^C80000"+ [email protected][[email protected]] +"^000000"; close; OnPCKillEvent: query_sql "insert into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql( strcharinfo(0) ) +"', 1, 0, "+ class +" ) on duplicate key update kills = kills +1, name = '"+ escape_sql( strcharinfo(0) ) +"', class = "+ class; attachrid killedrid; query_sql "insert into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql( strcharinfo(0) ) +"', 0, 1, "+ class +" ) on duplicate key update deaths = deaths +1, name = '"+ escape_sql( strcharinfo(0) ) +"', class = "+ class; } }