Akatsuki Quest

[PapaZola]

hello i want request npc quest like this

Make a NPC name > Diablo Akatsuki Suit < players must pay 100 Diablo Coin & 10 Ice scale & 100 Amulet & 10 Dark Bashilrium for Enter the hidden room. (For Enter The ROOM) Wait for every 5minute for hidden everytime after 5min out back.

Click only for 1 by 1 player enter this room and if the players is ready click the NPC to spawn the Custom Mob MVP like amon ra

after player click click the npc and the npc auto hidden

player killed the Mob MVP and hunt the Diablo Akatsuki Suit only @load and back

if cant understand im sorry

this @request from my co administrator(chinise)

Edited December 14, 2011 by PapaZola

[Emistry]

try this

prontera,155,181,5 script Diablo Akatsuki Suit 718,{
setarray .Item[0],
  607,100,
  608,10,
  7539,1;
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){
 mes "You required "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] )+" .";
 close;
}
mes "Go in Kill AmonRa to get Custom Suit ?";
if( select("Hunt AmonRa:Cancel") == 2 ) close;
killmonster "guild_vs5","All";
warp "guild_vs5",50,50;
end;
}

guild_vs5,50,50,5 script Summoner 718,{
initnpctimer;
killmonster "guild_vs5","All";
monster "guild_vs5",0,0,"--ja--",1511,1,strnpcinfo(0)+"::OnMobKill";
hideonnpc strnpcinfo(0);
end;


OnMobKill:
hideoffnpc strnpcinfo(0);
getitem 7539,100;
stopnpctimer;
warp "prontera",155,181;
end;

OnTimer300000:
mapannounce "guild_vs5","Time's Up....",0;
hideoffnpc strnpcinfo(0);
stopnpctimer;
mapwarp "guild_vs5","prontera",155,181;
end;
}

Edited December 21, 2011 by Emistry

[PapaZola]

sir emistry

have some problem

this npc said null

all item already have

seed,yggdrasilberry and poring coin

[Emistry]

aw...sorry it was a small mistake here

for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 1 )

it should be this

for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )

[PapaZola]

thx sir emistry its work now

how i can many room like room 1,room2,room3,room4,room5,room6,room7,room8

bump

[Jonne]

thx sir emistry its work now

how i can many room like room 1,room2,room3,room4,room5,room6,room7,room8

bump

<map>,<x>,<y>,<dir>%TAB%duplicate(Diablo Akatsuki Suit)%TAB%Diablo Akatsuki Suit#2%TAB%718

Raise the number behind # further for more duplicatse. Also, maybe try an unique name for the NPC, since its name is quite long.

[PapaZola]

this will make many NPC

i just want make like room and player can choose

[Emistry]

try this

prontera,155,181,5 script Diablo Akatsuki Suit 718,{
setarray .Item[0],
   607,100,
   608,10,
   7539,1;
setarray .Map$[0],
  "06guild_01",
  "06guild_02",
  "06guild_03",
  "06guild_04",
  "06guild_05",
  "06guild_06",
  "06guild_07",
  "06guild_08";

for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){
mes "You required "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] )+" .";
close;
}
mes "Go in Kill AmonRa to get Custom Suit ?";
if( select("Hunt AmonRa:Cancel") == 2 ) close;
mes "Which Room ?";
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){
set .@Menu$,.@Menu$ + .Map$[.@i]+":";
}
set @i,select( .@Menu$ ) - 1;
killmonster .Map$[@i],"All";
monster .Map$[@i],0,0,"Quest",1511,1,strnpcinfo(0)+"::OnMobKill";
warp .Map$[@i],50,50;
attachnpctimer strcharinfo(0);
initnpctimer;
dispbottom "You have 10 Minutes to finish it.";
end;

OnTimer300000:
message strcharinfo(0),"Time's Up....",0;
stopnpctimer;
killmonster .Map$[@i],"All";
mapwarp .Map$[@i],"prontera",155,181;
end;
OnMobKill:
getitem 7539,100;
stopnpctimer;
warp "prontera",155,181;
end;
}

[PapaZola]

thx sir emistry

now its work

but how to make its 1 room only for 1 person?

Edited January 1, 2012 by PapaZola

[Emistry]

change this

set @i,select( .@Menu$ ) - 1;

into this

set @i,select( .@Menu$ ) - 1;
if( getmapusers( .Map$[@i] ) ){
mes "Room is Occupied.";
close;
}

and..if you dont mind...next time please list down or make your Request in 1 whole posts....

[PapaZola]

ok sir emistry

sorry

but its not working

ani_dun01,61,129,5 script Diablo Akatsuki Suit 718,{
setarray .Item[0],
   25000,100,
setarray .Map$[0],
  "pvp_n_1-3",
  "pvp_n_2-3",
  "pvp_n_3-3",
  "pvp_n_4-3",
  "pvp_n_5-3",
  "pvp_n_6-3",
  "pvp_n_7-3",
  "pvp_n_8-3";

for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){
mes "You required "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] )+" .";
close;
}
mes "Go in Kill Kage to get Custom Suit ?";
if( select("Hunt Kage:Cancel") == 2 ) close;
mes "Which Room ?";
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){
set .@Menu$,.@Menu$ + .Map$[.@i]+":";
}
set @i,select( .@Menu$ ) - 1;
if( getmapusers( .Map$[@i] ) ){
mes "Room is Occupied.";
close;
}
killmonster .Map$[@i],"All";
monster .Map$[@i],0,0,"Akatsuki Quest",2252,1,strnpcinfo(0)+"::OnMobKill";
warp .Map$[@i],101,102;
attachnpctimer strcharinfo(0);
initnpctimer;
dispbottom "You have 10 Minutes to finish it.";
end;

OnTimer300000:
message strcharinfo(0),"Time's Up....",0;
stopnpctimer;
killmonster .Map$[@i],"All";
mapwarp .Map$[@i],"prontera",155,181;
end;
OnMobKill:
getitem 7539,100;
stopnpctimer;
warp "prontera",155,181;
end;
}

[Emistry]

setarray .Item[0],

25000,100,

You didnt close it...

is should be this...

setarray .Item[0],
25000,100;

next time..show the MapServer Error as well if possible.....

[PapaZola]

ok

thx sir emistry

sorry for my mistake

[Emistry]

Erm..after i review back this script....i wonder i have forget something in this script...>.<

the item is not...removed....>.<

add this 2 line around the warp line there....

for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
delitem .Item[ .@i ],.Item[ .@i + 1 ];

[zmref]

nc

Edited July 5, 2012 by zmref