Issue information

Issue ID
#772
Status
Working as Intended
Severity
None
Started
Hercules Elf Bot
Jan 8, 2008 15:45
Last Post
Hercules Elf Bot
Jan 8, 2008 15:45
Confirmation
N/A

Hercules Elf Bot - Jan 8, 2008 15:45

Originally posted by [b]Randomname[/b]
http://www.eathena.ws/board/index.php?autocom=bugtracker&showbug=772

I'm pretty sure it used to be allowed on international ragnarok online (iRO), so applying these changes should enable allies to enter their friends castles, do note I'm not a computerwhizz, but I think if lots of people use it in a short time it might cause some problems in regards of lag

function script F_Flags {

set @GID, GetCastleData(getarg(1)+".gat",1);
if (@GID != 0) goto L_Startg;

mes "[ Edict of the Divine Rune Midgard Kingdom of " + getarg(0) + " ]";
mes " ";
mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of " + getarg(0) + ", this guild base has not been taken by any guild yet";
mes " ";
mes "2. In order to take this guild base, you must defeat all the guardians that are protecting the guild base and eliminate the Emperium.";
return;
L_Startg:
if ((getcharid(2) == @GID) && (getarg(4) == 1)) goto L_Startg2;
query_sql "SELECT `guild_id` FROM `guild_alliance` WHERE `alliance_id`="+getcharid(2), @AID;
if ((@AID == @GID) && (getarg(4) == 1)) goto L_Startg2;


mes "[ Edict of the Divine Rune Midgard Kingdom of "+ getarg(0) +" ]";
mes " ";
mes "1. Honoring the ordinance of the";
mes "Divine Rune Midgard Kingdom of ";
mes getarg(0) +", we approve that this";
mes "base is in the private possession";
mes "of the ^ff0000" + GetGuildName(@GID) + "^000000 guild.";
mes " ";
mes "2. The guild master of the";
mes "^ff0000"+ GetGuildName(@GID) + "^000000 guild, is ^0000FF" + GetGuildMaster(@GID) + "^000000.";
mes "If anyone objects to that, raise your sword to honor yourself.";
return;
L_Startg2:
mes "[ Ringing Voice ]";
mes "Brave one... would you return to your honorable be?";
next;
menu "Return.",M_Enter,"Cancel.",-;
return;

M_Enter:
if (getcharid(2) == GetCastleData(getarg(1)+".gat",1)) warp getarg(1)+".gat",getarg(2),getarg(3);
if (@AID == GetCastleData(getarg(1)+".gat",1)) warp getarg(1)+".gat",getarg(2),getarg(3);
return;
}


This post has been edited by Randomname: Jan 8 2008, 07:47 AM