mirror of
https://github.com/Jusctsch5/ironsphererpg.git
synced 2026-01-20 03:54:45 +00:00
440ac4a61c
Balances Flow and Bound to not scale with Neutral Magic level. Fixes a bug where flow and bound would subtract from your base character's jumping and speed attributes when cast prior to death. Fixes some general formatting things in the related files.
3245 lines
95 KiB
C#
3245 lines
95 KiB
C#
// DisplayName = Tribes 2 RPG
|
|
|
|
//--- GAME RULES BEGIN ---
|
|
//Play T2RPG
|
|
//--- GAME RULES END ---
|
|
|
|
$IS::Web = "ironsphererpg.sourceforge.net";
|
|
function execrpg()
|
|
{
|
|
exec("scripts/version.cs");
|
|
exec("scripts/rpgglobals.cs");
|
|
exec("scripts/rpgskills.cs");
|
|
exec("scripts/rpgsound.cs");// load before items
|
|
exec("scripts/rpgtelevalidation.cs");
|
|
exec("scripts/rpgspells.cs");
|
|
exec("scripts/rpgclasses.cs");
|
|
exec("scripts/rpgitems.cs");
|
|
exec("scripts/rpgmining.cs");
|
|
exec("scripts/rpgjail.cs");
|
|
exec("scripts/rpgbonusstate.cs");
|
|
exec("scripts/rpgchat.cs");
|
|
exec("scripts/rpgaccessory.cs");
|
|
exec("scripts/rpghp.cs");
|
|
exec("scripts/rpgmana.cs");
|
|
exec("scripts/rpgparty.cs");
|
|
exec("scripts/rpgraces.cs");
|
|
exec("scripts/rpgplayer.cs");
|
|
exec("scripts/rpgstats.cs");
|
|
exec("scripts/rpgzones.cs");
|
|
//exec("scripts/RPGEnterZone.cs"); //enterzone zones calls this.
|
|
exec("scripts/rpgspawns.cs");
|
|
exec("scripts/rpghouse.cs");
|
|
exec("scripts/rpgfunk.cs");
|
|
exec("scripts/rpgarray.cs");
|
|
exec("scripts/rpgeconomy.cs");
|
|
exec("scripts/LobbyGui.cs");
|
|
exec("scripts/rpgboat.cs");
|
|
exec("scripts/rpgshapes.cs");
|
|
exec("scripts/weapons/shockLance.cs");
|
|
exec("scripts/trident.cs"); //break activate
|
|
exec("scripts/aiRPG.cs");
|
|
exec("scripts/rpgguilds.cs");
|
|
exec("scripts/rpgarena.cs");
|
|
exec("scripts/rpgquest.cs");
|
|
exec("scripts/rpgsmithing.cs");
|
|
exec("scripts/RPGQuickBinder.cs"); //phantom's quickbind gui
|
|
exec("scripts/ruby.cs");//fixes stupid arithmetic problems
|
|
exec("scripts/helpers.cs");
|
|
exec("scripts/teaparty.cs"); // general server setup in example admin passwords and other various thingies
|
|
//exec("scripts/rpgshapes2.cs"); //new shapes for the mod not right now.
|
|
$execedagain++;
|
|
DefineItems();
|
|
DefineItemDatas();
|
|
}
|
|
|
|
execrpg();
|
|
|
|
//---------------------------------------------------------------------------------
|
|
$debugMode = false;
|
|
$Host::warmupTime = -1;
|
|
//---------------------------------------------------------------------------------
|
|
|
|
// stub functions to fix console warnings
|
|
function customLoadouts()
|
|
{
|
|
|
|
}
|
|
function customAISpawn()
|
|
{
|
|
|
|
}
|
|
function customZoneSpecifications()
|
|
{
|
|
|
|
}
|
|
function customTownBots()
|
|
{
|
|
|
|
}
|
|
function CustomMiningPoints()
|
|
{
|
|
|
|
}
|
|
|
|
|
|
function RPGGame::initGameVars(%game)
|
|
{
|
|
%game.fadeTimeMS = 2000;
|
|
%game.notifyMineDist = 7.5;
|
|
InitSpawnPoints();
|
|
}
|
|
|
|
function RPGGame::timeLimitReached(%game)
|
|
{
|
|
}
|
|
|
|
function RPGGame::scoreLimitReached(%game)
|
|
{
|
|
}
|
|
|
|
function RPGGame::gameOver(%game)
|
|
{
|
|
}
|
|
|
|
////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
function RPGGame::checkScoreLimit(%game, %team)
|
|
{
|
|
}
|
|
|
|
function RPGGame::enterMissionArea(%game, %playerData, %player)
|
|
{
|
|
}
|
|
|
|
function RPGGame::leaveMissionArea(%game, %playerData, %player)
|
|
{
|
|
}
|
|
|
|
function RPGGame::startMatch(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::startMatch(" @ %game @ ");");
|
|
|
|
//%game.clearDeployableMaxes();
|
|
$missionStartTime = getSimTime();
|
|
$matchStarted = true;
|
|
AISystemEnabled(true);
|
|
%game.saveWorldSchedule = %game.schedule($saveWorldDelay, "saveWorld");
|
|
%game.weatherCycleSchedule = %game.schedule($weatherWait, "weatherCycle");
|
|
%game.currentWeather = 1;
|
|
%game.switchToDusk();
|
|
|
|
if($MOTDprinting == true)
|
|
{
|
|
%game.motdDisplaySchedule = %game.schedule($MOTDcycletime , "motdDisplay");
|
|
}
|
|
|
|
}
|
|
function RPGGame::saveWorld(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::SaveWorld(" @ %game @ ");");
|
|
if (isEventPending(%game.saveWorldSchedule))
|
|
cancel(%game.saveWorldSchedule);
|
|
echo("Saving world...");
|
|
|
|
%cgroup = nametoID("ClientGroup");
|
|
%count = %cgroup.getCount();
|
|
for (%i = 0; %i < %count; %i++)
|
|
%game.saveCharacter(%cgroup.getObject(%i));
|
|
|
|
if ($SaveWorldMessage !$= "") //if $SaveWorldMessage string is not equal to "" , then
|
|
BottomPrintAll($SaveWorldMessage @ "\n\n(World saved)", 5, 3);
|
|
else
|
|
BottomPrintAll("\n(World saved)", 5, 3);
|
|
%game.saveWorldSchedule = %game.schedule($saveWorldDelay, "saveWorld");
|
|
}
|
|
function RpgGame::motdDisplay(%game) //shinji's prideful motddisplay of nubbishness (aka first real "new" script)
|
|
{ //i shall name it simba.
|
|
if (isEventPending(%game.motdDisplaySchedule))
|
|
cancel(%game.motdDisplaySchedule);
|
|
|
|
BottomPrintAll($MOTDmessage, 6, 1);
|
|
|
|
if($debugMode == true) echo("RpgGame::motdDisplay(" @ %game @ ");");
|
|
echo($MOTDmessage);
|
|
if($MOTDprinting == true)
|
|
{
|
|
%game.motdDisplaySchedule = %game.schedule($MOTDcycletime , "motdDisplay");
|
|
}
|
|
}
|
|
function RpgGame::weatherCycle(%game)
|
|
{
|
|
%group = nameToID("ClientGroup");
|
|
%len = %group.getCount();
|
|
$WeatherChanging = true;
|
|
schedule(2000,0, eval, "$WeatherChanging=false;");
|
|
|
|
bottomPrintAll("\nChanging weather...", 3, 3);
|
|
|
|
%newWeather = %game.currentWeather++;
|
|
if (%newWeather == 4)
|
|
%newWeather = %game.currentWeather = 1;
|
|
%wait = $weatherWait;
|
|
switch(%newWeather)
|
|
{
|
|
case 1:
|
|
if (!isFile("missions/" @ $CurrentMission @ "/night.cs")) //is this is how it detects the day/night...?
|
|
%game.exportNight();
|
|
%game.schedule(1000,switchToDay);
|
|
case 2:
|
|
%game.schedule(1000,switchToDusk);
|
|
%wait /= 2;
|
|
case 3:
|
|
if (!isFile("missions/" @ $CurrentMission @ "/day.cs"))
|
|
%game.exportDay();
|
|
%game.schedule(1000,switchToNight);
|
|
default:
|
|
%game.currentWeather = 0;
|
|
}
|
|
%game.weatherLoop = %game.schedule(%wait, "weatherCycle");
|
|
}
|
|
function RPGGame::exportDay(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::exportDay(" @ %game @ ");");
|
|
if ($exportedDay)
|
|
return;
|
|
if (!isObject(rpgdayeffect))
|
|
{
|
|
%game.schedule(10*1000, "ExportDay");
|
|
return;
|
|
}
|
|
|
|
%obj = rpgdayeffect;
|
|
%obj.save("missions/" @ $CurrentMission @ "/day.cs");
|
|
%obj.delete();
|
|
$exportedDay = true;
|
|
}
|
|
function RPGGame::exportNight(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::exportNight(" @ %game @ ");");
|
|
//export and delete!
|
|
if ($exportedNight)
|
|
return;
|
|
if (!isObject(rpgnighteffect))
|
|
{
|
|
%game.schedule(10*1000, "ExportNight");
|
|
return;
|
|
}
|
|
%obj = rpgnighteffect;
|
|
%obj.save("missions/" @ $CurrentMission @ "/night.cs");
|
|
%obj.delete();
|
|
$exportedNight = true;
|
|
}
|
|
function RPGGame::switchtoDay(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::switchtoday(" @ %game @ ");");
|
|
if($daynightcycle != -1)
|
|
{
|
|
if (isObject(RPGNightEffect))
|
|
RPGNightEffect.delete();
|
|
|
|
exec("missions/" @ $CurrentMission @ "/day.cs");
|
|
MissionCleanup.add(RPGDayEffect);
|
|
}
|
|
Game.addDaySky();
|
|
|
|
}
|
|
function RPGGame::switchtoNight(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::switchtonight(" @ %game @ ");");
|
|
if($daynightcycle != -1)
|
|
{
|
|
if (isObject(RPGDayEffect))
|
|
RPGDayEffect.delete();
|
|
exec("missions/" @ $CurrentMission @ "/night.cs");
|
|
MissionCleanup.add(rpgNightEffect);
|
|
}
|
|
|
|
%game.addNightSky();
|
|
|
|
}
|
|
function RPGGame::switchtodusk(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::switchtodusk(" @ %game @ ");");
|
|
game.addDuskSky();
|
|
//asdafgdfgdfg//
|
|
//hfghfgh look at me i'm not pretty
|
|
}
|
|
function RPGGAME::AddDaySky(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::adddaysky(" @ %game @ ");");
|
|
if (isObject(Sky))
|
|
Sky.delete();
|
|
new Sky(Sky) {
|
|
position = "-1216 -848 0";
|
|
rotation = "1 0 0 0";
|
|
scale = "1 1 1";
|
|
cloudHeightPer[0] = "0.5";
|
|
cloudHeightPer[1] = "0.25";
|
|
cloudHeightPer[2] = "0.199973";
|
|
cloudSpeed1 = "0.0001";
|
|
cloudSpeed2 = "0.0002";
|
|
cloudSpeed3 = "0.0003";
|
|
visibleDistance = "1000";
|
|
useSkyTextures = "1";
|
|
renderBottomTexture = "0";
|
|
SkySolidColor = "0.490196 0.639215 0.701960 0.000000";
|
|
fogDistance = "450";
|
|
fogColor = "0.490196 0.639215 0.701960 1.000000";
|
|
fogVolume1 = "200 1 46";
|
|
fogVolume2 = "0 0 0";
|
|
fogVolume3 = "0 0 0";
|
|
materialList = "RPG_WorldMapSky.dml";
|
|
windVelocity = "1 0 0";
|
|
windEffectPrecipitation = "0";
|
|
fogVolumeColor1 = "0.415000 0.666000 0.786000 1.000000";
|
|
fogVolumeColor2 = "128.000000 128.000000 128.000000 -198748244414614883000000000000000000000.000000";
|
|
fogVolumeColor3 = "128.000000 128.000000 128.000000 -222768174765569861000000000000000000000.000000";
|
|
high_visibleDistance = "-1";
|
|
high_fogDistance = "-1";
|
|
high_fogVolume1 = "-1 100 100";
|
|
high_fogVolume2 = "-1 0 0";
|
|
high_fogVolume3 = "-1 1.73876e-39 9.48132e+33";
|
|
|
|
locked = "true";
|
|
cloudSpeed0 = "0.000000 0.000000";
|
|
};
|
|
MissionGroup.add(Sky);
|
|
}
|
|
function RPGGAME::AddNightSky(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::addnightsky(" @ %game @ ");");
|
|
if (isObject(Sky))
|
|
Sky.delete();
|
|
new Sky(Sky) {
|
|
position = "-1216 -848 0";
|
|
rotation = "1 0 0 0";
|
|
scale = "1 1 1";
|
|
cloudHeightPer[0] = "0.5";
|
|
cloudHeightPer[1] = "0.25";
|
|
cloudHeightPer[2] = "0.199973";
|
|
cloudSpeed1 = "0.0001";
|
|
cloudSpeed2 = "0.0002";
|
|
cloudSpeed3 = "0.0003";
|
|
visibleDistance = "650";
|
|
useSkyTextures = "1";
|
|
renderBottomTexture = "0";
|
|
SkySolidColor = "0.0 0.0 0.0 0.000000";
|
|
fogDistance = "25";
|
|
fogColor = "0.000000 0.000000 0.000000 0.000000";
|
|
fogVolume1 = "200 10 100";
|
|
fogVolume2 = "0 0 0";
|
|
fogVolume3 = "0 0 0";
|
|
materialList = "RPG_Night.dml";
|
|
windVelocity = "1 0 0";
|
|
windEffectPrecipitation = "0";
|
|
fogVolumeColor1 = "0.415000 0.666000 0.786000 1.000000";
|
|
fogVolumeColor2 = "128.000000 128.000000 128.000000 -198748244414614883000000000000000000000.000000";
|
|
fogVolumeColor3 = "128.000000 128.000000 128.000000 -222768174765569861000000000000000000000.000000";
|
|
high_visibleDistance = "-1";
|
|
high_fogDistance = "-1";
|
|
high_fogVolume1 = "-1 100 100";
|
|
high_fogVolume2 = "-1 0 0";
|
|
high_fogVolume3 = "-1 1.73876e-39 9.48132e+33";
|
|
|
|
locked = "true";
|
|
cloudSpeed0 = "0.000000 0.000000";
|
|
};
|
|
MissionGroup.add(Sky);
|
|
}
|
|
function RPGGAME::AddDuskSky(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::adddusksky(" @ %game @ ");");
|
|
if (isObject(Sky))
|
|
Sky.delete();
|
|
new Sky(Sky) {
|
|
position = "-1216 -848 0";
|
|
rotation = "1 0 0 0";
|
|
scale = "1 1 1";
|
|
cloudHeightPer[0] = "0.5";
|
|
cloudHeightPer[1] = "0.25";
|
|
cloudHeightPer[2] = "0.199973";
|
|
cloudSpeed1 = "0.0001";
|
|
cloudSpeed2 = "0.0002";
|
|
cloudSpeed3 = "0.0003";
|
|
visibleDistance = "825";
|
|
useSkyTextures = "1";
|
|
renderBottomTexture = "0";
|
|
SkySolidColor = "0.0 0.0 0.0 0.000000";
|
|
fogDistance = "200";
|
|
fogColor = "0.490196 0.639215 0.701960 0.500000";
|
|
fogVolume1 = "200 1 46";
|
|
fogVolume2 = "0 0 0";
|
|
fogVolume3 = "0 0 0";
|
|
materialList = "RPG_50.dml";
|
|
windVelocity = "1 0 0";
|
|
windEffectPrecipitation = "0";
|
|
fogVolumeColor1 = "0.415000 0.666000 0.786000 1.000000";
|
|
fogVolumeColor2 = "128.000000 128.000000 128.000000 -198748244414614883000000000000000000000.000000";
|
|
fogVolumeColor3 = "128.000000 128.000000 128.000000 -222768174765569861000000000000000000000.000000";
|
|
high_visibleDistance = "-1";
|
|
high_fogDistance = "-1";
|
|
high_fogVolume1 = "-1 100 100";
|
|
high_fogVolume2 = "-1 0 0";
|
|
high_fogVolume3 = "-1 1.73876e-39 9.48132e+33";
|
|
|
|
locked = "true";
|
|
cloudSpeed0 = "0.000000 0.000000";
|
|
};
|
|
MissionGroup.add(Sky);
|
|
}
|
|
|
|
function RPGGAME::CreateSkyMap(%game)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::createskymap(" @ %game @ ");");
|
|
|
|
}
|
|
function RPGGame::clientMissionDropReady(%game, %client)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::clientMissionDropReady(" @ %game @ ", " @ %client @ ");");
|
|
|
|
//synchronize the clock HUD
|
|
messageClient(%client, 'MsgSystemClock', "", 0, 0);
|
|
|
|
//%game.sendClientTeamList(%client);
|
|
%game.setupClientHuds(%client);
|
|
|
|
// were ready to go.
|
|
%client.matchStartReady = true;
|
|
echo("Client" SPC %client SPC "is ready.");
|
|
|
|
clearBottomPrint(%client);
|
|
|
|
%retval = loadcharacter(%client);//use rpgname to load character...
|
|
|
|
if(%retval)
|
|
{
|
|
if(%client.choosingGroup == true)
|
|
{
|
|
%client.game = %game;
|
|
commandToClient(%client, 'OpenISMenu');
|
|
commandToClient(%client, 'RPGplayMusic', "SoftTown");
|
|
game.BuildMenu(%client, 0, 0);
|
|
}
|
|
else
|
|
%game.spawnPlayer(%client, false);
|
|
}
|
|
else
|
|
{
|
|
//this shouldnt happen but sometimes it can... ew....
|
|
// kill and delete this client
|
|
if( isObject( %client.player ) )
|
|
%client.player.delete();
|
|
|
|
if ( isObject( %client ) )
|
|
{
|
|
echo("Critical error, character could not be loaded!!");
|
|
%client.setDisconnectReason( "Your character could not be created or loaded! Notify server administrator to get it fixed!" );
|
|
%client.schedule(700, "delete");
|
|
}
|
|
}
|
|
}
|
|
|
|
function RPGGame::spawnPlayer(%game, %client, %respawn)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::spawnPlayer(" @ %game @ ", " @ %client @ ", " @ %respawn @ ");");
|
|
if(!%respawn && !%client.newplayer )
|
|
{
|
|
%spawnpoint = fetchdata(%client, "camppos");
|
|
|
|
if(!(%spawnpoint !$= "" && %spawnpoint != -1))
|
|
{
|
|
%spawnPoint = %game.pickPlayerSpawn(%client);
|
|
}
|
|
|
|
|
|
}
|
|
else
|
|
if(%client.newplayer)
|
|
{
|
|
if(isObject(TrainingSpawn))
|
|
%spawnpoint = TrainingSpawn.getTransform();
|
|
else
|
|
%spawnPoint = %game.pickPlayerSpawn(%client);
|
|
}
|
|
else
|
|
%spawnPoint = %game.pickPlayerSpawn(%client);
|
|
%game.createPlayer(%client, %spawnPoint, %respawn);
|
|
}
|
|
|
|
function RPGGame::pickPlayerSpawn(%game, %client)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::pickPlayerSpawn(" @ %game @ "," SPC %client @ ");");
|
|
if(fetchdata(%client, "lastzone") !$= "")
|
|
{
|
|
%lzone = fetchdata(%client, "lastzone");
|
|
if(%lzone.deathspawn !$= "")
|
|
{
|
|
return %lzone.deathspawn SPC "1 0 0 0";
|
|
}
|
|
|
|
}
|
|
return selectRandomMarker("MissionGroup/DefaultSpawnPoints");
|
|
}
|
|
|
|
function RPGGame::createPlayer(%game, %client, %spawnLoc, %respawn)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::createPlayer(" @ %game @ ", " @ %client @ ", " @ %spawnLoc @ ", " @ %respawn @ ");");
|
|
|
|
if(%client.isAiControlled())
|
|
GiveAIDefaults(%client);
|
|
|
|
%client.team = 1;
|
|
|
|
if(%client.player > 0)
|
|
error("Attempting to create an angus ghost!");
|
|
|
|
//defaultplayerarmor is in 'players.cs'
|
|
if(%spawnLoc == -1)
|
|
///%spawnLoc="-1125.34 -2238.63 216.076 1 0 0 0";
|
|
%spawnLoc = "0 0 300 1 0 0 0";
|
|
|
|
|
|
%armor = fetchData(%client, "RACE") @ "Armor";
|
|
%armor = "D";
|
|
|
|
switch$(%armor)
|
|
{
|
|
case "MaleOrcArmor": echo("valid");
|
|
case "MaleHumanArmor":echo("valid");
|
|
default:echo("INVALID ARMOR - " SPC %armor SPC " - using server default.");
|
|
%armor = "MaleHumanArmor";
|
|
}
|
|
%client.armor = %armor;
|
|
//echo("PLAYER" @ %client.key);
|
|
//%client.armor = "PLAYER" @ %client.key;
|
|
%player = new Player()
|
|
{
|
|
dataBlock = %client.armor;
|
|
};
|
|
|
|
%player.setTransform(%spawnLoc);
|
|
MissionCleanup.add(%player);
|
|
|
|
// setup some info
|
|
%player.setOwnerClient(%client);
|
|
%player.team = %client.team;
|
|
%client.player = %player;
|
|
if(%respawn)
|
|
if(%game.isjailed(%client))
|
|
%player.setPosition(game.GetPositionForJailNumber(game.GetJailNumber(%client) ) );
|
|
|
|
%game.playerSpawned(%client.player);
|
|
}
|
|
|
|
function UpdateTargetStuff(%client)
|
|
{
|
|
if($debugMode == true) echo("UpdateTargetStuff(" @ %client @ ");");
|
|
%player = %client.player;
|
|
|
|
%player.setTarget(%client.target);
|
|
setTargetDataBlock(%client.target, %player.getDatablock());
|
|
|
|
setTargetSensorData(%client.target, PlayerSensor);
|
|
setTargetSensorGroup(%client.target, 1);
|
|
%client.setSensorGroup(1);
|
|
|
|
setSensorGroupColor(1, 0xfffffffe, "196 188 10 128");
|
|
}
|
|
|
|
function RPGGame::playerSpawned(%game, %player)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::playerSpawned(" @ %game @ ", " @ %player @ ");");
|
|
|
|
%client = %player.client;
|
|
|
|
if(%client.respawnTimer)
|
|
cancel(%client.respawnTimer);
|
|
|
|
%client.observerStartTime = "";
|
|
|
|
//set the spawn time (for use by the AI system)
|
|
%client.spawnTime = getSimTime();
|
|
|
|
%client.camera.mode = "";
|
|
|
|
commandToClient(%client, 'setHudMode', 'Standard');
|
|
%client.setControlObject(%player);
|
|
|
|
// updates client's target info for this player
|
|
UpdateTargetStuff(%client);
|
|
|
|
//--- temp until loadchar comes in
|
|
if(fetchdata(%client, "tmpHP")>0)
|
|
setHP(%client, fetchData(%client, "tmpHP"));
|
|
else
|
|
setHP(%client, fetchData(%client, "maxHP"));
|
|
if (fetchData(%client, "tmpMANA") > 0)
|
|
setMANA(%client, fetchData(%client, "tmpMANA"));
|
|
else
|
|
setMANA(%client, fetchData(%client, "maxMANA"));
|
|
|
|
storeData(%client, "templvl", GetLevel(fetchData(%client, "EXP")));
|
|
//----
|
|
commandToClient(%client, 'setReticle', "gui/ret_blaster" , true);
|
|
storeData(%client, "HasLoadedAndSpawned", true);
|
|
if(%client.newplayer)
|
|
{
|
|
%client.newplayer = false;
|
|
MessageClient(%client, 'MessageStart', "Go to the nearest human and type #say hi to talk to him.");
|
|
}
|
|
if($rules $= "dm" )
|
|
{
|
|
clearInventory(%client);
|
|
GiveDmEquipment(%client);
|
|
}
|
|
//%player.setrechargerate(0.1);
|
|
RefreshAll(%client);
|
|
}
|
|
|
|
|
|
function Player::scriptKill(%player, %damageType)
|
|
{
|
|
if($debugMode == true) echo("Player::scriptKill(" @ %player @ ");");
|
|
//%player.scriptKilled = 1;
|
|
%player.setInvincible(false);
|
|
|
|
//%targetObject, %sourceObject, %position, %amount, %damageType, %momVec
|
|
//game.onClientDamaged(%player.client, %player.client, 2, 0, 0);
|
|
%player.damage(0, %player.getPosition(), 100, $DamageType::Suicide);
|
|
}
|
|
function unfreeze(%id)
|
|
{
|
|
if($debugMode == true) echo("unfreeze(" @ %id @ ");");
|
|
%id.setControlObject(%id.player);
|
|
storeData(%id, "frozen", "");
|
|
}
|
|
function RPGGame::onClientDamaged(%game, %clVictim, %clAttacker, %damageType, %sourceObject, %value, %pos, %damloc) {
|
|
if($debugMode == true) echo("RPGGame::onClientDamaged(" @ %game @ "," SPC %clVictim @ "," SPC %clAttacker @ "," SPC %damageType @ "," SPC %sourceObject @ "," SPC %value @ "," SPC %pos @ "," SPC %damloc @ ");");
|
|
//if(%damageType == $DamageType::Lava)
|
|
// echo("lava: " @ "%clvictim -> " @ %clvictim @ " %clattacker -> " @ %clattacker);
|
|
%weapon = fetchData(%clVictim, "weaponInHand");
|
|
if(%clVictim > 0)
|
|
{
|
|
//even if it ends up a miss, the persons healing rate will stop.
|
|
%client.lasthittime = getSimTime();
|
|
%clVictim.humiliated = "";
|
|
%suicide = ( %damageType == 99 ? 1 : 0 );
|
|
if(%suicide)
|
|
{
|
|
%clAttacker = %clVictim;
|
|
}
|
|
%backupweapon = %weapon;
|
|
%weapon = %game.GetItem(%clAttacker, fetchData(%clAttacker, "weaponInHand"));
|
|
%weaponid = fetchData(%clattacker, "weaponinHand");
|
|
%dweapon = %game.GetItem(%clVictim, fetchData(%clVictim, "weaponInHand"));
|
|
%vguildid = IsInWhatGuild(%clVictim);
|
|
%aguildid = IsInWhatGuild(%clAttacker);
|
|
|
|
if(%vguildid != -1)
|
|
%vGuild = GuildGroup.getObject(%vguildid);
|
|
if(%aguildid != -1)
|
|
%aGuild = GuildGroup.GetObject(%aguildid);
|
|
|
|
%focused = 0;
|
|
%bash = 0;
|
|
%backstab = 0;
|
|
%mugged = 0;
|
|
%cleave = 0;
|
|
%ignite = 0;
|
|
%disrupt = 0;
|
|
if(%clAttacker && %clAttacker !$= %clVictim)
|
|
{
|
|
%clVictim.lastDamageTime = getSimTime();
|
|
%clVictim.lastDamageClient = %clAttacker;
|
|
if(%clVictim.isAIControlled())
|
|
%clVictim.clientDetected(%clAttacker);
|
|
}
|
|
|
|
%skilltype = $SkillType[%weapon];
|
|
%dskilltype = $SkillType[%dweapon];
|
|
%clVictimPos = %clVictim.player.getPosition();
|
|
if(%clAttacker.player)
|
|
%clAttackerPos = %clAttacker.player.getPosition();
|
|
|
|
%victimCurrentArmor = GetCurrentlyWearingArmor(%clVictim);
|
|
|
|
//==============
|
|
//PROCESS STATS
|
|
//==============
|
|
%isMiss = false;
|
|
%sameRaceNull = false;
|
|
//------------- CREATE DAMAGE VALUE -------------
|
|
if(%damagetype == $DamageType::Spell)
|
|
{
|
|
if(%clAttacker.focus == true)
|
|
{
|
|
%focused = true;
|
|
%clAttacker.focus = false;
|
|
}
|
|
%spell = %sourceobject.spell; //workaround
|
|
|
|
if(%spell $= "")
|
|
%spell = %clAttacker.lastspell;
|
|
%clAttacker.lastspell = "";
|
|
%weapon = %spell;
|
|
%value = $spelldata[%spell, DamageMod];//booom!
|
|
%element = $spelldata[%spell, Element];
|
|
//For the case of SPELLS, the initial damage has already been determined before calling this function
|
|
%skilltype = $Skill::OffensiveCasting;
|
|
|
|
%dmg = %value;
|
|
%value = (%dmg / 100) * GetPlayerSkill(%clAttacker, %skilltype) + %dmg/10;
|
|
if(%clAttacker.isAiControlled())
|
|
%value /= 2;//drop damage by 2 for bots, bots dont have to worry about mana.
|
|
%md = fetchdata(%clVictim, "MDEF");
|
|
|
|
|
|
if( $Spell::ElementDefense[%element] != 3 )
|
|
%md = CombineRpgRolls(%md, AddPoints(%clVictim, $Spell::ElementDefense[%element]), 0, "inf");
|
|
%md = GetRPGRoll(%md);
|
|
|
|
%ab = (getRandom() * (%md*10)) + 1;
|
|
%value = %value - %ab;
|
|
|
|
//damage resistance now
|
|
|
|
%value = Cap((%value)/1000, 0, "inf");
|
|
|
|
}
|
|
else if(%damageType != $DamageType::Ground && %damageType != $DamageType::Impact)
|
|
{
|
|
if(fetchData(%clVictim, "invisible") && %clVictim.adminLevel < 5)
|
|
Client::unhide(%clvictim);
|
|
|
|
//weapon
|
|
//----------
|
|
//%rweapon = getitem(fetchData(%clAttacker, "weaponInHand"));
|
|
|
|
//if(%rweapon !$= "")
|
|
// %rweapondamage = GetRpgRoll(GetWord(GetAccessoryVar(%rweapon, $SpecialVar), 1));
|
|
//else
|
|
// %rweapondamage = 0;
|
|
%weapondamage = GetRpgRoll(AddPoints(%clAttacker, 6));
|
|
|
|
%weapdam = %weapondamage;
|
|
|
|
%multi = Cap((%clAttacker.data.PlayerSkill[%skilltype]*(getRandom()+0.2) ), 1, "inf");
|
|
if(%multi < 0) %multi = 0;
|
|
%finalweapondamage = round(%weapdam * (%multi/1000+1) + %clattacker.data.PlayerSkill[%skilltype]*getRandom()/8);
|
|
|
|
//armor
|
|
//----------
|
|
%rarmor = GetRpgRoll(fetchData(%clVictim, "DEF"));//its definately here
|
|
if(fetchdata(%clattacker, "NextHitCleave") == true && %skilltype == $skill::slashing)
|
|
{
|
|
if(fetchdata(%clAttacker, "Mana") >= 2)
|
|
{
|
|
%rarmor = 0;
|
|
|
|
%multi = Cap((%clAttacker.data.PlayerSkill[%skilltype]*getRandom()/2), 1, "inf");
|
|
if(%multi < 0) %multi = 0;
|
|
%finalweapondamage = round(%weapdam * (%multi/1000+1) + %clattacker.data.PlayerSkill[%skilltype]*getRandom()/10 )*2;
|
|
|
|
%cleave = true;
|
|
refreshMANA(%clAttacker, 2);
|
|
}
|
|
else
|
|
MessageClient(%clAttacker, 'failedCleave', "You do not have enough Mana to Cleave.");
|
|
game.schedule(15*1000, "resetcleaveflag", %clAttacker);
|
|
storedata(%clAttacker, "NextHitCleave", false);
|
|
}
|
|
|
|
if(fetchdata(%clattacker, "NextHitBackstab") == true && %skilltype == $skill::Piercing)
|
|
{
|
|
%backfront = getword(%damloc, 1);
|
|
storedata(%clattacker, "NextHitBackstab", false);
|
|
game.schedule(10*1000, "resetbackstabflag", %clAttacker);
|
|
if(%backfront $= "back_right" || %backfront $= "back" || %backfront $= "back_left" || %backfront $= "middle_back")
|
|
{
|
|
if(fetchdata(%clAttacker, "Mana") >= 1)
|
|
{
|
|
%backstab = true;
|
|
%finalweapondamage *= 4;//OUCH
|
|
refreshMANA(%clAttacker, 1);
|
|
}
|
|
else
|
|
MessageClient(%clAttacker, 'failedbackstab', "You do not have enough Mana to backstab.");
|
|
|
|
}
|
|
|
|
}
|
|
if(fetchdata(%clattacker, "NextHitLeg") == true && %skilltype == $skill::Slashing)
|
|
{
|
|
|
|
%targetleg = true;
|
|
storedata(%clAttacker, "NextHitLeg", false);
|
|
game.schedule(20*1000, "resetlegflag", %clattacker);
|
|
|
|
}
|
|
if(fetchdata(%clattacker, "NextHitEncumber") == true && %skilltype == $skill::Piercing)
|
|
{
|
|
%encumber = true;
|
|
|
|
storedata(%clAttacker, "NextHitEncumber", false);
|
|
game.schedule(20*1000, "resetEncumberflag", %clattacker);
|
|
|
|
}
|
|
if(fetchdata(%clattacker, "NextHitStun") == true && %skilltype == $skill::Bludgeoning)
|
|
{
|
|
%stun = true;
|
|
|
|
storedata(%clAttacker, "NextHitStun", false);
|
|
game.schedule(20*1000, "resetStunflag", %clattacker);
|
|
|
|
|
|
}
|
|
if(fetchdata(%clattacker, "NextHitMug") == true)
|
|
{
|
|
|
|
storedata(%clattacker, "NextHitMug", false);
|
|
|
|
%mugged = true;
|
|
game.schedule(15*1000, "resetmugflag", %clattacker);
|
|
|
|
}
|
|
if(%clattacker.hitignite == true)
|
|
{
|
|
%ignite = true;
|
|
%clattacker.hitignite = false;
|
|
%em = createEmitter(%pos, "minelampemitter", "0 0 0");
|
|
%em.schedule(1000,"delete");
|
|
%value *= 1.5;
|
|
|
|
|
|
}
|
|
%value = Cap( (%finalweapondamage - %rarmor)/2, 0, "inf");//yea armor does take effect.
|
|
|
|
if(%value < 1)
|
|
%value = 1;
|
|
if(%suicide)
|
|
%value = fetchData(%clVictim, "MaxHP");
|
|
%value = (%value / $TribesDamageToNumericDamage);
|
|
if(%skilltype == $skill::Bludgeoning)
|
|
{
|
|
if(fetchdata(%clAttacker, "NextHitBash") == true)
|
|
{
|
|
//bash!
|
|
if(fetchdata(%clAttacker, "Mana") >= 1)
|
|
{
|
|
%bash = true;
|
|
%eye = %clAttacker.player.getEyeVector();
|
|
%vec = vectorScale(%eye, %clAttacker.data.PlayerSkill[$Skill::Bashing]/5);
|
|
%vec = VectorAdd(%vec, "0 0 15");
|
|
refreshMANA(%clAttacker, 1);
|
|
}
|
|
else
|
|
MessageClient(%clAttacker, 'failedbash', "You do not have enough Mana to bash");
|
|
game.schedule(10 * 1000, "resetbashflag", %clAttacker);
|
|
storedata(%clAttacker, "NextHitBash", false);
|
|
}
|
|
else if(fetchdata(%clAttacker, "NextHitDisrupt") == true)
|
|
{
|
|
if(fetchdata(%clAttacker, "Mana") >= 1)
|
|
{
|
|
|
|
%Disrupt = true;
|
|
refreshmana(%clattacker, 1);
|
|
if(iseventPending(%clvictim.spellcast))
|
|
{
|
|
cancel(%clvictim.spellcast);
|
|
}
|
|
}
|
|
else
|
|
messageClient(%clattacker, 'faileddisrupt', "You do not have enough Mana to disrupt");
|
|
game.schedule(15 * 1000, "resetDisruptFlag", %clAttacker);
|
|
storedata(%clAttacker, "NextHitDisrupt", false);
|
|
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
%skilltype = 0;
|
|
}
|
|
|
|
//------------- DETERMINE MISS OR HIT -------------
|
|
if(%damagetype !$= $LandingDamageType && %clAttacker !$= %clVictim && !%suicide && !(%clattacker.isaicontrolled() && %clvictim.isaicontrolled()))
|
|
{
|
|
//%skilldiff = %clVictim.PlayerSkill[%skilltype] - %clAttacker.PlayerSkill[%skilltype];
|
|
//if(%skilldiff >= 0)
|
|
// %m = 0.038;
|
|
//else
|
|
// %m = -0.038;
|
|
%d = %clAttacker.data.PlayerSkill[%skilltype] * getRandom() * 1.2 + 2;
|
|
%k = (%clvictim.data.PlayerSkill[%skilltype] / 20 + (%clvictim.data.PlayerSkill[%dskilltype] / 2)) * getrandom();
|
|
//%y = %m * %skilldiff * %skilldiff + 5;
|
|
//%p = Cap(%y, 0, 100);
|
|
|
|
//%r = (getRandom() * 100) + 1;
|
|
|
|
if(%d / %k < 1)
|
|
{
|
|
if(%focused)
|
|
{
|
|
%weakhit = true;
|
|
%value /= 2;
|
|
}
|
|
else
|
|
%isMiss = true;
|
|
}
|
|
else if (%d / %k < 2)
|
|
{
|
|
if(!%focused)
|
|
{
|
|
%weakhit = true;
|
|
%value /= 2;
|
|
}
|
|
}
|
|
else if (%d / %k > 5)
|
|
{
|
|
%criticalhit = true;
|
|
%value *= 2;
|
|
}
|
|
else
|
|
{
|
|
if(%focused)
|
|
{
|
|
%criticalhit = true;
|
|
%value *= 2;
|
|
}
|
|
}
|
|
}
|
|
else if(%damageType == $DamageType::Lava)
|
|
{
|
|
%value = fetchdata(%clvictim, "HP") * %value;
|
|
%value = (%value / $TribesDamageToNumericDamage);
|
|
}
|
|
else if(%damageType == $DamageType::Impact || %damageType == $DamageType::Ground)
|
|
{
|
|
%value = fetchdata(%clvictim, "HP") * %value;
|
|
%value = (%value / $TribesDamageToNumericDamage);
|
|
}
|
|
//-------------------------------------------------
|
|
// IF PLAYER IS ADMIN, NULLIFY LANDING DAMAGE
|
|
// IF PLAYER IS SUPERADMIN, NULLIFY ALL DAMAGE
|
|
//-------------------------------------------------
|
|
if(%clVictim.adminLevel >= 4 && (%damageType == $DamageType::Impact || %damageType == $DamageType::Ground))
|
|
%value = 0;
|
|
if(%clVictim.adminLevel >= 5)
|
|
%value = 0;
|
|
|
|
//------------------------------------------------
|
|
// SAME RACE CHECKS
|
|
//------------------------------------------------
|
|
if(IsSameRace(%clVictim, %clAttacker) && %clAttacker !$= %clVictim && $rules !$= "dm")
|
|
{
|
|
%pvpZneAtt = fetchData(%clAttacker, "inpvpzone");
|
|
%pvpZneVic = fetchData(%clVictim, "inpvpzone");
|
|
if(inarenabattle(%clAttacker) && inarenabattle(%clVictim))
|
|
{
|
|
//combat in the arena. allow damage!
|
|
}
|
|
else if(%pvpZneAtt && %pvpZneVic) {
|
|
//both players in pvp zone, allow damage
|
|
}
|
|
else if( %aGuild > 0 && fetchdata(%clAttacker, "zone").owner == %aguild && %aGuild != %vGuild && fetchdata(%clattacker, "zone") == fetchdata(%clvictim, "zone"))
|
|
{
|
|
//let damage pass
|
|
}
|
|
else if( !(IsInCommaList(fetchData(%clVictim, "targetlist"), %clAttacker.rpgname) || IsInCommaList(fetchData(%clAttacker, "targetlist"), %clVictim.rpgname)) )
|
|
{
|
|
//no target-list involved
|
|
|
|
if(%clVictim.guildmatchpvp && %clAttacker.guildmatchpvp)
|
|
{
|
|
if(%clvictim.enemyguild == %aGuild || %clAttacker.enemyguild == %vguild)
|
|
{
|
|
//valid let damage pass
|
|
}
|
|
else
|
|
{
|
|
%value = 0;
|
|
%isMiss = false;
|
|
%noImpulse = true;
|
|
%sameRaceNull = true;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
%value = 0;
|
|
%isMiss = false;
|
|
%noImpulse = true;
|
|
%sameRaceNull = true;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
//echo("true");
|
|
//one of the people involved has the other one on his/her target-list.
|
|
//so let damage go thru
|
|
}
|
|
}
|
|
//-------------------------------------------------
|
|
// SAME PLAYER CHECKS
|
|
//-------------------------------------------------
|
|
if((%clVictim $= %clAttacker) && %suicide == 0)
|
|
{
|
|
if(%damagetype $= $DamageType::Spell)
|
|
{
|
|
%value = %value / 3;
|
|
if(%value < 0.01)
|
|
%value = 0.01;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//suicide stabbed self
|
|
}
|
|
|
|
if(!IsDead(%clVictim))
|
|
{
|
|
%hitby = %clAttacker.nameBase;
|
|
%msgcolor = "";
|
|
//calculate spelldamage resistance
|
|
if(%skilltype == $Skill::OffensiveCasting)
|
|
{
|
|
|
|
//absorb damage
|
|
%value *= $TribesDamageToNumericDamage;
|
|
%rvalue = round(%value);
|
|
|
|
|
|
%rvalue = ModifyBonusState(%clvictim, $Spell::ElementResistance[%element], %rvalue);
|
|
if(%rvalue > 0) //continue
|
|
%rvalue = ModifyBonusState(%clvictim, $Spell::ElementResistance[Generic], %rvalue);
|
|
if(%rvalue <= 0)
|
|
{
|
|
%value = 0;
|
|
|
|
}
|
|
else
|
|
%value = %rvalue;
|
|
%value /= $TribesDamageToNumericDamage;
|
|
|
|
}
|
|
|
|
if(%isMiss)
|
|
{
|
|
%msgcolor = $MsgRed;
|
|
%value = 0;
|
|
|
|
// Fix for some silly message you get when admin
|
|
if (trim(%hitby) $= "")
|
|
%msgcolor = "";
|
|
}
|
|
else if(!%isMiss && %value $= 0 && %clAttacker !$= %clVictim)
|
|
{
|
|
%msgcolor = $MsgWhite;
|
|
}
|
|
|
|
if(%msgcolor !$= "")
|
|
{
|
|
if(%damagetype !$= $DamageType::Spell)
|
|
{
|
|
messageClient(%clAttacker, 'onClientDamaged', %msgcolor @ "You try to hit " @ %clVictim.nameBase @ ", but miss!");
|
|
messageClient(%clVictim, 'onClientDamaged', %msgcolor @ %hitby @ " tries to hit you, but misses!");
|
|
}
|
|
else
|
|
{
|
|
messageClient(%clAttacker, 'onClientDamaged', %msgcolor @ %clVictim.nameBase @ " resists your spell!");
|
|
messageClient(%clVictim, 'onClientDamaged', %msgcolor @ "You resist " @ %hitby @ "'s spell!");
|
|
}
|
|
}
|
|
|
|
//-------------------------------------------------
|
|
// SKILLS
|
|
//-------------------------------------------------
|
|
if(%skilltype >= 1 && !%sameRaceNull && %clAttacker !$= %clVictim)
|
|
{
|
|
%base1 = Cap(35 + (fetchData(%clAttacker, "LVL") - fetchData(%clVictim, "LVL")), 1, "inf");
|
|
%base2 = Cap(35 + (fetchData(%clVictim, "LVL") - fetchData(%clAttacker, "LVL")), 1, "inf");
|
|
if(%isMiss)
|
|
{
|
|
if(%skilltype > 0)
|
|
UseSkill(%clAttacker, %skilltype, false, true);
|
|
UseSkill(%clVictim, $SkillEndurance, true, true, 60);
|
|
|
|
}
|
|
else if(!%isMiss && %value $= 0)
|
|
{
|
|
if(%skilltype > 0)
|
|
UseSkill(%clAttacker, %skilltype, false, true);
|
|
UseSkill(%clVictim, $SkillEndurance, true, true, 60);
|
|
|
|
}
|
|
else
|
|
{
|
|
UseSkill(%clVictim, $SkillEndurance, true, true, 60);
|
|
if(%skilltype > 0)
|
|
UseSkill(%clAttacker, %skilltype, true, true, %base1);
|
|
|
|
}
|
|
|
|
if(%bash || %disrupt)
|
|
UseSkill(%clAttacker, $skill::Bashing, true, true, 5);
|
|
if(%cleave || %targetleg)
|
|
UseSkill(%clAttacker, $skill::Cleaving, true, true, 5);
|
|
if(%focused)
|
|
UseSkill(%clAttacker, $skill::focus, true, true, 5);
|
|
if(%backstab || %encumber)
|
|
UseSkill(%clAttacker, $skill::Backstabbing, true, true, 1/10);
|
|
if(%ignite)
|
|
UseSkill(%clAttacker, $skill::ignitearrow, true, true, 4);
|
|
|
|
|
|
}
|
|
if(%value < 0)
|
|
%value = 0;
|
|
|
|
if(%value)
|
|
{
|
|
if(%encumber)
|
|
{
|
|
//do the effect
|
|
%time = 4;
|
|
AddBonusState(%clVictim, "12 -40", %time, "Encumber");
|
|
weightcall(%clVictim);
|
|
//schedule(%time*1000+1, "CalculateBonusState", %clvictim);
|
|
schedule(%time*1000+2, %clvictim, "weightStep", %clvictim);
|
|
}
|
|
if(%stun)
|
|
{
|
|
|
|
//do the effect
|
|
%time = 3;
|
|
|
|
|
|
AddBonusState(%clVictim, "12 -100", %time, "Stun");
|
|
%clvictim.player.setPosition(%clvictim.player.getPosition());
|
|
%clvictim.player.applyimpulse("0 0 1");
|
|
%clvictim.player.setVelocity("0 0 0");
|
|
weightcall(%clVictim);
|
|
%clvictim.schedule(%time*1000+2, "setControlObject",%clvictim.player);
|
|
|
|
//schedule(%time*1000+1, "CalculateBonusState", %clvictim);
|
|
schedule(%time*1000+2, %clvictim, "weightStep", %clVictim);
|
|
}
|
|
if(%targetleg)
|
|
{
|
|
//do the effect
|
|
%time = 5;
|
|
|
|
AddBonusState(%clVictim, "12 -30", %time, "TargetLeg");
|
|
|
|
weightcall(%clVictim);
|
|
//schedule(%time*1000+1, "CalculateBonusState", %clvictim);
|
|
schedule(%time*1000+2, %clvictim, "weightcall", %clvictim);
|
|
}
|
|
if(%mugged)
|
|
{
|
|
domug(%clattacker, %clvictim, %damloc);
|
|
|
|
}
|
|
%backupValue = %value;
|
|
|
|
//can it be a lck miss?
|
|
if(%damageType == $DamageType::Lava )
|
|
%canlck = 0;
|
|
else
|
|
%canlck = 1;
|
|
//resolve damage
|
|
%client.canlck = %canlck;
|
|
%rhp = refreshHP(%clVictim, %value);
|
|
if(%bash)
|
|
%clVictim.player.setVelocity(%vec);
|
|
if(%rhp $= -1)
|
|
%value = -1; //There was an LCK miss
|
|
else
|
|
{
|
|
//if(%victimCurrentArmor !$= "")
|
|
// %ahs = $ArmorHitSound[%victimCurrentArmor];
|
|
//else
|
|
//%ahs = GetHitFleshSound(%weapon);
|
|
if(%skilltype == $Skill::Slashing)
|
|
%clVictim.player.Play3D(%ahs);
|
|
else if(%skilltype == $Skill::Bludgeoning)
|
|
%clVictim.player.Play3D(%ahs);
|
|
else if(%skilltype == $Skill::Piercing)
|
|
%clVictim.player.Play3D(%ahs);
|
|
else if(%skilltype == $Skill::Archery)
|
|
%clVictim.player.Play3D(ArrowHit);
|
|
else
|
|
%clVictim.player.Play3D(HitFlesh);
|
|
}
|
|
|
|
if(%clVictim.isAiControlled() && fetchData(%clVictim, "SpawnBotInfo") !$= "")
|
|
{
|
|
serverPlay3D(RandomRaceSound(fetchData(%clVictim, "RACE"), Hit), %clVictimPos);
|
|
}
|
|
|
|
//display amount of damage caused
|
|
|
|
%convValue = round(%value * $TribesDamageToNumericDamage);
|
|
|
|
if(%convValue > 0)
|
|
{
|
|
if(%damageType == $DamageType::Ground)
|
|
{
|
|
%hitby = "ground";
|
|
}
|
|
if(%clAttacker == %clVictim)
|
|
{
|
|
%hitby = "yourself";
|
|
}
|
|
else if(%clAttacker $= 0)
|
|
%hitby = "an NPC";
|
|
else
|
|
{
|
|
if(fetchData(%clAttacker, "invisible"))
|
|
%hitby = "an unknown assailant";
|
|
else
|
|
%hitby = %clAttacker.nameBase;
|
|
}
|
|
|
|
if(%Backstab)
|
|
{
|
|
%daction = "backstabbed";
|
|
%saction = "backstabbed";
|
|
}
|
|
else if(%Bash)
|
|
{
|
|
%daction = "bashed";
|
|
%saction = "bashed";
|
|
}
|
|
else if(%Disrupt)
|
|
{
|
|
%daction = "disrupted";
|
|
%saction = "disrupted";
|
|
}
|
|
else if(%cleave)
|
|
{
|
|
%daction = "cleaved";
|
|
%saction = "cleaved";
|
|
}
|
|
else if(%mugged)
|
|
{
|
|
%daction = "mugged";
|
|
%saction = "mugged";
|
|
}
|
|
else if(%targetleg)
|
|
{
|
|
%daction = "hit";// in the leg";
|
|
%saction = "hit";// in the leg";
|
|
%daAction = "in the leg ";
|
|
%saAction = "in the leg ";
|
|
}
|
|
else if(%encumber)
|
|
{
|
|
%daction = "encumbered";
|
|
%saction = "encumbered";
|
|
}
|
|
else if(%stun)
|
|
{
|
|
%daction = "stunned";
|
|
%saction = "stunned";
|
|
}
|
|
else
|
|
{
|
|
%daction = "hit";
|
|
%saction = "hit";
|
|
}
|
|
if(%weakhit)
|
|
{
|
|
%daction = "weakly" SPC %daction;
|
|
%saction = "weakly" SPC %saction;
|
|
}
|
|
if (%criticalhit)
|
|
{
|
|
%daction = "critically" SPC %daction;
|
|
%saction = "critically" SPC %saction;
|
|
}
|
|
//--------------------
|
|
//display to involved
|
|
//--------------------
|
|
if(!%suicide)
|
|
{
|
|
if(%clAttacker !$= %clVictim && %clAttacker != 0)
|
|
messageClient(%clAttacker, 'onClientDamaged', $MsgRed @ "You " @ %saction SPC %clVictim.nameBase SPC %saAction @ "for " @ %convValue @ " points of damage!");
|
|
|
|
if(%damageType == $DamageType::Ground || %damageType == $DamageType::Impact)
|
|
messageClient(%clVictim, 'onClientDamaged', $MsgRed @ "You fell to the ground for " @ %convValue @ " points of damage!");
|
|
else
|
|
messageClient(%clVictim, 'onClientDamaged', $MsgRed @ "You were " @ %daction SPC %daAction @ "by " @ %hitby @ " for " @ %convValue @ " points of damage!");
|
|
}
|
|
else
|
|
{
|
|
messageClient(%clVictim, 'onClientDamaged', $MsgRed @ "You hit yourself for " @ %convValue @ " points of damage!");
|
|
|
|
}
|
|
//--------------------
|
|
//display to radius
|
|
//--------------------
|
|
if(%clAttacker $= 0)
|
|
{
|
|
|
|
%sname = "An NPC";
|
|
%dname = %clVictim.rpgname;
|
|
}
|
|
else if(%clAttacker $= %clVictim)
|
|
{
|
|
%sname = %clAttacker.rpgname;
|
|
if(stricmp(%clVictim.sex, "Male") $= 0)
|
|
%dname = "himself";
|
|
else if(stricmp(%clVictim.sex, "Female") $= 0)
|
|
%dname = "herself";
|
|
else
|
|
%dname = "itself";
|
|
}
|
|
else
|
|
{
|
|
if(fetchData(%clAttacker, "invisible"))
|
|
{
|
|
%sname = "An unknown assailant";
|
|
Client::unhide(%clAttacker);
|
|
}
|
|
else
|
|
%sname = %clAttacker.rpgName;
|
|
%dname = %clVictim.rpgName;
|
|
}
|
|
if(%damageType == $DamageType::Lava )
|
|
{
|
|
radiusAllExcept(%clVictim, 0, $MsgBeige @ %dname @ "'s life came to an untimely end in the lava.");
|
|
}
|
|
else if(%damageType == $DamageType::Ground || %damageType == $DamageType::Impact)
|
|
{
|
|
radiusAllExcept(%clVictim, 0, $MsgBeige @ %dname @ " fell to their death.");
|
|
}
|
|
else
|
|
radiusAllExcept(%clVictim, %clAttacker, $MsgBeige @ %sname SPC %saction SPC %dname @ " for " @ %convValue @ " points of damage!");
|
|
|
|
}
|
|
else if(%convValue < 0)
|
|
{
|
|
//this happens when there's a LCK consequence as miss
|
|
|
|
%hitby = %clAttacker.rpgName;
|
|
|
|
messageClient(%clAttacker, 'onClientDamaged', $MsgRed @ "You try to hit " @ %clVictim.rpgName @ ", but miss! (LCK)");
|
|
messageClient(%clVictim, 'onClientDamaged', $MsgRed @ %hitby @ " tries to hit you, but misses! (LCK)");
|
|
}
|
|
else
|
|
{
|
|
errorReport("ERROR! RPGGame.cs RPGGame::onClientDamaged(" @ %game @ ", " @ %clVictim @ ", "
|
|
@ %clAttacker @ ", " @ %damageType @ ", " @ %sourceObject @ ", " @ %weapon @
|
|
") %convValue == 0 || %convValue $= \"\" %value = " @ %value @ " %backupvalue = " @ %backupvalue @
|
|
" %clvictim.rpgname = " @ %clvictim.rpgname @ " %clAttacker.rpgName = " @ %clAttacker.rpgName @
|
|
" Report this error line to dev if it does not show up on any known error list", 0);
|
|
}
|
|
|
|
//-------------------------------------------
|
|
//add entry to damagedClient's damagedBy list
|
|
//-------------------------------------------
|
|
|
|
//make new entry with shooter's name
|
|
if( %clAttacker !$= 0 && !%isMiss && fetchData(%clAttacker, "LVL") <= 150 )
|
|
{
|
|
%sname = %clAttacker.nameBase;
|
|
%dname = %clVictim.nameBase;
|
|
if(%clAttacker !$= %clVictim)
|
|
{
|
|
%index = "";
|
|
for(%i = 1; %i <= $maxDamagedBy; %i++)
|
|
{
|
|
if(%clVictim.damagedBy[%i] $= "" && %index $= "")
|
|
%index = %i;
|
|
}
|
|
if(%index !$= "")
|
|
{
|
|
%clVictim.damagedBy[%index] = %clAttacker @ " " @ %backupValue;
|
|
%clVictim.player.schedule($damagedByEraseDelay * 1000, "clearDamagedBy", %index);
|
|
}
|
|
else
|
|
{
|
|
//too many hits on waiting list, he doesn't get in on exp.
|
|
}
|
|
}
|
|
}
|
|
|
|
if (%clVictim.isAIControlled())
|
|
%clVictim.hitCheck = ruby_add(epochTime(),10);
|
|
|
|
%flash = Cap(%clVictim.player.getDamageFlash() + (%value * 2), 0, 0.75);
|
|
%clVictim.player.setDamageFlash(%flash);
|
|
|
|
if(fetchData(%clVictim, "HP") <= 0)
|
|
{
|
|
|
|
if(%clAttacker.isAiControlled())
|
|
{
|
|
if(false)
|
|
serverPlay3D(RandomRaceSound(fetchData(%clAttacker, "RACE"), Taunt), %clAttackerPos);
|
|
}
|
|
}
|
|
}
|
|
|
|
if(%isMiss)
|
|
{
|
|
if(fetchData(%clVictim, "isBonused"))
|
|
{
|
|
//GameBase::activateShield(%this, "0 0 1.57", 1.47);
|
|
serverPlay3D(SoundHitShield, %clVictimPos);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
errorReport("ERROR! RPGGame.cs RPGGame::onClientDamaged(" @ %game @ ", " @ %clVictim @ ", "
|
|
@ %clAttacker @ ", " @ %damageType @ ", " @ %sourceObject @ ", " @ %value @
|
|
") :" @
|
|
" Report this error line to dev if it does not show up on any known error list", 0);
|
|
}
|
|
|
|
//call the game specific AI routines...
|
|
if(isObject(%clVictim) && %clVictim.isAIControlled() && %convValue > 0)
|
|
%game.onAIDamaged(%clVictim, %clAttacker, %damageType, %sourceObject);
|
|
if(isObject(%clAttacker) && %clAttacker.isAIControlled() )
|
|
%game.onAIDoDamage(%clVictim, %clAttacker, %damageType, %sourceObject); //bot did damage
|
|
|
|
//if(isObject(%clAttacker) && %clAttacker.isAIControlled())
|
|
// %game.onAIFriendlyFire(%clVictim, %clAttacker, %damageType, %sourceObject);
|
|
}
|
|
function errorReport(%string)
|
|
{
|
|
echo(%string);
|
|
}
|
|
function RPGGame::ResetDisruptFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockDisrupt", false);
|
|
}
|
|
function RPGGame::ResetBashFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockbash", false);
|
|
}
|
|
function RPGGame::ResetCleaveFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockcleave", false);
|
|
}
|
|
function RPGGame::ResetLegFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockLeg", false);
|
|
}
|
|
function RPGGAME::ResetBackstabFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockbackstab", false);
|
|
}
|
|
function RPGGAME::resetmugflag(%game, %client)
|
|
{
|
|
storedata(%client, "blockHitMug", false);
|
|
}
|
|
function RPGGAME::resetEncumberFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockEncumber", false);
|
|
}
|
|
function RPGGAME::resetStunFlag(%game, %client)
|
|
{
|
|
storedata(%client, "blockStun", false);
|
|
}
|
|
function Armor::damageObject(%data, %targetObject, %sourceObject, %position, %amount, %damageType, %momVec)
|
|
{
|
|
if(%targetObject.getState() $= "Dead")
|
|
return;
|
|
%selfkiller = "";
|
|
|
|
if(%targetObject.isMounted())
|
|
{
|
|
%mount = %targetObject.getObjectMount();
|
|
if(%mount.team == %targetObject.team)
|
|
{
|
|
%found = -1;
|
|
for(%i = 0; %i < %mount.getDataBlock().numMountPoints; %i++)
|
|
{
|
|
if(%mount.getMountNodeObject(%i) == %targetObject)
|
|
{
|
|
%found = %i;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if(%found != -1)
|
|
{
|
|
if(%mount.getDataBlock().isProtectedMountPoint[%found])
|
|
{
|
|
%mount.getDataBlock().damageObject(%mount, %sourceObject, %position, %amount, %damageType);
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
%clVictim = %targetObject.getOwnerClient();
|
|
if(%clVictim $= "")
|
|
{
|
|
for(%i = 0; GetWord($townbotlist,%i) !$= ""; %i++)
|
|
if(%targetObject == GetWord($townbotlist,%i))
|
|
return false;
|
|
}
|
|
%clAttacker = %sourceObject ? %sourceObject.getOwnerClient() : 0;
|
|
if( %damagetype == 8 )
|
|
%clattacker = %sourceobject.sourceobject.getownerclient();
|
|
Game.onClientDamaged(%clVictim, %clAttacker, %damageType, %sourceObject, %amount, %position, %targetObject.getDamageLocation(%position));
|
|
|
|
%clVictim.lastDamagedBy = %damagingClient;
|
|
%clVictim.lastDamaged = getSimTime();
|
|
|
|
//now call the "onKilled" function if the client was... you know...
|
|
if(%targetObject.getState() $= "Dead")
|
|
{
|
|
// where did this guy get it?
|
|
%damLoc = %targetObject.getDamageLocation(%position);
|
|
|
|
// If we were killed, max out the flash
|
|
%targetObject.setDamageFlash(0.75);
|
|
%damLoc = %targetObject.getDamageLocation(%position);
|
|
|
|
Game.onClientKilled(%clVictim, %clAttacker, %damageType, %sourceObject, %damLoc);
|
|
}
|
|
else if(%amount > 0.1)
|
|
{
|
|
if(%targetObject.station $= "" && %targetObject.isCloaked())
|
|
{
|
|
%targetObject.setCloaked(false);
|
|
%targetObject.reCloak = %targetObject.schedule( 500, "setCloaked", true );
|
|
}
|
|
|
|
|
|
}
|
|
playPain( %targetObject );
|
|
%targetObject.scriptKilled = "";
|
|
}
|
|
function Armor::onImpact(%data, %playerObject, %collidedObject, %vec, %vecLen)
|
|
{
|
|
//problem happens BEFORE this function is called.
|
|
//if(%playerobject.client.rpgname $= $merpgname)
|
|
|
|
%data.damageObject(%playerObject, 0, VectorAdd(%playerObject.getPosition(),%vec), %vecLen * %data.speedDamageScale, $DamageType::Ground);
|
|
}
|
|
|
|
function RPGGame::onClientLeaveGame(%game, %client)
|
|
{
|
|
|
|
// if there is a player attached to this client, kill it
|
|
|
|
if ($DebugMode) echo("RPGGAME::onClientLeaveGame(" @ %game @ ", " @ %client @ ")");
|
|
|
|
//cancel a scheduled call...
|
|
|
|
logEcho(%client.nameBase@" (cl "@%client@") dropped");
|
|
}
|
|
|
|
function RPGGame::WeaponOnInventory(%game, %this, %obj, %amount)
|
|
{
|
|
return true;
|
|
}
|
|
function RPGGame::ShapeThrowWeapon(%game, %this)
|
|
{
|
|
return true;
|
|
}
|
|
function RPGGame::WeaponOnUse(%game, %data, %obj)
|
|
{
|
|
return true;
|
|
}
|
|
|
|
|
|
function GameConnection::onConnect( %client, %name, %raceGender, %skin, %voice, %voicePitch )
|
|
{
|
|
if ($DebugMode) echo("GameConnection::onConnect(" @ %client @ ", " @ %name @ ", " @ %raceGender @ ", " @ %skin @ ", " @ %voice @ ", " @ %voicePitch @ ")");
|
|
|
|
//sendLoadInfoToClient( %client );
|
|
|
|
commandToClient( %client, 'setBlackout', 1, true );
|
|
commandToClient( %client, 'RPGLoadscreen', true );
|
|
commandToClient( %client, 'RPGLoadscreenTitle', $Host::GameName );
|
|
|
|
|
|
// Get the client's unique id:
|
|
%authInfo = %client.getAuthInfo();
|
|
%client.guid = getField( %authInfo, 3 );
|
|
//gui check
|
|
%client.where = 0;
|
|
//create unique 'key' for player
|
|
for(%i = 0; %i<$Host::MaxPlayers;%i++)
|
|
{
|
|
if($client::key[%i] == 0)
|
|
{
|
|
$client::key[%i] = %client;
|
|
%client.key = %i;
|
|
break;
|
|
}
|
|
}
|
|
// check admin and super admin list, and set status accordingly
|
|
if(!%client.isSuperAdmin)
|
|
{
|
|
if(isOnSuperAdminList(%client))
|
|
{
|
|
%client.isAdmin = true;
|
|
%client.isSuperAdmin = true;
|
|
}
|
|
else if(isOnAdminList(%client))
|
|
{
|
|
%client.isAdmin = true;
|
|
}
|
|
}
|
|
|
|
// Sex/Race defaults
|
|
switch$(%raceGender)
|
|
{
|
|
case "Human Male":
|
|
%client.sex = "Male";
|
|
%client.race = "Human";
|
|
case "Human Female":
|
|
%client.sex = "Female";
|
|
%client.race = "Human";
|
|
case "Bioderm":
|
|
%client.sex = "Male";
|
|
%client.race = "Bioderm";
|
|
}
|
|
%client.armor = "Light";
|
|
|
|
// RPG mod will use a entirely different system for smurfs...
|
|
%realName = getField(%authInfo, 0);
|
|
%tag = getField( %authInfo, 1 );
|
|
%rpgSpecial = %tag; //server owners can set that they have to be in a certain clan in order to be able to play on their server? alternate to a password...
|
|
//or shall we have it for 'tribes'
|
|
if(!$playingonline)
|
|
%realname = %name;//doh!
|
|
%rpgname = %name @ " " @ %realName;
|
|
if(strcmp(%name, %realName) == 0)
|
|
{
|
|
%client.isSmurf = false;
|
|
|
|
// Add the tribal tag:
|
|
%append = getField( %authInfo, 2 );
|
|
%rpgname = %name;
|
|
%name = %name; // DO NOTHING WITH NAME! Needed for savecharacter!!
|
|
//addToServerGuidList( %client.guid );
|
|
//%client.sendGuid = %client.guid;
|
|
}
|
|
else
|
|
{
|
|
%client.isSmurf = true;
|
|
%smurfName = %name;
|
|
%name = %realName;//for savecharacter!
|
|
//rpgname is set above so we dont need to set it here
|
|
|
|
}
|
|
|
|
|
|
if(%client.isSmurf)
|
|
%client.nameBase = %smurfName;
|
|
else
|
|
%client.nameBase = %realName;
|
|
%client.name = addTaggedString(%client.namebase);
|
|
//echo("client: " @ %client @ " name: " @ %realname);
|
|
%client.realName = %realName;
|
|
%client.rpgName = %rpgname;
|
|
%client.clan = "";
|
|
%client.special = %rpgSpecial;//unno we might use this later...
|
|
%client.justConnected = true;
|
|
%client.isReady = false;
|
|
|
|
// Make sure that the connecting client is not trying to use a bot skin:
|
|
%temp = detag(%skin);
|
|
if( %temp $= "basebot" || %temp $= "basebbot")
|
|
%client.skin = addTaggedString( "base" );
|
|
else
|
|
%client.skin = addTaggedString( %skin );
|
|
|
|
// full reset of client target manager
|
|
clientResetTargets(%client, false);
|
|
|
|
%client.voice = %voice;
|
|
%client.voiceTag = addtaggedString(%voice);
|
|
|
|
//set the voice pitch based on a lookup table from their chosen voice
|
|
%client.voicePitch = getValidVoicePitch(%voice, %voicePitch);
|
|
|
|
%client.target = allocClientTarget(%client, %client.name, %client.skin, %client.voiceTag, '_ClientConnection', 0, 0, %client.voicePitch);
|
|
%client.score = 0;
|
|
%client.team = 0;
|
|
|
|
$instantGroup = ServerGroup;
|
|
$instantGroup = MissionCleanup;
|
|
|
|
//echo("CADD: " @ %client @ " " @ %client.getAddress());
|
|
|
|
%count = ClientGroup.getCount();
|
|
for(%cl = 0; %cl < %count; %cl++)
|
|
{
|
|
%recipient = ClientGroup.getObject(%cl);
|
|
if((%recipient != %client))
|
|
{
|
|
messageClient(%recipient, 'MsgClientJoin', %client.rpgname SPC "has joined the game.",
|
|
%recipient.name,
|
|
%recipient,
|
|
%recipient.target,
|
|
%recipient.isAIControlled(),
|
|
%recipient.isAdmin,
|
|
%recipient.isSuperAdmin,
|
|
%recipient.isSmurf,
|
|
%recipient.sendGuid);
|
|
}
|
|
}
|
|
|
|
//commandToClient(%client, 'getManagerID', %client);
|
|
|
|
commandToClient(%client, 'setBeaconNames', "Target Beacon", "Marker Beacon", "Bomb Target");
|
|
|
|
if($CurrentMissionType !$= "SinglePlayer")
|
|
{
|
|
messageClient(%client, 'MsgClientJoin', '\c2Welcome to Tribes2 RPG %1.',
|
|
%name,
|
|
%client,
|
|
%client.target,
|
|
false, // isBot
|
|
%client.isAdmin,
|
|
%client.isSuperAdmin,
|
|
%client.isSmurf,
|
|
%client.sendGuid );
|
|
|
|
messageAllExcept(%client, -1, 'MsgClientJoin', "",
|
|
%name,
|
|
%client,
|
|
%client.target,
|
|
false, // isBot
|
|
%client.isAdmin,
|
|
%client.isSuperAdmin,
|
|
%client.isSmurf,
|
|
%client.sendGuid );
|
|
}
|
|
else
|
|
{
|
|
messageClient(%client, 'MsgClientJoin', "\c0Mission Insertion complete...",
|
|
%name,
|
|
%client,
|
|
%client.target,
|
|
false, // isBot
|
|
false, // isAdmin
|
|
false, // isSuperAdmin
|
|
false, // isSmurf
|
|
%client.sendGuid );
|
|
}
|
|
|
|
//Game.missionStart(%client);
|
|
//setDefaultInventory(%client);
|
|
|
|
if($missionRunning)
|
|
%client.startMission();
|
|
|
|
$HostGamePlayerCount++;
|
|
}
|
|
function RPGGame::checkClientVersion(%game, %client)
|
|
{
|
|
%ver = %client.rpgver;
|
|
echo("client has version" SPC %ver);
|
|
if(%ver == $rpgver)
|
|
{
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
%pre = "Ironsphere RPG" SPC $rpgver @ "\n";
|
|
if (trim(%ver) $= "")
|
|
%client.setDisconnectReason(%pre NL "You do not have Ironsphere. You can download the mod at" SPC $IS::Web @ ".");
|
|
else
|
|
%client.setDisconnectReason(%pre NL "Your version of Ironsphere (" @ %ver @ ") is incompatible with this server. (" @ $rpgver @"). Please SVN Update on your ironsphererpg folder to update!");
|
|
%client.delete();
|
|
return true;
|
|
}
|
|
}
|
|
function servercmdsetClientVersion(%client, %ver)
|
|
{
|
|
if (%client.rpgver $= "")
|
|
%client.rpgver = %ver;
|
|
}
|
|
function GameConnection::onDrop(%client, %reason)
|
|
{
|
|
if ($DebugMode) echo("GameConnection::onDrop(" @ %client @ ", " @ %reason @ ")");
|
|
|
|
if($missionRunning)
|
|
{
|
|
if(inArena(%client))
|
|
{
|
|
if(!inArenaRoster(%client))
|
|
{
|
|
%client.player.scriptKill(0);
|
|
}
|
|
LeaveArena(%client);//leave arena for saving.
|
|
}
|
|
%guildid = IsInWhatGuild(%client);
|
|
%guild = GuildGroup.getObject(%guildid);
|
|
if(%client.guildmatchpvp)
|
|
{
|
|
//eject from match, calculate if ended.
|
|
%client.guildmatchpvp = "";
|
|
%client.participate = "";
|
|
%zone = fetchdata(%client, "zone");
|
|
if(%guild == %zone.owner)
|
|
{
|
|
%zone.home--;
|
|
if(%zone.home <= 0)
|
|
%zone.owner.EndZoneMatch( %zone, %zone.challenger);
|
|
}
|
|
if(%guild == %zone.challenger)
|
|
{
|
|
%zone.away--;
|
|
if(%zone.away <= 0)
|
|
%zone.owner.EndZoneMatch( %zone, %zone.challenger);
|
|
}
|
|
%client.enemyguild = "";
|
|
}
|
|
//save if player is alive some reason %client.player remains set if server runs a DISSCONNECT yet the player is gone
|
|
savecharacter(%client);
|
|
}
|
|
cancel(%client.weightstepcall);
|
|
game.onClientLeaveGame(%client);//game doesnt end, lets see if this is the problem
|
|
//fixed?...^^
|
|
$client::key[%client.key] = "";
|
|
if(isObject(%client.player))
|
|
%client.player.schedule(500, delete);
|
|
|
|
cancel(%client.respawnTimer);
|
|
%client.respawnTimer = "";
|
|
|
|
//if(!%client.isSmurf)
|
|
// removeFromServerGuidList( %client.guid );
|
|
if(!%client.isaicontrolled())
|
|
messageAllExcept(%client, -1, 'MsgClientDrop', %client.rpgname @ " has dropped.");
|
|
|
|
if ( isObject( %client.camera ) )
|
|
%client.camera.delete();
|
|
|
|
freeClientTarget(%client);
|
|
removeTaggedString(%client.name);
|
|
//echo("CDROP: " @ %client @ " " @ %client.getAddress());
|
|
if(!%client.isaicontrolled())
|
|
$HostGamePlayerCount--;
|
|
|
|
// reset the server if everyone has left the game
|
|
//if( $HostGamePlayerCount == 0 && $Host::Dedicated)
|
|
// schedule(0, 0, "resetServerDefaults");
|
|
}
|
|
|
|
// missioncleanup and missiongroup are checked prior to entering game code
|
|
function RPGGame::missionLoadDone(%game)
|
|
{
|
|
// walks through the mission group and sets the power stuff up
|
|
// - groups get initialized with power count 0 then iterated to
|
|
// increment powercount if an object within is powered
|
|
// - powers objects up/down
|
|
//MissionGroup.objectiveInit();
|
|
//#marker
|
|
MissionGroup.clearPower();
|
|
MissionGroup.powerInit(0);
|
|
|
|
%game.initGameVars(); //set up scoring variables and other game specific globals
|
|
|
|
setSensorGroupAlwaysVisMask(1, 0xffffffff);
|
|
setSensorGroupFriendlyMask(1, 0xffffffff);
|
|
|
|
// update colors:
|
|
// - enemy teams are red
|
|
// - same team is green
|
|
// - team 0 is white
|
|
for(%i = 0; %i < 32; %i++)
|
|
{
|
|
%team = (1 << %i);
|
|
//setSensorGroupColor(%i, %team, "0 255 0 255");
|
|
//setSensorGroupColor(%i, ~%team, "255 0 0 255");
|
|
//setSensorGroupColor(%i, 1, "255 255 255 255");
|
|
setSensorGroupColor(%i, %team, "0 255 0 255");
|
|
setSensorGroupColor(%i, ~%team, "0 0 0 255");
|
|
setSensorGroupColor(%i, 1, "0 255 255 255");
|
|
//setup the team targets (always friendly and visible to same team)
|
|
setTargetAlwaysVisMask(%i, %team);
|
|
setTargetFriendlyMask(%i, %team);
|
|
}
|
|
|
|
//set up the teams
|
|
%game.setUpTeams();//this will setup the townbots and guards
|
|
|
|
//initialize the AI system
|
|
%game.aiInit();//game::aiInit will call the map's ai load function.
|
|
$townbotlist = "";
|
|
DefineTownBots();
|
|
DefineMiningPoints();
|
|
LoadServerGuilds();//load up the guilds
|
|
|
|
//Save off respawn or Siege Team switch information...
|
|
//if(%game.class !$= "SiegeGame")
|
|
// MissionGroup.setupPositionMarkers(true);
|
|
echo("RPGGame mission load done.");
|
|
}
|
|
|
|
|
|
function RPGGame::onClientKilled(%game, %clVictim, %clKiller, %damageType, %implement, %damageLocation)
|
|
{
|
|
if($debugMode == true) echo("RPGGame::onClientKilled(" @ %game @ "," SPC %clVictim @ "," SPC %clKiller @ "," SPC %damageType @ "," SPC %implement @ "," SPC %damageLocation @ ");");
|
|
%plVictim = %clVictim.player;
|
|
%plKiller = %clKiller.player;
|
|
%clKiller.tkills++;
|
|
%clVictim.tkills++;
|
|
if($rules $= "dm")
|
|
{
|
|
%ditem = fetchData(%clVictim, "weaponInHand");
|
|
%clVictim.player.throw(%ditem);
|
|
}
|
|
//============
|
|
%guildid = IsInWhatGuild(%clvictim);
|
|
%guild = GuildGroup.getObject(%guildid);
|
|
if(%clvictim.guildmatchpvp)
|
|
{
|
|
|
|
//eject from match, calculate if ended.
|
|
%clvictim.guildmatchpvp = "";
|
|
%clvictim.participate = "";
|
|
%zone = fetchdata(%clvictim, "zone");
|
|
if(%guild == %zone.owner)
|
|
{
|
|
%zone.home--;
|
|
if(%zone.home <= 0)
|
|
%zone.owner.EndZoneMatch( %zone, %zone.challenger);
|
|
}
|
|
if(%guild == %zone.challenger)
|
|
{
|
|
%zone.away--;
|
|
if(%zone.away <= 0)
|
|
%zone.owner.EndZoneMatch( %zone, %zone.challenger);
|
|
}
|
|
%clvictim.enemyguild = "";
|
|
%guildkilled = true;
|
|
}
|
|
|
|
if(fetchData(%clVictim, "deathmsg") !$= "")
|
|
{
|
|
%kitem = Player::getMountedItem(%clKiller, $WeaponSlot);
|
|
RPGchat(%clVictim, 0, fetchData(%clVictim, "deathmsg"));
|
|
}
|
|
|
|
if(%clVictim.isAiControlled())
|
|
{
|
|
//event stuff
|
|
%i = GetEventCommandIndex(%clVictim, "onkill");
|
|
if(%i !$= -1)
|
|
{
|
|
%name = GetWord($EventCommand[%clVictim, %i], 0);
|
|
%type = GetWord($EventCommand[%clVictim, %i], 1);
|
|
%cl = getClientByName(%name);
|
|
if(%cl $= -1)
|
|
%cl = 2048;
|
|
|
|
%cmd = getSubStr($EventCommand[%clVictim, %i], String::findSubStr($EventCommand[%clVictim, %i], ">")+1, 99999);
|
|
%pcmd = ParseBlockData(%cmd, %clVictim, %clKiller);
|
|
$EventCommand[%clVictim, %i] = "";
|
|
schedule("RPGchat(" @ %cl @ ", 0, \"" @ %pcmd @ "\");", 2); // \"" @ %name @ "\");", 2);
|
|
}
|
|
ClearEvents(%clVictim);
|
|
}
|
|
//ok now get the players lck.. if player died without any lck, drop everything, thats the shaft!
|
|
%lootfl = fetchdata(%clVictim, "noDropLootbagFlag");
|
|
if(inArena(%clVictim))
|
|
%lootfl = 1;
|
|
if(%guildkilled)
|
|
%lootfl = 2;
|
|
%lck = fetchdata(%clVictim, "LCK");
|
|
if(%lck < 0 )
|
|
%timer = 60;
|
|
else
|
|
%timer = 600;
|
|
%ai = %clVictim.isaicontrolled();
|
|
%loot = "";
|
|
//Phantom139:
|
|
//Added support for PvP Zones, certian zones are "item Safe" which means
|
|
//players who die in these zones do not lose their items.
|
|
%inv = fetchData(%clVictim, "inventory");
|
|
%PvPISafe = false;
|
|
if(fetchData(%clVictim, "inpvpzone") == true) {
|
|
if(fetchData(%clVictim, "initemsafezone") == true) {
|
|
%PvPISafe = true;
|
|
}
|
|
}
|
|
for(%i = 0; (%itemstr = GetWord(%inv, %i)) !$= "" && %lootfl $= ""; %i++)
|
|
{
|
|
|
|
|
|
%itemstr = strreplace(%itemstr, "%", " ");
|
|
%item = GetWord(%itemstr, 1);
|
|
%prefix = GetWord(%itemstr, 0);
|
|
%suffix = GetWord(%itemstr, 2);
|
|
%num = %game.getItemCount(%clvictim, %item, %prefix, %suffix);
|
|
%fullitem = %game.GetFullItemName(%prefix, %item, %suffix);
|
|
%itemid = %clvictim.data.count[strreplace(%fullitem, " ", "x")];
|
|
%type = $itemType[%item];
|
|
|
|
|
|
if(%type $= "weapon" && %lck >= 0 && !%ai )
|
|
{
|
|
if(%clvictim.data.equipped[%itemid] )
|
|
{
|
|
%game.InventoryUse(%clvictim, %itemid);
|
|
if(!%PvPISafe) {
|
|
%game.RemoveFromInventory(%clVictim, 1, %item, %prefix, %suffix);
|
|
%loot = %loot @ %prefix @ "%" @ %item @ "%" @ %suffix @ "%" @ 1 @ " ";
|
|
}
|
|
}
|
|
}
|
|
else if(%type $= "Armor" && %lck >= 0 && !%ai )
|
|
{
|
|
if(%clvictim.data.equipped[%itemid] )
|
|
{
|
|
%game.InventoryUse(%clvictim, %itemid);
|
|
if(!%PvPISafe) {
|
|
%game.RemoveFromInventory(%clVictim, 1, %item, %prefix, %suffix);
|
|
%loot = %loot @ %prefix @ "%" @ %item @ "%" @ %suffix @ "%" @ 1 @ " ";
|
|
}
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
if(%lck < 0 || %ai)
|
|
{
|
|
if(%clvictim.data.equipped[%itemid])
|
|
%game.InventoryUse(%client, %itemid);//clean up
|
|
if(!%PvPISafe) {
|
|
%game.RemoveFromInventory(%clVictim, %num, %item, %prefix, %suffix);
|
|
%loot = %loot @ %prefix @ "%" @ %item @ "%" @ %suffix @ "%" @ %num @ " ";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if(%lootfl $= "" && !%PvPISafe) {
|
|
%coins = FetchData(%clVictim, "COINS")+1-1;
|
|
StoreData(%clVictim, "COINS", 0);
|
|
}
|
|
else if(%lootfl == 2 && !%PvPISafe) {
|
|
%coins = Fetchdata(%clVictim, "COINS")+1-1;
|
|
%bank = FetchData(%clVictim, "BANK")+1-1;
|
|
%asset = %coins+%bank;
|
|
%charge = mfloor(%asset/10);
|
|
if(%charge > %coins)
|
|
{
|
|
%bank = %bank - (%charge - %coins);
|
|
|
|
}
|
|
else
|
|
%charge = %coins;
|
|
|
|
storedata(%clvictim, "COINS", 0);
|
|
storedata(%clVictim, "BANK", %bank);
|
|
%coins = %charge;
|
|
%asset = "";
|
|
%bank = "";
|
|
%charge = "";
|
|
%timer = 0;
|
|
}
|
|
|
|
if(%lootfl $= "" || %lootfl == 2)
|
|
if(!%PvPISafe)
|
|
%Game.TossLootBag(%clVictim, %loot,%coins, %timer);
|
|
|
|
storeData(%clVictim, "noDropLootbagFlag", "");
|
|
|
|
storeData(%clVictim, "SpellCastStep", "");
|
|
%clVictim.sleepMode = "";
|
|
refreshHPREGEN(%clVictim);
|
|
refreshMANAREGEN(%clVictim);
|
|
|
|
//remember the last zone the player was in.
|
|
storeData(%clVictim, "lastzone", fetchData(%clVictim, "zone"));
|
|
|
|
//%clVictim.player.playAudio(0, RandomRaceSound(fetchData(%clVictim, "RACE"), Death));
|
|
|
|
DistributeExpForKilling(%clVictim);
|
|
//RefreshExp(%clKiller);
|
|
//============
|
|
|
|
|
|
%clVictim.plyrPointOfDeath = %plVictim.getPosition();
|
|
%clVictim.waitRespawn = 1;
|
|
|
|
cancel( %plVictim.reCloak );
|
|
cancel(%clVictim.respawnTimer);
|
|
|
|
%respawnDelay = 2;
|
|
|
|
%game.schedule(%respawnDelay*1000, "clearWaitRespawn", %clVictim);
|
|
|
|
if(%plVictim.lastVehicle !$= "")
|
|
{
|
|
schedule(15000, %plVictim.lastVehicle,"vehicleAbandonTimeOut", %plVictim.lastVehicle);
|
|
%plVictim.lastVehicle.lastPilot = "";
|
|
}
|
|
|
|
// unmount pilot or remove sight from bomber
|
|
if(%plVictim.isMounted())
|
|
{
|
|
if(%plVictim.vehicleTurret)
|
|
%plVictim.vehicleTurret.getDataBlock().playerDismount(%plVictim.vehicleTurret);
|
|
else
|
|
{
|
|
%plVictim.getDataBlock().doDismount(%plVictim, true);
|
|
%plVictim.mountVehicle = false;
|
|
}
|
|
}
|
|
|
|
if(%plVictim.inStation)
|
|
commandToClient(%plVictim.client,'setStationKeys', false);
|
|
%clVictim.camera.mode = "playerDeath";
|
|
|
|
// reset who triggered this station and cancel outstanding armor switch thread
|
|
if(%plVictim.station)
|
|
{
|
|
%plVictim.station.triggeredBy = "";
|
|
%plVictim.station.getDataBlock().stationTriggered(%plVictim.station,0);
|
|
if(%plVictim.armorSwitchSchedule)
|
|
cancel(%plVictim.armorSwitchSchedule);
|
|
}
|
|
|
|
//Close huds if player dies...
|
|
messageClient(%clVictim, 'CloseHud', "", 'RPGinventoryScreen');
|
|
messageClient(%clVictim, 'CloseHud', "", 'RPGshopScreen');
|
|
messageClient(%clVictim, 'CloseHud', "", 'vehicleHud');
|
|
commandToClient(%clVictim, 'setHudMode', 'Standard', "", 0);
|
|
|
|
// $weaponslot from item.cs
|
|
%plVictim.setRepairRate(0);
|
|
%plVictim.setImageTrigger($WeaponSlot, false);
|
|
|
|
|
|
playDeathAnimation(%plVictim, %damageLocation, %damageType);
|
|
playDeathCry(%plVictim);
|
|
|
|
|
|
//%ridx = mFloor(getRandom() * ($numDeathMsgs - 0.01));
|
|
%victimName = %clVictim.name;
|
|
|
|
//%game.displayDeathMessages(%clVictim, %clKiller, %damageType, %implement);
|
|
|
|
// toss whatever is being carried, '$flagslot' from item.cs
|
|
// MES - had to move this to after death message display because of Rabbit game type
|
|
|
|
|
|
// target manager update
|
|
setTargetDataBlock(%clVictim.target, 0);
|
|
|
|
// clear the hud
|
|
%clVictim.SetWeaponsHudClearAll();
|
|
%clVictim.SetInventoryHudClearAll();
|
|
%clVictim.setAmmoHudCount(-1);
|
|
|
|
//if the killer was an AI...
|
|
if(isObject(%clKiller) && %clKiller.isAIControlled())
|
|
%game.onAIKilledClient(%clVictim, %clKiller, %damageType, %implement);
|
|
|
|
// reset control object on this player: also sets 'playgui' as content
|
|
ResetControlObject(%clVictim);
|
|
|
|
// set control object to the camera
|
|
%clVictim.player.client = 0;
|
|
%clVictim.player = 0;
|
|
%transform = %plVictim.getTransform();
|
|
|
|
//note, AI's don't have a camera...
|
|
if (isObject(%clVictim.camera))
|
|
{
|
|
%clVictim.camera.setTransform(%transform);
|
|
%clVictim.camera.setOrbitMode(%plVictim, %plVictim.getTransform(), 0.5, 4.5, 4.5);
|
|
%clVictim.setControlObject(%clVictim.camera);
|
|
}
|
|
|
|
//hook in the AI specific code for when a client dies
|
|
if(%clVictim.isAIControlled())
|
|
{
|
|
aiReleaseHumanControl(%clVictim.controlByHuman, %clVictim);
|
|
%game.onAIKilled(%clVictim, %clKiller, %damageType, %implement);
|
|
}
|
|
else
|
|
aiReleaseHumanControl(%clVictim, %clVictim.controlAI);
|
|
|
|
//used to track corpses so the AI can get ammo, etc...
|
|
AICorpseAdded(%plVictim);
|
|
|
|
//if the death was a suicide, prevent respawning for 5 seconds...
|
|
%clVictim.lastDeathSuicide = false;
|
|
if(%damageType == $DamageType::Suicide)
|
|
{
|
|
%clVictim.lastDeathSuicide = true;
|
|
%clVictim.suicideRespawnTime = getSimTime() + 5000;
|
|
}
|
|
if(inArena(%clVictim))
|
|
{
|
|
if(!%clvictim.isAiControlled()) //dontrespawn if AI.
|
|
Game.createPlayer( %clVictim,ArenaExit1.getposition(), true);
|
|
|
|
|
|
//give the clvictim a new player object then tele him out of the arena!
|
|
LeaveArena(%clVictim);
|
|
ResetControlObject(%clVictim);
|
|
|
|
}
|
|
if(%guildkilled)
|
|
{
|
|
storedata(%clvictim, "LCK", fetchdata(%clvictim, "LCK")+1);//negate lck cost. note lck is negitive 1 if killed with no lck
|
|
if(fetchdata(%clvictim, "LCK") > 0)
|
|
MessageClient(%clVictim, 'Lck', "You gained a LCK point");
|
|
}
|
|
if(%lck < 0)
|
|
storedata(%clVictim, "LCK", 0);
|
|
|
|
}
|
|
|
|
function ItemData::onCollision(%data, %obj, %col)
|
|
{
|
|
game.ItemDataonCollision(%data, %obj, %col);
|
|
return;
|
|
|
|
}
|
|
function RPGshopScreen::updateHud(%this, %client, %tag, %aiId)
|
|
{
|
|
//echo("RPGshopScreen::updateHud(" @ %this @ ", " @ %client @ ", " @ %tag @ "," SPC %aiId @ ")");
|
|
commandToClient(%client, 'ShopUpdateHud');
|
|
//Server-side
|
|
%inv = fetchData(%client, "inventory");
|
|
%coins = fetchdata(%client, "COINS");
|
|
commandToClient(%client, 'SetCoins', %coins);
|
|
%val = 0;
|
|
for(%i = 0; (%item = GetWord(%aiId.shopwloadout, %i)) !$= ""; %i++)
|
|
{
|
|
commandToClient(%client, 'ShopAddRow',0,%item, $ItemDesc[%item]);
|
|
}
|
|
for(%i = 0; (%item = GetWord(%aiId.shopaloadout, %i)) !$= ""; %i++)
|
|
{
|
|
commandToClient(%client, 'ShopAddRow',0 ,%item, $ItemDesc[%item]);
|
|
}
|
|
for(%i = 0; (%item = GetWord(%aiId.shopiloadout, %i)) !$= ""; %i++)
|
|
{
|
|
commandToClient(%client, 'ShopAddRow',0 ,%item, $ItemDesc[%item]);
|
|
}
|
|
commandToClient(%client, 'ShopDone');
|
|
}
|
|
function serverCmdShopListOnSelect(%client, %item)
|
|
{
|
|
//Server-side
|
|
|
|
commandToClient(%client, 'ShopListOnSelect', GetItemCost(%client, %item));
|
|
}
|
|
function serverCmdShopInvListOnSelect(%client, %itemid, %item)
|
|
{
|
|
|
|
commandToClient(%client, 'ShopInvListOnSelect', GetItemValue(%client, GetItem(%itemid)));
|
|
}
|
|
function serverCmdShopOnBuy(%client, %item, %delta)
|
|
{
|
|
Client::OnBuy(%client, %Item, %delta);
|
|
}
|
|
function serverCmdShopOnSell(%client, %item, %delta)
|
|
{
|
|
Client::OnSell(%client, %Item, %delta);
|
|
}
|
|
function serverCmdOnOpenStat(%client)
|
|
{
|
|
RPGstatScreen::updateHud(1, %client, 'RPGstatScreen');
|
|
}
|
|
function RPGstatScreen::updateHud(%this, %client, %tag)
|
|
{
|
|
|
|
//Server-side
|
|
Game.UpdateRPGStatScreen(%this, %client, %tag);
|
|
|
|
}
|
|
function RPGGame::UpdateRPGStatScreen(%game, %this, %client, %tag)
|
|
{
|
|
commandToClient(%client, 'statUpdateHud');
|
|
%sp = fetchdata(%client, "SP");
|
|
commandToClient(%client, 'statSetSP', %sp);
|
|
%taggedskill[fetchdata(%client, "TagSkill1")] = "Tagged";
|
|
%taggedskill[fetchdata(%client, "TagSkill2")] = "Tagged";
|
|
%taggedskill[fetchdata(%client, "TagSkill3")] = "Tagged";
|
|
for(%i = 1; $SkillDesc[%i] !$= ""; %i++)
|
|
{
|
|
%skill = GetPlayerSkill(%client, %i);
|
|
|
|
%multi = GetSkillMultiplier(%client, %i);
|
|
|
|
%desc = $SkillData[%i];
|
|
%tagged = %taggedSkill[%i];
|
|
|
|
commandToClient(%client, 'StatAddRow',$SkillDesc[%i],%skill,%desc, %multi, %i, %tagged);
|
|
}
|
|
|
|
commandToClient(%client, 'StatDone');
|
|
|
|
}
|
|
function serverCmdStatonIncrease(%client, %skill, %amount)
|
|
{
|
|
//Server-side
|
|
if(%amount >=1 && fetchdata(%client, "SP") >= %amount && %skill > 0)
|
|
{
|
|
%askill = GetPlayerSkill(%client, %skill);
|
|
%lvl = fetchData(%client, "LVL");
|
|
if(%lvl > 101 && !isTaggedSkill(%client, %skill)) %lvl = 101;
|
|
%ub = ($skillRangePerLevel * %lvl) + 20;
|
|
for ( %i = 1; %askill + (%i * GetSkillMultiplier(%client, %skill)) <= %ub && %i <= mfloor(%amount); %i++)
|
|
{
|
|
storeData(%client, "SP", 1, "dec");
|
|
AddSkillPoint(%client, %skill, 1);
|
|
}
|
|
|
|
}
|
|
RPGstatScreen::updateHud(1,%client, 'RPGstatScreen');
|
|
|
|
}
|
|
function RPGGame::TagOnSelect(%game, %client, %id)
|
|
{
|
|
//get client level.
|
|
%remove = true;
|
|
|
|
%removed = false;
|
|
%lvl = fetchdata(%client, "LVL");
|
|
if(%lvl >= 101) %remove = false;
|
|
//first check to see if we are removing any tag skill
|
|
if(%remove)
|
|
{
|
|
if(fetchdata(%client, "TagSkill1") == %id)
|
|
{
|
|
storedata(%client, "TagSkill1", "");
|
|
commandToClient(%client, 'RemoveTag', %id);
|
|
%removed = true;
|
|
}
|
|
if(fetchdata(%client, "TagSkill2") == %id)
|
|
{
|
|
storedata(%client, "TagSkill2", "");
|
|
commandToClient(%client, 'RemoveTag', %id);
|
|
%removed = true;
|
|
}
|
|
if(fetchdata(%client, "TagSkill3") == %id)
|
|
{
|
|
storedata(%client, "TagSkill3", "");
|
|
commandToClient(%client, 'RemoveTag', %id);
|
|
%removed = true;
|
|
}
|
|
}
|
|
if( !%removed && fetchdata(%client, "TagSkill1") != %id && fetchdata(%client, "TagSkill2") != %id && fetchdata(%client, "TagSkill3") != %id )
|
|
{
|
|
if(fetchdata(%client, "TagSkill1") == 0)
|
|
{
|
|
storedata(%client, "TagSkill1", %id);
|
|
commandToClient(%client, 'AddTag', %id);
|
|
%tagged = true;
|
|
}
|
|
else
|
|
if(fetchdata(%client, "TagSkill2") == 0)
|
|
{
|
|
storedata(%client, "TagSkill2", %id);
|
|
commandToClient(%client, 'AddTag', %id);
|
|
%tagged = true;
|
|
}
|
|
else
|
|
if(fetchdata(%client, "TagSkill3") == 0)
|
|
{
|
|
storedata(%client, "TagSkill3", %id);
|
|
commandToClient(%client, 'AddTag', %id);
|
|
%tagged = true;
|
|
}
|
|
}
|
|
if(%tagged)
|
|
MessageClient(%client, 'Tagged', "You have tagged skill:" SPC $SkillDesc[%id] @ ".");
|
|
else if(%removed)
|
|
MessageClient(%client, 'RemoveTag', "You have detagged skill:" SPC $SkillDesc[%id] @ ".");
|
|
else if(!%remove && !%tagged)
|
|
MessageClient(%client, 'CantTag', "You cannot remove any Tag skills after level 100 and you cannot assign more than 3 tag skills.");
|
|
else
|
|
|
|
MessageClient(%client, 'CantTag', "You cannot tag more than 3 skills.");
|
|
|
|
|
|
}
|
|
function serverCmdTagOnSelect(%client, %id)
|
|
{
|
|
Game.TagOnSelect(%client, %id);
|
|
}
|
|
function serverCmdOnOpenMenu(%client)
|
|
{
|
|
ISGameMenu::updateHud(1, %client, 'ISGameMenu',0);
|
|
}
|
|
function serverCMDRequestPlayerList(%client)
|
|
{
|
|
commandToClient(%client, 'ISGameMenuUpdatePlayer');
|
|
for(%i = 0; %i < ClientGroup.getCount(); %i++)
|
|
{
|
|
%cl = ClientGroup.getObject(%i);
|
|
if (!%cl.isAIControlled())
|
|
{
|
|
commandToClient(%client, 'ISPlayerListAddRow', %cl, %cl.rpgname, GetLevel(fetchdata(%cl, "EXP")));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
function ISGameMenu::updateHud(%this, %client, %tag, %where)
|
|
{
|
|
%client.menuwhere = %where;
|
|
|
|
BuildMenu(%client, %where, "");
|
|
}
|
|
function buildMenu(%client, %where, %check)
|
|
{
|
|
game.BuildMenu(%client, %where, %check);
|
|
}
|
|
function RPGGAME::BuildMenu(%game, %client, %where, %check)
|
|
{
|
|
commandToClient(%client, 'ISGameMenuUpdateHud');
|
|
%client.gamecheck = "";
|
|
if(%client.choosingGroup == true)
|
|
{
|
|
for(%i = 0; $group[%i] !$= ""; %i++)
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', %i+1, %i + 1 @":" SPC $group[%i]);
|
|
}
|
|
|
|
}
|
|
else if(%client.choosingclass == true)
|
|
{
|
|
for(%i = 0; $class[%client.chosegroup, %i] !$= ""; %i++)
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', %i+1, %i + 1 @":" SPC $class[%client.chosegroup, %i]);
|
|
}
|
|
commandToClient(%client, 'ISMenuAddRow', %i+1, %i + 1 @":" SPC "Back");
|
|
}
|
|
else if(%check == %client.selclient && %client.selclient !$= "")
|
|
{
|
|
if(%where == 0)
|
|
{
|
|
%client.gamecheck = %check;
|
|
if(%client.selclient == %client)
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: View Info");
|
|
}
|
|
else
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: " @ (IsInTargetList(%client, %client.selclient) == 1 ? "Remove From Target List" : (%client.targeting != %cl ? "Abort target" : "Add to Target List")));
|
|
commandToClient(%client, 'ISMenuAddRow', 2, "2: " @ (IsInGroupList(%client, %client.selclient) ? "Remove From Group List" : "Add to Group List"));
|
|
commandToClient(%client, 'ISMenuAddRow', 3, "3: View Info");
|
|
commandToClient(%client, 'ISMenuAddRow', 4, "4: " @ (%client.muted[%client.selclient] ? "UnMute" : "Mute" ) );
|
|
if(fetchData(%client, "partyOwned") && (IsInWhichParty(%client.selclient) == %client))
|
|
commandToclient(%client, 'ISMenuAddRow', 5, "5: Kick from Party");
|
|
else if(!IsInWhichParty(%client.selclient) && fetchData(%client, "partyOwned"))
|
|
commandToclient(%client, 'ISMenuAddRow', 5, "5: Invite To Party");
|
|
}
|
|
}
|
|
%client.menuwhere = %where;
|
|
commandToClient(%client, 'ISGameMenuDone');
|
|
return;
|
|
}
|
|
else if(%where == 0)
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: Stats...");
|
|
commandToClient(%client, 'ISMenuAddRow', 2, "2: Skill Points...");
|
|
commandToClient(%client, 'ISMenuAddRow', 3, "3: Set LCK to (" @ (fetchData(%client, "LCKconsequence") $= "death" ? "miss" : "death") @ ")");
|
|
commandToClient(%client, 'ISMenuAddRow', 4, "4: Party Options...");
|
|
}
|
|
else if(%where == 4)
|
|
{
|
|
if(%client.inviteparty)
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: Join");
|
|
commandToClient(%client, 'ISMenuAddRow', 2, "2: Reject");
|
|
commandToClient(%client, 'ISMenuAddRow', 3, "3: Back");
|
|
}
|
|
else if(fetchData(%client, "partyOwned"))
|
|
{
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: Disband Party");
|
|
commandToClient(%client, 'ISMenuAddRow', 2, "2: Back");
|
|
}
|
|
else
|
|
{
|
|
if(!fetchData(%client, "partyOwned") && !(IsInWhichParty(%client) != false))
|
|
commandToClient(%client, 'ISMenuAddRow', 1, "1: Create");
|
|
if((IsInWhichParty(%client) != false) && !fetchData(%client, "partyOwned"))
|
|
commandToclient(%client, 'ISMenuAddRow', 1, "1: Leave");
|
|
commandToclient(%client, 'ISMenuAddRow', 2, "2: Back");
|
|
}
|
|
}
|
|
|
|
%client.menuwhere = %where;
|
|
commandToClient(%client, 'ISGameMenuDone');
|
|
%client.selclient = "";
|
|
}
|
|
function serverCmdISmenuOnSelect(%client, %id, %text)
|
|
{
|
|
game.onISMenuSelect(%client, %id, %text);
|
|
}
|
|
function RPGGAME::onISmenuSelect(%game, %client, %id, %text)
|
|
{
|
|
if(%client.ignoreclick)
|
|
return;
|
|
%client.ignoreclick = true;
|
|
schedule(100, %client, "unignoreclick", %client);
|
|
%where = %client.menuwhere;
|
|
if(%client.choosinggroup)
|
|
{
|
|
|
|
if($group[%id-1] !$= "")
|
|
{
|
|
%client.choosinggroup = false;
|
|
%client.choosingclass = true;
|
|
%client.chosegroup = %id-1;
|
|
storedata(%client, "GROUP", $group[%id-1]);
|
|
}
|
|
else
|
|
{
|
|
%client.choosinggroup = true;
|
|
%client.choosingclass = false;
|
|
%client.chosegroup = "";
|
|
storedata(%client, "GROUP", "");
|
|
}
|
|
}
|
|
else if(%client.choosingclass)
|
|
{
|
|
if(getword(%text, 1) $= "Back")
|
|
{
|
|
%client.choosinggroup = true;
|
|
%client.choosingclass = false;
|
|
%client.chosegroup = "";
|
|
}
|
|
else if ( $class[%client.chosegroup, %id-1] !$= "")
|
|
{
|
|
storedata(%client, "CLASS", $class[%client.chosegroup, %id-1]);
|
|
%client.choosingclass = false;
|
|
%client.chosegroup = "";
|
|
%game = %client.game;
|
|
%client.game = "";
|
|
SetSkillsToMulti(%client);
|
|
commandToClient(%client, 'closeISMenu');
|
|
%client.newplayer = true;
|
|
game.spawnplayer(%client, false);
|
|
}
|
|
|
|
|
|
}
|
|
else if(%client.gamecheck == %client.selclient && %client.selclient !$= "")
|
|
{
|
|
if(%where == 0)
|
|
{
|
|
if(%client.selclient.rpgname !$= "")
|
|
if(%client.selclient == %client)
|
|
{
|
|
switch(%id)
|
|
{
|
|
case 1:commandToClient(%client, 'closeISMenu');
|
|
displayGetInfo(%client, %client.selclient);
|
|
default: %client.selclient= "";
|
|
|
|
}
|
|
}
|
|
else
|
|
{
|
|
switch(%id)
|
|
{
|
|
case 1: if(IsInTargetList(%client, %client.selclient))
|
|
{
|
|
cancel(%client.autoremovetarget);
|
|
RemoveFromTargetList(%client, %client.selclient, false);
|
|
|
|
}
|
|
else if(%client.targeting == %client.selclient)
|
|
{
|
|
cancel(%client.scheduletarget);
|
|
%client.ScheduleTarget = "";
|
|
%client.targeting = "";
|
|
messageClient(%client, 'cancelTarget', "You stop considering to target " @ %client.selclient.rpgname);
|
|
}
|
|
else if(!%client.targeting)
|
|
{
|
|
%time = 15 + (fetchdata(%client, "LvL") - fetchdata(%client.selclient, "LVL"));
|
|
%client.ScheduleTarget = schedule(%time*1000, %client, "AddToTargetList", %client, %client.selclient);
|
|
%client.targeting = %client.selclient;
|
|
messageClient(%client, 'AddTarget', "You will add" SPC %client.selclient.rpgname SPC "to your target list in" SPC %time SPC "seconds.");
|
|
messageClient(%client.selclient, 'Targeted', "" SPC %client.rpgname SPC "will add you to his or her target list in" SPC %time SPC "seconds!");
|
|
%client.autoremovetarget = schedule(300 * 1000, %client, "RemoveFromTargetList", %client, %client.selclient, true);
|
|
}
|
|
|
|
case 2: if(IsInGroupList(%client, %client.selclient))
|
|
{
|
|
RemoveFromGroupList(%client, %client.selclient);
|
|
|
|
}
|
|
else
|
|
AddToGroupList(%client, %client.selclient);
|
|
%client.selclient= "";
|
|
case 3: commandToClient(%client, 'closeISMenu');
|
|
DisplayGetInfo(%client, %client.selclient);
|
|
//%time = 15;
|
|
//%line = "<COLOR:FF0000>Name:<COLOR:FFFFFF>" SPC %client.selclient.rpgname SPC "\n<COLOR:FF0000>Info:<COLOR:FFFFFF>" SPC fetchData(%client.selclient, "PlayerInfo");
|
|
//SendRPGBottomPrint(%client, %time, 2, %line);
|
|
case 4: if(%client.muted[%client.selclient])
|
|
%client.muted[%client.selclient] = false;
|
|
else
|
|
%client.muted[%client.selclient] = true;
|
|
%client.selclient= 0;
|
|
case 5:
|
|
echo(%client.selclient SPC %client);
|
|
if(fetchData(%client, "partyOwned") && (IsInWhichParty(%client.selclient) == %client))
|
|
{
|
|
//kick
|
|
RemoveFromParty(%client, %client.selclient, true);
|
|
%client.selclient.inparty = false;
|
|
}
|
|
else if(!IsInWhichParty(%client.selclient) && fetchData(%client, "partyOwned"))
|
|
{
|
|
//invite
|
|
%client.selclient.inviteparty = %client;
|
|
MessageClient(%client, 'InvitedParty', "You invited" SPC %client.selclient.rpgname SPC "to your party");
|
|
MessageClient(%client.selClient, 'InvitedParty', %client.rpgname SPC "has invited you to join" SPC %client.namebase @ "'s party");
|
|
}
|
|
%client.selclient= "";
|
|
|
|
}
|
|
}
|
|
%check = false;
|
|
}
|
|
}
|
|
else if(%where == 0)
|
|
{
|
|
switch(%id)
|
|
{
|
|
case 1: commandToClient(%client, 'closeISMenu');
|
|
//%client.BPopen = "";
|
|
%time = 30;
|
|
%rdsl = "<COLOR:FF0000>/";
|
|
%red = "<COLOR:FF0000>";
|
|
%blco = "<COLOR:000000>:";
|
|
%white = "<COLOR:FFFFFF>";
|
|
%brwn = "<COLOR:663300>";
|
|
%yel = "<COLOR:FFFF00>";
|
|
%blu = "<COLOR:000066>";
|
|
%gren = "<COLOR:6699FF>";
|
|
%blk = "<COLOR:000000>";
|
|
%line = "<COLOR:FF0000>HP:<COLOR:FFFFFF>" SPC Game.FetchData(%client, "HP") @ %rdsl @ %white @ Game.fetchData(%client, "MaxHP") @
|
|
"\n<COLOR:FF0000>Mana:<COLOR:FFFFFF>" SPC Game.FetchData(%client, "Mana") @ %rdsl @ %white @ Game.FetchData(%client, "MaxMana") @
|
|
"\n<COLOR:FF0000>EXP:<COLOR:FFFFFF>" SPC Game.FetchData(%client, "EXP") @
|
|
"\n<COLOR:FF0000>LVL:<COLOR:FFFFFF>" SPC Game.fetchData(%client, "LVL") @
|
|
"\n<COLOR:FF0000>Next Level:<COLOR:FFFFFF>" SPC GetExp(fetchData(%client, "LVL")+1, %client) - Game.fetchData(%client, "EXP") @
|
|
"\n<COLOR:FF0000>LCK:<COLOR:FFFFFF>" SPC Game.Fetchdata(%client, "LCK") @
|
|
"\n<COLOR:FF0000>Weight:<COLOR:FFFFFF>" SPC Game.fetchdata(%client, "weight") @ %rdsl @ %white @ Game.FetchData(%client, "MaxWeight") NL
|
|
"<COLOR:FF0000>Armor:<COLOR:FFFFFF>" SPC Game.FetchData(%client, "DEF") NL
|
|
"<COLOR:FF0000>MDEF:<COLOR:FFFFFF>" SPC Game.AddPoints(%client, 3) @ %blco @ %white @ AddPoints(%client, 19)
|
|
SPC %brwn @ Addpoints(%client, 22) @ %blco @ %brwn @ AddPoints(%client, 15)
|
|
SPC %red @ Addpoints(%client, 20) @ %blco @ %red @ AddPoints(%client, 13)
|
|
SPC %blu @ Addpoints(%client, 21) @ %blco @ %blu @ AddPoints(%client, 14)
|
|
SPC %yel @ Addpoints(%client, 24) @ %blco @ %yel @ AddPoints(%client, 17)
|
|
SPC %gren @ Addpoints(%client, 25) @ %blco @ %gren @ AddPoints(%client, 18)
|
|
SPC %blk @ Addpoints(%client, 23) @ %blco @ %blk @ AddPoints(%client, 16);
|
|
commandToClient(%client, 'RPGBottomPrint', %time, 9, getsubStr(%line, 0, 255), getsubstr(%line, 255, 255), getsubstr(%line, 255*2, 255), getsubstr(%line, 255*3, 255), getsubstr(%line, 255*4, 255));
|
|
//%client.BPopen = Schedule(60*1000, %client, "CloseBottomPrint", %client);
|
|
case 2: commandToClient(%client, 'closeISMenu');
|
|
commandToClient(%client, 'OpenStatGUI');
|
|
%client.menuwhere = 0;
|
|
return;
|
|
|
|
case 3: storedata(%client, "LCKconsequence", (fetchData(%client, "LCKconsequence") $= "death" ? "miss" : "death"));
|
|
case 4:
|
|
%where = 4;
|
|
|
|
default: echo("ERROR: " @ %client.rpgname SPC "(" SPC %client SPC ")" SPC "submitted an invalid menu command");
|
|
|
|
}
|
|
}
|
|
if(%where == 4)
|
|
{
|
|
switch(%id)
|
|
{
|
|
case 1:
|
|
if(%client.inviteparty)
|
|
{
|
|
//commandToClient(%client, 'ISMenuAddRow', 1, "1: Join");
|
|
//AddToPartyList(%client.inviteparty, %client, true);
|
|
AddToParty(%client.inviteparty, %client);
|
|
%client.inparty = %client.inviteparty;
|
|
%client.inviteparty = false;
|
|
}
|
|
else if(!fetchData(%client, "partyOwned") && !(IsInWhichParty(%client) != false))
|
|
{
|
|
//create
|
|
//%client.partyleader = true;
|
|
//%client.inparty = %client;
|
|
//addToPartyList(%client.inparty, %client, false);
|
|
CreateParty(%client);
|
|
}
|
|
else if(IsInWhichParty(%client) != false && !fetchData(%client, "partyOwned"))
|
|
{
|
|
//commandToclient(%client, 'ISMenuAddRow', 1, "1: Leave");
|
|
RemoveFromParty(%client.inparty, %client, true);
|
|
|
|
%client.inparty = false;
|
|
}
|
|
else if(fetchData(%client, "partyOwned"))
|
|
{
|
|
//commandToClient(%client, 'ISMenuAddRow', 2, "2: Disband Party");
|
|
DisbandParty(%client);
|
|
}
|
|
case 2:
|
|
if(%client.inviteparty)
|
|
{
|
|
%client.inviteparty = false;
|
|
|
|
}
|
|
else
|
|
%where = 0;
|
|
case 3: %where = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
BuildMenu(%client, %where, %check);
|
|
|
|
//ISGameMenu::updateHud(1, %client, 'ISGameMenu', %where);
|
|
}
|
|
function unignoreclick(%client)
|
|
{
|
|
%client.ignoreclick = false;
|
|
}
|
|
function SendRPGBottomPrint(%client, %time, %line, %text)
|
|
{
|
|
commandToClient(%client, 'RPGBottomPrint', %time, %line, getsubStr(%text, 0, 255), getsubstr(%text, 255, 255), getsubstr(%text, 255*2, 255), getsubstr(%text, 255*3, 255), getsubstr(%text, 255*4, 255));
|
|
}
|
|
function serverCmdClientCloseRPGbottomPrint(%client)
|
|
{
|
|
return;
|
|
}
|
|
function serverCmdClientCloseISMenu(%client)
|
|
{
|
|
if(%client.choosinggroup || %client.choosingclass) schedule(1000, 0, "commandToClient", %client, 'OpenISMenu');//force the client to reopen the window...
|
|
|
|
ISGameMenu::updateHud(1, %client, %tag,0,0);
|
|
}
|
|
function serverCmdISPlayerListOnSelect(%client, %id, %text)
|
|
{
|
|
%client.selclient = %id;
|
|
BuildMenu(%client, 0, %id);
|
|
return;//nothing for now
|
|
}
|
|
//----------------------------------------------------------------------------
|
|
// MessageHud message handlers
|
|
function serverCmdTeamMessageSent(%client, %text)
|
|
{
|
|
if(strlen(%text) >= $Host::MaxMessageLen)
|
|
%text = getSubStr(%text, 0, $Host::MaxMessageLen);
|
|
|
|
RPGchat(%client, 1, %text);
|
|
|
|
//chatMessageTeam(%client, %client.team, '\c3%1: %2', %client.name, %text);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
function serverCmdMessageSent(%client, %text)
|
|
{
|
|
if(strlen(%text) >= $Host::MaxMessageLen)
|
|
%text = getSubStr(%text, 0, $Host::MaxMessageLen);
|
|
|
|
RPGchat(%client, 0, %text);
|
|
|
|
//chatMessageAll(%client, '\c4%1: %2', %client.name, %text);
|
|
}
|
|
function serverCmdShowHud(%client, %tag)
|
|
{
|
|
|
|
%tagName = getWord(%tag, 1);
|
|
%tag = getWord(%tag, 0);
|
|
|
|
messageClient(%client, 'OpenHud', "", %tag);
|
|
switch$ (%tagname)
|
|
{
|
|
case "RPGinventoryScreen":
|
|
%client.numFavsCount = 0;
|
|
%client.shop = false;
|
|
if(!%client.alreadysentinventory)
|
|
RPGinventoryScreen::updateHud(1,%client,%tag);
|
|
case "vehicleHud":
|
|
vehicleHud::updateHud(1,%client,%tag);
|
|
case "scoreScreen":
|
|
updateScoreHudThread(%client, %tag);
|
|
case "ISGameMenu":
|
|
ISGameMenu::updateHud(1, %client, %tag,0,0);
|
|
case "RPGstatScreen":
|
|
RPGstatScreen::updateHud(1, %client, %tag);
|
|
|
|
|
|
}
|
|
//to see if it is the hud menu here that may be the problem
|
|
}
|
|
|
|
function cleanUpHuds()
|
|
{
|
|
if($Hud['RPGinventoryScreen'] !$= "")
|
|
{
|
|
for(%lineNum = 0; $Hud['RPGinventoryScreen'].data[%lineNum, 0] !$= ""; %lineNum++)
|
|
for(%i = 0; %i < $Hud['RPGinventoryScreen'].numCol; %i++)
|
|
{
|
|
$Hud['RPGinventoryScreen'].childGui.remove($Hud['RPGinventoryScreen'].data[%lineNum, %i]);
|
|
$Hud['RPGinventoryScreen'].data[%lineNum, %i] = "";
|
|
}
|
|
}
|
|
}
|
|
|
|
function serverCmdThrow(%client,%data)
|
|
{
|
|
|
|
}
|
|
|
|
function serverCmdThrowWeapon(%client,%data)
|
|
{
|
|
|
|
%itemId = fetchData(%client, "weaponInHand");
|
|
%obj = %client.getControlObject();
|
|
%obj.Throw(%itemId);
|
|
}
|
|
|
|
function serverCmdThrowPack(%client,%data)
|
|
{
|
|
|
|
}
|
|
|
|
function ShapeBase::use(%this, %itemId)
|
|
{
|
|
|
|
%data = Game.GetModelName(%this.client, %itemId);
|
|
|
|
if(%data !$= "")
|
|
{
|
|
|
|
%this.mountImage(%data.image, $WeaponSlot);
|
|
storeData(%this.client, "weaponInHand", %itemId);
|
|
|
|
|
|
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
DoConsider(%this.client);
|
|
//echo("hi");
|
|
//user is hitting the Pack key, onconsider here???
|
|
|
|
}
|
|
return false;
|
|
}
|
|
|
|
function ShapeBase::pickup(%this, %obj, %amount)
|
|
{
|
|
|
|
%data.onPickup(%obj, %this, %amount);
|
|
|
|
return true;
|
|
}
|
|
|
|
function ShapeBase::hasInventory(%this, %data)
|
|
{
|
|
// changed because it was preventing weapons cycling correctly (MES)
|
|
return (%this.inv[%data] > 0);
|
|
}
|
|
|
|
function ShapeBase::incInventory(%this, %data, %equipped)
|
|
{
|
|
if(%equipped $= "")
|
|
%equipped = false;
|
|
|
|
%tmp = AddToInventory(%this.client,1, %data, 3, 1, %equipped);
|
|
}
|
|
|
|
function ShapeBase::decInventory(%this, %data, %amount, %equipped)
|
|
{
|
|
%tmp = RemoveFromInventory(%this.client, %data, %amount, %equipped);
|
|
}
|
|
|
|
function ShapeBase::setInventory(%this, %data, %value)
|
|
{
|
|
|
|
return 0;
|
|
}
|
|
|
|
function ShapeBase::getInventory(%this, %data)
|
|
{
|
|
if(%data)
|
|
return %this.inv[%data.getName()];
|
|
}
|
|
|
|
function ShapeBase::hasAmmo( %this, %weapon )
|
|
{
|
|
return true;
|
|
|
|
switch$ ( %weapon )
|
|
{
|
|
case Blaster:
|
|
return( true );
|
|
case Plasma:
|
|
return( %this.getInventory( PlasmaAmmo ) > 0 );
|
|
case Chaingun:
|
|
return( %this.getInventory( ChaingunAmmo ) > 0 );
|
|
case Disc:
|
|
return( %this.getInventory( DiscAmmo ) > 0 );
|
|
case GrenadeLauncher:
|
|
return( %this.getInventory( GrenadeLauncherAmmo ) > 0 );
|
|
case SniperRifle:
|
|
return( %this.getInventory( EnergyPack ) );
|
|
case ELFGun:
|
|
return( true );
|
|
case Mortar:
|
|
return( %this.getInventory( MortarAmmo ) > 0 );
|
|
case MissileLauncher:
|
|
return( %this.getInventory( MissileLauncherAmmo ) > 0 );
|
|
case ShockLance:
|
|
return( true );
|
|
// This is our kinda hacky way to keep from cycling to the targeting laser:
|
|
case TargetingLaser:
|
|
return( false );
|
|
default:
|
|
warn( "\"" @ %weapon @ "\" is not recognized as a weapon!" );
|
|
return( false );
|
|
}
|
|
}
|
|
|
|
function ShapeBase::throw(%this, %itemId)
|
|
{
|
|
game.ShapeBaseThrow(%this, %itemid);
|
|
|
|
}
|
|
|
|
function ShapeBase::throwItem(%this, %itemId)
|
|
{
|
|
Game.ShapeBasethrowItem(%this, %itemId);
|
|
|
|
}
|
|
|
|
function ShapeBase::throwObject(%this,%obj)
|
|
{
|
|
|
|
//-------------------------------------------
|
|
// z0dd - ZOD, 5/27/02. Fixes flags hovering
|
|
// over friendly player when collision occurs
|
|
if(%obj.getDataBlock().getName() $= "Flag")
|
|
%obj.static = false;
|
|
//-------------------------------------------
|
|
|
|
//if the object is being thrown by a corpse, use a random vector
|
|
if (%this.getState() $= "Dead")
|
|
{
|
|
%vec = (-1.0 + getRandom() * 2.0) SPC (-1.0 + getRandom() * 2.0) SPC getRandom();
|
|
%vec = vectorScale(%vec, 10);
|
|
}
|
|
|
|
// else Initial vel based on the dir the player is looking
|
|
else
|
|
{
|
|
%eye = %this.getEyeVector();
|
|
%vec = vectorScale(%eye, 20);
|
|
}
|
|
|
|
// Add a vertical component to give the item a better arc
|
|
%dot = vectorDot("0 0 1",%eye);
|
|
if (%dot < 0)
|
|
%dot = -%dot;
|
|
%vec = vectorAdd(%vec,vectorScale("0 0 8",1 - %dot));
|
|
|
|
// Add player's velocity
|
|
%vec = vectorAdd(%vec,%this.getVelocity());
|
|
%pos = getBoxCenter(%this.getWorldBox());
|
|
|
|
//since flags have a huge mass (so when you shoot them, they don't bounce too far)
|
|
//we need to up the %vec so that you can still throw them...
|
|
if (%obj.getDataBlock().getName() $= "Flag")
|
|
%vec = vectorScale(%vec, 40);
|
|
|
|
//
|
|
%obj.setTransform(%pos);
|
|
%obj.applyImpulse(%pos,%vec);
|
|
%obj.setCollisionTimeout(%this);
|
|
%data = %obj.getDatablock();
|
|
%data.onThrow(%obj,%this);
|
|
|
|
//call the AI hook
|
|
AIThrowObject(%obj);
|
|
}
|
|
|
|
function ShapeBase::cycleWeapon(%this, %data)
|
|
{
|
|
Game.ShapeBasecycleWeapon(%this, %data);
|
|
}
|
|
|
|
function serverCmdTogglePack(%client,%data)
|
|
{
|
|
|
|
return;
|
|
|
|
%client.getControlObject().togglePack();
|
|
}
|
|
|
|
|
|
//------------------------------------------------------------------------------
|
|
function RPGInventoryScreen::updateHud(%this, %client, %tag)
|
|
{
|
|
|
|
commandToClient(%client, 'InventoryUpdateHud');
|
|
//Server-side
|
|
%inv = fetchData(%client, "inventory");
|
|
for(%i = 0; (%itemId = GetWord(%inv, %i)) !$= ""; %i++)
|
|
{
|
|
%fullitem = GetFullItemName(%itemId);
|
|
%type = $itemType[GetItem(%itemId)];
|
|
commandToClient(%client, 'InventoryAddRow', %itemId, %fullitem, %type, %itemId.shapeFile);
|
|
}
|
|
|
|
commandToClient(%client, 'InventoryDone');
|
|
commandToClient(%client, 'SetCoins', fetchdata(%client, "COINS"));
|
|
%client.alreadysentinventory = true;
|
|
}
|
|
function serverCmdRequestInvList(%client)
|
|
{
|
|
RPGInventoryScreen::updateHud('RPGInventoryScreen', %client);
|
|
}
|
|
|
|
|
|
function serverCmdInventoryListOnSelect(%client, %itemId)
|
|
{
|
|
game.inventoryListOnSelect(%client, %itemid);
|
|
|
|
}
|
|
|
|
|
|
//------------------------------------------------------------------------------
|
|
|
|
function serverCmdInventoryDrop(%client, %itemId)
|
|
{
|
|
game.InventoryDrop(%client, %itemid);
|
|
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
|
|
function serverCmdInventoryUse(%client, %itemId)
|
|
{
|
|
game.InventoryUse(%client, %itemid);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
function RPGGame::UsePotion(%Game, %client, %itemid)
|
|
{
|
|
%prevhp = fetchdata(%client, "HP");
|
|
%item = %game.GetItem(%client, %itemid);
|
|
%prefix = %game.GetPrefix(%client, %itemid);
|
|
%suffix = %game.GetSuffix(%client, %itemid);
|
|
%addHp = %game.AddItemSpecificPoints(%itemid, 4, %client);
|
|
|
|
if(%addHP)
|
|
{
|
|
%client.phealtick += 30;//(10 ticks a second)
|
|
%client.hamt += %addhp;
|
|
|
|
if(!IsEventPending(%client.healevent))
|
|
%client.healevent = %game.schedule(100, "PotionHeal", %client, %prevhp);
|
|
}
|
|
|
|
%addMana = %game.AddItemSpecificPoints(%itemid, 5, %client);
|
|
//modifyhere #1
|
|
//setHP(%client, fetchData(%client, "HP")+%addhp, true);
|
|
setMana(%client, fetchData(%client, "MANA")+%addMana, true);
|
|
%Game.RemoveFromInventory(%client, 1, %item, %prefix, %suffix);
|
|
//ClearInvInfo(%itemId);
|
|
%newhp = fetchdata(%client, "HP");
|
|
if(%prevhp < %newhp)
|
|
UseSkill(%client, $Skill::Healing, true, true, 10);
|
|
//RPGInventoryScreen::updateHud(1, %client, 'RPGInventoryScreen');
|
|
}
|
|
function RPGGame::PotionHeal(%game, %client, %prevhp)
|
|
{
|
|
if(%client.phealtick == 0) return;
|
|
%amt = mfloor(%client.hamt / %client.phealtick);
|
|
if(%amt > %client.hamt) %amt = %client.hamt;
|
|
|
|
setHP(%client, fetchdata(%client, "HP")+%amt);
|
|
%client.hamt -= %amt;
|
|
|
|
if(( %client.phealtick % 30 ) == 0)
|
|
{
|
|
%newhp = fetchdata(%client, "HP");
|
|
if(%prevhp < %newhp)
|
|
UseSkill(%client, $Skill::Healing, true, true, 10);
|
|
%prevhp = %newhp;
|
|
}
|
|
%client.phealtick -= 1;
|
|
if(%client.hamt == 0) %client.phealtick = 0;
|
|
if(%client.phealtick > 0)
|
|
{
|
|
%client.healevent = %game.schedule(100, "PotionHeal", %client, %prevhp);
|
|
}
|
|
|
|
}
|
|
function serverCmdSelectWeaponSlot( %client, %data )
|
|
{
|
|
if(fetchdata(%client, "QuickBind" @ %data) !$= "")
|
|
RPGchat(%client, 1, fetchdata(%client, "QuickBind" @ %data));
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
|
|
function RPGInventoryScreen::onWake(%this)
|
|
{
|
|
if ( $HudHandle['inventoryScreen'] !$= "" )
|
|
alxStop( $HudHandle['RPGInventoryScreen'] );
|
|
alxPlay(HudInventoryActivateSound, 0, 0, 0);
|
|
$HudHandle['inventoryScreen'] = alxPlay(HudInventoryHumSound, 0, 0, 0);
|
|
|
|
if ( isObject( hudMap ) )
|
|
{
|
|
hudMap.pop();
|
|
hudMap.delete();
|
|
}
|
|
new ActionMap( hudMap );
|
|
hudMap.blockBind( moveMap, toggleScoreScreen );
|
|
hudMap.blockBind( moveMap, toggleCommanderMap );
|
|
hudMap.bindCmd( keyboard, escape, "", "RPGInventoryScreen.onDone();" );
|
|
hudMap.push();
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
function RPGInventoryScreen::onSleep()
|
|
{
|
|
hudMap.pop();
|
|
hudMap.delete();
|
|
alxStop($HudHandle['inventoryScreen']);
|
|
alxPlay(HudInventoryDeactivateSound, 0, 0, 0);
|
|
$HudHandle['inventoryScreen'] = "";
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
|
|
|
|
function serverCmdStartNewVote(%client, %typeName, %arg1, %arg2, %arg3, %arg4, %playerVote)
|
|
{
|
|
return false;
|
|
}
|
|
|
|
function resetVotePrivs( %client )
|
|
{
|
|
return false;
|
|
}
|
|
|
|
function serverCmdSetPlayerVote(%client, %vote)
|
|
{
|
|
return false;
|
|
}
|
|
|
|
function calcVotes(%typeName, %arg1, %arg2, %arg3, %arg4)
|
|
{
|
|
return false;
|
|
}
|
|
|
|
// Tournament mode Stuff-----------------------------------
|
|
|
|
function setModeFFA( %mission, %missionType )
|
|
{
|
|
return false;
|
|
}
|
|
|
|
//------------------------------------------------------------------
|
|
|
|
function setModeTournament( %mission, %missionType )
|
|
{
|
|
return false;
|
|
}
|
|
function serverCmdClientTeamChange( %client )
|
|
{
|
|
return false; //DOH!
|
|
}
|
|
function serverCmdCannedChat( %client, %command, %fromAI )
|
|
{
|
|
%cmdCode = getWord( %command, 0 );
|
|
%cmdId = getSubStr( %cmdCode, 1, strlen( %command ) - 1 );
|
|
%cmdString = getWord( %command, 1 );
|
|
if ( %cmdString $= "" )
|
|
%cmdString = getTaggedString( %cmdCode );
|
|
|
|
if ( !isObject( $ChatTable[%cmdId] ) )
|
|
{
|
|
error( %cmdString @ " is not a recognized canned chat command." );
|
|
return;
|
|
}
|
|
|
|
%chatItem = $ChatTable[%cmdId];
|
|
|
|
//if there is text
|
|
if (%chatItem.text !$= "" || !%chatItem.play3D)
|
|
{
|
|
%message = %chatItem.text @ "~w" @ %chatItem.audioFile;
|
|
|
|
if ( %chatItem.teamOnly )
|
|
cannedChatMessageTeam( %client, %client.team, '\c3%1: %2', %client.name, %message, %chatItem.defaultKeys );
|
|
else
|
|
cannedChatMessageAll( %client, '\c4%1: %2', %client.name, %message, %chatItem.defaultKeys );
|
|
}
|
|
|
|
//if no text, see if the audio is to be played in 3D...
|
|
else if ( %chatItem.play3D && %client.player )
|
|
playTargetAudio(%client.target, addTaggedString(%chatItem.audioFile), AudioClosest3d, true);
|
|
|
|
if ( %chatItem.animation !$= "" )
|
|
serverCmdPlayAnim(%client, %chatItem.animation);
|
|
|
|
//removed - hopefully this will fix the vvh cheat
|
|
// Let the AI respond to the canned chat messages (from humans only)
|
|
//if (!%fromAI)
|
|
// CreateVoiceServerTask(%client, %cmdCode);
|
|
}
|
|
|
|
function ShapeBase::Play3D(%obj, %sound)
|
|
{
|
|
serverPlay3D(%sound, %obj.getTransform());
|
|
}
|
|
function serverCmdResetControlObject(%cleint)
|
|
{
|
|
return false;
|
|
}
|
|
function RPGGame::getServerStatusString(%game)
|
|
{
|
|
%status = %game.numTeams;
|
|
for ( %team = 1; %team - 1 < %game.numTeams; %team++ )
|
|
{
|
|
%score = isObject( $teamScore[%team] ) ? $teamScore[%team] : 0;
|
|
%teamStr = getTaggedString( %game.getTeamName(%team) ) TAB %score;
|
|
%status = %status NL %teamStr;
|
|
}
|
|
|
|
%status = %status NL ClientGroup.getCount();
|
|
for ( %i = 0; %i < ClientGroup.getCount(); %i++ )
|
|
{
|
|
%cl = ClientGroup.getObject( %i );
|
|
//%score = %cl.score $= "" ? 0 : %cl.score;
|
|
if(%cl.isaicontrolled())
|
|
continue;
|
|
|
|
%playerStr = getTaggedString( %cl.name ) TAB getTaggedString( %game.getTeamName(%cl.team) ) TAB fetchdata(%cl, "LVL");
|
|
%status = %status NL %playerStr;
|
|
}
|
|
return( %status );
|
|
}
|
|
|