Grimoric at 15:40, 19 October 2018

2018-10-19T15:40:45Z

Grimoric: Created page with " inherits sk_table; function void Q557(
2018-10-05T16:35:20Z

Created page with " inherits sk_table; function void Q557(inherits [[Script:_Sk_table|sk_table]];

function void Q557(string Q4Y5, list Q4YF)
{
int count;
int Q5EJ = [[Engine Function:_numInList|numInList]](Q4YF);
for(count = 0x00; count < Q5EJ; count++)
{
string Q5ZE = Q4YF[count];
if (count == (Q5EJ - 0x01))
{
Q4Y5 = Q4Y5 + Q5ZE;
}
if (count == (Q5EJ - 0x02))
{
Q4Y5 = Q4Y5 + Q5ZE + " and ";
}
if (count < (Q5EJ - 0x02))
{
Q4Y5 = Q4Y5 + Q5ZE + ", ";
}
}
return ();
}

trigger message("canUseSkill")
{
return (0x00);
}

trigger callback(0x4D)
{
[[Engine Function:_detachScript|detachScript]](this, "animlore");
return (0x00);
}

trigger message("useSkill")
{
[[Engine Function:_callback|callback]](this, 0x0A, 0x4D);
[[Engine Function:_systemMessage|systemMessage]](this, "What animal should I look at?");
[[Engine Function:_targetObj|targetObj]](this, this);
return (0x00);
}

