Grimoric: Created page with " member int charges; member list Q..."

2018-10-05T22:48:11Z

Created page with " member int charges; member list Q..."

New page

member int charges;
member list Q535;
member int Q454;
member int Q55T;

function int Q42O()
{
return ([[Engine Function:_numInList|numInList]](Q535));
}

function int Q431()
{
if (charges != 0x00)
{
return (0x01);
}
return (0x00);
}

function int Q42M()
{
return (charges);
}

function void Q41H(obj Q4XN)
{
int value = 0x00;
if ([[Engine Function:_hasObjVar|hasObjVar]](Q4XN, "mybasevalue"))
{
value = [[Engine Function:_getObjVar|getObjVar]](Q4XN, "mybasevalue");
}
int Q4AX = [[Script_Function:_Q42M|Q42M]]();
int Q5BE = 0x00;
if (Q4AX < 0x00)
{
Q5BE = 0x03E7;
}
else
{
Q5BE = 0x01 * Q4AX / 0x0A;
}
Q5BE = Q5BE + 0x05;
if (Q5BE != value)
{
[[Engine Function:_setObjVar|setObjVar]](Q4XN, "mybasevalue", Q5BE);
}
return ();
}

function void Q43X(int newcharges)
{
charges = newcharges;
[[Script_Function:_Q41H|Q41H]](this);
return ();
}

function void Q43Z(int newcharges)
{
[[Script_Function:_Q43X|Q43X]](newcharges);
return ();
}

function int Q580(int Q463)
{
charges = charges + Q463;
[[Script_Function:_Q41H|Q41H]](this);
return (charges);
}

function int Q4YY(obj Q4XN)
{
int Q5NC = [[Engine Function:_hasObjVar|hasObjVar]](Q4XN, "isComCrystal");
return (Q5NC);
}

function void Q5RA(obj it, int status)
{
int newType = 0x1ECD;
if (status)
{
newType = 0x1ED0;
}
if ([[Engine Function:_getObjType|getObjType]](it) != newType)
{
[[Engine Function:_setType|setType]](it, newType);
}
return ();
}

function void Q5R8(obj it, int status)
{
Q454 = status;
[[Script_Function:_Q5RA|Q5RA]](it, Q454);
return ();
}

function int Q63I(obj user, obj Q4XN)
{
if (Q454)
{
[[Script_Function:_Q5R8|Q5R8]](Q4XN, 0x00);
[[Engine Function:_systemMessage|systemMessage]](user, "You turn the crystal off.");
}
else
{
[[Script_Function:_Q5R8|Q5R8]](Q4XN, 0x01);
[[Engine Function:_systemMessage|systemMessage]](user, "You turn the crystal on.");
}
return (Q454);
}

function int Q656(obj user, obj Q4XN)
{
if ([[Engine Function:_isInList|isInList]](Q535, Q4XN))
{
[[Engine Function:_systemMessage|systemMessage]](user, "This crystal is already linked with that crystal.");
return (0x00);
}
[[Engine Function:_appendToList|appendToList]](Q535, Q4XN);
[[Engine Function:_systemMessage|systemMessage]](user, "That crystal has been linked to this crystal.");
return (0x01);
}

function int Q4BE(obj Q4XN, obj user)
{
if (![[Script_Function:_Q431|Q431]]())
{
[[Engine Function:_systemMessage|systemMessage]](user, "This crystal is out of charges.");
return (0x00);
}
return (0x01);
}

function int Q5QW(obj sender, obj speaker, string arg)
{
if (![[Script_Function:_Q431|Q431]]())
{
return (0x00);
}
list Q5QZ;
[[Engine Function:_appendToList|appendToList]](Q5QZ, speaker);
string Q5R1 = [[Engine Function:_getName|getName]](speaker);
[[Engine Function:_appendToList|appendToList]](Q5QZ, Q5R1);
int Q5UG = [[Engine Function:_getDefaultTextHue|getDefaultTextHue]](speaker);
[[Engine Function:_appendToList|appendToList]](Q5QZ, Q5UG);
[[Engine Function:_appendToList|appendToList]](Q5QZ, arg);
int num = [[Engine Function:_numInList|numInList]](Q535);
int Q4EJ;
for(Q4EJ = 0x00; Q4EJ < num; Q4EJ++)
{
obj Q5R3 = Q535[Q4EJ];
multi[[Engine Function:_message|message]](Q5R3, "comspeech", Q5QZ);
if ([[Script_Function:_Q580|Q580]]((0x00 - 0x01)) == 0x00)
{
[[Script_Function:_Q63I|Q63I]](speaker, sender);
break;
}
}
return (Q4EJ);
}

function void Q4CR()
{
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "newcharges"))
{
int newcharges = [[Engine Function:_getObjVar|getObjVar]](this, "newcharges");
[[Engine Function:_removeObjVar|removeObjVar]](this, "newcharges");
[[Script_Function:_Q43X|Q43X]](newcharges);
}
return ();
}

function string Q4S3()
{
string name;
if (Q454)
{
concat(name, "an active ");
}
else
{
concat(name, "an inactive ");
}
concat(name, "crystal of communication");
concat(name, " with ");
int Q4AX = [[Script_Function:_Q42M|Q42M]]();
if (Q4AX < 0x00)
{
concat(name, "infinite");
}
else
{
name = name + Q4AX;
}
concat(name, " charges");
int Q5EU = [[Script_Function:_Q42O|Q42O]]();
if (Q5EU > 0x00)
{
concat(name, " and ");
name = name + Q5EU;
concat(name, " links");
}
return (name);
}

function void Q5RE()
{
string name = [[Script_Function:_Q4S3|Q4S3]]();
[[Engine Function:_setObjVar|setObjVar]](this, "lookAtText", name);
return ();
}

