Difference between revisions of "Script: Inscribe"
From Ultima Online: The Second Age
(Created page with " <span style="color:#0000FF">inherits</span> spelskil; <span style="color:#0000FF">member</span> <span style="color:#0000FF">obj</span> Q62D; <span style="color:#0000FF...") |
|||
Line 552: | Line 552: | ||
<span style="color:#0000FF">if</span> ([[Engine Function:_isValid|<span style="color:#FF0000;font-weight:bold">isValid</span>]](Q56M)) | <span style="color:#0000FF">if</span> ([[Engine Function:_isValid|<span style="color:#FF0000;font-weight:bold">isValid</span>]](Q56M)) | ||
{ | { | ||
− | Q4Q1 = [[ | + | Q4Q1 = [[Engine Function:_teleport|<span style="color:#FF0000;font-weight:bold">teleport</span>]](Q56M, [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](Q62D)); |
} | } | ||
sfx([[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](Q62D), 0x0249, 0x00); | sfx([[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](Q62D), 0x0249, 0x00); |
Latest revision as of 07:33, 19 October 2018
inherits spelskil;
member obj Q62D; member obj Q56M; member obj Q5U9; member obj Q43Q; member list Q5V0; member list Q4PF; member list Q5QM; member list Q61M; member list Q4QW; member list Q4P4; member list Q5T7; member list Q5RM; member list Q4NI; member int finished;
forward void Q4YH(int Q5UT); forward void Q4DB();
function int Q65B(obj user, obj usedon) { if (isAtHome(usedon)) { systemMessage(user, "That scroll belongs to someone else."); if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } obj Q5UJ = mobileContainsObjType(user, 0x0EFA); if (isValid(Q5UJ)) { int Q5UP; int Q5LN; obj Q626; int Q5UU; int Q5US; int Q627; int Q4AQ = getCurMana(user); int Q625; obj Q5LO; int Q65R; list Q5BD; int Q5E5; int Q4VA; list Q47B; string Q5X2; loc Q66U = getLocation(user); getContents(Q5V0, Q5UJ); int Q5EA; Q5EA = numInList(Q5V0); sortList(Q5V0, 0x04); for(Q5UP = 0x00; Q5UP < Q5EA; Q5UP++) { Q626 = Q5V0[Q5UP]; Q5UU = Q4T2(Q626); Q5US = Q42S(Q626); Q627 = Q4SX(Q5US); if (!Q4A8(Q62D, Q5US)) { Q5UP++; continue; } if (Q4AQ < Q627) { Q5UP++; continue; } Q5X2 = Q4T0(Q5UU); switch (Q5US) { case 0x01 appendToList(Q4PF, Q5UU + 0x2080); appendToList(Q4PF, Q5X2); break; case 0x02 appendToList(Q5QM, Q5UU + 0x2080); appendToList(Q5QM, Q5X2); break; case 0x03 appendToList(Q61M, Q5UU + 0x2080); appendToList(Q61M, Q5X2); break; case 0x04 appendToList(Q4QW, Q5UU + 0x2080); appendToList(Q4QW, Q5X2); break; case 0x05 appendToList(Q4P4, Q5UU + 0x2080); appendToList(Q4P4, Q5X2); break; case 0x06 appendToList(Q5T7, Q5UU + 0x2080); appendToList(Q5T7, Q5X2); break; case 0x07 appendToList(Q5RM, Q5UU + 0x2080); appendToList(Q5RM, Q5X2); break; case 0x08 appendToList(Q4NI, Q5UU + 0x2080); appendToList(Q4NI, Q5X2); break; default break; } } list Q4D8; if (numInList(Q4PF) > 0x00) { appendToList(Q4D8, 0x20C0); appendToList(Q4D8, "First Circle"); } if (numInList(Q5QM) > 0x00) { appendToList(Q4D8, 0x20C1); appendToList(Q4D8, "Second Circle"); } if (numInList(Q61M) > 0x00) { appendToList(Q4D8, 0x20C2); appendToList(Q4D8, "Third Circle"); } if (numInList(Q4QW) > 0x00) { appendToList(Q4D8, 0x20C3); appendToList(Q4D8, "Fourth Circle"); } if (numInList(Q4P4) > 0x00) { appendToList(Q4D8, 0x20C4); appendToList(Q4D8, "Fifth Circle"); } if (numInList(Q5T7) > 0x00) { appendToList(Q4D8, 0x20C5); appendToList(Q4D8, "Sixth Circle"); } if (numInList(Q5RM) > 0x00) { appendToList(Q4D8, 0x20C6); appendToList(Q4D8, "Seventh Circle"); } if (numInList(Q4NI) > 0x00) { appendToList(Q4D8, 0x20C7); appendToList(Q4D8, "Eighth Circle"); } } else { systemMessage(user, "You don't have a spellbook."); if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } if (numInList(Q4D8) > 0x00) { selectType(Q62D, this, 0x1C, "Choose a circle.", Q4D8); return (0x01); } else { systemMessage(user, "You can't inscribe any spells."); if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } return (0x01); }
function int Q65A(obj user, obj usedon) { int Q66P = getObjType(usedon); if (isAtHome(usedon)) { systemMessage(user, "That book belongs to someone else."); if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } int Q5KZ = getBookPages(usedon); if (Q5U9 == NULL()) { if (Q5KZ == 0x00) { systemMessage(user, "Can't copy an empty book."); if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } Q5U9 = usedon; systemMessage(user, "Select a book to copy this to."); targetObj(user, this); } else { if (Q66P == 0x0FEF) { systemMessage(user, "Cannot write into that book."); if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } if (Q66P == 0x0FF0) { systemMessage(user, "Cannot write into that book."); if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } if (usedon == Q5U9) { systemMessage(user, "Cannot copy a book onto itself."); if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); } int Q4IA = 0x96; int Q4OU = 0x00; if (testAndLearnSkill(user, 0x17, Q4IA, 0x32) <= 0x00) { Q4OU = 0x01; } else { int Q5NB; Q5NB = copybook(usedon, Q5U9); sfx(getLocation(Q62D), 0x0249, 0x00); if (Q5NB == 0x00) { Q4OU = 0x01; } } if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } Q5U9 = NULL(); if (Q4OU) { systemMessage(user, "You fail to make a copy of the book."); return (0x00); } else { systemMessage(user, "You make a copy of the book."); } } return (0x01); }
trigger message("canUseSkill") { return (0x00); }
trigger callback(0x4D) { if (!finished) { systemMessage(this, "You have waited too long to make your inscribe selection, your inscription attempt has timed out.") } detachScript(this, "inscribe"); Q4DB(); return (0x00); }
function void Q5M3(obj it, int Q4MY) { int Q4H9 = 0x3C; if (Q4MY) { Q4H9 = 0x0A; finished = 0x01; } callback(it, Q4H9, 0x4D); return (); }
trigger message("useSkill") { Q5M3(this, 0x00); systemMessage(this, "What would you like to inscribe?"); Q5U9 = NULL(); targetObj(this, this); return (0x00); }
function int Q61L(obj user, obj usedon) { if (usedon == NULL()) { return (0x00); } if (hasObjVar(usedon, "inUse")) { systemMessage(user, "Someone else is inscribing that item."); return (0x00); } int Q66P = getObjType(usedon); switch (Q66P) { case 0x0EF3 case 0x0E34 Q56M = usedon; Q62D = user; setObjVar(Q56M, "inUse", 0x00); attachscript(Q56M, "removeinuse"); callback(Q56M, 0x3C, 0x1B); return (Q65B(user, usedon)); break; case 0x0FEF case 0x0FF0 case 0x0FF1 case 0x0FF2 Q56M = usedon; Q62D = user; setObjVar(Q56M, "inUse", 0x00); attachscript(Q56M, "removeinuse"); callback(Q56M, 0x3C, 0x1B); return (Q65A(user, usedon)); break; default systemMessage(user, "Can't inscribe that item."); if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } if (hasObjVar(usedon, "inUse")) { removeObjVar(usedon, "inUse"); } return (0x00); break; } return (0x01); }
trigger targetobj { if (!Q61L(user, usedon)) { Q4DB(); Q5M3(this, 0x01); } else { Q5M3(this, 0x00); } return (0x00); }
function int Q4D7(obj user, int listindex, int objtype) { if (listindex == 0x00) { return (0x00); } switch (objtype) { case 0x20C0 selectType(Q62D, this, 0x1D, "Choose a first circle spell.", Q4PF); break; case 0x20C1 selectType(Q62D, this, 0x1E, "Choose a second circle spell.", Q5QM); break; case 0x20C2 selectType(Q62D, this, 0x1F, "Choose a third circle spell.", Q61M); break; case 0x20C3 selectType(Q62D, this, 0x20, "Choose a fourth circle spell.", Q4QW); break; case 0x20C4 selectType(Q62D, this, 0x21, "Choose a fifth circle spell.", Q4P4); break; case 0x20C5 selectType(Q62D, this, 0x22, "Choose a sixth circle spell.", Q5T7); break; case 0x20C6 selectType(Q62D, this, 0x23, "Choose a seventh circle spell.", Q5RM); break; case 0x20C7 selectType(Q62D, this, 0x24, "Choose a eighth circle spell.", Q4NI); break; default return (0x00); break; } if (hasObjVar(Q56M, "inUse")) { removeObjVar(Q56M, "inUse"); } return (0x01); }
trigger typeselected(0x1C) { if (!Q4D7(user, listindex, objtype)) { Q4DB(); Q5M3(this, 0x01); } else { Q5M3(this, 0x00); } return (0x00); }
function void Q5UV(int listindex, int objtype) { if (listindex != 0x00) { Q4YH(objtype - 0x2080); } Q4DB(); Q5M3(this, 0x01); return (); }
trigger typeselected(0x1D) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x1E) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x1F) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x20) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x21) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x22) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x23) { Q5UV(listindex, objtype); return (0x00); }
trigger typeselected(0x24) { Q5UV(listindex, objtype); return (0x00); }
function void Q4YH(int Q5UT) { list Q5MR; Q4SL(Q5MR, Q5UT); loc Q66U = getLocation(Q62D); if (!Q5YB(Q62D, Q5MR)) { systemMessage(Q62D, "You lack the necessary reagents to inscribe this spell."); return (); } int Q5US = Q4SY(Q5UT); int Q55B = Q4SX(Q5US); if (Q49R(Q62D, Q66U, Q55B)) { loseMana(Q62D, Q55B); int Q4OU = 0x00; int Q4IA = Q4SW(Q4T1(Q5UT)); if (!Q4A8(Q62D, Q4T1(Q5UT))) { Q4OU = 0x01; } if (!Q4OU) { if (testAndLearnSkill(Q62D, 0x17, Q4IA, 0x32) <= 0x00) { Q4OU = 0x01; } } if (Q4OU) { systemMessage(Q62D, "You fail to inscribe the scroll, and the scroll is ruined."); destroyOne(Q56M); return (); } int Q5AL = Q4T3(Q5UT); Q43Q = requestCreateObjectAt(Q5AL, getLocation(Q62D)); destroyOne(Q56M); string Q5WZ; Q5WZ = Q5AL; attachscript(Q43Q, Q5WZ); int Q4Q1; obj Q47G = getBackpack(Q62D); if (canHold(Q47G, Q43Q)) { Q4Q1 = putObjContainer(Q43Q, Q47G); sfx(getLocation(Q62D), 0x0249, 0x00); systemMessage(Q62D, "You inscribe the spell and put the scroll in your backpack."); } else { if (isValid(Q56M)) { Q4Q1 = teleport(Q56M, getLocation(Q62D)); } sfx(getLocation(Q62D), 0x0249, 0x00); systemMessage(Q62D, "You inscribe the spell and put the scroll at your feet."); } if (isValid(Q56M)) { if (hasObjVar(Q56M, "inUse")) { removeObjVar(Q56M, "inUse"); } if (hasScript(Q56M, "removeinuse")) { detachScript(Q56M, "removeinuse"); } } } else { systemMessage(Q62D, "You fail to inscribe the scroll, and the scroll is ruined."); destroyOne(Q56M); return (); } return (); }
function void Q4DB() { clearList(Q5V0); clearList(Q4PF); clearList(Q5QM); clearList(Q61M); clearList(Q4QW); clearList(Q4P4); clearList(Q5T7); clearList(Q5RM); clearList(Q4NI); if (hasObjVar(Q56M, "inUse")) { removeObjVar(Q56M, "inUse"); } if (hasScript(Q56M, "removeinuse")) { removeObjVar(Q56M, "removeinuse"); } return (); }
trigger callback(0x1B) { if (hasObjVar(Q56M, "inUse")) { removeObjVar(Q56M, "inUse"); } if (hasObjVar(Q5U9, "inUse")) { removeObjVar(Q5U9, "inUse"); } return (0x01); }