trigger targetobj
{
if (usedon == [[Engine Function:_NULL|NULL]]())
{
return (0x00);
}
if (![[Engine Function:_isMobile|isMobile]](usedon))
{
[[Engine Function:_barkTo|barkTo]](this, this, "That's not an animal!");
return (0x00);
}
if ([[Engine Function:_isHuman|isHuman]](usedon))
{
[[Engine Function:_barkTo|barkTo]](this, this, "That's not an animal!");
return (0x00);
}
loc Q4VS = [[Engine Function:_getLocation|getLocation]](this);
loc there = [[Engine Function:_getLocation|getLocation]](usedon);
if ([[Engine Function:_getDistanceInTiles|getDistanceInTiles]](Q4VS, there) > 0x10)
{
[[Engine Function:_barkTo|barkTo]](usedon, this, "I am too far away to do that.");
return (0x00);
}
int Q5TE = [[Engine Function:_testSkillReal|testSkillReal]](this, 0x02);
if (Q5TE <= 0x00)
{
[[Engine Function:_barkTo|barkTo]](usedon, this, "You can't think of anything you know offhand.");
return (0x00);
}
int Q48L = [[Engine Function:_getObjType|getObjType]](usedon);
string name;
name = [[Engine Function:_getName|getName]](usedon);
int Q4Q1;
int count;
list Q4Q7;
list Q5RT;
list Q5KP;
list Q4HM;
string Q4YK;
string Q5UH;
string Q496;
string Q4Y5;
string Q5ZE;
Q4Q1 = [[Engine Function:_getResourcesOnObj|getResourcesOnObj]](usedon, 0x01, Q5RT);
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5RT, "spookiness");
int Q5EP = [[Engine Function:_numInList|numInList]](Q5RT);
for(count = 0x00; count < Q5EP; count++)
{
Q4YK = Q5RT[count];
Q5UH = [[Engine Function:_getResourceName|getResourceName]](Q4YK, 0x01);
[[Engine Function:_setItem|setItem]](Q5RT, Q5UH, count);
}
[[Engine Function:_toUpper|toUpper]](name, 0x00, 0x01);
Q4Y5 = name + " lives in ";
[[Script_Function:_Q557|Q557]](Q4Y5, Q5RT);
Q4Q1 = [[Engine Function:_getResourcesOnObj|getResourcesOnObj]](usedon, 0x00, Q4Q7);
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q4Q7, "spookiness");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q4Q7, "jungle");
int Q5EK = [[Engine Function:_numInList|numInList]](Q4Q7);
for(count = 0x00; count < Q5EK; count++)
{
Q4YK = Q4Q7[count];
Q5UH = [[Engine Function:_getResourceName|getResourceName]](Q4YK, 0x00);
[[Engine Function:_setItem|setItem]](Q4Q7, Q5UH, count);
}
Q4Y5 = Q4Y5 + " and eats ";
[[Script_Function:_Q557|Q557]](Q4Y5, Q4Q7);
Q4Y5 = Q4Y5 + ". ";
Q4Q1 = [[Engine Function:_getResourcesOnObj|getResourcesOnObj]](usedon, 0x03, Q5KP);
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "carnivoremeat");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "meat");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "spookiness");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "good");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "neutral");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "evil");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "orccamp");
[[Engine Function:_removeSpecificItem|removeSpecificItem]](Q5KP, "magic");
int Q5EM = [[Engine Function:_numInList|numInList]](Q5KP);
for(count = 0x00; count < Q5EM; count++)
{
Q4YK = Q5KP[count];
Q5UH = [[Engine Function:_getResourceName|getResourceName]](Q4YK, 0x03);
if (Q5UH == "cloth")
{
Q5UH = "wool";
}
if (Q5UH == "ridable")
{
Q5UH = "ability to carry";
}
if (Q5UH == "leather")
{
Q5UH = "[[hide|hide]]"
);
}
[[Engine Function:_setItem|setItem]](Q5KP, Q5UH, count);
}
if (Q5EM > 0x00)
{
Q4Y5 = Q4Y5 + "They are sometimes used for their ";
[[Script_Function:_Q557|Q557]](Q4Y5, Q5KP);
Q4Y5 = Q4Y5 + ". ";
}
Q4Q1 = [[Engine Function:_getResourcesOnObj|getResourcesOnObj]](usedon, 0x02, Q4HM);
int Q5EI = [[Engine Function:_numInList|numInList]](Q4HM);
for(count = 0x00; count < Q5EI; count++)
{
Q4YK = Q4HM[count];
Q5UH = [[Engine Function:_getResourceName|getResourceName]](Q4YK, 0x02);
[[Engine Function:_setItem|setItem]](Q5KP, Q5UH, count);
}
for(count = 0x00; count < Q5EI; count++)
{
list Q5LT;
list Q47D;
string Q5N3 = Q4HM[count];
int Q4HK;
Q4Q1 = [[Engine Function:_getResource|getResource]](Q4HK, usedon, Q5N3, 0x02, 0x01);
if (Q4HK < 0x00)
{
if (!(Q5N3 == "danger"))
{
if (Q5N3 == "meat")
{
[[Engine Function:_appendToList|appendToList]](Q47D, "carnivores");
}
else
{
[[Engine Function:_appendToList|appendToList]](Q47D, Q5N3);
}
}
}
if (Q4HK > 0x00)
{
if (Q5N3 == "self")
{
[[Engine Function:_appendToList|appendToList]](Q5LT, "others of their kind");
}
else
{
[[Engine Function:_appendToList|appendToList]](Q5LT, Q5N3);
}
}
}
int Q5EO = [[Engine Function:_numInList|numInList]](Q5LT);
if (Q5EO > 0x00)
{
Q4Y5 = Q4Y5 + "They are usually found near ";
[[Script_Function:_Q557|Q557]](Q4Y5, Q5LT);
}
int Q5EH = [[Engine Function:_numInList|numInList]](Q47D);
if (Q5EH > 0x00)
{
if (Q5EO > 0x00)
{
Q4Y5 = Q4Y5 + " but they will tend to avoid ";
}
else
{
Q4Y5 = Q4Y5 + "They will avoid ";
}
[[Script_Function:_Q557|Q557]](Q4Y5, Q47D);
}
string Q4XH;
int Q614 = [[Engine Function:_getHungerLevel|getHungerLevel]](usedon);
if (![[Engine Function:_hasHome|hasHome]](usedon))
{
Q4Y5 = Q4Y5 + "This one has the worn-down look of a creature that lacks a lair or home to call its own. ";
}
else
{
int Q4IJ = [[Engine Function:_getDistanceInTiles|getDistanceInTiles]](getHome(usedon), [[Engine Function:_getLocation|getLocation]](usedon));
if (Q4IJ < 0x10)
{
Q4Y5 = Q4Y5 + "This appears to be its home. ";
}
else
{
if (Q4IJ > 0x46)
{
Q4Y5 = Q4Y5 + "It seems to be far from its normal home. ";
}
else
{
Q4Y5 = Q4Y5 + "Its home is probably nearby. ";
}
}
}
Q614 = Q614 / 0x0A;
switch (Q614)
{
case 0x00
Q4XH = "like it is starving.";
break;
case 0x01
Q4XH = "near starving.";
break;
case 0x02
Q4XH = "pretty hungry.";
break;
case 0x03
Q4XH = "hungry.";
break;
case 0x04
case 0x05
case 0x06
Q4XH = "moderately well-fed.";
break;
case 0x07
Q4XH = "well-fed.";
break;
case 0x08
Q4XH = "plump.";
break;
case 0x09
Q4XH = "like it gets plenty to eat.";
break;
case 0x0A
Q4XH = "replete, as if it has just eaten.";
break;
default
Q4XH = "moderately well-fed.";
break;
}
if (![[Engine Function:_hasObjListVar|hasObjListVar]](usedon, "myBoss"))
{
Q4Y5 = Q4Y5 + "It looks " + Q4XH;
}
[[Engine Function:_barkTo|barkTo]](this, this, Q4Y5);
[[Engine Function:_setObjVar|setObjVar]](usedon, "askedMyLoyalty", this);
shortCallback(usedon, 0x01, 0x43);
return (0x00);
}

@@ Line 135: / Line 135: @@
       <span style="color:#0000FF">if</span> (Q5UH == <span style="color:#800000">"leather"</span>)
+      {
-        Q5UH = <span style="color:#800000">"[[hide|<span style="color:#2B91AF">hide</span>]]"</span>
+        Q5UH = <span style="color:#800000">"hide"</span>
         );
+      }