Famous

Every time the guild master talk to the npc and get reward he gets 7pcs castle drop it should be one pcs only and once the guildmaster relog and talk again to the npc he will recieve again the castle drop how to change it that when the guild master relog he already recieve the castle drop....... /* 15,prtg_cas01,Kriemhild,Agit#prtg_cas01,1 // kRO : Creamhilt 16,prtg_cas02,Swanhild,Agit#prtg_cas02,1 // kRO : Sbanhealt 17,prtg_cas03,Fadhgridh,Agit#prtg_cas03,1 // kRO : Lazrigees 18,prtg_cas04,Skoegul,Agit#prtg_cas04,1 // kRO : Squagul 19,prtg_cas05,Gondul,Agit#prtg_cas05,1 // kRO : Guindull prontera castles ... so only need to use agitcheck(), not agitcheck2() */ prtg_cas01,15,209,5 script Prontera Castles 899,{ // setcastledata "prtg_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("prtg_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7091, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "Kriemhild", "Swanhild", "Fadhgridh", "Skoegul", "Gondul"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } /* 0,aldeg_cas01,Neuschwanstein,Agit#aldeg_cas01,1 1,aldeg_cas02,Hohenschwangau,Agit#aldeg_cas02,1 2,aldeg_cas03,Nuenberg,Agit#aldeg_cas03,1 3,aldeg_cas04,Wuerzburg,Agit#aldeg_cas04,1 4,aldeg_cas05,Rothenburg,Agit#aldeg_cas05,1 aldebaran castles ... so only need to use agitcheck(), not agitcheck2() */ aldeg_cas02,134,225,5 script Aldebaran Castles 899,{ // setcastledata "aldeg_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("aldeg_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7090, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "Neuschwanstein", "Hohenschwangaud", "Nuenberg", "Wuerzburgl", "Rothenburgl"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } /* 5,gefg_cas01,Repherion,Agit#gefg_cas01,1 6,gefg_cas02,Eeyolbriggar,Agit#gefg_cas02,1 7,gefg_cas03,Yesnelph,Agit#gefg_cas03,1 8,gefg_cas04,Bergel,Agit#gefg_cas04,1 9,gefg_cas05,Mersetzdeitz,Agit#gefg_cas05,1 geffen castles ... so only need to use agitcheck(), not agitcheck2() */ gefg_cas01,152,117,5 script Geffen Castles 899,{ // setcastledata "gefg_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("gefg_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7078, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "Repherion", "Eeyolbriggar", "Yesnelph", "Bergel", "Mersetzdeitz"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } /* 10,payg_cas01,Bright Arbor,Agit#payg_cas01,1 11,payg_cas02,Scarlet Palace,Agit#payg_cas02,1 12,payg_cas03,Holy Shadow,Agit#payg_cas03,1 13,payg_cas04,Sacred Altar,Agit#payg_cas04,1 14,payg_cas05,Bamboo Grove Hill,Agit#payg_cas05,1 Payon castles ... so only need to use agitcheck(), not agitcheck2() */ payg_cas01,295,8,5 script Payon Castles 899,{ // setcastledata "payg_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("payg_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7077, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "Bright Arbor", "Scarlet Palace", "Holy Shadow", "Bergel", "Bamboo Grove Hill"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } /* 15,arug_cas01,arunafelts castle 1,Agit#arug_cas01,1 16,arug_cas02,arunafelts castle 2,Agit#arug_cas02,1 17,arug_cas03,arunafelts castle 3,Agit#arug_cas03,1 18,arug_cas04,arunafelts castle 4,Agit#arug_cas04,1 19,arug_cas05,arunafelts castle 5,Agit#arug_cas05,1 arunafelts castles ... so only need to use agitcheck(), not agitcheck2() */ aru_gld,158,274,5 script Arunafelts Castles 899,{ // setcastledata "arug_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("arug_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7086, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "arunafelts castle 1", "arunafelts castle 2", "arunafelts castle 3", "arunafelts castle 4", "arunafelts castle 5"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } /* 20,schg_cas01,Schwaltzvalt castle 1,Agit#schg_cas01,1 21,schg_cas02,Schwaltzvalt castle 2,Agit#schg_cas02,1 22,schg_cas03,Schwaltzvalt castle 3,Agit#schg_cas03,1 23,schg_cas04,Schwaltzvalt castle 4,Agit#schg_cas04,1 24,schg_cas05,Schwaltzvalt castle 5,Agit#schg_cas05,1 Schwaltzvalt castles ... so only need to use agitcheck(), not agitcheck2() */ sch_gld,289,101,5 script Schwaltzvalt Castles 899,{ // setcastledata "schg_cas05", 1, getcharid(2); // just testing .. if ( agitcheck() ) { mes "a war is currently in progress"; mes "if your guild owned a castle ask your guild master to see me to claim the reward"; close; } set .@menu, select(.menu$) -1; if ( getcastledata("schg_cas0"+( .@menu +1 ), 1) == getcharid(2) ) { if ( $castle_claimed & pow(2, .@menu) ) { mes "your guild already received the reward for "+ .castlename$[.@menu]; close; } else if ( getguildmasterid( getcharid(2) ) == getcharid(0) ) { mes "receiving the reward for "+ .castlename$[.@menu]; getitem 7090, 1 * (10 - .@menu); // some mathematics ... set $castle_claimed, $castle_claimed | pow(2, .@menu); close; } else { mes "ask your guild master to see me"; close; } } mes "your guild failed to take "+ .castlename$[.@menu]; mes "if your guild owned a castle ask your guild master to claim reward from me"; close; OnAgitEnd: set $castle_claimed, 0; // everytime woe ends the variable resets end; OnInit: setarray .castlename$, "Schwaltzvalt castle 1", "Schwaltzvalt castle 2", "Schwaltzvalt castle 3", "Schwaltzvalt castle 4", "Schwaltzvalt castle 5"; for ( set .@i, 0; .@i < 5; set .@i, .@i +1 ) set .menu$, .menu$ + .castlename$[.@i] +":"; } aldeg_cas02,134,225,5 duplicate(Aldebaran Castles) Aldebaran Castles#room1 899 aldeg_cas03,221,271,5 duplicate(Aldebaran Castles) Aldebaran Castles#room2 899 aldeg_cas04,83,17,5 duplicate(Aldebaran Castles) Aldebaran Castles#room3 899 aldeg_cas05,63,17,3 duplicate(Aldebaran Castles) Aldebaran Castles#room4 899 gefg_cas02,137,119,5 duplicate(Geffen Castles) Geffen Castles#room5 899 gefg_cas03,267,293,5 duplicate(Geffen Castles) Geffen Castles#room6 899 gefg_cas04,116,123,5 duplicate(Geffen Castles) Geffen Castles#room7 899 gefg_cas05,142,112,5 duplicate(Geffen Castles) Geffen Castles#room8 899 payg_cas02,141,149,5 duplicate(Payon Castles) Payon Castles#room9 899 payg_cas03,157,171,5 duplicate(Payon Castles) Payon Castles#room10 899 payg_cas04,144,50,5 duplicate(Payon Castles) Payon Castless#room11 899 payg_cas05,153,137,5 duplicate(Payon Castles) Payon Castles#room12 899 prtg_cas02,199,231,5 duplicate(Prontera Castles) Prontera Castles#room13 899 prtg_cas03,185,134,5 duplicate(Prontera Castles) Prontera Castles#room14 899 prtg_cas04,268,163,5 duplicate(Prontera Castles) Prontera Castles#room15 899 prtg_cas05,273,180,5 duplicate(Prontera Castles) Prontera Castles#room16 899 sch_gld,292,247,5 duplicate(Schwaltzvalt Castles) Schwaltzvalt Castles#room17 899 sch_gld,102,192,5 duplicate(Schwaltzvalt Castles) Schwaltzvalt Castles#room18 899 sch_gld,69,320,5 duplicate(Schwaltzvalt Castles) Schwaltzvalt Castles#room19 899 sch_gld,135,93,5 duplicate(Schwaltzvalt Castles) Schwaltzvalt Castles#room20 899 aru_gld,81,43,5 duplicate(Arunafelts Castles) Arunafelts Castles#room21 899 aru_gld,63,157,5 duplicate(Arunafelts Castles) Arunafelts Castles#room22 899 aru_gld,300,346,5 duplicate(Arunafelts Castles) Arunafelts Castles#room23 899 aru_gld,301,111,5 duplicate(Arunafelts Castles) Arunafelts Castles#room24 899 Thanks you!!

bump! anyone?

thank you so much umbala,98,151,5 script Castle Drop 757,{ set .@guild_id,getcharid(2); if( !.@guild_id ){ mes "You dont have a guild."; }else if( getguildmasterid( .@guild_id ) == getcharid(0) ){ mes "Select your Castle..."; set .@i,select( .castle_menu$ ) - 1; if( $castle_reward & .@i << 2 ){ mes "You already claimed this."; }else{ switch( select( "Prize 1","Prize 2","Prize 3","Prize 4","Prize 5","Prize 6","Prize 7","Prize 8","Prize 9","Prize 10","Prize 11","Prize 12","Prize 13","Prize 14","Prize 15","Prize 16","Prize 17","Prize 18","Prize 19","Prize 20","Prize 21","Prize 22","Prize 23","Prize 24" ) ){ getitem 7073,1; break; getitem 7074,1; break; getitem 7075,1; break; getitem 7076,1; break; getitem 7077,1; break; getitem 7078,1; break; getitem 7079,1; break; getitem 7081,1; break; getitem 7080,1; break; getitem 7081,1; break; getitem 7082,1; break; getitem 7083,1; break; getitem 7084,1; break; getitem 7085,1; break; getitem 7086,1; break; getitem 7087,1; break; getitem 7088,1; break; getitem 7089,1; break; getitem 7090,1; break; getitem 7091,1; break; getitem 7092,1; break; getitem 7837,1; break; getitem 7831,1; break; getitem 7832,1; break; default: break; break; } set $castle_reward,$castle_reward + ( .@i << 2 ); } }else{ mes "Nothing i can do for you.."; } close; OnAgitEnd; switch( gettime(4) ){ Case 0: // sunday setarray .@today_woe_map$,"aldeg_cas01","aldeg_cas03"; break; Case 1: // monday setarray .@today_woe_map$,"prtg_cas01","prtg_cas03"; break; Case 2: // tuesday setarray .@today_woe_map$,"payg_cas01","payg_cas03"; break; Case 3: // wednesday setarray .@today_woe_map$,"gefg_cas01","gefg_cas03"; break; Case 4: // thursday setarray .@today_woe_map$,"prtg_cas01","prtg_cas03"; break; Case 5: // friday setarray .@today_woe_map$,"aldeg_cas01","aldeg_cas03"; break; Case 6: // saturday setarray .@today_woe_map$,"payg_cas01","payg_cas03"; default: break; } set .@today_map_size,getarraysize( .@today_woe_map$ ); for( set .@x,0; .@x < .castle_size; set .@x,.@x + 1 ) for( set .@y,0; .@y < .@today_map_size; set .@y,.@y + 1 ) if( .castle$[.@x] == .@today_woe_map$[.@y] ) if( $castle_reward & ( .@x << 2 ) ){ set $castle_reward,$castle_reward - ( .@x << 2 ); break; } end; OnInit: setarray .castle$, aldeg_cas01, aldeg_cas02, aldeg_cas03, aldeg_cas04, aldeg_cas05, gefg_cas01, gefg_cas02, gefg_cas03, gefg_cas04, gefg_cas05, payg_cas01, payg_cas02, payg_cas03, payg_cas04, payg_cas05, prtg_cas01, prtg_cas02, prtg_cas03, prtg_cas04, prtg_cas05; set .castle_size,getarraysize( .castle$ ); for( set .@i,0; .@i < .castle_size; set .@i,.@i + 1 ) set .castle_menu$,.castle_menu$ + getcastlename( .castle$[.@i] ) +":"; end; } how should this one work?

prontera,155,181,5 script Sample 757,{ set .@guild_id,getcharid(2); if( !.@guild_id ){ mes "You dont have a guild."; }else if( getguildmasterid( .@guild_id ) == getcharid(0) ){ mes "Select your Castle..."; set .@i,select( .castle_menu$ ) - 1; if( $castle_reward & .@i << 2 ){ mes "You already claimed this."; }else{ mes "Here's your items..."; getitem 7073,1; getitem 7074,1; getitem 7075,1; set $castle_reward,$castle_reward + ( .@i << 2 ); } }else{ mes "Nothing i can do for you.."; } close; OnAgitEnd; switch( gettime(4) ){ Case 0: // sunday setarray .@today_woe_map$,"aldeg_cas01","aldeg_cas03"; break; Case 1: // monday setarray .@today_woe_map$,"prtg_cas01","prtg_cas03"; break; Case 2: // tuesday setarray .@today_woe_map$,"payg_cas01","payg_cas03"; break; Case 3: // wednesday setarray .@today_woe_map$,"gefg_cas01","gefg_cas03"; break; Case 4: // thursday setarray .@today_woe_map$,"prtg_cas01","prtg_cas03"; break; Case 5: // friday setarray .@today_woe_map$,"aldeg_cas01","aldeg_cas03"; break; Case 6: // saturday setarray .@today_woe_map$,"payg_cas01","payg_cas03"; default: break; } set .@today_map_size,getarraysize( .@today_woe_map$ ); for( set .@x,0; .@x < .castle_size; set .@x,.@x + 1 ) for( set .@y,0; .@y < .@today_map_size; set .@y,.@y + 1 ) if( .castle$[.@x] == .@today_woe_map$[.@y] ) if( $castle_reward & ( .@x << 2 ) ){ set $castle_reward,$castle_reward - ( .@x << 2 ); break; } end; OnInit: setarray .castle$, aldeg_cas01, aldeg_cas02, aldeg_cas03, aldeg_cas04, aldeg_cas05, gefg_cas01, gefg_cas02, gefg_cas03, gefg_cas04, gefg_cas05, payg_cas01, payg_cas02, payg_cas03, payg_cas04, payg_cas05, prtg_cas01, prtg_cas02, prtg_cas03, prtg_cas04, prtg_cas05; set .castle_size,getarraysize( .castle$ ); for( set .@i,0; .@i < .castle_size; set .@i,.@i + 1 ) set .castle_menu$,.castle_menu$ + getcastlename( .castle$[.@i] ) +":"; end; } http://pastebin.com/raw.php?i=GFw1dEq5 how to make it guildmaster will choose only one 1 item he desire to get..

thanks for this

How to reduce damage Warg Strike?

thanks Patskie and Capuche

prontera,155,167,5 script Monster Wiki 439,{ while( 1 ){ mes "Event Status : "+((!.WikiStatus )?"^FF0000OFF":"^0000FFON")+" ^000000"; mes "^00FF00_______________________________^000000"; mes "How may i assist you, ^0000FF"+strcharinfo(0)+"^000000 ?"; next; switch( select( ( !.WikiStatus || !.MonsterID )?"":"Write Answer", "^00FF00Information^000000", ( getgmlevel() < 60 )?"":"^FF0000[GM]^000000 "+(( !.WikiStatus )?"Start Event":"Stop Event"), ( getgmlevel() < 80 )?"":"^FF0000[GM]^000000 Setting" )){ Case 1: if( getgmlevel() >= 80 ) mes "Answer : ^FF0000"+.Answer$+"^000000"; switch( .Mode ){ Case 0: mes "Please Input the ^FF0000NAME^000000 of monster."; mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000"; mes "Example : ^0000FFPoring^000000"; break; Case 1: mes "Please Input the ^FF0000LEVEL^000000 of monster."; mes "Example. ^0000FF10 / 20 / 35 / 75^000000"; set .Hint,getmonsterinfo( .MonsterID,1 ) - rand(30); mes "^FF0000Hint^000000 : Between "+( (( .Hint ) < 1 )?"0":.Hint)+" ~ "+( getmonsterinfo( .MonsterID,1 ) + rand(30) )+" "; break; Case 2: mes "Please Input the ^FF0000SIZE^000000 of monster."; mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000"; mes "Example. ^0000FFSmall / Medium / Large^000000"; break; Case 3: mes "Please Input the ^FF0000RACE^000000 of monster."; mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000"; mes "^FF0000List of Available Answer^000000"; mes "^00FF00_______________________________^000000"; for( set .@i,0; .@i < getarraysize( .Race$ ); set .@i,.@i + 1 ){ mes " - ^0000FF"+.Race$[.@i]+"^000000"; } break; Case 4: mes "Please Input the ^FF0000ELEMENT^000000 of monster."; mes "^0000FFRemind^000000 : It is ^FF0000Case-Sensitive^000000"; mes "^FF0000List of Available Answer^000000"; mes "^00FF00_______________________________^000000"; for( set .@i,0; .@i < getarraysize( .Element$ ); set .@i,.@i + 1 ){ mes " - ^0000FF"+.Element$[.@i]+"^000000"; } break; } input @Guess$; if( .MonsterID == 0 || @Guess$ != .Answer$ ){ mes "Sorry, you are ^FF0000WRONG^000000 or ^FF0000Too Late^000000 for the Answer."; close; }else{ mes "^FF0000Correct^000000 !! I wonder how good are you in this."; stopnpctimer; getitem $WikiItemID,$WikiAmount; close2; setnpcdisplay( strnpcinfo(0),rand( 436,439 ) ); announce "You're Right [ "+strcharinfo(0)+" ] . The Answer is [ "+.Answer$+" ]",bc_npc,0xED1ADC; set .MonsterID,0; doevent strnpcinfo(0)+"::OnStart"; } end; Case 2: mes "This is a ^FF0000Monster Wiki^000000"; mes "I will ask you everything about ^FF0000Monster^000000."; mes "^00FF00_______________________________^000000"; mes "The ^0000FFQuestions^000000 could be either in ^FF0000Name , Race , Element , Level , Size ^000000 of Monster."; next; break; Case 3: if( !$WikiRound || getitemname( $WikiItemID ) == "null" ){ mes "Please Configure your ^FF0000NPC Setting^000000 before you start."; next; break; } set .WikiStatus,( .WikiStatus )?"0":"1"; mes "Event is now "+( .WikiStatus )?"^0000FFStarted":"^FF0000Stopped"+"^000000"; announce "Monster Wiki Event is now "+( .WikiStatus )?"Started":"Stopped"+"^000000",bc_blue; close2; if( .WikiStatus ){ set .Round,0; doevent strnpcinfo(0)+"::OnStart"; } end; Case 4: while( 1 ){ mes "How can i assist you ^FF0000GM^000000?"; next; switch( select( "Prize [ ^0000FF"+$WikiAmount+" x "+getitemname( $WikiItemID )+"^000000 ]", "Round [ ^0000FF"+$WikiRound+"^000000 ]", "^0000FFBack^000000" )){ Case 1: mes "Input the ^FF0000Item ID^000000"; do{ input $WikiItemID,501,32767; }while( getitemname( $WikiItemID ) == "null" ); mes "Input the ^FF0000Amount^000000"; input $WikiAmount,1,32767; next; break; Case 2: mes "Input the ^FF0000Max. Round^000000"; input $WikiRound,1,50; next; break; Case 3: mes "Redirect back to menu..."; next; } break; } break; } } OnMinute00: for( set .@i,3; .@i > 0 ; set .@i,.@i - 1 ){ announce "Monster Wiki Event will take place in Prontera within "+.@i+" Minutes",bc_blue; sleep 60000; } set .Round,0; set .WikiStatus,1; OnStart: sleep2 5000; set .Round,.Round + 1; if( .Round > $WikiRound ){ mapannounce .Map$,"Monster Wiki Event has Ended. Thank for Participate in this Event.",bc_map,0x7766EE; set .WikiStatus,0; sleep2 5000; //mapwarp .Map$,"prontera",155,171; setnpcdisplay( strnpcinfo(0),rand( 436,439 ) ); }else{ npctalk "Round [ "+.Round+" ] within 5 Seconds."; sleep2 5000; do{ set .MonsterID,rand( 1001,2380 ); }while( getmonsterinfo( .MonsterID,0 ) == "null" || getmonsterinfo( .MonsterID,0 ) == "" || getmonsterinfo( .MonsterID,1 ) == -1 ); set .Mode,rand(5); switch( .Mode ){ Case 0: set .Answer$, getmonsterinfo( .MonsterID,0 ); break; // Name Case 1: set .Answer$, getmonsterinfo( .MonsterID,1 ); break; // Level Case 2: set .Answer$, .Size$[ getmonsterinfo( .MonsterID,18 ) ]; break; // Size Case 3: set .Answer$, .Race$[ getmonsterinfo( .MonsterID,19 ) ]; break; // Race Case 4: set .Answer$, .Element$[ getmonsterinfo( .MonsterID,20 ) ]; break; // Element } setnpcdisplay( strnpcinfo(0),.MonsterID ); npctalk "Click me to view the Question of this Round.."; initnpctimer; } end; OnTimer10000: npctalk "20 Seconds to go..."; end; OnTimer20000: npctalk "10 Seconds to go..."; end; OnTimer30000: mapannounce .Map$,"Time's Up. All Failed in this Round.",bc_map,0x00FF00; donpcevent strnpcinfo(0)+"::OnStart"; set .MonsterID,0; stopnpctimer; end; OnInit: OnWhisperGlobal: set .Map$,"prontera"; setarray .Size$[0],"Small","Medium","Large"; setarray .Race$[0],"Formless","Undead","Brute","Plant","Insect","Fish","Demon","Demi Human","Angel","Dragon"; setarray .Element$[0],"Neutral","Water","Earth","Fire","Wind","Poison","Holy","Dark","Spirit","Undead"; end; }

@Patskie thanks bro

I want to remove skills on misc If Will update this the skill will just remain or lets say the skill should not be shown from the skill tree of misc how can I do this? bumps Problem solve

bump

thnx guys problem solve

- script resetstat -1,{ OnPCLoginEvent: resetstatus; } how to make it one time use only?

Can I request script upon login player stat will be reset

topic close! solve it by my own!

How to fix head sprite errors?

Can I request Self-destruction Skill once the player used this skill instead of SP loss changed to HP and the USER Will die

really great!! 10/10 could u share this to us?

a big thanks sorry for late reply

C4 04 84 C0 0F 84 E3 00 00 00 For 2012-04-10 clients: I cannot Search this string

I tried to edit and remove skills from data\lua files\skillinfo data\lua files\skillinfoz after I remove all the skill.. then suddenly it will appears to misc.. bump!

http://rathena.org/board/files/file/2918-simple-hack-security/ Can I request how to add berserk to a GM level above 0 or with frost to avoid warping.. etc /* * HACK SECURITY V1 * SimplyNice * Contact: [email protected] */ - script HackerDetector -1,{ OnPCLoginEvent: if (getgroupid() > 0){ set @grpid,getgroupid(); atcommand "@adjgroup 25"; set @password$,"iamnotahacker"; mes "Please input the secret password:"; input @nothacker$; if(@nothacker$ != @password$){ atcommand "@kick "+strcharinfo(0); end; } else { mes "Good day"; atcommand "@adjgroup "+@grpid+""; close; } } } bump anyone?