3
« on: April 25, 2009, 10:49:04 AM »
I have the add-on GRules on my server, but one messagebox can't contain all rules. So, I was going to add some more. But when I tested, only the 2nd messagebox appeared. Here is the code:
$Rules::File="Add-Ons/Script_GRules/Rules.txt";
$Rules2::File="Add-Ons/Script_GRules/Rules2.txt";
function LoadRules(%f)
{
%FO=new FileObject();
%FO.openForRead(%f);
$Rules::Title=%FO.readLine();
$Rules::Text=%FO.readLine();
while(!%fo.isEOF())
{
$Rules::Text=$Rules::Text NL %FO.readLine();
}
%FO.close();
%FO.delete();
}
function LoadRules2(%g)
{
%FO=new FileObject();
%FO.openForRead(%g);
$Rules2::Title=%FO.readLine();
$Rules2::Text=%FO.readLine();
while(!%fo.isEOF())
{
$Rules2::Text=$Rules2::Text NL %FO.readLine();
}
%FO.close();
%FO.delete();
}
LoadRules($Rules::File);
LoadRules2($Rules2::File);
package Rules_Server
{
function gameconnection::OnClientEnterGame(%this,%a,%b,%c,%d,%e)
{
schedule(1000,1,commandToClient,%this,'MessageBoxOK',$Rules::Title,$Rules::Text);
schedule(1100,1,commandToClient,%this,'MessageBoxOK',$Rules2::Title,$Rules2::Text);
Parent::OnClientEnterGame(%this,%a,%b,%c,%d,%e);
}
};
Activatepackage(Rules_Server);
function ServerCmdRules(%client,%a,%b,%c,%d,%e)
{
commandToClient(%client,'MessageBoxOK',$Rules::Title,$Rules::Text);
commandToClient(%client,'MessageBoxOK',$Rules2::Title,$Rules2::Text);
}
function ServerCmdRulesAll(%client,%a,%b,%c,%d,%e)
{
if(%client.isSuperAdmin)
{
commandToAll('MessageBoxOK',$Rules::Title,$Rules::Text);
commandToAll('MessageBoxOK',$Rules2::Title,$Rules2::Text);
}
else
{
messageclient(%client,"","\c0You are not Super admin. Please type \c3/rules \c0for the server rules.");
}
}
I hope you can help me.