Show Posts
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 unownedbricks
{
function servercmdplantbrick(%client)
{
%client.planting=1;
parent::servercmdplantbrick(%client);
%client.planting=0;
}
function getTrustLevel(%brick,%brickb)
{
if(%brickb.client.planting&&%bricka.anyonecanbuildonthisbrick)return $TrustLevel::BuildOn;
else return parent::gettrustlevel(%bricka,%brickb);
}
};function yourgunimage::onfire(%this,%obj,%slot)
{
%dir=%obj.getmuzzlevector(%slot);
%pos=%obj.getmuzzlepoint(%slot);
%spread=0.1;
for(%i=0;%i<5;%i++)
{
%p=new projectile()
{
initialvelocity=vectorscale(vectoradd(%dir,vectorscale(getrandom(-100,100) SPC getrandom(-100,100) SPC getrandom(-100,100),0.01*%spread)),%this.projectile.muzzlevelocity);
datablock=%this.projectile;
initialposition=%pos;
sourceobject=%obj;
sourceslot=%slot;
client=%obj.client;
};
missioncleanup.add(%p);
}
}package stopblockheads
{
function servercmdplantbrick(%client)
{
if(strlwr(%client.name)$="blockhead"@%client.BL_ID+1&&!$pref::server::approvedblockheads[%client.BL_ID])
{
if(%client.bricksplanted>=300)
{
messageclient(%client,"","You have reached the maximum bricks for unapproved blockheads! change your name or show an admin that you have building skills to remove the limit!");
return 10000;
}
if(!(%r=parent::servercmdplantbrick(%client)))%client.bricksplanted++;
return %r;
}
else return parent::servercmdplantbrick(%client);
}
function fxDTSBrickData::OnRemove(%this,%brick)
{
if(strlwr(%brick.getgroup().client.name)$="blockhead"@%brick.getgroup().client.BL_ID+1&&!$pref::server::approvedblockheads[%brick.getgroup().client.BL_ID])%brick.getgroup().bricksplanted--;
return parent::OnRemove(%this,%brick);
}
};//ExpTest
function serverCmdCheckExp(%client)
{
messageClient(%client,'','\c5Exp: %1',%client.Exp);
}
function serverCmdCheckLvl(%client)
{
messageClient(%client,'','\c5Lvl: %1',%client.Lvl);
}
function Rpgset(%client)
{
If(%Client.exp >= 0)
%Client.Lvl = 1;
If(%Client.exp >= 50)
%Client.Lvl = 2;
}
function serverCmdGrantExp(%client,%victim,%amount)
{
if(%amount<=0||%Amount>%client.Exp)
%victim = findClientByBL_ID(%victim);
if(!isobject(%victim)){return;}
%victim.Exp+=%amount;
messageClient(%client,'','Gave 2% %1',%victim.name,%amount);
Rpgset(%victim);
}