16
Modification Help / Events
« on: January 25, 2010, 06:29:23 PM »
Could anyone either briefly explain the structure of event scripts, or link me to a tutorial?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
package whisperinfo
{
function gameconnection::oncliententergame(%client)
{
if($whisenabled == 1)
{
messageclient(%client, '',"<color:FFFFFF>This server is running Deriboy's Whisper script. It is currently <color:00FF00>enabled.<color:FFFFFF> Type /whisperhelp for help using it.");
Parent::onClientEnterGame(%client);
}
else
{
messageclient(%client, '',"<color:FFFFFF>This server is running Deriboy's Whisper script. It is currently \c0disabled.<color:FFFFFF> Type /whisperhelp for help using it.");
Parent::onClientEnterGame(%client);
}
}
};
activatepackage(whisperinfo);
function servercmdwhisperhelp(%client)
{
messageclient(%client, '',"Type /whisper [target] [message] to whisper to someone in the server.");
messageclient(%client, '',"Admins can type /enablewhisper to enable whispering, or /disablewhisper to disable whispering.");
}
function servercmddisablewhisper(%client)
{
if(%client.isAdmin)
{
if($whisenabled == 0)
{
messageclient(%client, '',"\c0Whispering is already disabled!");
}
else
{
messageall('',"\c0Whispering is now disabled.");
$whisenabled = 0;
}
}
else
{
messageclient(%client, '',"You must be an admin to disable whispering.");
}
}
function servercmdenablewhisper(%client)
{
if(%client.isAdmin)
{
if($whisenabled == 1)
{
messageclient(%client, '',"\c0Whispering is already enabled!");
}
else
{
messageall('',"<color:00FF00>Whispering is now enabled.");
$whisenabled = 1;
}
}
else
{
messageclient(%client, '',"You must be an admin to enable whispering.");
}
}
function servercmdwhisper(%client, %name, %a1, %a2, %a3, %a4, %a5, %a6, %a7, %a8, %a9, %a10, %a11, %a12, %a13, %a14, %a15, %a16, %a17, %a18, %a19, %a20, %a21, %a22, %a23, %a24, %a25)
{
if($whisenabled == 1)
{
%i = 0;
%found = 0;
while(%i < Clientgroup.getcount())
{
%investigate = clientgroup.getobject(%i);
%searchname = findclientbyname(%name);
if(striPos(%investigate.name, %searchname.name) != -1)
{
%found++;
}
%i++;
}
echo(%searchname.name);
echo(%found);
if(%found != 0)
{
if(%found == 1)
{
if(%client != %searchname)
{
if(%name != -1)
{
%msg = %a1 SPC %a2 SPC %a3 SPC %a4 SPC %a5 SPC %a6 SPC %a7 SPC %a8 SPC %a9 SPC %a10 SPC %a11 SPC %a12 SPC %a13 SPC %a14 SPC %a15 SPC %a16 SPC %a17 SPC %a18 SPC %a19 SPC %a20 SPC %a21 SPC %a22 SPC %a23 SPC %a24 SPC %a25;
messageclient(%searchname, '',"<color:FFFFFF>From " @ %client.name @ ": " @ %msg);
messageclient(%client, '', "<color:00FF00>" @ %msg @ "<color:FFFFFF> was sent to " @ %searchname.name);
}
else
{
messageclient(%client, '',"Please enter a name to whisper to");
}
}
else
{
messageclient(%client, '',"Whispering to yourself has no benefit.");
}
}
else
{
messageclient(%client, '',"More than one people in this server have <color:FFFFFF>" @ %name @ " \c0in their name. Try being more specific.");
}
}
else
{
messageclient(%client, '',"There are no players in this server with <color:FFFFFF>" @ %name @ " \c0in their name.");
}
}
else
{
messageclient(%client, '',"Whispering is currently disabled.");
}
}
function servercmddisablewhisper(%client)
{
if(%client.isAdmin)
{
if($whisenabled = 0)
{
messageclient(%client, '',"Whispering is already disabled!");
}
else
{
messageall('',"Whispering is now disabled.");
$whisenabled = 0;
}
}
}
function servercmdenablewhisper(%client)
{
if(%client.isAdmin)
{
if($whisenabled = 1)
{
messageclient(%client, '',"Whispering is already enabled!");
}
else
{
messageall('',"Whispering is now enabled.");
$whisenabled = 1;
}
}
}function servercmdwhisper(%client, %name, %a1, %a2, %a3, %a4, %a5, %a6, %a7, %a8, %a9, %a10, %a11, %a12, %a13, %a14, %a15, %a16, %a17, %a18, %a19, %a20, %a21)
{
if($whisenabled = 1)
{
%reciever = findclientbyname(%name);
%message = %a1 SPC %a2 SPC %a3 SPC %a4 SPC %a5 SPC %a6 SPC %a7 SPC %a8 SPC %a9 SPC %a10 SPC %a11 SPC %a12 SPC %a13 SPC %a14 SPC %a15 SPC %a16 SPC %a17 SPC %a18 SPC %a19 SPC %a20 SPC %a21;
messageclient(%reciever, '', %client.name @ " says: " @ %message);
}