new_4-4,147,190,3 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; }}OnMinute35: //Event start every 12.35, 1.35 etcfor( set .@i,3; .@i > 0 ; set .@i,.@i - 1 ){announce "Monster Wiki Event will take place in Event Room 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; }
Hello everyone, may I ask, how to add ad new list as a blacklist, so that this script wont load the blacklist number. I hate when many error appears on console such like this.
new_4-4,147,190,3 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; }}OnMinute35: //Event start every 12.35, 1.35 etcfor( set .@i,3; .@i > 0 ; set .@i,.@i - 1 ){announce "Monster Wiki Event will take place in Event Room 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; }Hello everyone, may I ask, how to add ad new list as a blacklist, so that this script wont load the blacklist number. I hate when many error appears on console such like this.
I believe it from this line set .MonsterID,rand( 1001,2380 );
Someone can edit it ?
Share this post
Link to post
Share on other sites