Mr BrycE

March 30, 2012

can you tell me whats wrong with this script? its not changing to disguise...well it does have sound effects and it says "you took so long to guess...blah...blah" but, i cant see what monster it is.

//==============================================================================//
//--- Created by GmOcean -------------------------------------------------------//
//--- You may modify this script at your own risk. However any modifications ---//
//--- To this script are made at your own discretion and I will not provide ----//
//--- any support to modified scripts. You Also are forbidden to release the ---//
//--- modified script as your own. You can however post suggestions and I will -//
//--- Take them into consideration. You may also post the modified script up ---//
//--- In the Script Support section, as long as I am given Credit as the -------//
//--- Original Script Creator. Thank You for following these few requests ------//
//--- And Enjoy the Script ~! --------------------------------------------------//
//-------------------------------- Script Version == v5.0 -------------//
//==============================================================================//
prontera,160,155,4 script Disguise Event 795,{
//--- Basic Script Configuration Options ---//
set .@npcname$,"[^0000FFDisguise NPC^000000]"; //<- NPC Name.
set $@GMLevel,60; //<- GM Level needed to be considered a GM.
//--- The Script ---//
if (getgmlevel()>=$@GMLevel){goto GM_Player;}
if ($@EventON){end;}
mes .@npcname$;
mes "Welcome, how may i be of assistance.";
menu "Information",iInfo,"Nothing, just passing through.",iNothing;
iInfo:
next;
mes .@npcname$;
mes "This event is actually quite simple";
mes "At the start of the event, I will disguise myself";
mes "into a monster randomly. You will then merely have to shout that monsters name outloud.";
next;
mes "If you get it correct, you get a prize. If not, then keep trying.";
mes "Thatis all there is to know about this event.";
close;
iNothing:
close;
GM_Player:
mes .@npcname$;
mes "Please select an Option to modify.";
menu "Turn ON/OFF Event",iEvent,"Event Settings",iSettings;
iEvent:
next;
mes .@npcname$;
if ($@EventON){mes "The Event is currently: [^0000FFON^000000]";
mes "Would you like to turn it OFF?";}
if (!$@EventON){mes "The Event is currently: [^FF0000OFF^000000]";
mes "Would you like to turn it ON?";}
menu "Yes",iYes,"No",iNothing;
iYes:
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;
iSettings:
next;
mes .@npcname$;
mes "Please select a setting to modify.";
menu "Monster Display",iMonster,"Number of Rounds",iRounds,"Prize Settings",iPrize;
iMonster:
callfunc "Monster_Display";
iRounds:
callfunc "Rounds";
iPrize:
callfunc "Prize";
OnInit:
defpattern 1,"([^:]+):.s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect";
activatepset 1;
set $@EventON,0;
set $@Wait,0;
set $@Winner,0;
set $Points,$Points;
set $@ResetCounter,0;
set $Rounds,$Rounds;
set $Prize,$Prize;
set $PrizeAmt,$PrizeAmt;
set $Rule,$Rule;
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;
setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,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;
setarray $@BlackList2[0],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){end;}
if ($@Change){end;}
set $@Wait,0;
goto iDisguise;
//donpcevent "DisguiseEvent::OnDisguise";
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 725;
set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!";
deletepset 1;
stopnpctimer;
setnpctimer 0;
initnpctimer;
end;
OnTimer60000:
if ($@Timer!=1){end;}
if ($@Timer==1)
{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;}
if ($@Timer==1)
{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;}
if ($@Timer==1)
{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;
goto iDisguise;
//donpcevent "DisguiseEvent::OnDisguise";
end;}
announce "Something went wrong with the Disguise Event.",bc_all | bc_blue;
announce "Please notify a GM ASAP. Thank you.",bc_all | bc_blue;
end;
iDisguise:
if ($Rule==1)
{set $@Winner,0;
set $@Monster,1000+rand(1,995);
for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1)
{if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL])
{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;
//Hint
//npctalk ""+$@Monster+", "+$MonsterName$+"";
end;
iCorrect:
if ($@Winner){dispbottom "Someone has already won this round."; end;}
set $@Winner,1;
set $@RoundCount,$@RoundCount+1;
deletepset 1;
defpattern 1,"([^:]+):.*sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater";
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;
iFailCheater:
end;
}
//--- The Functions ---//
function script Rounds {
next;
mes "Please Input the number of rounds you want the event to last.";
mes "Current Number of Rounds: [^0000FF"+$Rounds+"^000000]";
input .@Rounds;
set $Rounds,.@Rounds;
next;
mes "The number of rounds has been changed successfully.";
mes "Number of Rounds: [^0000FF"+$Rounds+"^000000]";
mes "Come again.";
close;
}
function script Prize {
next;
mes "Please Input the ItemID of the prize that will be given each round.";
mes "Current Items is: [^0000FF"+getitemname($Prize)+"^000000] ItemID - ^0000FF"+$Prize+"^000000";
input .@Prize;
if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null")
{next; mes "That item does not exist. Please try again."; close;}
set $Prize,.@Prize;
next;
mes "Please Input the Ammount that is to be given.";
input .@Ammount;
if (.@Ammount<=0 || .@Ammount>=10000)
{next; mes "That ammount is invalid. Using default ammount of 1.";}
set $PrizeAmt,.@Ammount;
next;
mes "The Prize has been changed successfully.";
mes "Prize: [^0000FF"+getitemname($Prize)+"^000000]x(^0000FF"+$PrizeAmt+"^000000)";
close;
}
function script Monster_Display {
setarray .@Rule[0],0,1,2;
setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only.";
next;
mes "Please select a Disguise Rule.";
mes "Rule 1 - Transform as all monsters.";
mes "Rule 2 - Transform as MvP's only.";
menu "Rule 1:Rule 2",iRule;
iRule:
set $Rule,.@Rule[@menu];
next;
mes "The Disguise Rule, has been changed successfully.";
mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000";
close;
}

