Please

JJoeySS · May 8, 2012

Can someone please give me a working Disguise Event for 3ceam I've tried several but for some reason when i start it and go in the portal

after the portal closes it doesn't do anything no talking or anything

Can someone please give me a working one PLEASE

espriketic · May 8, 2012

/*//----------------------------------------------------------------//
//----------------Scripted by Spera---------------------------------//
//------------------FinalStrikeRO-----------------------------------//
//--------------------Disguise Event NPC v2-------------------------//
/-------------------------------------------------------------------//*/

prontera,164,171,4 script Disguise CP 968,{
if (getgmlevel()<50)
{
mes "^3399FF[Disguise CP]^000000";
mes "Sorry, you are not a GM!";
close;
}
mes "^3399FF[Disguise CP]^000000";
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing"))
{
case 1:
{
 next;
 mes "^3399FF[Disguise CP]^000000";
 mes "Please confirm by typing START.";
 input .@confirm$;		
 if (.@confirm$ == "START")
 {
  donpcevent "guessAnnouncer::OnGMStart";
  close;
 }
 mes "Confirmation failed";
 close;
 break;
}
case 2:
{
 next;
 mes "^3399FF[Disguise CP]^000000";
 mes "Please confirm by typing STOP.";
 input .@confirm$;		
 if (.@confirm$ == "STOP")
 {
  donpcevent "guessAnnouncer::OnGMStop";
  close;
 }
 mes "Confirmation failed";
 close;
 break;

}

case 3:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the new number.";
 input $guessrounds;
 if ($guessrounds > 30) set $guessrounds, 30;
 else if ($guessrounds < 1) set $guessrounds, 1;
 close;
}

case 4:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the new prize id.";
 input .@guessprizeid;
 if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;}
 set $guessprize, .@guessprizeid;
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the amount.";
 input .@guessprizeamount;
 if (!.@guessprizeamount) set .@guessprizeamount,1 ;
 set $guessprizecount,.@guessprizeamount;
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000";
 close;
}


case 5:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Good bye";
 close;
}
}

}



