Grimoric at 05:13, 24 October 2018

2018-10-24T05:13:04Z

Grimoric: Created page with " inherits globals; forward void addMessage(
2018-10-05T16:22:23Z

Created page with " inherits globals; forward void addMessage(<span..."

New page
inherits [[Script:_Globals|globals]];

forward void [[addMessage|addMessage]](list );
forward void [[Script_Function:_Q5T0|Q5T0]]();
forward int [[Script_Function:_Q4PC|Q4PC]](string );

member string Q4FN;

trigger creation
{
list Q58D;
[[Engine Function:_setObjVar|setObjVar]](this, "oracleMessages", Q58D);
return (0x00);
}

function void addMessage(list Q58D)
{
list Q45T;
[[Engine Function:_getObjListVar|getObjListVar]](Q45T, this, "oracleMessages");
[[Engine Function:_appendToList|appendToList]](Q45T, Q58D);
[[Engine Function:_setObjVar|setObjVar]](this, "oracleMessages", Q45T);
[[Engine Function:_bark|bark]](this, "Message added.");
return ();
}

function void Q5T0()
{
list Q45T;
[[Engine Function:_getObjListVar|getObjListVar]](Q45T, this, "oracleMessages");
if ([[Engine Function:_numInList|numInList]](Q45T) < 0x01)
{
[[Engine Function:_bark|bark]](this, "No [[Engine Function:_message|message]]s are set.");
return ();
}
string Q51K;
string t;
list Q663;
for(int i = 0x00; i < [[Engine Function:_numInList|numInList]](Q45T); i++)
{
[[Engine Function:_copyList|copyList]](Q663, Q45T[i]);
Q51K = Q663[0x00];
t = Q663[0x01];
[[Engine Function:_bark|bark]](this, "'" + t + "', Keyword: '" + Q51K + "'.'");
}
return ();
}

function int Q4PC(string Q51K)
{
int Q4Y2;
list a;
[[Engine Function:_getObjListVar|getObjListVar]](a, this, "oracleMessages");
list Q663;
string Q55K;
for(int i = 0x00; i < [[Engine Function:_numInList|numInList]](a); i++)
{
[[Engine Function:_copyList|copyList]](Q663, a[i]);
Q55K = Q663[0x00];
if (Q51K == Q55K)
{
return (Q4Y2);
}
}
return (0x00 - 0x01);
}

trigger textentry(0x22)
{
Q4FN = text;
[[Engine Function:_bark|bark]](this, "Adding text '" + Q4FN + "'.");
[[Engine Function:_systemMessage|systemMessage]](sender, "Enter the keyword that will trigger this response.");
[[Engine Function:_textEntry|textEntry]](this, sender, 0x24, 0x00, "");
return (0x00);
}

trigger textentry(0x24)
{
list u = text, Q4FN;
[[addMessage|addMessage]](u);
return (0x00);
}

trigger textentry(0x23)
{
int Q4Y2 = [[Script_Function:_Q4PC|Q4PC]](text);
if (Q4Y2 == (0x00 - 0x01))
{
[[Engine Function:_systemMessage|systemMessage]](sender, "That keyword was not found.");
return (0x00);
}
list a;
[[Engine Function:_getObjListVar|getObjListVar]](a, this, "oracleMessages");
[[Engine Function:_removeItem|removeItem]](a, Q4Y2);
[[Engine Function:_systemMessage|systemMessage]](sender, "Oracle string removed.");
[[Engine Function:_setObjVar|setObjVar]](this, "oracleMessages", a);
return (0x00);
}

trigger use
{
int Q45V = 0x00;
if ([[Engine Function:_hasObjVar|hasObjVar]](user, "allowedToEditOracle"))
{
Q45V = 0x01;
}
if ([[Engine Function:_isEditing|isEditing]](user))
{
Q45V = 0x01;
}
if (!Q45V)
{
return (0x01);
}
list Q56N;
[[Engine Function:_appendToList|appendToList]](Q56N, 0x00);
[[Engine Function:_appendToList|appendToList]](Q56N, "View conversation strings.");
[[Engine Function:_appendToList|appendToList]](Q56N, 0x01);
[[Engine Function:_appendToList|appendToList]](Q56N, "Add a conversation string.");
[[Engine Function:_appendToList|appendToList]](Q56N, 0x02);
[[Engine Function:_appendToList|appendToList]](Q56N, "Remove a conversation string.");
[[Engine Function:_appendToList|appendToList]](Q56N, 0x03);
[[Engine Function:_appendToList|appendToList]](Q56N, "Clear all conversation strings.");
[[Engine Function:_selectType|selectType]](user, this, 0x3A, "ORACLE CONTROL MENU", Q56N);
return (0x00);
}

