Zugg Software :: View topic

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

Well..I have a script sitting here..that was appearently working at one time*given to me by a friend*..however I go to import it now..and It doesnt work..Can someone PLEASE tell me whats wrong with this script?Sayid And resetid Seem to work fine..having problems with dbid

#CLASS {ItemID} {enable}
#ALIAS resetitemid {#var ObjectName {} {_nodef} {ItemID};#var ObjectLoc {} {_nodef} {ItemID};#var ObjectLvlRes {} {_nodef} {ItemID};#var ObjectDice {} {_nodef} {ItemID};#var WeaponFlags {} {_nodef} {ItemID};#var ObjectAffects {} {_nodef} {ItemID};#var ObjectAlignment {} {_nodef} {ItemID};#var ObjectClass {} {_nodef} {ItemID};#var ObjectACapp {} {_nodef} {ItemID};#var ObjectCond {} {_nodef} {ItemID};#var ObjectDays {} {_nodef} {ItemID};#var ObjectEgged {} {_nodef} {ItemID};#var ObjectMultiSlot {} {_nodef} {ItemID};#var ObjectTemp {} {_nodef} {ItemID};#var WeaponType {} {_nodef} {ItemID};#var Objectnoun {} {_nodef} {ItemID};#var Objectperm {} {_nodef} {ItemID};#var ObjectAC {} {_nodef} {ItemID};#var Objectwand {} {_nodef} {ItemID};#var Objectbag {} {_nodef} {ItemID};#var Objectbag2 {} {_nodef} {ItemID}}
#ALIAS briefid {#var BriefID {} {_nodef} {ItemID};BriefID={@ObjectName~:};#if (@ObjectLvlRes > 0) {BriefID={@BriefID Lev(@ObjectLvlRes)}};#if (@ObjectType = KEY) {BriefID={@BriefID KEY}};#if (@ObjectType = LIGHT) {ObjectLoc = {light}};#if (!%null(@ObjectLoc)) {BriefID={@BriefID Loc(%lower(%trim(@ObjectLoc)))}};#if (!%null(@ObjectMultiSlot)) {BriefID={@BriefID MultiSlots(%lower(%trim(@ObjectMultiSlot)))}};#if (@ObjectACapp > 0) {BriefID={@BriefID Acapp(@ObjectACapp)}};#if (!%null(@ObjectDice)) {BriefID={@BriefID @ObjectDice}};#if (!%null(@ObjectAffects)) {BriefID={@BriefID %replace(@ObjectAffects,|," ")}};#if (!%null(@ObjectAlignment)) {BriefID={@BriefID %replace(@ObjectAlignment,|," ")}};#if (!%null(@ObjectClass)) {BriefID={@BriefID %replace(@ObjectClass,|," ")}};#if (!%null(@ObjectEffects)) {BriefID={@BriefID %replace(@ObjectEffects,|," ")}};BriefID={@BriefID Cond(@ObjectCond};#if (@ObjectEgged = "green aura") {BriefID={@BriefID - green aura}};#if (@ObjectEgged = "black aura") {BriefID={@BriefID - black aura}};BriefID={@BriefID~)};BriefID={@BriefID Days(@ObjectDays)};say @BriefID;}
#ALIAS dbid {#var ObjectDB {} {_no;#addkey ObjectDB {Object Name} {@ObjectName};#addkeObjectDB {Weapon Flags} {@WeaponFlags};ObjectTemp=%replace(@ObjectEffects,"]","");ObjectTemp=%replace(@ObjectTemp,"[","");#addkey ObjectDB {Weapon Type} {@WeaponType};#addkey ObjectDB Wand {@Objectwand};#addkey ObjectDB Capacity {@Objectbag};#addkey ObjectDB Multiplier {@Objectbag2};#addkey ObjectDB AC {@ObjectAC};#addkey ObjectDB Dice {@ObjectDice};#addkey ObjectDB Location(s) {@ObjectLoc};#addkey ObjectDB Level {@ObjectLvlRes};#addkey ObjectDB {Damage Type} {@Objectnoun};#addkey ObjectDB {Permanent Affects} {@Objectperm};ObjectTemp={Mage|Cleric|Thief|Warrior};#if %ismember("!M",@ObjectClass) {#delitem ObjectTemp Mage};#if %ismember("!C",@ObjectClass) {#delitem ObjectTemp Cleric};#if %ismember("!T",@ObjectClass) {#delitem ObjectTemp Thief};#if %ismember("!W",@ObjectClass) {#delitem ObjectTemp Warrior};#addkey ObjectDB Class {@ObjectTemp};ObjectTemp={Good|Neutral|Evil};#if %ismember("!G",@ObjectAlignment) {#delitem ObjectTemp Good};#if %ismember("!N",@ObjectAlignment) {#delitem ObjectTemp Neutral};#if %ismember("!E",@ObjectAlignment) {#delitem ObjectTemp Evil};#addkey ObjectDB Alignment {@ObjectTemp};#addkey ObjectDB Affects {%replace(@ObjectAffects,"|"," ")};#new @ObjectType @ObjectDB;#mess 2 @ObjectName has been added!}
#ALIAS sayid {#var BriefID {} {_nodef} {ItemID};BriefID={@ObjectName~:};#if (!%null(@ObjectAC)) {BriefID={@BriefID @ObjectAC}};#if (@ObjectLvlRes > 0) {BriefID={@BriefID Lev(@ObjectLvlRes)}};#if (@ObjectType = KEY) {BriefID={@BriefID KEY}};#if (@ObjectType = LIGHT) {ObjectLoc = {light}};#if (!%null(@ObjectLoc)) {BriefID={@BriefID Loc(%lower(%trim(@ObjectLoc)))}};#if (!%null(@ObjectMultiSlot)) {BriefID={@BriefID MultiSlots(%lower(%trim(@ObjectMultiSlot)))}};#if (@ObjectACapp > 0) {BriefID={@BriefID Acapp(@ObjectACapp)}};#if (!%null(@WeaponType)) {BriefID={@BriefID @WeaponType}};#if (!%null(@ObjectDice)) {BriefID={@BriefID @ObjectDice}};#if (!%null(@Objectwand)) {BriefID={@BriefID @Objectwand}};#if (!%null(@WeaponFlags)) {BriefID={@BriefID @WeaponFlags}};#if (!%null(@Objectperm)) {BriefID={@BriefID @Objectperm}};#if (!%null(@Objectnount)) {BriefID={@BriefID @Objectnoun}};#if (!%null(@ObjectAffects)) {BriefID={@BriefID %replace(@ObjectAffects,|," ")}};#if (!%null(@ObjectAlignment)) {BriefID={@BriefID %replace(@ObjectAlignment,|," ")}};#if (!%null(@ObjectClass)) {BriefID={@BriefID %replace(@ObjectClass,|," ")}};BriefID={@BriefID Cond(@ObjectCond};#if (!%null(@Objectbag)) {BriefID={@BriefID @Objectbag}};#if (!%null(@Objectbag2)) {BriefID={@BriefID @Objectbag2}};#if (@ObjectEgged = "green aura") {BriefID={@BriefID - green aura}};#if (@ObjectEgged = "black aura") {BriefID={@BriefID - black aura}};BriefID={@BriefID~)};BriefID={@BriefID Days(@ObjectDays)};say @BriefID}
#VAR ObjectName {a slig jewel}
#VAR ObjectLoc {take hold}
#VAR ObjectType {bless anti-evil}
#VAR ObjectLvlRes {50}
#VAR ObjectDice {}
#VAR ObjectAffects {HP( 200)|MANA( 200)}
#VAR ObjectAlignment {}
#VAR ObjectClass {}
#VAR ObjectACapp {}
#VAR ObjectCond {}
#VAR ObjectDays {}
#VAR ObjectEgged {}
#VAR ObjectEffects {!B}
#VAR ObjectMultiSlot {}
#VAR ObjectTemp {hum|no_locate}
#VAR BriefID {a slig jewel: Lev(50) Loc(take hold) HP( 200) MANA( 200) Cond() Days()}
#VAR ObjectDB {Object Namea braided ringWeapon FlagsWeapon TypeWandCapacityMultiplierAC80 pierce, 80 bash, 80 slash, and 100 vs. magicDiceLocation(s)take fingerLevel155Damage TypePermanent AffectsClassMage|Cleric|Thief|WarriorAlignmentGood|NeutralAffectsdamage roll(5) HP(100) STR(8) moves(100)}
#VAR ObjectWeight {1}
#VAR ObjectValue {0}
#VAR WeaponFlags {}
#VAR WeaponType {}
#VAR Objectnoun {}
#VAR Objectperm {}
#VAR ObjectAC {}
#VAR Objectwand {}
#VAR Objectbag {}
#VAR Objectbag2 {}
#TRIGGER {^Damage is (*)} {ObjectDice={%1}}
#TRIGGER {^Affects (*) by (%n)} {#additem ObjectAffects {%1( %2)};ObjectAffects=%replace( @ObjectAffects, HITROLL, HR);ObjectAffects=%replace( @ObjectAffects, DAMROLL, DR);ObjectAffects=%replace( @ObjectAffects, SAVING_SPELL, SS);ObjectAffects=%replace( @ObjectAffects, ARMOR, AC);ObjectAffects=%replace( @ObjectAffects, hp, HP);ObjectAffects=%replace( @ObjectAffects, strength, STR);ObjectAffects=%replace( @ObjectAffects, intelligence, INT);ObjectAffects=%replace( @ObjectAffects, wisdom, WIS);ObjectAffects=%replace( @ObjectAffects, dexterity, DEX);ObjectAffects=%replace( @ObjectAffects, constitution, CON);ObjectAffects=%replace( @ObjectAffects, saves, SAVES);ObjectAffects=%replace( @ObjectAffects, hit_roll, HR);ObjectAffects=%replace( @ObjectAffects, damage_roll, DR);ObjectAffects=%replace( @ObjectAffects, mana, MANA)}
#TRIGGER {^Armor class is (*)} {ObjectAC={%1}}
#TRIGGER {^Wear bits: (*)} {ObjectLoc=%trim(%remove(TAKE,%1))}
#TRIGGER {^You learn more about this object:} {resetitemid}
#TRIGGER {^Weight: (*)} {ObjectWeight={%1}}
#TRIGGER {^Level: (*) Cost: (*)} {ObjectLvlRes={%1};ObjectValue={%2}}
#TRIGGER {^Extra bits: (*)} {ObjectTemp= {%1};ObjectTemp= %trim(%1);ObjectTemp=%replace(@ObjectTemp," ",|);#if (%ismember(anti-good,@ObjectTemp)) {#addItem ObjectAlignment !G};#if (%ismember(anti-neutral,@ObjectTemp)) {#addItem ObjectAlignment !N};#if (%ismember(anti-evil,@ObjectTemp)) {#addItem ObjectAlignment !E}}
#TRIGGER {^Weapons flags: (*)} {WeaponFlags={%1}}
#TRIGGER {^Weapon type is (*)} {Weapontype={%1}}
#TRIGGER {^Damage noun is (*)} {Objectnoun={%1}}
#TRIGGER {^Adds (*) affect.} {Objectperm={%1}}
#TRIGGER {^Has (*)} {Objectwand={%1}}
#TRIGGER {^name: (*)} {ObjectName={%1}}
#TRIGGER {^Capacity: (%*)} {Objectbag={%1}}
#TRIGGER {^Weight multiplier: (*)} {Objectbag2={%1}}
#CLASS 0

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

