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
1822 lines
46 KiB
C#
1822 lines
46 KiB
C#
function String::replaceAll(%string, %search, %replace)
|
||
{
|
||
if(%search $= %replace)
|
||
return %string;
|
||
|
||
for(%i = 0; %i $= 0; %i = 0)
|
||
{
|
||
%stringbackup = %string;
|
||
%string = strreplace(%string, %search, %replace);
|
||
if(%stringbackup $= %string)
|
||
break;
|
||
}
|
||
return %string;
|
||
}
|
||
function String::ofindSubStr(%s, %f, %o)
|
||
{
|
||
return strstr(getsubstr(%s, %o, 99999), %f);
|
||
}
|
||
|
||
function SaveWorld()
|
||
{
|
||
for(%i = 0; %i < ClientGroup.GetCount(); %i++)
|
||
{
|
||
SaveCharacter(ClientGroup.GetObject(%i));
|
||
}
|
||
}
|
||
function closeBottomPrint(%client)
|
||
{
|
||
clearBottomPrint(%client);
|
||
%client.BPopen = "";
|
||
|
||
}
|
||
function RPGFixString(%name)
|
||
{
|
||
for(%i = 0; %i < StrLen(%name); %i++)
|
||
{
|
||
%tmp = GetSubStr(%name, %i, 1);
|
||
%notdone = false;
|
||
switch$(%tmp)
|
||
{
|
||
case "{": %tmp = "c1";
|
||
case "}": %tmp = "c2";
|
||
case "c": %tmp = "cc";
|
||
case "(": %tmp = "c3";
|
||
case ")": %tmp = "c4";
|
||
case ":": %tmp = "c5";
|
||
case "-": %tmp = "c6";
|
||
case "+": %tmp = "c7";
|
||
case "=": %tmp = "c8";
|
||
case "*": %tmp = "c9";
|
||
case "&": %tmp = "ca";
|
||
case "^": %tmp = "cb";
|
||
case "$": %tmp = "cd";
|
||
case "#": %tmp = "ce";
|
||
case "@": %tmp = "cf";
|
||
case "!": %tmp = "cg";
|
||
case "`": %tmp = "ch";
|
||
case "~": %tmp = "ci";
|
||
case "/": %tmp = "cj";
|
||
case "\\": %tmp = "ck";
|
||
case "<": %tmp = "cl";
|
||
case ">": %tmp = "cm";
|
||
case "?": %tmp = "cn";
|
||
case ",": %tmp = "co";
|
||
case ".": %tmp = "cp";
|
||
case "'": %tmp = "cq";
|
||
case "\"": %tmp = "cr";
|
||
case ";": %tmp = "cs";
|
||
case " ": %tmp = "c_";
|
||
case "[": %tmp = "ct";
|
||
case "]": %tmp = "cu";
|
||
case "|": %tmp = "cv";
|
||
|
||
//if it is not alphanumeric then we use the qdt switch
|
||
case "q": %tmp = "q1";
|
||
case "¡": %tmp = "q2";
|
||
case "¢": %tmp = "q3";
|
||
case "£": %tmp = "q4";
|
||
case "¤": %tmp = "q5";
|
||
case "¥": %tmp = "q6";
|
||
case "¦": %tmp = "q7";
|
||
case "§": %tmp = "q8";
|
||
case "¨": %tmp = "q9";
|
||
case "©": %tmp = "qa";
|
||
case "ª": %tmp = "qb";
|
||
case "«": %tmp = "qc";
|
||
case "¬": %tmp = "qd";
|
||
case "": %tmp = "qe";
|
||
case "®": %tmp = "qf";
|
||
case "¯": %tmp = "qg";
|
||
case "°": %tmp = "qh";
|
||
case "±": %tmp = "qi";
|
||
case "²": %tmp = "qj";
|
||
case "³": %tmp = "qk";
|
||
case "´": %tmp = "ql";
|
||
case "µ": %tmp = "qm";
|
||
case "¶": %tmp = "qn";
|
||
case "·": %tmp = "qo";
|
||
case "¸": %tmp = "qp";
|
||
case "¹": %tmp = "qq";
|
||
case "º": %tmp = "qr";
|
||
case "»": %tmp = "qs";
|
||
case "¼": %tmp = "qt";
|
||
case "½": %tmp = "qu";
|
||
case "¾": %tmp = "qv";
|
||
case "¿": %tmp = "qw";
|
||
case "À": %tmp = "qx";
|
||
case "Á": %tmp = "qy";
|
||
case "Â": %tmp = "qz";
|
||
case "Ã": %tmp = "q0";
|
||
case "Ä": %tmp = "q_";
|
||
default:
|
||
%notdone = true;
|
||
|
||
}
|
||
if(%notdone)
|
||
{
|
||
%notdone = false;
|
||
switch$(%tmp)
|
||
{
|
||
|
||
case "d": %tmp = "d0";
|
||
case "Å": %tmp = "d1";
|
||
case "Æ": %tmp = "d2";
|
||
case "Ç": %tmp = "d3";
|
||
case "È": %tmp = "d4";
|
||
case "É": %tmp = "d5";
|
||
case "Ê": %tmp = "d6";
|
||
case "Ë": %tmp = "d7";
|
||
case "Ì": %tmp = "d8";
|
||
case "Í": %tmp = "d9";
|
||
case "Î": %tmp = "da";
|
||
case "Ï": %tmp = "db";
|
||
case "Ð": %tmp = "dc";
|
||
case "Ñ": %tmp = "dd";
|
||
case "Ò": %tmp = "de";
|
||
case "Ó": %tmp = "df";
|
||
case "Ô": %tmp = "dg";
|
||
case "Õ": %tmp = "dh";
|
||
case "Ö": %tmp = "di";
|
||
case "×": %tmp = "dj";
|
||
case "Ø": %tmp = "dk";
|
||
case "Ù": %tmp = "dl";
|
||
case "Ú": %tmp = "dm";
|
||
case "Û": %tmp = "dn";
|
||
case "Ü": %tmp = "do";
|
||
case "Ý": %tmp = "dp";
|
||
case "Þ": %tmp = "dq";
|
||
case "à": %tmp = "dr";
|
||
case "á": %tmp = "ds";
|
||
case "â": %tmp = "dt";
|
||
case "ã": %tmp = "du";
|
||
case "ä": %tmp = "dv";
|
||
case "å": %tmp = "dw";
|
||
case "æ": %tmp = "dx";
|
||
case "ç": %tmp = "dy";
|
||
case "è": %tmp = "dz";
|
||
case "é": %tmp = "d_";
|
||
|
||
case "t": %tmp = "t0";
|
||
case "ê": %tmp = "t1";
|
||
case "ë": %tmp = "t2";
|
||
case "ì": %tmp = "t3";
|
||
case "í": %tmp = "t4";
|
||
case "î": %tmp = "t5";
|
||
case "ï": %tmp = "t6";
|
||
case "ð": %tmp = "t7";
|
||
case "ñ": %tmp = "t8";
|
||
case "ò": %tmp = "t9";
|
||
case "ó": %tmp = "ta";
|
||
case "ô": %tmp = "tb";
|
||
case "õ": %tmp = "tc";
|
||
case "ö": %tmp = "td";
|
||
case "÷": %tmp = "te";
|
||
case "ø": %tmp = "tf";
|
||
case "ù": %tmp = "tg";
|
||
case "ú": %tmp = "th";
|
||
case "û": %tmp = "ti";
|
||
case "ü": %tmp = "tj";
|
||
case "ý": %tmp = "tk";
|
||
case "þ": %tmp = "tl";
|
||
default: %notdone = true;
|
||
}
|
||
}
|
||
%newstr = %newstr @ %tmp;
|
||
|
||
|
||
}
|
||
return %newstr;//wow but here is our fixed string!
|
||
|
||
}
|
||
function syntaxstring(%str)
|
||
{
|
||
//function fixes syntax errors relating to strings when outputted to savecharacter files.
|
||
for(%i = 0; %i < StrLen(%str); %i++)
|
||
{
|
||
%tmp = GetSubStr(%str, %i, 1);
|
||
switch$(%tmp)
|
||
{
|
||
case "\"": %tmp = "\\\"";
|
||
case "\'": %tmp = "\\\'";
|
||
}
|
||
%newstr = %newstr @ %tmp;
|
||
}
|
||
return %newstr;
|
||
}
|
||
function filefriendly(%str)
|
||
{
|
||
for(%i = 0; %i < StrLen(%str); %i++)
|
||
{
|
||
%tmp = GetSubStr(%str, %i, 1);
|
||
switch$(%tmp)
|
||
{
|
||
case "\"": %tmp = "_dq_";
|
||
case "\'": %tmp = "_sq_";
|
||
case "/": %tmp = "_fs_";
|
||
case "\\": %tmp = "_bs_";
|
||
|
||
case "|": if(isWriteableFilename("characters/test/" @ %tmp @ ".cs"))
|
||
%tmp = "_vs_";//some servers this character isnt a problem so we will only fix it on servers that have a problem with it.
|
||
}
|
||
%newstr = %newstr @ %tmp;
|
||
}
|
||
return %newstr;
|
||
}
|
||
function LoadCharacter(%client)
|
||
{
|
||
Game.LoadCharacter(%client);
|
||
}
|
||
function RPGGame::LoadCharacter(%game, %client)
|
||
{
|
||
|
||
//prepare to load the character file
|
||
//lets see, how do we load a saved file...
|
||
if($rules $= "dm")
|
||
return true;//dm doesnt need a char load...
|
||
if(!%client.guid)
|
||
%client.guid = 0;
|
||
//%filename = "characters/rpg2/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs";
|
||
%filename = "characters/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs";
|
||
%oldfilename = "characters/rpg2/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs";
|
||
//%oldfilename = "characters/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs";//new filename -cleaner and hopefully better for some invalid char names. also should accomidate character name changes.
|
||
// %roldfilename = "characters/" @ %client.realname @ "/" @ %client.namebase @ ".cs";// old filename
|
||
if(!isWriteableFileName(%filename))
|
||
return false; //bah someone set the file to readonly, avoid the UE
|
||
//dont allow the player to join because we cant save it....
|
||
echo("Unique Client ID:" SPC %client.guid);
|
||
|
||
//don't need right now... uncomment this block if you want to use roldfile stuff
|
||
// if(isfile(%roldfilename) || isfile(%roldfilename @ ".dso"))
|
||
// {
|
||
// %deleteroldfiles=true;
|
||
// %oldfilename = %roldfilename;
|
||
// }
|
||
|
||
if(isfile(%oldfilename) || (isfile(%oldfilename @ ".dso")))
|
||
{
|
||
%client.weight = 0;
|
||
//load the character
|
||
exec(%oldfilename);
|
||
%file = new FileObject();
|
||
%newname = RPGFixString(%client.namebase);
|
||
%fname = "temp/" @ %client.namebase @ ".cs";//our eval workaround
|
||
%file.openforwrite(%fname);
|
||
%file.writeline("loadcharacter::d" @ %newname @ "(" @ %client @ ");");
|
||
%file.writeline("echo(\"Character " @ %client.namebase @ " loaded.\");");
|
||
%file.close();
|
||
compile(%fname);
|
||
%client.data = new ScriptObject(CDATA @ %client.guid);
|
||
exec(%fname);
|
||
%file.delete();//delete the file object...
|
||
deletefile(%fname);//bye bye temp file, save memory...
|
||
deletefile(%fname @ ".dso");
|
||
%d = FetchData(%client, "ZoneMusic");
|
||
if (%d $= "") %d = "Wilderness";
|
||
CommandToclient(%client, 'RPGPlayMusic', %d);
|
||
transformolddata(%client);
|
||
%deleteoldfiles = true;
|
||
|
||
}
|
||
else
|
||
if(isfile(%filename))
|
||
{
|
||
exec(%filename);
|
||
%client.data = CDATA @ %client.guid;
|
||
%client.choosingteam = false;
|
||
for(%i = 0; (%str = %client.data.invl[%i]) !$= ""; %i++)
|
||
{
|
||
%client.data.itemlist = %client.data.itemlist @ %client.data.invl[%i];
|
||
//echo(%i SPC %client.data.invl[%i]);
|
||
%client.data.invl[%i] = "";
|
||
|
||
}
|
||
for(%i = 0; (%str = %client.data.bankl[%i]) !$= ""; %i++)
|
||
{
|
||
%client.data.banklist = %client.data.banklist @ %client.data.bankl[%i];
|
||
//echo(%i SPC %client.data.invl[%i]);
|
||
%client.data.bankl[%i] = "";
|
||
|
||
}
|
||
for(%i = 0; %i < QuestGroup.getCount(); %i++)
|
||
{
|
||
%obj = QuestGroup.getObject(%i);
|
||
%obj.Load(%client);
|
||
|
||
}
|
||
%game.ReCreateItemList(%client);
|
||
%weaponid = fetchdata(%client, "WeaponInHand");
|
||
%game.inventoryuse(%client, %weaponid);
|
||
%game.inventoryuse(%client, %weaponid);
|
||
}
|
||
else
|
||
{
|
||
|
||
//create a new character! welcome buddy!
|
||
%client.data = new ScriptObject(CDATA @ %client.guid);
|
||
GiveDefaults(%client);
|
||
%client.clan = "";
|
||
}
|
||
|
||
//don't need right now... uncomment this block if you want to use roldfile stuff
|
||
// if(%deleteroldfiles)
|
||
// {
|
||
// deletefile(%roldfilename);
|
||
// deletefile(%roldfilename @ ".dso");
|
||
// Savecharacter(%client);
|
||
// }
|
||
|
||
if(%deleteoldfiles)
|
||
{
|
||
deletefile(%oldfilename);
|
||
deletefile(%oldfilename @ ".dso");
|
||
Game.SaveCharacter(%client);
|
||
}
|
||
weightcall(%client);
|
||
|
||
// Reset stuff that shouldn't be persistent.
|
||
storeData(%client, "tmprecall", false);
|
||
storedata(%client, "SpellCastStep", 0);
|
||
|
||
return true;
|
||
}
|
||
function transformolddata(%client)
|
||
{
|
||
|
||
for(%i = 1; $SkillDesc[%i] !$= ""; %i++)
|
||
{
|
||
|
||
%client.data.PlayerSkill[%i] = %client.PlayerSkill[%i];
|
||
%client.data.SkillCounter[%i] = $SkillCounter[%client, %i];
|
||
//%file.writeline("$SkillCounter[%client, "@ %i @"] = " @ $SkillCounter[%client, %skilltype]+1-1 @ ";");
|
||
}
|
||
|
||
}
|
||
function SaveCharacter(%client, %status)
|
||
{
|
||
Game.SaveCharacter(%client, %status);
|
||
}
|
||
|
||
function RPGGame::SaveCharacter(%game, %client)
|
||
{
|
||
if(%client.isaicontrolled()) return;
|
||
if(inarena(%client)) return;//temp.
|
||
%itemlist = %client.data.itemlist;
|
||
%banklist = %client.data.banklist;
|
||
|
||
|
||
%client.data.itemlist = "";
|
||
//dump inventory string
|
||
for(%i = 0; (%str = getsubStr(%itemlist, %i*255, (%i+1)*255)) !$= ""; %i++)
|
||
{
|
||
%client.data.invl[%i] = %str;
|
||
|
||
}
|
||
for( %ii = %i ; (%str = %client.data.invl[%ii]) !$= ""; %i++)
|
||
{
|
||
//kill!
|
||
%client.data.invl[%ii] = "";
|
||
}
|
||
%client.data.banklist = "";
|
||
|
||
for(%i = 0; (%str = getsubStr(%banklist, %i*255, (%i+1)*255)) !$= ""; %i++)
|
||
{
|
||
%client.data.bankl[%i] = %str;
|
||
|
||
}
|
||
for(%ii = %i ; (%str = %client.data.bankl[%ii]) !$= ""; %i++)
|
||
{
|
||
//kill!
|
||
%client.data.bankl[%ii] = "";
|
||
}
|
||
|
||
%game.storedata(%client, "camppos", %client.player.getTransform());
|
||
//dump quests into the data file
|
||
for(%i = 0; %i < QuestGroup.getCount(); %i++)
|
||
{
|
||
%obj = QuestGroup.getObject(%i);
|
||
%obj.saveclient(%client);
|
||
|
||
}
|
||
// %client.data.save("characters/rpg2/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs");
|
||
%client.data.save("characters/" @ %client.guid @ "/" @ FileFriendly(%client.namebase) @ ".cs");
|
||
%client.data.itemlist = %itemlist;
|
||
%client.data.banklist = %banklist;//dont want to save this, AVOID ERRORS!.
|
||
return true;
|
||
}
|
||
function GiveThisStuff(%client, %list, %echo, %multiplier)
|
||
{
|
||
if(%multiplier $= "" || %multiplier <= 0)
|
||
%multiplier = 1;
|
||
|
||
%cntindex = 0;
|
||
|
||
for(%i = 0; GetWord(%list, %i) !$= ""; %i+=2)
|
||
{
|
||
%w = GetWord(%list, %i);
|
||
%w2 = GetWord(%list, %i+1);
|
||
|
||
//if there is a / in %w2, then what trails after the / is the minimum random number between 0 and 100 which
|
||
//is applied as a percentage to the starting number of %w2
|
||
%spos = strstr(%w2, "/");
|
||
if(%spos > 0)
|
||
{
|
||
%original = getSubStr(%w2, 0, %spos);
|
||
%perc = getSubStr(%w2, %spos+1, 99999);
|
||
|
||
%r = mfloor(getRandom() * (100-%perc))+%perc+1;
|
||
if(%r > 100) %r = 100;
|
||
|
||
%w2 = round(%original * (%r/100));
|
||
if(%w2 < 0) %w2 = 0;
|
||
}
|
||
|
||
//if there is a r in %w2 AND it has a number on either side, then it's a dice roll
|
||
%dpos = strstr(%w2, "r");
|
||
if(%dpos !$= -1)
|
||
{
|
||
%l1 = getSubStr(%w2, %dpos-1, 1);
|
||
%l2 = mfloor(%l1);
|
||
%r1 = getSubStr(%w2, %dpos+1, 1);
|
||
%r2 = mfloor(%r1);
|
||
if(%dpos > 0 && %l1 $= %l2 && %r1 $= %r2)
|
||
{
|
||
%w2 = GetRpgRoll(%w2);
|
||
if(%w2 < 1) %w2 = 1;
|
||
}
|
||
}
|
||
|
||
%tw2 = %w2 * 1;
|
||
if(%tw2 $= %w2)
|
||
%w2 *= %multiplier;
|
||
|
||
if(%w $= "COINS")
|
||
{
|
||
storeData(%client, "COINS", %w2, "inc");
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "You received " @ %w2 @ " coins.");
|
||
}
|
||
else if(%w $= "EXP")
|
||
{
|
||
storeData(%client, "EXP", %w2, "inc");
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "You received " @ %w2 @ " experience.");
|
||
}
|
||
else if(%w $= "LCK")
|
||
{
|
||
storeData(%client, "LCK", %w2, "inc");
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "You received " @ %w2 @ " LCK.");
|
||
}
|
||
else if(%w $= "SP")
|
||
{
|
||
storeData(%client, "SP", %w2, "inc");
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "You received " @ %w2 @ " Skill Points.");
|
||
}
|
||
else if(%w $= "CLASS")
|
||
{
|
||
storeData(%client, "CLASS", %w2);
|
||
storeData(%client, "GROUP", $ClassGroup[fetchData(%client, "CLASS")]);
|
||
}
|
||
else if(%w $= "LVL")
|
||
{
|
||
//note: the class MUST be specified in %stuff prior to this call
|
||
storeData(%client, "EXP", GetExp(%w2, %client) + 100);
|
||
}
|
||
else if(%w $= "TEAM")
|
||
{
|
||
%client.team = %w2;
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "Team set to " @ %w2 @ ".");
|
||
}
|
||
else if(%w $= "RACE")
|
||
{
|
||
ChangeRace(%client, %w2);
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "Race set to " @ %w2 @ ".");
|
||
}
|
||
else if(%w $= "RankPoints")
|
||
{
|
||
storeData(%client, "RankPoints", %w2, "inc");
|
||
if(%echo) messageClient(%client, 'GiveThisStuff', "You received " @ %w2 @ " Rank Points.");
|
||
}
|
||
else if(%w $= "CNT")
|
||
{
|
||
%cntindex++;
|
||
%tmpcnt[%cntindex] = %w2;
|
||
}
|
||
else if(%w $= "CNTAFFECTS")
|
||
{
|
||
%tmpcntaffects[%cntindex] = %w2;
|
||
}
|
||
else
|
||
{
|
||
%client.player.incInventory(%w, %w2);
|
||
}
|
||
}
|
||
|
||
RefreshAll(%client);
|
||
|
||
//Process the counter data, if any
|
||
for(%i = 1; %tmpcnt[%i] !$= ""; %i++)
|
||
{
|
||
if(%tmpcnt[%i] !$= "" && %tmpcntaffects[%i] !$= "")
|
||
{
|
||
%first = getSubStr(%tmpcnt[%i], 0, 1);
|
||
if(%first $= "+" || %first $= "-")
|
||
$QuestCounter[%client.nameBase, %tmpcntaffects[%i]] += mfloor(%tmpcnt[%i]);
|
||
else
|
||
$QuestCounter[%client.nameBase, %tmpcntaffects[%i]] = mfloor(%tmpcnt[%i]);
|
||
}
|
||
}
|
||
}
|
||
|
||
function round(%n)
|
||
{
|
||
if(%n < 0)
|
||
{
|
||
%t = -1;
|
||
%n = -%n;
|
||
}
|
||
else if(%n >= 0)
|
||
%t = 1;
|
||
|
||
%f = mfloor(%n);
|
||
%a = %n - %f;
|
||
if(%a < 0.5)
|
||
%b = 0;
|
||
else if(%a >= 0.5)
|
||
%b = 1;
|
||
|
||
return mfloor((%f + %b) * %t);
|
||
}
|
||
|
||
function GetRoll(%roll, %optionalMinMax)
|
||
{
|
||
//this function accepts the following syntax, where N is any positive number NOT containing a +:
|
||
//NdN
|
||
//NdN+N
|
||
//NdN-N
|
||
//NdNxN
|
||
//NdN+NxN
|
||
//NdN-NxN
|
||
|
||
%d = strstr(%roll, "d");
|
||
%p = strstr(%roll, "+");
|
||
if(%p $= -1)
|
||
%m = strstr(%roll, "-");
|
||
%x = strstr(%roll, "x");
|
||
|
||
if(%d $= -1)
|
||
return %roll;
|
||
|
||
if(%x $= -1)
|
||
%x = strlen(%roll);
|
||
|
||
%numDice = mfloor(getsubstr(%roll, 0, %d));
|
||
if(%p !$= -1)
|
||
{
|
||
%diceFaces = getSubStr(%roll, %d+1, %p-%d-1);
|
||
%bonus = getSubStr(%roll, %p+1, %x-1);
|
||
}
|
||
else if(%p $= -1 && %m !$= -1)
|
||
{
|
||
%diceFaces = getSubStr(%roll, %d+1, %m-%d-1);
|
||
%bonus = -getSubStr(%roll, %m+1, %x-1);
|
||
}
|
||
else
|
||
%diceFaces = getSubStr(%roll, %d+1, 99999);
|
||
|
||
%total = 0;
|
||
for(%i = 1; %i <= %numDice; %i++)
|
||
{
|
||
if(%optionalMinMax $= "min")
|
||
%r = 1;
|
||
else if(%optionalMinMax $= "max")
|
||
%r = %diceFaces;
|
||
else
|
||
%r = mfloor(getRandom() * %diceFaces)+1;
|
||
|
||
%total += %r;
|
||
}
|
||
|
||
if(%bonus !$= "")
|
||
%total += %bonus;
|
||
|
||
if(%x !$= strlen(%roll))
|
||
%total *= getSubStr(%roll, %x+1, 99999);
|
||
|
||
return %total;
|
||
}
|
||
|
||
function GetRpgRoll(%roll, %optionalMinMax)
|
||
{
|
||
//This is a more solid alternative to the AdB notation by AD&D (1d8 for example, A = 1, B = 8)
|
||
//To convert from AdB to NrM, do the following:
|
||
//N = A
|
||
//M = B * A
|
||
|
||
//accepts syntax: NrM, where N and M will never be below 0
|
||
|
||
%r = strstr(%roll, "r");
|
||
|
||
if(%r $= -1)
|
||
return %roll;
|
||
|
||
%lb = Cap(mfloor(getsubstr(%roll, 0, %r)), 0, "inf");
|
||
%ub = Cap(mfloor(getsubstr(%roll, %r+1, 99999)), 0, "inf");
|
||
|
||
if(%lb > %ub)
|
||
%lb = %ub;
|
||
|
||
if(%optionalMinMax $= "min")
|
||
return %lb;
|
||
else if(%optionalMinMax $= "max")
|
||
return %ub;
|
||
|
||
%n = round(getRandom() * (%ub - %lb)) + %lb;
|
||
|
||
return %n;
|
||
}
|
||
|
||
function CombineRpgRolls(%r1, %r2, %min, %max)
|
||
{
|
||
if(%min $= "")
|
||
%min = 0;
|
||
if(%max $= "")
|
||
%max = 100;
|
||
|
||
//just to be sure
|
||
%r[1] = %r1;
|
||
%r[2] = %r2;
|
||
|
||
for(%i = 1; %r[%i] !$= ""; %i++)
|
||
{
|
||
%find = strstr(%r[%i], "r");
|
||
if(%find $= -1)
|
||
{
|
||
%r[%i] = "0r0";
|
||
%find = strstr(%r[%i], "r");
|
||
}
|
||
|
||
%lb = mfloor(getsubstr(%r[%i], 0, %find));
|
||
%ub = mfloor(getsubstr(%r[%i], %find+1, 99999));
|
||
|
||
%flb += %lb;
|
||
%fub += %ub;
|
||
}
|
||
|
||
%flb = Cap(%flb, %min, %max);
|
||
%fub = Cap(%fub, %min, %max);
|
||
|
||
if(%flb > %fub)
|
||
%flb = %fub;
|
||
|
||
return %flb @ "r" @ %fub;
|
||
}
|
||
|
||
function Cap(%n, %lb, %ub)
|
||
{
|
||
if(%lb !$= "inf")
|
||
{
|
||
if(%n < %lb)
|
||
%n = %lb;
|
||
}
|
||
|
||
if(%ub !$= "inf")
|
||
{
|
||
if(%n > %ub)
|
||
%n = %ub;
|
||
}
|
||
|
||
return %n;
|
||
}
|
||
|
||
function GetNESW(%pos1, %pos2)
|
||
{
|
||
%v1 = VectorSub(%pos1, %pos2);
|
||
%a = vectorAngle(%v1);
|
||
|
||
if(%a >= 2.7475 && %a <= 3.15 || %a >= -3.15 && %a <= -2.7475)
|
||
%d = "North";
|
||
else if(%a >= 1.9625 && %a <= 2.7475)
|
||
%d = "North East";
|
||
else if(%a >= 1.1775 && %a <= 1.9625)
|
||
%d = "East";
|
||
else if(%a >= 0.3925 && %a <= 1.1775)
|
||
%d = "South East";
|
||
else if(%a >= -0.3925 && %a <= 0.3925)
|
||
%d = "South";
|
||
else if(%a >= -1.1775 && %a <= -0.3925)
|
||
%d = "South West";
|
||
else if(%a >= -1.9625 && %a <= -1.1775)
|
||
%d = "West";
|
||
else if(%a >= -2.7475 && %a <= -1.9625)
|
||
%d = "North West";
|
||
|
||
return %d;
|
||
}
|
||
|
||
function RandomPositionXY(%minrad, %maxrad)
|
||
{
|
||
%diff = %maxrad - %minrad;
|
||
|
||
%tmpX = mfloor(getRandom() * (%diff*2)) - %diff;
|
||
if(%tmpX < 0)
|
||
%tmpX -= %minrad;
|
||
else
|
||
%tmpX += %minrad;
|
||
|
||
%tmpY = mfloor(getRandom() * (%diff*2)) - %diff;
|
||
if(%tmpY < 0)
|
||
%tmpY -= %minrad;
|
||
else
|
||
%tmpY += %minrad;
|
||
|
||
return %tmpX @ " " @ %tmpY @ " ";
|
||
}
|
||
|
||
function OddsAre(%n)
|
||
{
|
||
%a = mfloor(getRandom() * %n);
|
||
if(%a $= %n-1)
|
||
return true;
|
||
else
|
||
return false;
|
||
}
|
||
|
||
function SetStuffString(%stuff, %item, %amount)
|
||
{
|
||
//replaces both Add and Remove stuff string functions by enabling negative values for %amount
|
||
|
||
%stuff = FixStuffString(%stuff);
|
||
|
||
%pos = strstr(%stuff, " " @ %item @ " ");
|
||
|
||
if(%pos !$= -1)
|
||
{
|
||
%a = getSubStr(%stuff, %pos+1, 99999);
|
||
%amt = GetWord(%a, 1); //getword 0 would be the item, so getword 1 is the amount (which follows the item)
|
||
|
||
%part1 = getSubStr(%stuff, 0, %pos+1);
|
||
%part2 = getSubStr(%stuff, %pos+strlen(%item)+strlen(%amt)+3, 99999);
|
||
|
||
%b = %amt + %amount;
|
||
if(%b <= 0)
|
||
%part3 = "";
|
||
else
|
||
%part3 = %item @ " " @ %b @ " ";
|
||
|
||
%final = %part1 @ %part2 @ %part3;
|
||
}
|
||
else
|
||
%final = %stuff @ %item @ " " @ %amount @ " ";
|
||
|
||
return %final;
|
||
}
|
||
|
||
function GetStuffStringCount(%stuff, %item)
|
||
{
|
||
%stuff = FixStuffString(%stuff);
|
||
|
||
%pos = strstr(%stuff, " " @ %item @ " ");
|
||
|
||
if(%pos !$= -1)
|
||
{
|
||
%a = getSubStr(%stuff, %pos+1, 99999);
|
||
%amt = GetWord(%a, 1);
|
||
|
||
return %amt;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
function FixStuffString(%stuff)
|
||
{
|
||
%nstuff = " ";
|
||
for(%i = 0; GetWord(%stuff, %i) !$= ""; %i++)
|
||
{
|
||
%w = GetWord(%stuff, %i);
|
||
%nstuff = %nstuff @ %w @ " ";
|
||
}
|
||
|
||
return %nstuff;
|
||
}
|
||
|
||
function IsStuffStringEquiv(%s1, %s2, %dblCheck)
|
||
{
|
||
//this function COULD be laggy, it all depends on how many items are in %s1. Below 5, IMO, should be just fine
|
||
|
||
%s1 = " " @ %s1;
|
||
%s2 = " " @ %s2;
|
||
for(%x = 0; (%w = GetWord(%s1, %x)) !$= ""; %x+=2)
|
||
{
|
||
%w2 = GetWord(%s1, %x+1);
|
||
|
||
if(strstr(%s2, " " @ %w @ " " @ %w2) $= -1)
|
||
return false;
|
||
}
|
||
if(%x $= 0) //do a dblCheck if %s1 is null.
|
||
%dblCheck = true;
|
||
|
||
if(%dblCheck)
|
||
{
|
||
//This will slow down the function, but will get a more accurate reading.
|
||
//If you do NOT do a dblCheck, then %s2 could contain additional items that %s1 does not contain, and still
|
||
//return true. If this is not a concern, then you don't have to do a dblCheck
|
||
for(%x = 0; (%w = GetWord(%s2, %x)) !$= ""; %x+=2)
|
||
{
|
||
%w2 = GetWord(%s2, %x+1);
|
||
|
||
if(strstr(%s1, " " @ %w @ " " @ %w2) $= -1)
|
||
return false;
|
||
}
|
||
}
|
||
|
||
return true;
|
||
}
|
||
|
||
function GetCombo(%n)
|
||
{
|
||
//--- This is used so ComboTables don't get overwritten by simultaneous calls ---
|
||
$w++;
|
||
if($w > 20) $w = 1;
|
||
//-------------------------------------------------------------------------------
|
||
|
||
for(%i = 1; $ComboTable[$w, %i] !$= ""; %i++)
|
||
$ComboTable[$w, %i] = "";
|
||
|
||
%cnt = 0;
|
||
|
||
while(%i !$= -1)
|
||
{
|
||
for(%i = 0; mpow(2, %i) <= %n; %i++){}
|
||
%i--;
|
||
|
||
if(%i >= 0)
|
||
{
|
||
$ComboTable[$w, %cnt++] = mpow(2, %i);
|
||
%n -= mpow(2, %i);
|
||
}
|
||
}
|
||
|
||
return $w;
|
||
}
|
||
|
||
function IsPartOfCombo(%combo, %n)
|
||
{
|
||
%w = GetCombo(%combo);
|
||
|
||
%flag = false;
|
||
|
||
for(%i = 1; $ComboTable[%w, %i] !$= ""; %i++)
|
||
{
|
||
if(%n $= $ComboTable[%w, %i])
|
||
%flag = true;
|
||
|
||
//It's a good idea to clean up after oneself, especially with all the ComboTables that would be floating around
|
||
$ComboTable[%w, %i] = "";
|
||
}
|
||
|
||
return %flag;
|
||
}
|
||
function AddToGroupList(%client, %cl)
|
||
{
|
||
if(!IsInGroupList(%client, %cl))
|
||
{
|
||
storeData(%client, "grouplist", AddToCommaList(fetchdata(%client, "grouplist"), %cl.rpgname));
|
||
|
||
messageClient(%cl, 'AddToGroupList', %client.namebase @ " has added you to his or her group.");
|
||
messageClient(%client, 'AddToGroupList', %cl.namebase @ " has been added to your group.");
|
||
}
|
||
|
||
}
|
||
function RemoveFromGroupList(%client, %cl)
|
||
{
|
||
if(IsInGroupList(%client, %cl))
|
||
{
|
||
storeData(%client, "grouplist", RemoveFromCommaList(fetchData(%client, "grouplist"), %cl.rpgname));
|
||
|
||
messageClient(%cl, 'RemoveFromGroupList', %client.nameBase @ " has removed you from his or her group.");
|
||
messageClient(%client, 'RemoveFromGroupList', %cl.nameBase @ " has been removed from your group.");
|
||
}
|
||
|
||
}
|
||
function IsInGroupList(%client, %cl)
|
||
{
|
||
return IsInCommaList(fetchdata(%client, "grouplist"), %cl.rpgname);
|
||
}
|
||
function AddToPartyList(%client, %cl, %message)
|
||
{
|
||
if(!IsInPartyList(%client, %cl))
|
||
{
|
||
storeData(%client, "partylist", AddToCommaList(fetchdata(%client, "partylist"), %cl));
|
||
if(%message)
|
||
{
|
||
messageClient(%cl, 'AddToPartyList', "You have joined" SPC %client.namebase @ "'s party.");
|
||
messageClient(%client, 'AddToPartyList', %cl.namebase @ " has joined your party.");
|
||
}
|
||
}
|
||
|
||
}
|
||
function RemoveFromPartyList(%client, %cl, %message)
|
||
{
|
||
//%client is the owner of the party, %cl is the joinee/leavee
|
||
if(IsInPartyList(%client, %cl))
|
||
{
|
||
storeData(%client, "partylist", RemoveFromCommaList(fetchData(%client, "partylist"), %cl));
|
||
if(%message)
|
||
{
|
||
messageClient(%cl, 'RemoveFrompartyList', "You left the party.");
|
||
messageClient(%client, 'RemoveFrompartyList', %cl.nameBase @ " has left the party.");
|
||
}
|
||
}
|
||
|
||
}
|
||
function IsInPartyList(%client, %cl)
|
||
{
|
||
return IsInCommaList(fetchdata(%client, "partylist"), %cl);
|
||
}
|
||
function AddToTargetList(%client, %cl)
|
||
{
|
||
%client.targeting = "";
|
||
if(!IsInTargetList(%client, %cl))
|
||
{
|
||
storeData(%client, "targetlist", AddToCommaList(fetchData(%client, "targetlist"), %cl.rpgname));
|
||
|
||
messageClient(%cl, 'AddToTargetList', %client.rpgname @ " wants you dead! Travel carefully!");
|
||
messageClient(%client, 'AddToTargetList', %cl.rpgname @ " has been notified of your intentions.");
|
||
|
||
//schedule(10*60*1000, %client, 'RemoveFromTargetList', %client, %cl, 1);
|
||
//schedule("RemoveFromTargetList(" @ %client @ ", " @ %cl @ ", 1);", 10 * 60);
|
||
}
|
||
}
|
||
function RemoveFromTargetList(%client, %cl, %forced)
|
||
{
|
||
if(IsInTargetList(%client, %cl))
|
||
{
|
||
storeData(%client, "targetlist", RemoveFromCommaList(fetchData(%client, "targetlist"), %cl.rpgname));
|
||
if(%forced)
|
||
{
|
||
messageClient(%cl, 'RemoveFromTargetList', %client.rpgname @ " was forced to declare a truce.");
|
||
messageClient(%client, 'RemoveFromTargetList', %cl.rpgname @ " has expired on your target-list.");
|
||
}
|
||
else
|
||
{
|
||
messageClient(%cl, 'RemoveFromTargetList', %client.rpgname @ " declared a truce.");
|
||
messageClient(%client, 'RemoveFromTargetList', %cl.rpgname @ " has been removed from your target-list.");
|
||
}
|
||
}
|
||
}
|
||
function IsInTargetList(%client, %cl)
|
||
{
|
||
return IsInCommaList(fetchdata(%client, "targetlist"), %cl.rpgname);
|
||
|
||
}
|
||
function AddToCommaList(%list, %item)
|
||
{
|
||
%item = RPGFixString(%item);
|
||
|
||
%list = %list @ %item @ $sepchar;
|
||
|
||
return %list;
|
||
}
|
||
function RemoveFromCommaList(%list, %item)
|
||
{
|
||
%item = RPGFixString(%item);
|
||
%a = $sepchar @ %list;
|
||
%a = strreplace(%a, $sepchar @ %item @ $sepchar, $sepchar);
|
||
|
||
%a = strreplace(%a, $sepchar @ $sepchar, $sepchar);
|
||
|
||
%list = getSubStr(%a, 1, 99999);
|
||
//echo(%list);
|
||
return %list;
|
||
}
|
||
function IsInCommaList(%list, %item)
|
||
{
|
||
%item = RPGFixString(%item);//names might have whatever is used as the sepchar so the fixstring should fix the problem
|
||
|
||
// = $sepchar @ %list;
|
||
for(%i = 0; GetWordInCommaList(%list, %i) !$= ""; %i++)
|
||
if(GetWordInCommaList(%list, %i) $= %item)
|
||
{
|
||
|
||
return true;
|
||
}
|
||
return false;
|
||
}
|
||
function CountObjInCommaList(%list)
|
||
{
|
||
for(%i = strstr(%list, ","); (%p = strstr(%list, ",")) !$= -1; %list = getSubStr(%list, %p+1, 99999))
|
||
%cnt++;
|
||
return %cnt;
|
||
}
|
||
function GetWordInCommaList(%list, %n)
|
||
{
|
||
//%list = String::replaceAll(%list, " ", "`");
|
||
%list = String::replaceAll(%list, ",", " ");
|
||
//echo(%list);
|
||
//comma lists dont have spaces anymore =)
|
||
return GetWord(%list, %n);
|
||
}
|
||
|
||
function GetEventCommandIndex(%object, %type)
|
||
{
|
||
%list = "";
|
||
|
||
//$maxEvents event commands max. per object
|
||
for(%i = 1; %i <= $maxEvents; %i++)
|
||
{
|
||
%t = GetWord($EventCommand[%object, %i], 1);
|
||
if(stricmp(%t, %type) $= 0)
|
||
%list = %list @ %i @ " ";
|
||
}
|
||
|
||
if(%list !$= "")
|
||
return getSubStr(%list, 0, strlen(%list)-1);
|
||
else
|
||
return -1;
|
||
}
|
||
|
||
function AddEventCommand(%object, %senderName, %type, %cmd)
|
||
{
|
||
for(%i = 1; %i <= $maxEvents; %i++)
|
||
{
|
||
if($EventCommand[%object, %i] $= "" || stricmp(GetWord($EventCommand[%object, %i], 1), %type) $= 0)
|
||
{
|
||
$EventCommand[%object, %i] = %senderName @ " " @ %type @ " " @ %cmd;
|
||
return %i;
|
||
}
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
function ClearEvents(%id)
|
||
{
|
||
for(%i = 1; %i <= $maxEvents; %i++)
|
||
$EventCommand[%id, %i] = "";
|
||
}
|
||
|
||
function selectRandomMarker(%groupName)
|
||
{
|
||
%group = nameToID(%groupName);
|
||
if(%group !$= -1)
|
||
{
|
||
%markerPos = "0 0 160 1 0 0 0";
|
||
%count = %group.getCount();
|
||
if(%count !$= 0)
|
||
%markerPos = %group.getObject(mfloor(getRandom() * %count)).getTransform();
|
||
}
|
||
return %markerPos;
|
||
}
|
||
function selectRandomObject(%groupName)
|
||
{
|
||
%group = nameToID(%groupName);
|
||
|
||
%id = -1;
|
||
if(%group !$= -1)
|
||
{
|
||
%count = %group.getCount();
|
||
if(%count !$= 0)
|
||
%id = %group.getObject(mfloor(getRandom() * (%count - 1)));
|
||
}
|
||
return %id;
|
||
}
|
||
function selectRandomObjectWithRaceID(%groupName, %raceID)
|
||
{
|
||
%group = nameToID(%groupName);
|
||
|
||
%id = -1;
|
||
if(%group !$= -1)
|
||
{
|
||
%count = %group.getCount();
|
||
|
||
//build index list
|
||
%c = -1;
|
||
%r = mfloor(getRandom() * %count);
|
||
for(%i = %r; %i < %count; %i++)
|
||
%indexList[%c++] = %i;
|
||
for(%i = 0; %i < %r; %i++)
|
||
%indexList[%c++] = %i;
|
||
|
||
//parse thru index list and pick the first that matches the raceid
|
||
for(%i = 0; %i < %count; %i++)
|
||
{
|
||
%id = %group.getObject(%indexList[%i]);
|
||
if(%id.RaceID $= %raceID)
|
||
break;
|
||
}
|
||
}
|
||
|
||
return %id;
|
||
}
|
||
function RPGGAME::ClearInventory(%game, %client)
|
||
{
|
||
storedata(%client, "inventory", "");
|
||
%client.weight = 0;
|
||
}
|
||
function ClearInventory(%client)
|
||
{
|
||
game.ClearInventory(%client);
|
||
}
|
||
function RandomRaceSound(%item, %item2, %item3)
|
||
{
|
||
|
||
return false;
|
||
}
|
||
function AddToStorage(%client, %id)
|
||
{
|
||
return game.AddToStorage(%client, %id);
|
||
}
|
||
function onAddToStorage(%client, %id)
|
||
{
|
||
game.onAddToStorage(%client, %id);
|
||
}
|
||
function serverCmdRefreshBank(%client)
|
||
{
|
||
game.refreshBank(%client);
|
||
}
|
||
function RemoveFromStorage(%client, %id)
|
||
{
|
||
return game.removeFromStorage(%client, %id);
|
||
}
|
||
function onRemoveFromStorage(%client, %id)
|
||
{
|
||
game.onRemoveFromStorage(%client, %id);
|
||
}
|
||
|
||
function CreateItem(%item, %prefix, %suffix)
|
||
{
|
||
return game.CreateItem(%item, %prefix, %suffix);
|
||
}
|
||
function addToInventory(%client, %id, %item, %prefix, %suffix, %equipped)
|
||
{
|
||
return game.AddToInventory(%client, %id, %item, %prefix, %suffix, %equipped);
|
||
}
|
||
function onAddInventory(%client, %id, %item, %equipped)
|
||
{
|
||
game.onAddInventory(%client, %id, %item, %equipped);
|
||
}
|
||
function RemoveFromInventory(%client, %id)
|
||
{
|
||
return game.RemoveFromInventory(%client, %id);
|
||
}
|
||
function onRemoveInventory(%client, %id)
|
||
{
|
||
game.onRemoveInventory(%client, %id);
|
||
}
|
||
function AddToEquipList(%client, %itemid)
|
||
{
|
||
game.AddToEquipList(%client, %itemid);
|
||
}
|
||
function RemoveFromEquipList(%client, %itemid)
|
||
{
|
||
game.RemoveFromEquipList(%client, %itemid);
|
||
}
|
||
function GetEquipList(%client)
|
||
{
|
||
return Game.GetEquipList(%client);
|
||
}
|
||
function getItemCount(%client, %item)
|
||
{
|
||
return game.getItemCount(%client, %item);
|
||
}
|
||
function ClearInvInfo(%itemid)
|
||
{
|
||
game.ClearInvInfo(%itemid);
|
||
}
|
||
function RPGGAME::AddToEquipList(%game, %client, %itemid)
|
||
{
|
||
if(ltrim(strreplace(" " @ %client.equiplist, " " @ %itemid @ " ", " ")) $= %client.equiplist) //item already in equip list error
|
||
%client.equiplist = %client.equiplist @ %itemid @ " ";
|
||
else
|
||
error("Item already in equip list" SPC %client.rpgname SPC %client);
|
||
}
|
||
|
||
function RPGGAME::RemoveFromEquipList(%game, %client, %itemid)
|
||
{
|
||
%client.equiplist = ltrim(strreplace(" " @ %client.equiplist, " " @ %itemid @ " ", " "));
|
||
}
|
||
function RPGGAME::GetEquipList(%game, %client)
|
||
{
|
||
return %client.equiplist;
|
||
}
|
||
|
||
|
||
function GenerateUniqueId()
|
||
{
|
||
//when a player connects and his/her inventory is loaded, each item in his/her possession must be reassigned a
|
||
//new id using this function, and all properties for this item are assigned using this new id. Upon being saved,
|
||
//the id is not conserved as it changes from match to match.
|
||
return 1;
|
||
//return $tmpuniqueid++;
|
||
}
|
||
|
||
function IsDead(%client)
|
||
{
|
||
if(%client.client !$= "")
|
||
%client = %client.client; //in case we passed %player
|
||
if(isobject(%client.player))
|
||
{
|
||
if(%client.player.getState() $= "Dead" )
|
||
return true;
|
||
}
|
||
else
|
||
return true;
|
||
return false;
|
||
}
|
||
|
||
function FellOffMap(%client)
|
||
{
|
||
RefreshAll(%client);
|
||
|
||
if(%client.isAiControlled())
|
||
{
|
||
storeData(%client, "noDropLootbagFlag", true);
|
||
//kill ai somehow
|
||
}
|
||
else
|
||
{
|
||
//CheckAndBootFromArena(%client);
|
||
%client.player.setVelocity("0 0 0");
|
||
%spawnPoint = RPGGame::pickPlayerSpawn('rpggame', %client);
|
||
%client.player.setTransform(%spawnPoint);
|
||
|
||
messageClient(%client, 'FellOffMap', "You were restored to the starting spawn point.");
|
||
}
|
||
}
|
||
|
||
function ClearVariables(%client)
|
||
{
|
||
%name = %client.nameBase;
|
||
|
||
//clear variables
|
||
|
||
//ClearFunkVar(%name);
|
||
|
||
for(%i = 0; (%id = GetWord($TownBotList, %i)) !$= ""; %i++)
|
||
{
|
||
$state[%id, %client] = "";
|
||
if($QuestCounter[%name, %id.name] !$= "")
|
||
$QuestCounter[%name, %id.name] = "";
|
||
}
|
||
|
||
for(%i = 1; %i <= $maxDamagedBy; %i++)
|
||
$damagedBy[%name, %i] = "";
|
||
|
||
SetAllSkills(%client, "");
|
||
|
||
ClearEvents(%client);
|
||
|
||
deleteVariables("BonusState" @ %client @ "*");
|
||
deleteVariables("BonusStateCnt" @ %client @ "*");
|
||
}
|
||
function GiveDmEquipment(%client)
|
||
{
|
||
|
||
for(%i = 0; %i < 5; %i = %i + 1)
|
||
{
|
||
%randno = mfloor(getrandom()*$numweapons)+1;
|
||
AddToInventory(%client, GenerateUniqueId(), $weaponList[%randno], mfloor(getrandom()*4)+1, mfloor(getrandom()*5)+1, false);
|
||
}
|
||
AddToInventory(%client, GenerateUniqueId(), PaddedArmor, mfloor(getrandom()*4)+1, mfloor(getrandom()*5)+1, false);
|
||
|
||
}
|
||
function isnull(%test)
|
||
{
|
||
return (%test $= "" || ( %test !$= "" && %test == 0));
|
||
}
|
||
function GiveDefaults(%client)
|
||
{
|
||
Game.GiveDefaults(%client);
|
||
}
|
||
function RPGGame::GiveDefaults(%game, %client)
|
||
{
|
||
echo("Giving defaults to " @ %client);
|
||
|
||
%name = %client.rpgname;
|
||
|
||
AddToInventory(%client, 1, "PickAxe", 3, 1, false);//normal pickaxe
|
||
AddToInventory(%client, 3, "BluePotion", 3, 1, false);
|
||
AddToInventory(%client, 1, "Club", 3, 1, false);//club
|
||
AddToInventory(%client, 2, "CrystalBluePotion", 3, 1, false);
|
||
storeData(%client, "RACE", %client.sex @ "Human");
|
||
storeData(%client, "COINS", $initcoins);
|
||
|
||
storeData(%client, "SP", $initsp);
|
||
storeData(%client, "EXP", 0);
|
||
storeData(%client, "campPos", "");
|
||
storeData(%client, "BANK", $initbankcoins);
|
||
storeData(%client, "grouplist", "");
|
||
storeData(%client, "defaultTalk", "#global");
|
||
storeData(%client, "LCK", $initLCK);
|
||
storeData(%client, "PlayerInfo", "");
|
||
storeData(%client, "ignoreGlobal", "");
|
||
storeData(%client, "LCKconsequence", "death");
|
||
storeData(%client, "tmphp", "");
|
||
storeData(%client, "tmpmana", "");
|
||
storeData(%client, "tmpname", %name);
|
||
storeData(%client, "tmpLastSaveVer", $rpgver);
|
||
storeData(%client, "bounty", 0);
|
||
storeData(%client, "isMimic", "");
|
||
storeData(%client, "MyHouse", "");
|
||
storeData(%client, "RankPoints", 0);
|
||
|
||
%client.choosingGroup = true;
|
||
|
||
SetAllSkills(%client, 0);
|
||
|
||
}
|
||
function GiveAIDefaults(%client)
|
||
{
|
||
//temp
|
||
|
||
echo("Giving defaults to " @ %client);
|
||
|
||
%name = %client.nameBase;
|
||
if($rules $= "dm")
|
||
for(%i = 0; %i < 5; %i++)
|
||
{
|
||
%randno = mfloor(getrandom()*$numweapons)+1;
|
||
AddToInventory(%client, 1, $weaponList[%randno], mfloor(getrandom()*4)+1, mfloor(getrandom()*5)+1, false);
|
||
}
|
||
AddToInventory(%client, 1, PaddedArmor, mfloor(getrandom()*4)+1, mfloor(getrandom()*5)+1, false);
|
||
StoreData(%client, "RACE", %client.sex @ %client.race);
|
||
|
||
//storeData(%client, "GROUP", "Warrior");
|
||
//storeData(%client, "CLASS", "Fighter");
|
||
|
||
storeData(%client, "EXP", 0);
|
||
storeData(%client, "campPos", "");
|
||
storeData(%client, "BANK", $initbankcoins);
|
||
storeData(%client, "grouplist", "");
|
||
//storeData(%client, "defaultTalk", "#say");
|
||
//storeData(%client, "password", $Client::info[%client, 5]);
|
||
storeData(%client, "LCK", 0);
|
||
storeData(%client, "PlayerInfo", "");
|
||
storeData(%client, "ignoreGlobal", "");
|
||
storeData(%client, "LCKconsequence", "miss");
|
||
storeData(%client, "tmphp", "");
|
||
storeData(%client, "tmpmana", "");
|
||
storeData(%client, "tmpname", %name);
|
||
storeData(%client, "tmpLastSaveVer", $rpgver);
|
||
storeData(%client, "bounty", 0);
|
||
storeData(%client, "isMimic", "");
|
||
storeData(%client, "MyHouse", "");
|
||
storeData(%client, "RankPoints", 0);
|
||
|
||
%client.choosingGroup = true;
|
||
|
||
SetAllSkills(%client, 0);
|
||
SetSkillsToMulti(%client);
|
||
}
|
||
|
||
function TossLootBag(%client, %loot, %coins, %timer)
|
||
{
|
||
return Game.TossLootBag(%client, %loot, %coins, %timer);
|
||
}
|
||
function DeleteLootBag(%this)
|
||
{
|
||
%this.delete();
|
||
}
|
||
function ChangeRace(%client, %race)
|
||
{
|
||
if(%client.isaiControlled())
|
||
storedata(%client, "RACE", %race);
|
||
else if($RaceID[%race] $= 1)
|
||
storeData(%client, "RACE", "DeathKnight");
|
||
else
|
||
storeData(%client, "RACE", %client.sex @ %race);
|
||
|
||
setHP(%client, fetchData(%client, "MaxHP"));
|
||
setMANA(%client, fetchData(%client, "MaxMANA"));
|
||
|
||
RefreshAll(%client);
|
||
}
|
||
|
||
function RefreshAll(%client)
|
||
{
|
||
|
||
UpdateTeam(%client);
|
||
UpdateAppearance(%client);
|
||
UpdateTeam(%client);
|
||
refreshHPREGEN(%client);
|
||
refreshMANAREGEN(%client);
|
||
RefreshExp(%client);
|
||
weightstep(%client);
|
||
}
|
||
|
||
function UpdateAppearance(%client)
|
||
{
|
||
if(!isobject(%client)) return;
|
||
if(!isobject(%client.player)) return;
|
||
if(%client.isaicontrolled()) return;
|
||
|
||
//Determine armor from shields
|
||
%armor = -1;
|
||
%shield = -1;
|
||
|
||
%player = %client.player;
|
||
%race = fetchData(%client, "RACE");
|
||
%model = %client.player.getDataBlock().getName();
|
||
%cw = getsubstr(%model, strstr(%model, "Armor"), 99999);
|
||
if(%race $= "fish") return;
|
||
%skinbase = %client.skin;
|
||
%apm = $ArmorPlayerModel[%armor];
|
||
//echo(%cw);
|
||
//=================================
|
||
// Update skin
|
||
//=================================
|
||
if($RaceID[%race] !$= 1)
|
||
{
|
||
%skinbase = 'base';
|
||
|
||
if(%armor !$= -1)
|
||
%skinbase = $ArmorSkin[%armor];
|
||
%race = "MaleHuman";//till we get female model
|
||
%p = %race @ %apm @ %cw;
|
||
|
||
%armor = 0;
|
||
}
|
||
else
|
||
{
|
||
//DeathKnight
|
||
%skinbase = 'cotp';
|
||
%apm = "";
|
||
%cw = "Armor";
|
||
%armor = 0;
|
||
}
|
||
|
||
if(%client.skin !$= %skinbase)
|
||
setTargetSkin(%client.target, %skinbase);
|
||
|
||
//=================================
|
||
// Update player model
|
||
//=================================
|
||
if(%armor !$= -1)
|
||
%p = %race @ %apm @ %cw;
|
||
|
||
%e = %client.player.getEnergyLevel();
|
||
%d = %client.player.getDamageLevel();
|
||
if(%client.player.getDataBlock().getName() !$= %p && %p !$= "")
|
||
{
|
||
%client.player.setDataBlock(%p);
|
||
%client.player.setEnergyLevel(%e);
|
||
%client.player.setDamageLevel(%d);
|
||
}
|
||
|
||
return;
|
||
|
||
//=================================
|
||
// Update shields and Orb
|
||
//=================================
|
||
if(%shield !$= -1)
|
||
{
|
||
if(Player::getMountedItem(%client, 2) !$= %shield)
|
||
{
|
||
Player::unmountItem(%client, 2);
|
||
Player::mountItem(%client, %shield, 2);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if(Player::getMountedItem(%client, 2) !$= -1)
|
||
Player::unmountItem(%client, 2);
|
||
|
||
for(%i = 1; $ItemList[Orb, %i] !$= ""; %i++)
|
||
{
|
||
if(Player::getItemCount(%client, $ItemList[Orb, %i] @ "0"))
|
||
Player::mountItem(%client, $ItemList[Orb, %i] @ "0", 2);
|
||
}
|
||
}
|
||
}
|
||
|
||
function UpdateTeam(%client)
|
||
{
|
||
%client.team = 1;
|
||
}
|
||
|
||
//I couldn't find a function that did this in T2...
|
||
function getClientByName(%name)
|
||
{
|
||
%count = ClientGroup.getCount();
|
||
%name = strreplace(%name, "%SP%", " ");
|
||
for(%icl = 0; %icl < %count; %icl++)
|
||
{
|
||
%cl = ClientGroup.getObject(%icl);
|
||
if(stricmp(%cl.nameBase, %name) $= 0 && %cl.player.getstate() !$= "Dead")
|
||
return %cl;
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
function getLOSinfo(%client, %searchRange, %mask)
|
||
{
|
||
%player = %client.player;
|
||
|
||
if(%mask $= "")
|
||
{
|
||
%mask = $TypeMasks::VehicleObjectType | $TypeMasks::MoveableObjectType |
|
||
$TypeMasks::StaticShapeObjectType | $TypeMasks::StaticTSObjectType |
|
||
$TypeMasks::ForceFieldObjectType | $TypeMasks::ItemObjectType |
|
||
$TypeMasks::PlayerObjectType | $TypeMasks::TurretObjectType |
|
||
$TypeMasks::InteriorObjectType | $TypeMasks::SensorObjectType |
|
||
$TypeMasks::TerrainObjectType;
|
||
}
|
||
|
||
// get the eye vector and eye transform of the player
|
||
%eyeVec = %player.getEyeVector();
|
||
%eyeTrans = %player.getEyeTransform();
|
||
|
||
// extract the position of the player's camera from the eye transform (first 3 words)
|
||
%eyePos = posFromTransform(%eyeTrans);
|
||
|
||
// normalize the eye vector
|
||
%nEyeVec = VectorNormalize(%eyeVec);
|
||
|
||
// scale (lengthen) the normalized eye vector according to the search range
|
||
%scEyeVec = VectorScale(%nEyeVec, %searchRange);
|
||
|
||
// add the scaled & normalized eye vector to the position of the camera
|
||
%eyeEnd = VectorAdd(%eyePos, %scEyeVec);
|
||
|
||
// see if anything gets hit
|
||
%searchResult = containerRayCast(%eyePos, %eyeEnd, %mask, %player);
|
||
|
||
if(%searchResult $= 0)
|
||
return false;
|
||
|
||
$los::object = firstWord(%searchResult);
|
||
$los::position = getWords(%searchResult, 1, 3);
|
||
$los::rotation = getWords(%searchResult, 4, 6);
|
||
|
||
return %searchResult;
|
||
}
|
||
|
||
function Player::setPosition(%player, %pos)
|
||
{
|
||
%trans = %player.getTransform();
|
||
%newtrans = %pos @ " " @ GetWord(%trans, 3) @ " " @ GetWord(%trans, 4) @ " " @ GetWord(%trans, 5) @ " " @ GetWord(%trans, 6);
|
||
%player.setTransform(%newtrans);
|
||
}
|
||
|
||
function getTime()
|
||
{
|
||
return getSimTime() / 1000;
|
||
}
|
||
|
||
function AllowedToSteal(%client)
|
||
{
|
||
if(fetchData(%client, "InSleepZone") == true)
|
||
return "You can't steal inside a sleeping area.";
|
||
//else if(Zone::getType(fetchData(%client, "zone")) $= "PROTECTED")
|
||
// return "You can't steal from someone in protected territory.";
|
||
|
||
return "true";
|
||
}
|
||
|
||
function Player::clearDamagedBy(%player, %index)
|
||
{
|
||
%player.client.damagedBy[%index] = "";
|
||
}
|
||
|
||
function RPGGame::clearWeaponDelayFlag(%game, %client)
|
||
{
|
||
%client.weaponDelayFlag = "";
|
||
}
|
||
|
||
function Revert(%client)
|
||
{
|
||
if(%client.possessId !$= "")
|
||
%client.possessId.setControlObject(%client.possessId.player);
|
||
|
||
%client.setControlObject(%client.player);
|
||
%client.possessId.possessedBy = "";
|
||
%client.possessId = "";
|
||
}
|
||
|
||
function RefreshExp(%client)
|
||
{
|
||
if(fetchData(%client, "HasLoadedAndSpawned"))
|
||
{
|
||
if(fetchData(%client, "templvl") !$= "")
|
||
{
|
||
if(GetLevel(fetchData(%client, "EXP"), %client) !$= fetchData(%client, "templvl"))
|
||
{
|
||
//client has leveled up
|
||
%lvls = (GetLevel(fetchData(%client, "EXP"), %client) - fetchData(%client, "templvl"));
|
||
|
||
storeData(%client, "SP", (%lvls * $SPgainedPerLevel), "inc");
|
||
|
||
if(%lvls > 0)
|
||
{
|
||
if(%lvls $= 1)
|
||
messageClient(%client, 'RefreshExp', $MsgOlive @ "You have gained a level!");
|
||
else
|
||
messageClient(%client, 'RefreshExp', $MsgOlive @ "You have gained " @ %lvls @ " levels!");
|
||
|
||
messageClient(%client, 'RefreshExp', $MsgWhite @ "Welcome to level " @ fetchData(%client, "LVL"));
|
||
%client.player.playAudio(0, LevelUp);
|
||
}
|
||
else if(%lvls < 0)
|
||
{
|
||
if(%lvls $= -1)
|
||
messageClient(%client, 'RefreshExp', $MsgRed @ "You have lost a level...");
|
||
else
|
||
messageClient(%client, 'RefreshExp', $MsgRed @ "You have lost " @ -%lvls @ " levels...");
|
||
|
||
messageClient(%client, 'RefreshExp', $MsgDarkGrey @ "You are now level " @ fetchData(%client, "LVL"));
|
||
}
|
||
}
|
||
storeData(%client, "templvl", GetLevel(fetchData(%client, "EXP"), %client));
|
||
}
|
||
}
|
||
}
|
||
|
||
function HardcodeAIskills(%client)
|
||
{
|
||
SetAllSkills(%client, 0);
|
||
|
||
%ns = getNumSkills();
|
||
%a = $autoStartupSP + round($initSPcredits / %ns) + round(((fetchData(%client, "LVL")-1) * $SPgainedPerLevel) / %ns);
|
||
for(%i = 1; %i <= %ns; %i++)
|
||
AddSkillPoint(%client, %i, %a);
|
||
|
||
//==== HARDCODED SKILLS TO ENSURE CHALLENGING BOTS ============
|
||
%client.data.PlayerSkill[$SkillSlashing] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillPiercing] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillBludgeoning] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillDodging] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillArchery] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillOffensiveCasting] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillDefensiveCasting] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillNeutralCasting] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillEnergy] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillSpeech] = $SkillCap;
|
||
%client.data.PlayerSkill[$SkillWeightCapacity] = (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)+10;
|
||
%client.data.PlayerSkill[$SkillEndurance] = ( (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel)/2 );
|
||
|
||
%a = ( (getRandom() * $SkillRangePerLevel) + ((fetchData(%client, "LVL")-1) * $SkillRangePerLevel) ) / 2;
|
||
%sr = round(%a * GetSkillMultiplier(%client, $SkillOffensiveCasting));
|
||
%client.data.PlayerSkill[$SkillSpellResistance] = %sr;
|
||
//=============================================================
|
||
}
|
||
|
||
function vectorAngle(%v)
|
||
{
|
||
//Resembles the discontinued T1 function Vector::getRotation
|
||
%a = mATan(GetWord(%v, 0), GetWord(%v, 1));
|
||
return -%a;
|
||
}
|
||
|
||
function whichWord(%text, %sub)
|
||
{
|
||
%sub = Trim(%sub);
|
||
for(%i = 0; (%w = Trim(GetWord(%text, %i))) !$= ""; %i++)
|
||
{
|
||
if(stricmp(%w, %sub) $= 0)
|
||
return %i;
|
||
}
|
||
return "";
|
||
}
|
||
function lastWord(%text)
|
||
{
|
||
return GetWord(%text, getWordCount(%text)-1);
|
||
}
|
||
|
||
function countWords(%list)
|
||
{
|
||
for(%i = 0; GetWord(%list, %i) !$= ""; %i++){}
|
||
|
||
return %i;
|
||
}
|
||
|
||
function ParseInventory(%list, %type)
|
||
{
|
||
%flist = "";
|
||
|
||
for(%i = 0; (%w = GetWord(%list, %i)) !$= ""; %i++)
|
||
{
|
||
if($ItemType[GetItem(%w)] $= %type)
|
||
%flist = %flist @ %w @ " ";
|
||
}
|
||
|
||
return %flist;
|
||
}
|
||
|
||
function isnumeric(%val)
|
||
{
|
||
if(%val * 1 == 0 && %val !$= "")
|
||
return false;
|
||
else
|
||
return true;
|
||
}
|
||
function DisplayGetInfo(%toclient, %infoclient)
|
||
{
|
||
%time = 15;
|
||
%line = "<COLOR:FF0000>Name:<COLOR:FFFFFF>" SPC %infoclient.rpgname SPC "<COLOR:FF0000>LVL:<COLOR:FFFFFF>" SPC fetchdata(%infoclient, "LVL") SPC "<COLOR:FF0000>GROUP:<COLOR:FFFFFF>" SPC fetchdata(%infoclient, "GROUP") SPC "<COLOR:FF0000>CLASS:<COLOR:FFFFFF>" SPC fetchdata(%infoclient, "CLASS") SPC "\n<COLOR:FF0000>Info:<COLOR:FFFFFF>" SPC fetchData(%infoclient, "PlayerInfo");
|
||
SendRPGBottomPrint(%toclient, %time, 2, %line);
|
||
|
||
}
|
||
|
||
function DoConsider(%client) {
|
||
%retval = false;
|
||
if(%client.isaiControlled()) return false;
|
||
%ret = getLOSInfo(%client, 20);
|
||
%obj = GetWord(%ret, 0);
|
||
|
||
if(!isObject(%obj)) {
|
||
return;
|
||
}
|
||
else if(%obj.pDesc !$= "")
|
||
{
|
||
|
||
MessageClient(%client, 'Description', 'You think: %1', %obj.pDesc);
|
||
//messageclient(%client, "Hrm");
|
||
%retval = true;
|
||
}
|
||
else if (%obj.getDataBlock().classname $= Armor)
|
||
{
|
||
|
||
DisplayGetInfo(%client, %obj.client);
|
||
%retval = true;
|
||
}
|
||
else if (%obj.getDatablock().getName() $= "RPGBoat")
|
||
{
|
||
RPGchat(%client, 0, "#mount", %client.rpgname);
|
||
}
|
||
if(!%retval)
|
||
{
|
||
messageClient(%client, 'FailedDescription', 'You find nothing of interest here');
|
||
}
|
||
return %retval;
|
||
}
|
||
|
||
function Client::Hide(%client)
|
||
{
|
||
storedata(%client, "invisible", true);
|
||
storedata(%client, "blockhide", true);
|
||
%client.player.setCloaked(true);
|
||
}
|
||
function Client::unHide(%client)
|
||
{
|
||
storedata(%client, "invisible", false);
|
||
storedata(%client, "blockhide", false);
|
||
%client.player.setCloaked(false);
|
||
}
|
||
|
||
function WalkSlowInvisLoop(%client, %time, %grace)
|
||
{
|
||
|
||
if(fetchdata(%client, "invisible") == false)
|
||
{
|
||
cancel(%client.invisloop);
|
||
|
||
%client.lastinpos = "";
|
||
return;
|
||
}
|
||
|
||
if(%client.lastinpos !$= "")
|
||
{
|
||
if(round(VectorDist(%client.lastinpos, %client.player.getPosition())) > %grace)
|
||
{
|
||
//echo FAIL, unhide
|
||
Client::unHide(%client);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
//first call... do nothing.
|
||
}
|
||
%client.lastinpos = %client.player.getPosition();
|
||
%client.invisloop = schedule(%time*1000, %client, "walkslowinvisloop", %client, %time, %grace);
|
||
}
|
||
function get3dDistance(%tran1, %tran2)
|
||
{
|
||
|
||
%x1 = getword(%tran1, 0);
|
||
%y1 = getword(%tran1, 1);
|
||
%z1 = getword(%tran1, 2);
|
||
%x2 = getword(%tran2, 0);
|
||
%y2 = getword(%tran2, 1);
|
||
%z2 = getword(%tran2, 2);
|
||
|
||
%d1 = mpow(%x1*%x1+%y1*%y1+%z1*%z1, 0.5);
|
||
%d2 = mpow(%x2*%x2+%y2*%y2+%z2*%z2, 0.5);
|
||
|
||
return %d1-%d2;
|
||
}
|
||
function newHasLOStoClient(%client, %target)
|
||
{
|
||
//echo(%client);
|
||
getLOSinfo(%client, 5000);
|
||
|
||
%pl = $los::object;
|
||
if(%pl.getClassName() $= "Player")
|
||
{
|
||
return true;
|
||
}
|
||
|
||
return false;
|
||
}
|
||
|
||
//t^2+y^2 = s^2
|
||
//t = (x^2 + z^2)^.5
|