King of the Hill

[goddameit]

 
Quote

King of the Hill or KOTH involves one team capturing a point and
trying to keep it for themselves for a certain amount of time (officially 3 minutes).

Download Map : koth01.grf

Download Script :   King of the Hill.txt   4.69K   203 downloads

  King of the Hill.txt   4.6K   296 downloads

 
Quote

The first clicked is blue and other is red.

Quote

If there is no red team after 30s, event will be ended.

Quote

You can also change like this >>http://i.imgur.com/Flj3M.png, it's used to limit event time(ex:30 seconds)

 
Quote

Other version : http://rathena.org/b...ill-vvend-zone/

King of the Hill.txt

King of the Hill.txt

Edited August 8, 2013 by goddameit

[Emistry]

Wow..this Idea ..xD

nice game ...better than the Original one.....

[Mirage]

*downloads*

Nice event!

[Shadowz]

Nice to see that you're implementing other games in RO

Good job!

[Hatake Kakashi]

error map not found. error in mapserver.

Edited January 22, 2012 by Hatake Kakashi

[Nokia]

you can download the map in the first post..

[Hatake Kakashi]

yes. i download it. but nothing happpen. when the KOTH started its unable to click. and in my map server got error map not found.

the koth01.grf do i need to patch it or extracting it?

[goddameit]

yes. i download it. but nothing happpen. when the KOTH started its unable to click. and in my map server got error map not found.

the koth01.grf do i need to patch it or extracting it?

Add new map.

[Amellia sizilia sembiring]

@hatake takashi

U just need put grf to client and set to data.ini

I will work fine

[Lordamax]

this is the only thing i know when adding custom map(s)..i'm not sure with this.... I hope it would help you...

go to conf/maps_athena.conf and add this line

map: koth01

Put koth01.grf to C:

then

go to conf/grf-files.txt and add this line

grf: C:koth01.grf

then run mapcache.exe..

[RagnaTempo]

Hmm..The NPC seems to be pretty cool. I managed to add the map koth01 the server successfully.

But when I click on the NPC, nothing happens...It is as if there is a syntax error.

@Edit

Sorry, the npc its all ok.

Just my fault... Need a party to enter on the game.

I modified the script and i just put this on npc start:

if(getcharid(1) == 0){mes "[King of The Hill]";mes "You need a party to enter.";close;}

Nice Work god...

Edited February 5, 2012 by RagnaTempo

[dhaisuke]

Sir Please Help nothing happen when i click ng npc KOTH

[donkeyg]

is this script works?

[Zasura]

thanks, i'll try it.

[Thanna]

sir goddameit what grf are you using on your video of KOTH the new version? because cyntax is not as good as that because yours have cells indication

[Natsu Dragneel]

re upload the map pls, cant download it.

[donkeyg]

why when i entered the room, middle of the map got 1 Red plant with a chat room (empty words) ???? and ur KOTH video at youtube is not works for me.. not running.. someone please re-upload tqtq

[goddameit]

why when i entered the room, middle of the map got 1 Red plant with a chat room (empty words) ???? and ur KOTH video at youtube is not works for me.. not running.. someone please re-upload tqtq

and ur KOTH video at youtube is not works for me

use proxy

[madtoyz]

why after died player will spawn back in the koth01 map although the game is over ?.

[goddameit]

why after died player will spawn back in the koth01 map although the game is over ?.

oh, I didn't notice it

OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
 end;
//Add above
if(getcharid(1)==.pid[1])

Edited October 22, 2012 by goddameit

[madtoyz]

why after died player will spawn back in the koth01 map although the game is over ?.

oh, I didn't notice it

OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
 end;
//Add above
if(getcharid(1)==.pid[1])

above is what for goddameit ?.

coz original script is like this,

OnPCDieEvent:
if(getcharid(1)==.pid[1])
{
 warp "koth01",23,7;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,7,"",1002,"")),54,1,getcharid(3);
}else if(getcharid(1)==.pid[0])
{
 warp "koth01",23,88;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,88,"",1002,"")),54,1,getcharid(3);
}else
 end;

[Emistry]

to ensure it only work or affect only the participants of KOTH ....

[madtoyz]

change the original this ?