function int Q4SO(obj it)
{
int Q65M = [[Engine Function:_getObjType|getObjType]](it);
int power = 0x00 - 0x01;
switch (Q65M)
{
case 0x0F25
case 0x0F15
case 0x0F23
case 0x0F24
case 0x0F2C
power = 0x01F4;
break;
case 0x0F0A
case 0x0F14
case 0x0F1A
case 0x0F1C
case 0x0F1D
case 0x0F2A
case 0x0F2B
case 0x0F18
case 0x0F1E
case 0x0F20
case 0x0F2D
power = 0x02EE;
break;
case 0x0F10
case 0x0F2F
case 0x0F11
case 0x0F12
case 0x0F19
case 0x0F1F
case 0x0F16
case 0x0F17
case 0x0F22
case 0x0F2E
power = 0x03E8;
break;
case 0x0F0F
case 0x0F1B
case 0x0F21
power = 0x04E2;
break;
case 0x0F26
case 0x0F27
case 0x0F28
case 0x0F29
case 0x0F30
power = 0x07D0;
break;
}
return (power);
}

function void Q442(obj it)
{
[[Engine Function:_destroyOne|destroyOne]](it);
return ();
}

function int Q4CL(obj it, obj user)
{
obj Q4E2 = [[Engine Function:_getTopmostContainer|getTopmostContainer]](it);
if ((Q4E2 != [[Engine Function:_NULL|NULL]]()) && (Q4E2 != user))
{
return (0x00);
}
int power;
power = [[Script_Function:_Q4SO|Q4SO]](it);
if (power <= 0x00)
{
return (0x00);
}
if ([[Script_Function:_Q42M|Q42M]]() < 0x00)
{
[[Engine Function:_systemMessage|systemMessage]](user, "This crystal can not be recharged.");
return (0x00);
}
if ([[Script_Function:_Q42M|Q42M]]() >= Q55T)
{
[[Engine Function:_systemMessage|systemMessage]](user, "This crystal is already fully charged.");
return (0x00);
}
int num = charges + power;
if (num >= Q55T)
{
num = Q55T;
[[Engine Function:_systemMessage|systemMessage]](user, "You completely recharge the crystal.");
}
else
{
[[Engine Function:_systemMessage|systemMessage]](user, "You recharge the crystal.");
}
[[Script_Function:_Q43X|Q43X]](num);
[[Script_Function:_Q442|Q442]](it);
[[Script_Function:_Q5RE|Q5RE]]();
return (0x01);
}

trigger creation
{
Q55T = 0x07D0;
[[Script_Function:_Q43Z|Q43Z]](0x01F4);
[[Engine Function:_setObjVar|setObjVar]](this, "isComCrystal", 0x01);
[[Script_Function:_Q5R8|Q5R8]](this, 0x00);
[[Script_Function:_Q4CR|Q4CR]]();
[[Script_Function:_Q5RE|Q5RE]]();
[[Engine Function:_attachScript|attachScript]](this, "speechrelay");
return (0x01);
}

trigger lookedat
{
[[Script_Function:_Q5RE|Q5RE]]();
string name = [[Script_Function:_Q4S3|Q4S3]]();
[[Engine Function:_barkTo|barkTo]](this, looker, name);
return (0x00);
}

trigger use
{
targetobj(user, this);
return (0x01);
}

trigger targetobj
{
if (![[Engine Function:_isValid|isValid]](usedon))
{
return (0x00);
}
if ([[Script_Function:_Q4CL|Q4CL]](usedon, user))
{
return (0x00);
}
if (![[Script_Function:_Q4BE|Q4BE]](this, user))
{
return (0x00);
}
if (usedon == this)
{
[[Script_Function:_Q63I|Q63I]](user, this);
}
else
{
if ([[Script_Function:_Q4YY|Q4YY]](usedon))
{
[[Script_Function:_Q656|Q656]](user, usedon);
}
else
{
[[Engine Function:_systemMessage|systemMessage]](user, "You can not use this crystal on that.");
}
}
return (0x01);
}

trigger message("speechrelayed")
{
[[Script_Function:_Q4CR|Q4CR]]();
if (Q454)
{
int Q527 = [[Script_Function:_Q5QW|Q5QW]](this, args[0x00], args[0x01]);
[[Script_Function:_Q5RE|Q5RE]]();
}
return (0x00);
}

trigger message("comspeech")
{
string Q5R1 = args[0x01];
int Q5R0 = args[0x02];
string Q5R5 = args[0x03];
string Q5CR;
obj Q4E2 = [[Engine Function:_getTopmostContainer|getTopmostContainer]](this);
if ((Q4E2 != [[Engine Function:_NULL|NULL]]()))
{
if ([[Engine Function:_isPlayer|isPlayer]](Q4E2))
{
concat(Q5CR, "Crystal: ");
}
}
concat(Q5CR, Q5R1);
concat(Q5CR, " says ");
concat(Q5CR, Q5R5);
int Q5NC = 0x01;
if (Q4E2 == [[Engine Function:_NULL|NULL]]())
{
Q5NC = [[Engine Function:_superBark|superBark]](this, Q5CR, Q5R0, 0x03, 0x07);
}
else
{
if ([[Engine Function:_isPlayer|isPlayer]](Q4E2))
{
Q5NC = [[Engine Function:_textMessage|textMessage]](Q4E2, Q5CR, Q5R0, 0x03, 0x06);
}
else
{
Q5NC = [[Engine Function:_superBark|superBark]](Q4E2, Q5CR, Q5R0, 0x03, 0x07);
}
}
return (0x01);
}

Script: Comcrystal - Revision history

Grimoric: Created page with " member int charges; member list Q..."