quiz_02,45,382,4 script Disguise NPC 794,{
if (!$guessbegin)
{
mes "^3399FF[Disguise NPC]^000000";
mes "The event is going to start soon!";
close;
}
end;
OnStart:
set $guessbegin, 1;
set .DisguiseWon, 0;
if (!$DisguiseRound)
{
 npctalk "Alright. Let's get it over with ~.~ ";
 sleep 4000;
 npctalk "But first I will explain to you how to play the game.";
 sleep 6000;
 npctalk "I am going to disguise into a random monster.";
 sleep 5000;
 npctalk "You have to guess the monster's name and shout it out.";
 sleep 5000;
 npctalk "Don't bother about the use of capital and small initial letters.";
 sleep 8000;
 npctalk "Now get ready.";
 sleep 5000;
}
else if ($DisguiseRound < $guessrounds-1)
{
 npctalk "Get ready for the next round.";
 setnpctimer 0;
 sleep 8000;
}
else
{
 npctalk "Last round now!";
 sleep 2000;
 npctalk "Get ready.";
 sleep 6000;
}
do
{
 set .@guessrepeat, 0;
 set $monster, 1000 + rand(1,950);
 for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
 {
  if ($monster == $Forbidden[.@k])
  {
set .@guessrepeat, 1;
break;
  }
 }
}
while (.@guessrepeat);
setnpctimer 0;
initnpctimer;
setnpcdisplay "Disguise NPC",$monster;
set $MonsterName$, strmobinfo(1,$monster);
defpattern 1, "([^:]+):.*s"+$MonsterName$+"(.*)", "winround";
activatepset 1;
npctalk "What's my name?";
sleep 3000;
npcwalkto 48,382;
sleep 2000;
npcwalkto 40,382;
sleep 2000;
npcwalkto 45,382;
end;

OnTimer10000:
 if (!.DisguiseWon)
 {
  npctalk "Come on. What monster am I?";
  sleep 3000;
  npcwalkto 48,382;
  sleep 2000;
  npcwalkto 40,382;
  sleep 2000;
  npcwalkto 45,382;
  if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
 }
 end;

OnTimer25000:
 if (!.DisguiseWon)
 {
  npctalk "Nobody knows that monster?";
  sleep 3000;
  npcwalkto 48,382;
  sleep 2000;
  npcwalkto 40,382;
  sleep 2000;
  npcwalkto 45,382;
 }
 end;
OnTimer35000:
 if (!.DisguiseWon)
 {
  npctalk "You get 10 more seconds to guess my name.";
  sleep 3000;
  npcwalkto 48,382;
  sleep 2000;
  npcwalkto 40,382;
  sleep 2000;
  npcwalkto 45,382;
 }
 end;
OnTimer45000:
 if (!.DisguiseWon)
 {
  npctalk "Round is over.";
  if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
  set $DisguiseRound, $DisguiseRound + 1;
  sleep 3000;
  deletepset 1;
  npctalk $MonsterName$ + " would have been the correct answer.";
  sleep 5000;
  if ($DisguiseRound >= $guessrounds)
  {
set $DisguiseRound, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
set $guessactive, 0;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
enablenpc "guessexit";
end;
  }
  goto OnStart;
 }
 end;
winround:
 setnpctimer 0;
 deletepset 1;
 set .DisguiseWon, 1;
 set $DisguiseRound, $DisguiseRound + 1;
 npctalk strcharinfo(0) + " got my right name!";
 sleep2 3000;
 npctalk $MonsterName$ + " is the correct answer.";
 sleep2 3000;
 npctalk "Take this as a reward.";
 getitem $guessprize, $guessprizecount;
 if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
 if ($DisguiseRound >= $guessrounds)
  {
set $DisguiseRound, 0;
set $guessactive, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
enablenpc "guessexit";
end;
  }
 sleep 5000;
 goto OnStart;
 end;
}
//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------
- script guessAnnouncer -1,{

OnGMStart:
if ($guessactive) end;
set $guessactive, 1;
announce "A Gamemaster has started the Disguise Event",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to join, come to the main town and enter the warp portal.",0;
enablenpc "guesswarp";
enablenpc "Disguise NPC";
sleep 3000;
announce "Number of Rounds: "+$guessrounds,0;
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive) {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
announce "The portal is going to close in one minute.",0;
announce "If you want to join, come to the main town and enter the warp portal.",0;
sleep 60000;
if (!$guessactive) {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
announce "The portal has been closed.",0;
disablenpc "guesswarp";
set $DisguiseRound, 0;
if (!$guessactive) {disablenpc "Disguise NPC"; end;}
if(getmapusers("quiz_02") == 0)
{
 disablenpc "Disguise NPC";
 set $guessactive, 0;
 end;
}
donpcevent "Disguise NPC::OnStart";
end;
OnGMStop:
 if ($guessactive)
 {
  set $guessactive, 0;
  announce "A Gamemaster has stopped the Disguise Event",0;
  set $DisguiseRound, 0;
  setnpcdisplay "Disguise NPC",794;
  disablenpc "Disguise NPC";
  disablenpc "guesswarp";
  enablenpc "guessexit";
 }
 end;

OnClock1000:
OnClock1200:
OnClock1400:
OnClock1800:
OnClock2000:
if ($guessactive) end;
set $guessactive, 1;
announce "The server is starting a Disguise Event now.",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to join, come to the main town and enter the warp portal.",0;
enablenpc "guesswarp";
enablenpc "Disguise NPC";
disablenpc "guessexit";
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
announce "The portal is going to close in one minute.",0;
sleep 60000;
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "guessexit"; disablenpc "Disguise NPC"; end;}
announce "The portal has been closed.",0;
disablenpc "guesswarp";
if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
announce "Next Event will start in 2 hours.",0;
set $DisguiseRound, 0;
if(getmapusers("quiz_02") == 0)
{
 disablenpc "Disguise NPC";
 set $guessactive, 0;
 end;
}
donpcevent "Disguise NPC::OnStart";
end;
OnInit:
disablenpc "Disguise NPC";
disablenpc "guesswarp";
disablenpc "guessexit";
set $guessactive, 0;
setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900;

}
//-----------------------------------------------------------------------------------
//------------------Warp Portal------------------------------------------------------
prontera,156,172,0 warp guesswarp 2,2,quiz_02,46,375
quiz_02,55,382,0 warp guessexit 2,2,prontera,155,185
//-----------------------------------------------------------------------------------
//------------------Map Flags--------------------------------------------------------
//-----------------------------------------------------------------------------------

Edited May 8, 2012 by Arcenciel
Codeboxed

JJoeySS · May 8, 2012

Thank you for the script but its not working the Npc won't show up at all i've even tried another map and npc id but nothing

i see you edited it but still nothing this time the npc dosen't show up still

nothing at all http://prntscr.com/90tmp

deathscythe13 · May 9, 2012

please check your mapserver if there are any errors and show it here

Edited May 9, 2012 by deathscythe13

JJoeySS · May 9, 2012

m[status]

m: Loading NPC file: npc/custom/Disguise.txtK

m[Error]

m:

script error on npc/custom/Disguise.txt line 41

parse_line: expect command, missing function name or calling undeclared function

36 : iYes:

37 : if ($@EventON)

38 : {set $@EventON,0; set $@Timer,0;

39 : setnpctimer 0; stopnpctimer;

40 : announce "A GM has decided to turn the Disguise Event off. As a result no prizes will be given.",bc_map | bc_blue;

* 41 : 'd'eletepset 1;

42 : setnpcdisplay "Disguise Event",795;

43 : close;}

44 : set $@EventON,1; set $@Timer,1; setnpctimer 0; initnpctimer;

45 : set $@ResetCounter,$@ResetCounter+1;

46 : announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue;

Edited May 9, 2012 by JJoeySS

deathscythe13 · May 9, 2012

you need to have pcre installed in your computer to let deletepset work

JJoeySS · May 9, 2012

you need to have pcre installed in your computer to let deletepset work

i have no idea what that is

espriketic · May 13, 2012

if you have your VPS (i.e. CentOS) you'll need to install it by this code using Putty.

yum install pcre

Sign In

Please

Question

JJoeySS

7 answers to this question

Recommended Posts

espriketic

JJoeySS

deathscythe13

JJoeySS

deathscythe13

JJoeySS

espriketic

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account