OnPCDieEvent:
if(getcharid(1)==.pid[1])
{
 warp "koth01",23,7;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,7,"",1002,"")),54,1,getcharid(3);
}else if(getcharid(1)==.pid[0])
{
 warp "koth01",23,88;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,88,"",1002,"")),54,1,getcharid(3);
}else
 end;

into this one ?

OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
 end;
//Add above
if(getcharid(1)==.pid[1])

[Emistry]

change

OnPCDieEvent:
if(getcharid(1)==.pid[1])

into

OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
 end;
//Add above
if(getcharid(1)==.pid[1])

[madtoyz]

change

OnPCDieEvent:
if(getcharid(1)==.pid[1])

into

OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
 end;
//Add above
if(getcharid(1)==.pid[1])

iam i correct ?..so after this,when the event is end,player will back save at normal place right ?

//Made  Goddameit
//Web  http://goo.gl/q9sej
//Vsersion  2012/01/08 - 01:50 AM
prontera,147,172,4 script KOTH#RRnpc 100,{
if(.pid[1]||!getcharid(1))end;
set .pid[.pid[0]?1:0],getcharid(1);
if(.pid[1])
 warpparty "koth01",23,7,getcharid(1);
else
 warpparty "koth01",23,88,getcharid(1);
if(.pid[1])
{
 stopnpctimer;
 sleep2 2000;
 mapannounce "koth01","[KOTH]:Game Start!!",0;
 initnpctimer "KOTH_CheckArea";
 initnpctimer "#Kothwaitroom";
 initnpctimer "KOTH#AreaT";
}else
 initnpctimer;
end;
OnTimer1:
announce "[KOTH]: Party ["+getpartyname(.pid[0])+"] start the koth!!",0;
end;
OnTimer30000:
donpcevent "KOTH#RRnpc::OnEndd";
end;
OnPCDieEvent:
//Add below
getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")
 end;
if(!getcharid(1))
end;
//Add above
if(getcharid(1)==.pid[1])
{
 warp "koth01",23,7;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,7,"",1002,"")),54,1,getcharid(3);
}else if(getcharid(1)==.pid[0])
{
 warp "koth01",23,88;
 sleep2 1000;
 unitskilluseid set(@z,bg_monster(0,"koth01",23,88,"",1002,"")),54,1,getcharid(3);
}else
 end;
sleep2 7000;
OnPCLogoutEvent:
if(@z)
 unitkill @z;
end;
OnInit:
setwall "koth01",47,29,2,4,0,"kothwall11";
setwall "koth01",47,71,2,4,0,"kothwall22";
OnEndd:
stopnpctimer;
stopnpctimer "KOTH_CheckArea";
stopnpctimer "#Kothwaitroom";
stopnpctimer "KOTH#AreaT";
setarray .pid[0],0,0;
set getvariableofnpc(.defhp,"KOTH#AreaT"),25;
set getvariableofnpc(.defghp,"KOTH#AreaT"),180;
set getvariableofnpc(.hp,"KOTH#AreaT"),getvariableofnpc(.defhp,"KOTH#AreaT");
set getvariableofnpc(.rhp,"KOTH#AreaT"),getvariableofnpc(.defghp,"KOTH#AreaT");
set getvariableofnpc(.bhp,"KOTH#AreaT"),getvariableofnpc(.defghp,"KOTH#AreaT");
set getvariableofnpc(.loca,"KOTH#AreaT"),0;
set getvariableofnpc(.area,"KOTH#AreaT"),0;
set getvariableofnpc(.spee,"KOTH#AreaT"),0;
mapwarp "koth01","prontera",150,180;
end;
}
- script KOTH_CheckArea -1,{
function InArea {
 getmapxy(.@m$,.@x,.@y,0,getarg(0));
 if(.@m$=="koth01"&&.@x>=46&&.@x<=53&&.@y>=46&&.@y<=53)
  return 1;
 else
  return 0;
}
OnTimer1:
setarray .@bo,0,0;
for(set .@i,0;.@i<=1;set .@i,.@i+1)
{
 deletearray $@partymemberaid[0],128;
 getpartymember getvariableofnpc(.pid[.@i],"KOTH#RRnpc"),2;
 copyarray .@paid[0],$@partymemberaid[0],set(.@pnum,$@partymembercount);
 for(set .@j,0;.@j<.@pnum;set .@j,.@j+1)
  if(isloggedin(.@paid[.@j]))
if(InArea(rid2name(.@paid[.@j])))
 set .@bo[.@i],.@bo[.@i]+1;
}
if(!.@bo[0]&&!.@bo[1])
{
 set getvariableofnpc(.area,"KOTH#AreaT"),0;
 set getvariableofnpc(.spee,"KOTH#AreaT"),0;
}
else if(!.@bo[0]&&.@bo[1])||(.@bo[0]&&!.@bo[1])
{
 set getvariableofnpc(.area,"KOTH#AreaT"),.@bo[0]?1:2; //½Ö¥¿¦b¦û»â
 set getvariableofnpc(.spee,"KOTH#AreaT"),.@bo[0]?.@bo[0]:.@bo[1]; //¦û»â³t«×
}else
 set getvariableofnpc(.area,"KOTH#AreaT"),3;
initnpctimer;
end;
}
koth01,50,50,4 script #Kothwaitroom 1083,{
end;
OnInit:
waitingroom " ",0;
end;
OnTimer500:
delwaitingroom;
waitingroom "["+getvariableofnpc(.hp,"KOTH#AreaT")+"][b"+getvariableofnpc(.bhp,"KOTH#AreaT")+"][R"+getvariableofnpc(.rhp,"KOTH#AreaT")+"]",0;
initnpctimer;
end;
}
- script KOTH#AreaT -1,{
OnFlagD:
if(getarg(0)==2)
 set .bhp,(.bhp<=0?0:.bhp-1);