already solved

March 30, 2012

i tried this, and when im going to tell him my name for the prize i cant, because i cant click it why?

//##########################################################################
//By: ____				    _	  __	    __		   ____    _____  #
//   |    \   ___ __    __ _ | |	 \ \	  / /_  _   _  / ___\  / ____| #
//   | ||  | / _ \\ \  / /| || |	  \ \    / /| || \ | || | ___ | (___   #
//   | ||  ||  __/ \ \/ / | || |__	 \ \/\/ / | ||  \| || |___|\ \___ \  #
// __|____/__\___|__\__/__|_||____|_____\_/\_/__|_||_|\__|_\_____/_____) | #
//|_____________________________________________________________________/  #
//																		 #
//##########################################################################
//																		 #
//== Dice Event														    #
//																		 #
//##########################################################################
//																		 #
//== Automatically starts a dice event every 30 minutes of every hour	  #
//																		 #
//== Prize- Change 13723 to any item ID you want the winner to recieved    #
//																		 #																		
//##########################################################################
- script Dice#announcer -1,{
OnInit:
disablenpc "event";
hideonnpc "Dice#evnt1";
end;
OnMinute30:
announce "BriceRO Dice: We are going to have a Dice event.",0;
sleep2 10000;
announce "BriceRO Dice: For those who wants to join, Please proceed to the center of Prontera and enter the Warp Portal.",0;
sleep2 10000;
announce "BriceRO Dice: After 1 Minute the Portal will close.",0;
sleep2 10000;
announce "BriceRO Dice: So please go to the middle of Prontera and enter the Warp Portal now if you want to join.",0;
enablenpc "event";
initnpctimer;
end;
OnTimer30000:
announce "BriceRO Dice: Last 30 seconds.",0;
sleep2 5000;
announce "BriceRO Dice: If you want to join please enter the Warp Portal beside me here in Prontera.",0;
end;

OnTimer50000:
announce "BriceRO Dice: Last 10 seconds.",0;
end;

OnTimer55000:
announce "BriceRO Dice: 5.",0;
end;

OnTimer56000:
announce "BriceRO Dice: 4.",0;
end;

OnTimer57000:
announce "BriceRO Dice: 3.",0;
end;

OnTimer58000:
announce "BriceRO Dice: 2.",0;
end;

OnTimer59000:
announce "BriceRO Dice: 1.",0;
end;

OnTimer60000:
announce "BriceRO Dice: Time's up.",0;
end;

OnTimer61000:
disablenpc "event";
donpcevent "Dice#evnt1::OnEnable";
stopnpctimer;
end;

OnTimer62000:
announce "BriceRO Dice: The next Dice event will begin after 30 minutes.",0;
end;
}

//--------------------------------------------------

prontera,155,182,0 warp event 2,2,quiz_01,204,90

//--------------------------------------------------
quiz_01,204,93,6 script Dice#evnt1 715,{
//--------------------------------------------------
mes "[briceRO Dice]";
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
 mes "[briceRO Dice]";
 mes "Are you sure thats your character name?";
 close;
}
mes "[briceRO Dice]";
mes "Congrats. You've won.";
close2;
announce "BriceRO Dice: We have a winner, "+.@name$+".",0;
getitem 6153,30;
warp "prontera",155,182;
disablenpc "Dice#evnt1";
end;

OnEnable:
mapannounce "quiz_01","BriceRO Dice: We are about to start the Dice event.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: But before we start the event here's how to play the game. . .",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: I'm only gonna say this once so read carefully.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: I'm going to pick a number, 1 to 4. Then I'll do a count down from 5 to 0.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: All you have to do is go to the box of the number you want.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: Example, If I get the number of 4, All the players standing on numbers 1 to 3 will be warped back to town.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: We will do it again and again until we only have 1 player left on the map.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: Oh yeah! Before I forget you MUST GO INSIDE THE BOX, because if you're caught standing on the stairs you'll be automatically disqualified.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: That's that.. Now let's play...",0;
sleep2 10000;
goto L_Start;
end;