Forgot to menchain I'm wanting it to run on zmud 616 :)
..Thanks In advance

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

Examples of Format of Data The Mud Outposts

You learn more about this object:
Name: the Dagger of AotC
Wear bits: take wield
Extra bits: glow hum magic nodrop bless burn_proof no_uncurse
Weight: 1
Level: 117 Cost: 42000
Weapon type is dagger
Damage is 117d3 (average 234)
Damage noun is stab.
Weapons flags: sharp
Affects hit roll by 29, level 210.
Affects damage roll by 29, level 210.

You learn more about this object:
Name: Breastplate of Righteousness
Wear bits: take torso
Extra bits: glow hum magic nodrop anti-evil anti-neutral nopurge burn_proof no_uncurse
Weight: 2
Level: 136 Cost: 0
Armor class is 204 pierce, 204 bash, 204 slash, and 204 vs. magic
Affects spell affect by 0, level 136.
Adds sanctuary affect.
Affects damage roll by 34, level 136.
Affects hit roll by 34, level 136.
Affects hp by 204, level 136.
Affects mana by 204, level 136.
Affects moves by 204, level 136.

MASTER Joined: 28 Nov 2000 Posts: 4817 Location: USA

Here's the first problem I found.
#ALIAS dbid {#var ObjectDB {} {_nodef};#addkey ObjectDB {Object Name} {@ObjectName};#addkeObjectDB {Weapon Flags} {@WeaponFlags};ObjectTemp=%replace(@ObjectEffects,"]","");ObjectTemp=%replace(@ObjectTemp,"[","");#addkey ObjectDB {Weapon Type} {@WeaponType};#addkey ObjectDB Wand {@Objectwand};#addkey ObjectDB Capacity {@Objectbag};#addkey ObjectDB Multiplier {@Objectbag2};#addkey ObjectDB AC {@ObjectAC};#addkey ObjectDB Dice {@ObjectDice};#addkey ObjectDB Location(s) {@ObjectLoc};#addkey ObjectDB Level {@ObjectLvlRes};#addkey ObjectDB {Damage Type} {@Objectnoun};#addkey ObjectDB {Permanent Affects} {@Objectperm};ObjectTemp={Mage|Cleric|Thief|Warrior};#if %ismember("!M",@ObjectClass) {#delitem ObjectTemp Mage};#if %ismember("!C",@ObjectClass) {#delitem ObjectTemp Cleric};#if %ismember("!T",@ObjectClass) {#delitem ObjectTemp Thief};#if %ismember("!W",@ObjectClass) {#delitem ObjectTemp Warrior};#addkey ObjectDB Class {@ObjectTemp};ObjectTemp={Good|Neutral|Evil};#if %ismember("!G",@ObjectAlignment) {#delitem ObjectTemp Good};#if %ismember("!N",@ObjectAlignment) {#delitem ObjectTemp Neutral};#if %ismember("!E",@ObjectAlignment) {#delitem ObjectTemp Evil};#addkey ObjectDB Alignment {@ObjectTemp};#addkey ObjectDB Affects {%replace(@ObjectAffects,"|"," ")};#new @ObjectType @ObjectDB;#mess 2 @ObjectName has been added!}

LightBulb
Senior Member

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

THANK YOU THANK YOU THANK YOU it Works!
Please Consider this a FINISHED Script..

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

Quick question..Any way I can get Duplicate Item Checking?And if possible I would like to have to confirm the addition if its a 2nd copy *ie 2 objects different stats same name* (#yesno??)