mirror of
https://github.com/Jusctsch5/ironsphererpg.git
synced 2026-01-19 19:44:45 +00:00
a5143b67f7
Taking everything obtained from http://ironsphererpg2.webs.com/ and dumping it in a git repo
412 lines
11 KiB
C#
412 lines
11 KiB
C#
//When adding a new accessory, follow these steps:
|
|
//-(if it has a new accessory type, fill in the stuff here)
|
|
//-add the actual itemdata here
|
|
|
|
//current item method involves having two ItemData's for each item, where one differs from the
|
|
//other by category. One is Accessory, the other is Equipped.
|
|
|
|
//=========================
|
|
// $SpecialVar list:
|
|
//=========================
|
|
//1:
|
|
//2: Weapon range
|
|
//3: MDEF
|
|
//4: HP
|
|
//5: Mana
|
|
//6: ATK
|
|
//7: DEF
|
|
//8: Internal armor switching variable
|
|
//9: Weapon delay
|
|
//10: HP regen
|
|
//11: Mana regen
|
|
//12: speed modification
|
|
//100 + $Skillxxx: Skill Bonus
|
|
|
|
$SpecialVarDesc[1] = "";
|
|
$SpecialVarDesc[2] = "";
|
|
$SpecialVarDesc[3] = "MDEF (Magical)";
|
|
$SpecialVarDesc[4] = "HP";
|
|
$SpecialVarDesc[5] = "Mana";
|
|
$SpecialVarDesc[6] = "ATK";
|
|
$SpecialVarDesc[7] = "DEF";
|
|
$SpecialVarDesc[8] = "[Internal]";
|
|
$SpecialVarDesc[9] = "Weapon Delay"; //bonus by percentage
|
|
$SpecialVarDesc[10] = "HP Regen";
|
|
$SpecialVarDesc[11] = "Mana Regen";
|
|
$SpecialVarDesc[12] = "Speed";//player speed modification + is up - is down.
|
|
$SpecialVarDesc[13] = "Fire Element Resistance";//note: resistance is used in temp bonuses only!
|
|
$SpecialVarDesc[14] = "Water Element Resistance";
|
|
$SpecialVarDesc[15] = "Earth Element Resistance";
|
|
$SpecialVarDesc[16] = "Gravity Element Resistance";
|
|
$SpecialVarDesc[17] = "Energy Element Resistance";
|
|
$SpecialVarDesc[18] = "Wind Element Resistance";
|
|
$SpecialVarDesc[19] = "Magic Resistance";//resistance is temp, and also goes down as you get hit.
|
|
$SpecialVarDesc[20] = "Fire Element Defense";//use defense for items and such, reduces damage. var is 0r0 etc.
|
|
$SpecialVarDesc[21] = "Water Element Defense";
|
|
$SpecialVarDesc[22] = "Earth Element Defense";
|
|
$SpecialVarDesc[23] = "Gravity Element Defense";
|
|
$SpecialVarDesc[24] = "Energy Element Defense";
|
|
$SpecialVarDesc[25] = "Wind Element Defense";
|
|
$SpecialVarDesc[26] = "Damage Resistance";//protection from damage used in temp skill only
|
|
|
|
|
|
for(%i = 1; $SkillDesc[%i] !$= ""; %i++)
|
|
$SpecialVarDesc[100 + %i] = $SkillDesc[%i];
|
|
|
|
$RingAccessoryType = 1;
|
|
$BodyAccessoryType = 2;
|
|
$BootsAccessoryType = 3;
|
|
$BackAccessoryType = 4;
|
|
$ShieldAccessoryType = 5;
|
|
$TalismanAccessoryType = 6;
|
|
$SwordAccessoryType = 7;
|
|
$AxeAccessoryType = 8;
|
|
$PolearmAccessoryType = 9;
|
|
$BludgeonAccessoryType = 10;
|
|
$RangedAccessoryType = 11;
|
|
$ProjectileAccessoryType = 12;
|
|
$BeltAccessoryType = 13;
|
|
|
|
$LocationDesc[$RingAccessoryType] = "Ring";
|
|
$LocationDesc[$BodyAccessoryType] = "Body";
|
|
$LocationDesc[$BootsAccessoryType] = "Feet";
|
|
$LocationDesc[$BackAccessoryType] = "Back";
|
|
$LocationDesc[$ShieldAccessoryType] = "LHand";
|
|
$LocationDesc[$TalismanAccessoryType] = "Talisman";
|
|
$LocationDesc[$SwordAccessoryType] = "Hand";
|
|
$LocationDesc[$AxeAccessoryType] = "Hand";
|
|
$LocationDesc[$PolearmAccessoryType] = "Hand";
|
|
$LocationDesc[$BludgeonAccessoryType] = "Hand";
|
|
$LocationDesc[$RangedAccessoryType] = "Hand";
|
|
$LocationDesc[$ProjectileAccessoryType] = "Projectile";
|
|
$LocationDesc[$BeltAccessoryType] = "Item";
|
|
|
|
$maxAccessory[$RingAccessoryType] = 2;
|
|
$maxAccessory[$BodyAccessoryType] = 1;
|
|
$maxAccessory[$BootsAccessoryType] = 1;
|
|
$maxAccessory[$BackAccessoryType] = 1;
|
|
$maxAccessory[$ShieldAccessoryType] = 1;
|
|
$maxAccessory[$TalismanAccessoryType] = 1;
|
|
|
|
//these are used for $AccessoryVar
|
|
$AccessoryType = 1;
|
|
$SpecialVar = 2;
|
|
$Weight = 3;
|
|
$ShopIndex = 4;
|
|
$MiscInfo = 5;
|
|
|
|
//=====================
|
|
// ACCESSORY FUNCTIONS
|
|
//=====================
|
|
|
|
function RPGGame::GetLocation(%game, %accessoryType)
|
|
{
|
|
return $LocationDesc[%accessoryType];
|
|
}
|
|
//function GetAccessoryVar(%item, %type)
|
|
//{
|
|
// %nitem = getCroppedItem(%item);
|
|
//
|
|
// return $AccessoryVar[%nitem, %type];
|
|
//}
|
|
//
|
|
function RPGGame::GetItemList(%game, %client, %type, %filter)
|
|
{
|
|
if(IsDead(%client) || !fetchData(%client, "HasLoadedAndSpawned") || %client.IsInvalid)
|
|
return "";
|
|
|
|
if(%type $= "")
|
|
%type = -1;
|
|
if(%filter $= "")
|
|
%filter = -1;
|
|
|
|
%wlist = "";
|
|
for( %i = 1; $locationDesc[%i] !$= ""; %i++)
|
|
{
|
|
if(!%done[$locationDesc[%i]] )
|
|
{
|
|
%done[$locationDesc[%i]] = true;
|
|
if( fetchdata(%client, "WeaponIn" @ %game.getLocation(%i)) )
|
|
{
|
|
%wlist = %wlist @ fetchdata(%client, "WeaponIn" @ %game.getLocation(%i)) @ " ";
|
|
}
|
|
if( fetchdata(%client, "ArmorIn" @ %game.getLocation(%i)) )
|
|
{
|
|
%wlist = %wlist @ fetchdata(%client, "ArmorIn" @ %game.getLocation(%i)) @ " ";
|
|
}
|
|
}
|
|
}
|
|
|
|
for(%i = 0; (%itemId = GetWord(%wlist, %i)) !$= ""; %i++)
|
|
{
|
|
%item = %game.GetItem(%client, %itemId);
|
|
|
|
%flag = "";
|
|
if(%type $= 1)
|
|
{
|
|
if(!%client.data.equipped[%itemid])
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 2)
|
|
{
|
|
if(!%client.data.equipped[%itemid])
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 3)
|
|
{
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 4)
|
|
{
|
|
if(%client.data.equipped[%itemid] || fetchData(%client, "weaponInHand") $= %itemId)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 5)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $SwordAccessoryType)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 6)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $AxeAccessoryType)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 7)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $PolearmAccessoryType)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 8)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $BludgeonAccessoryType)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 9)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $RangedAccessoryType)
|
|
%flag = true;
|
|
}
|
|
else if(%type $= 10)
|
|
{
|
|
if($AccessoryVar[%item, $AccessoryType] $= $ProjectileAccessoryType)
|
|
%flag = true;
|
|
}
|
|
|
|
else if(%type $= -1)
|
|
%flag = true;
|
|
|
|
if(%flag)
|
|
{
|
|
|
|
|
|
if(%filter !$= -1)
|
|
{
|
|
%flag2 = "";
|
|
|
|
|
|
%stats = %game.GetTotalItemBonus(%client, %itemId, false);
|
|
|
|
for(%j = 0; (%w = GetWord(%stats, %j)) !$= ""; %j+=2)
|
|
{
|
|
|
|
|
|
if(%filter $= %w)
|
|
{
|
|
%flag2 = true;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
if(%filter $= -1 || %flag2)
|
|
%list = %list @ %itemId @ " ";
|
|
}
|
|
}
|
|
return %list;
|
|
}
|
|
function GetItemList(%client, %type, %filter)
|
|
{
|
|
return Game.GetItemList(%client, %type, %filter);
|
|
}
|
|
function RPGGame::AddPoints(%game, %client, %char)
|
|
{
|
|
if($debugMode $= TRUE) echo("RPGGame::AddPoints(" @ %game @ "," SPC %client @ "," SPC %filter @ ");");
|
|
%add = AddBonusStatePoints(%client, %char);
|
|
%list = GetItemList(%client, 4, %char);
|
|
|
|
for(%i = 0; (%w = GetWord(%list, %i)) !$= ""; %i++)
|
|
{
|
|
%aisp = %game.AddItemSpecificPoints(%w, %char, %client);
|
|
|
|
if(%char $= 3 || %char $= 7 || %char $= 6 || %char $= 20 || %char $= 21 || %char $= 22 || %char $= 23 || %char $= 24 || %char $= 25) //MDEF, DEF, ATK
|
|
%add = CombineRpgRolls(%add, %aisp, 0, "inf");
|
|
else
|
|
%add += %aisp;
|
|
}
|
|
|
|
return %add;
|
|
|
|
}
|
|
function AddPoints(%client, %char)
|
|
{
|
|
return Game.AddPoints(%client, %char);
|
|
|
|
}
|
|
function RPGGame::AddItemSpecificPoints(%game, %itemid, %char, %client)
|
|
{
|
|
if(%char $= 3 || %char $= 7 || %char $= 6 || %char $= 20 || %char $= 21 || %char $= 22 || %char $= 23 || %char $= 24 || %char $= 25)
|
|
%p = "0r0";
|
|
else
|
|
%p = 0;
|
|
|
|
%tmp = %game.GetTotalItemBonus(%client, %itemId);
|
|
|
|
for(%j = 0; (%e = GetWord(%tmp, %j)) !$= ""; %j+=2)
|
|
{
|
|
if(%e $= %char)
|
|
{
|
|
%v = GetWord(%tmp, %j+1);
|
|
if(%char $= 3 || %char $= 7 || %char $= 6 || %char $= 20 || %char $= 21 || %char $= 22 || %char $= 23 || %char $= 24 || %char $= 25)
|
|
%p = CombineRpgRolls(%p, %v, 0, "inf");
|
|
else
|
|
%p += %v;
|
|
}
|
|
}
|
|
|
|
return %p;
|
|
}
|
|
function AddItemSpecificPoints(%itemId, %char)
|
|
{
|
|
return Game.AddItemSpecificPoints(%game, %itemid, %char);
|
|
}
|
|
function RPGGame::AddItemPoints(%game, %itemid)
|
|
{
|
|
return Game.AddItemPoints(%game, %itemid);
|
|
}
|
|
function AddItemPoints(%itemId)
|
|
{
|
|
%tmp = GetTotalItemBonus(%itemId, false);
|
|
|
|
%p = 0;
|
|
for(%j = 0; GetWord(%tmp, %j) !$= ""; %j+=2)
|
|
{
|
|
%e = GetWord(%tmp, %j);
|
|
%v = GetWord(%tmp, %j+1);
|
|
if(%char $= 3 || %char $= 7 || %char $= 6) //MDEF, DEF, ATK
|
|
%p = CombineRpgRolls(%p, %v, 0, "inf");
|
|
else
|
|
%p += %v;
|
|
}
|
|
|
|
return %p;
|
|
}
|
|
function RPGGame::GetTotalItemBonus(%game, %client, %itemid, %noRepetitions)
|
|
{
|
|
//return;
|
|
%a = %game.GetSpecialVarFromId(%client, %itemId);
|
|
%b = %game.GetPrefixBonus(%client.data.idname[%itemid], %game.getPrefix(%client, %itemid));
|
|
|
|
if(%b <= 0) %b = 1;
|
|
|
|
//scan list
|
|
%cnt = 0;
|
|
%final = "";
|
|
for(%j = 0; GetWord(%a, %j) !$= ""; %j+=2)
|
|
{
|
|
if(%itemid == $debugitem)
|
|
echo("%j = " @ %j );
|
|
%e = GetWord(%a, %j);
|
|
%v = GetWord(%a, %j+1);
|
|
if(%itemid == $debugitem)
|
|
echo("%e = " @ %e SPC "%v = " @ %v);
|
|
if(strreplace(%v, "r", " ") $= %v && strreplace(%v, "R", " ") $= %v)
|
|
{
|
|
if(%itemid == $debugitem)
|
|
echo("Inside, single");
|
|
//normal
|
|
%v = mfloor(%v*%b);
|
|
if(%v < 1)
|
|
%v = 1;//cant get any worse
|
|
if(%itemid == $debugitem)
|
|
echo("%v = " @ %v );
|
|
}
|
|
else
|
|
{
|
|
if(%itemid == $debugitem)
|
|
echo("Inside, random");
|
|
%tmp = strreplace(%v, "r", " ");
|
|
if(%tmp $= %v)
|
|
%tmp = strreplace(%v, "R", " ");
|
|
if(%itemid == $debugitem)
|
|
echo("%tmp = " @ %tmp);
|
|
%g = mfloor(getword(%tmp, 0) * %b / 2);
|
|
%f = mfloor(getword(%tmp, 1) * %b);
|
|
if(%g < 0) %g = 0;
|
|
if(%f < 1) %f = 1;
|
|
if(%itemid == $debugitem)
|
|
echo("%g = " @ %g SPC "%f = " @ %f);
|
|
%v = %g @ "r" @ %f;
|
|
}
|
|
%final = %final @ %e SPC %v @ " ";
|
|
if(%itemid == $debugitem)
|
|
echo("%final = " @ %final );
|
|
}
|
|
return rtrim(%final);
|
|
}
|
|
function GetTotalItemBonus(%itemId, %noRepetitions)
|
|
{
|
|
return Game.GetTotalItemBonus(%itemid, %noRepetitions);
|
|
}
|
|
function RPGGame::WhatSpecialVars(%game, %thing)
|
|
{
|
|
%tmp = GetAccessoryVar(%thing, $SpecialVar);
|
|
|
|
%t = "";
|
|
for(%i = 0; GetWord(%tmp, %i) !$= ""; %i+=2)
|
|
{
|
|
%s = GetWord(%tmp, %i);
|
|
%n = GetWord(%tmp, %i+1);
|
|
|
|
%t = %t @ $SpecialVarDesc[%s] @ ": " @ %n @ ", ";
|
|
}
|
|
if(%t $= "")
|
|
%t = "None";
|
|
else
|
|
%t = getsubstr(%t, 0, strlen(%t)-2);
|
|
|
|
return %t;
|
|
}
|
|
function WhatSpecialVars(%thing)
|
|
{
|
|
return Game.WhatSpecialVars(%thing);
|
|
}
|
|
|
|
function NullItemList(%client, %type, %msgcolor, %msg)
|
|
{
|
|
return;
|
|
for(%z = 1; $ItemList[%type, %z] !$= ""; %z++)
|
|
{
|
|
%item = $ItemList[%type, %z];
|
|
if(Player::getItemCount(%client, %item))
|
|
{
|
|
Player::setItemCount(%client, %item, 0);
|
|
|
|
%newmsg = nsprintf(%msg, %item.description);
|
|
messageClient(%client, 'NullItemList', %msgcolor @ %newmsg);
|
|
}
|
|
}
|
|
}
|
|
|
|
function GetCurrentlyWearingArmor(%client)
|
|
{
|
|
return;
|
|
//the $ArmorList is present only for this function so far, in order to speed things up and not have to cycle thru
|
|
//each and every item in the game
|
|
for(%i = 1; $ArmorList[%i] !$= ""; %i++)
|
|
{
|
|
if(Player::getItemCount(%client, $ArmorList[%i] @ "0"))
|
|
return $ArmorList[%i];
|
|
}
|
|
return "";
|
|
}
|
|
|