trigger typeselected(0x3A)
{
if (listindex == 0x00)
{
return (0x00);
}
switch (objtype)
{
case 0x00
[[Script_Function:_Q5T0|Q5T0]]();
break;
case 0x01
[[Engine Function:_systemMessage|systemMessage]](user, "Enter the text of the oracle [[Engine Function:_message|message]]:");
[[Engine Function:_textEntry|textEntry]](this, user, 0x22, 0x00, "");
break;
case 0x02
[[Engine Function:_systemMessage|systemMessage]](user, "Enter the keyword of the [[Engine Function:_message|message]] to remove:");
[[Engine Function:_textEntry|textEntry]](this, user, 0x23, 0x00, "");
break;
case 0x03
list Q48F;
[[Engine Function:_setObjVar|setObjVar]](this, "oracleMessages", Q48F);
[[Engine Function:_systemMessage|systemMessage]](user, "All oracle [[Engine Function:_message|message]]s cleared.");
break;
default
return (0x00);
break;
}
return (0x00);
}

function int Q4QL(list w)
{
list a;
[[Engine Function:_getObjListVar|getObjListVar]](a, this, "oracleMessages");
string Q51K;
string Q55K;
list Q663;
for(int i = 0x00; i < [[Engine Function:_numInList|numInList]](w); i++)
{
Q55K = w[i];
for(int Q518 = 0x00; Q518 < [[Engine Function:_numInList|numInList]](a); Q518++)
{
[[Engine Function:_copyList|copyList]](Q663, a[Q518]);
Q51K = Q663[0x00];
if (Q51K == Q55K)
{
return (Q518);
}
}
}
return (0xFF);
}

function string Q5GJ(int Q4XT)
{
list Q663;
list a;
[[Engine Function:_getObjListVar|getObjListVar]](a, this, "oracleMessages");
[[Engine Function:_copyList|copyList]](Q663, a[Q4XT]);
string Q65L = Q663[0x01];
return (Q65L);
}

trigger speech("*")
{
if ([[Engine Function:_getDistanceInTiles|getDistanceInTiles]]([[Engine Function:_getLocation|getLocation]](this), [[Engine Function:_getLocation|getLocation]](speaker)) > 0x04)
{
return (0x01);
}
list Q69B;
[[Engine Function:_split|split]](Q69B, arg);
int Q4QI = [[Script_Function:_Q4QL|Q4QL]](Q69B);
if (Q4QI != 0xFF)
{
[[Engine Function:_bark|bark]](this, [[Script_Function:_Q5GJ|Q5GJ]](Q4QI));
return (0x00);
}
return (0x01);
}

@@ Line 1: / Line 1: @@
   <span style="color:#0000FF">inherits</span> [[Script:_Globals|globals]];
-  forward <span style="color:#0000FF">void</span> [[addMessage|<span style="color:#2B91AF">addMessage</span>]](<span style="color:#0000FF">list</span> );
+  forward <span style="color:#0000FF">void</span> [[Script_Function:_addMessage|<span style="color:#2B91AF">addMessage</span>]](<span style="color:#0000FF">list</span> );
   forward <span style="color:#0000FF">void</span> [[Script_Function:_Q5T0|<span style="color:#2B91AF">Q5T0</span>]]();
   forward <span style="color:#0000FF">int</span> [[Script_Function:_Q4PC|<span style="color:#2B91AF">Q4PC</span>]](<span style="color:#0000FF">string</span> );
@@ Line 77: / Line 77: @@
+  {
     <span style="color:#0000FF">list</span> u = text, Q4FN;
-    [[addMessage|<span style="color:#2B91AF">addMessage</span>]](u);
+    [[Script_Function:_addMessage|<span style="color:#2B91AF">addMessage</span>]](u);
     <span style="color:#0000FF">return</span> (0x00);
+  }