else if(getarg(0)==3)
 set .rhp,(.rhp<=0?0:.rhp-1);
else
 return;
return;
OnTimer1000:
if(!.loca&&!.area)
{
 if(.hp<.defhp)
  set .hp,.hp+1;
 set .area,0;
 set .spee,0;
 initnpctimer;
 end;
}else if(.loca&&(.loca==.area||!.area))
{
 if(.hp<.defhp)
  set .hp,.hp+(.spee?.spee:1);
}else if(.area&&.spee&&.area!=3&&.area!=.loca)
{
 set .hp,.hp-.spee;
 if(.hp<=0)
 {
  set .loca,.area;
  set .hp,.defhp;
  set .rhp,(.rhp?.rhp:1);
  set .bhp,(.bhp?.bhp:1);
 }
}else
{
 sleep 1;
}
callsub OnFlagD,.loca+1;
if(.rhp<=0||.bhp<=0)&&(.area==.loca||.area==0)&&(.hp==.defhp)
{
 sleep 1000;
 announce "["+(.rhp?"Blue":"Red")+".Team Win!!]",0;
 donpcevent "KOTH#RRnpc::OnEndd";
 end;
}
initnpctimer;
end;
}
koth01,44,26,4 script #koth01_warp_1-1 45,2,2,{
warp "koth01",53,28;
end;
}
koth01,34,72,4 script #koth01_warp_1-2 45,2,2,{
warp "koth01",27,65;
end;
}
koth01,44,80,4 script #koth01_warp_1-3 45,2,2,{
warp "koth01",72,65;
end;
}
koth01,44,73,4 script #koth01_warp_2-1 45,2,2,{
warp "koth01",53,71;
end;
}
koth01,34,26,4 script #koth01_warp_2-2 45,2,2,{
warp "koth01",27,34;
end;
}
koth01,44,17,4 script #koth01_warp_2-3 45,2,2,{
warp "koth01",72,34;
end;
}
koth01,23,7,4 script NPC#koth01 100,{
if(select("Heal","Storage")==1)
 percentheal 100,100;
else
 openstorage;
close;
}
koth01,23,88,4 duplicate(NPC#koth01) NPC#koth02 100
koth01 mapflag pvp
//The Exit to Prontera
koth01,49,48,5 script Exit#2 902,{
warp "prontera" ,155,181;
OnInit:
waitingroom "Prontera",0,0;
end;
}

and can explain this function ?

getmapxy(.@m$,.@x,.@y);
if(.@m$!="koth01")

Edited October 22, 2012 by madtoyz