L_Start:
if(getmapusers("quiz_01") == 1) goto L_Champ;
if(getmapusers("quiz_01") == 0) goto L_None;
if(getmapusers("quiz_01") > 1) {
announce "Dice: . . . . .",0;
set $@number, rand(1,4);
sleep2 10000;
announce "BriceRO Dice: I have a number now. Please go to the box of the number you want.... GO!",0;
sleep2 10000;
announce "Dice: 5",0;
sleep2 5000;
announce "Dice: 4",0;
sleep2 4000;
announce "Dice: 3",0;
sleep2 3000;
announce "Dice: 2",0;
sleep2 2000;
announce "Dice: 1",0;
sleep2 1000;
announce "BriceRO Dice: Time's up.",0;
donpcevent "evnt#1::OnEnable";
announce "BriceRO Dice: Winning number "+$@number+".",0;
if(($@number != 1) && ($@number != 2) && ($@number != 3)) goto L_Lose1;
if(($@number != 1) && ($@number != 2) && ($@number != 4)) goto L_Lose2;
if(($@number != 1) && ($@number != 3) && ($@number != 4)) goto L_Lose3;
if(($@number != 2) && ($@number != 3) && ($@number != 4)) goto L_Lose4;
end;
}

L_Lose1:
areawarp "quiz_01",183,81,191,60,"prontera",155,182;
areawarp "quiz_01",195,81,203,60,"prontera",155,182;
areawarp "quiz_01",207,81,215,60,"prontera",155,182;
goto L_Start;
end;
L_Lose2:
areawarp "quiz_01",183,81,191,60,"prontera",155,182;
areawarp "quiz_01",195,81,203,60,"prontera",155,182;
areawarp "quiz_01",219,81,227,60,"prontera",155,182;;
goto L_Start;
end;

L_Lose3:
areawarp "quiz_01",183,81,191,60,"prontera",155,182;
areawarp "quiz_01",207,81,215,60,"prontera",155,182;
areawarp "quiz_01",219,81,227,60,"prontera",155,182;
goto L_Start;
end;

L_Lose4:
areawarp "quiz_01",195,81,203,60,"prontera",155,182;
areawarp "quiz_01",207,81,215,60,"prontera",155,182;
areawarp "quiz_01",219,81,227,60,"prontera",155,182;
goto L_Start;
end;

L_Champ:
mapannounce "quiz_01","BriceRO Dice: Come to me and tell me your name.",0;
hideoffnpc "Dice#evnt1";
end;

L_None:
disablenpc "Dice#evnt1";
end;
}

- script evnt#1 -1,{
OnEnable:
areawarp "quiz_01",182,94,228,88,"prontera",155,182;
areawarp "quiz_01",185,87,188,82,"prontera",155,182;
areawarp "quiz_01",197,87,200,82,"prontera",155,182;
areawarp "quiz_01",209,87,212,82,"prontera",155,182;
areawarp "quiz_01",221,87,224,82,"prontera",155,182;
end;
}

already solved

March 28, 2012

1743

March 27, 2012

1740

March 27, 2012

i used to access his website but now i think its unavailable, btw, thanks for the information

March 27, 2012

1.if i removed the login form it is possible?

2.sorry

3.but before i download it i saw from its owner that its fine as long as we put his name on it, and i put it on the footer

March 27, 2012

Hi,

i want this to be my index.html will someone code it? im willing to pay for your cheapest price ,im from the philippines

March 27, 2012

aside from RahulDev, can you give another coder?

March 27, 2012

Hi,

i found some website template by "level9" and i downloaded it, but it is in psd format, do i need to code this? if yes i can't please help me.

March 17, 2012

1559

March 15, 2012

1533

March 14, 2012

nadaanan ko na toh eh, sa pagkakaalala ko, dinagdagan ko yung statpoints

March 14, 2012

ito po ba ang ibig nyung sabihin? conf/battle/player

"// Set to yes to use the new stats point table. This includes the cost of each stat point.

// NOTE: If you set it as yes, the server'll read statpoint_renewal.txt instead of statpont.txt at startup or reloadpcdb.

use_renewal_statpoints: no"

yan yata un? wahhaha..

March 14, 2012

ate ganyan din po ako nung una, kaso di ako ma22o pag ganyan lng ng ganyan try nyo po i explore ang forums, pero kung may anghel na dumating bka may tumulong sau, pero 99.8% bka wala, kc mrami nmn pong guide d2

sabi nyo po dba wala nmn pong error sa server

try nyo po ito kung nka router ka portforward nyo po bka di nka open yung mga ports na need e, bka lng po kc newbie lng me , pero alam ko yan un

Sign In

Mr BrycE

Posts

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by Mr BrycE

disguise script

dice event script

Count to a Million

Count to a Million

i want it to be my index.html

i want it to be my index.html

i want it to be my index.html

Website

Website

Count to a Million

Count to a Million

Rathena max_parameter

renewal stat allocation

Help!

Docs

Get Started

Github

Community

My Account