[CD3.55] Rusted NPC Problem

smoochy boys on tour

LightningStar

LOMCN Veteran
Veteran
Loyal Member
May 28, 2007
408
7
65
Essex, UK
Hi all I have changed one of the scripts Idabiga made on sting to suit my server but it hasnt worked, Can someone see where iv gone wrong? probably an easy fix but i cant seem to spot it.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@OldItems_Main]
{
#IF
#SAY
Hi, I can handle your Rusted items and hopefully\
restore them to their former glory!\
Which Item have you got with you?\\
<[ DemonTemptation(Rusted) ]/@ManageOldItem(DemonTemptation(Rusted),1)>\
<[ OriginationBracelet(Rusted) ]/@ManageOldItem(OriginationBracelet(Rusted),1)>\
<[ WarSpiritWheel(Rusted) ]/@ManageOldItem(WarSpiritWheel(Rusted),1)>\
<[ TrueLordRing(Rusted) ]/@ManageOldItem(TrueLordRing(Rusted),2)>\
<[ DragonLordRing(Rusted) ]/@ManageOldItem(DragonLordRing(Rusted),2)>\
<[ SoulRulerRing(Rusted) ]/@ManageOldItem(SoulRulerRing(Rusted),2)>\
<[ LawOfMagic(Rusted) ]/@ManageOldItem(LawOfMagic(Rusted),3)>\
<[ SoulPurifier(Rusted) ]/@ManageOldItem(SoulPurifier(Rusted),3)>\
<[ ImperialValor(Rusted) ]/@ManageOldItem(ImperialValor(Rusted),3)>\\
<[ Exit ]/@exit>\\\


[@ManageOldItem()]
#IF
#ACT
Mov A0 %ARG(1)
Mov A2 %A0
AddStr A2 "(Rusted)"
Mov D0 %ARG(2)
Mov A1 ""
#IF
!CheckItem %A2 1
#SAY
You don't appear to have the required\
items for me to do some work on\\
#ACT
Break


#IF
EQUAL D0 2
#ACT
Goto @OldRings
Break


#IF
EQUAL D0 1
#ACT
Goto @OldBraces
Break


#IF
EQUAL D0 3
#ACT
Goto @OldNecks
Break


#IF
EQUAL D0 4
#ACT
Mov A7 %USERNAME
AddStr A7 ","
AddStr A7 %A2
Savelog "QuestDiary\System\OldSpecialLog.txt" %A7
Goto @OldSpecial
Break


#IF
#ACT
Break


[@OldRings]
#IF
!CheckItem %A2 1
#SAY
You don't appear to have the required\
items for me to do some work on.\\
#ACT
Break


#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break


#IF
Random 3
#ACT
Mov A1 %A0
AddStr A1 "Lord"
Goto @OldElement
Break


#IF
#ACT
Take %A2 1
Break
#SAY
The item was too Rusted and my crafting skills\
just werent good enough to un-rust it!\\
I'm sorry please bring me another and I will try again\\
<[ Back ]/@Main>\\
<[ Exit ]/@exit>\\




[@OldBraces]
#IF
!CheckItem %A2 1
#SAY
You don't appear to have the required\
items for me to do some work on\\
#ACT
Break


#IF
Random 20
#ACT
Mov A1 "Light"
AddStr A1 %A0
Goto @OldElement
Break


#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break


#IF
Random 3
#ACT
Mov A1 %A0
Goto @OldElement
Break


#IF
#ACT
Take %A2 1
Break
#SAY
The item was too Rusted and my crafting skills\
just werent good enough to un-rust it!\\
I'm sorry please bring me another and I will try again\\
<[ Back ]/@Main>\\
<[ Exit ]/@exit>\\




[@OldNecks]
#IF
!CheckItem %A2 1
#SAY
You don't appear to have the required\
items for me to do some work on\\
#ACT
Break


#IF
Random 20
#ACT
Mov A1 %A0
AddStr A1 "Light"
Goto @OldElement
Break


#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break


#IF
Random 3
#ACT
Mov A1 %A0
Goto @OldElement
Break


#IF
#ACT
Take %A2 1
Break
#SAY
The item was too Rusted and my crafting skills\
just werent good enough to un-rust it!\\
I'm sorry please bring me another and I will try again\\
<[ Back ]/@Main>\\
<[ Exit ]/@exit>\\




[@OldElement]
#IF
#ACT
Take %A2 1
Movr D1 8
Inc D1 1


#IF
Equal D1 8
#ACT
Goto @OldSuccess
Break


#IF
Equal D1 1
#ACT
AddStr A1 "(Ignis)"
Goto @OldSuccess
Break


#IF
Equal D1 2
#ACT
AddStr A1 "(Gelu)"
Goto @OldSuccess
Break


#IF
Equal D1 3
#ACT
AddStr A1 "(Fulmen)"
Goto @OldSuccess
Break


#IF
Equal D1 4
#ACT
AddStr A1 "(Ventus)"
Goto @OldSuccess
Break


#IF
Equal D1 5
#ACT
AddStr A1 "(Sacer)"
Goto @OldSuccess
Break


#IF
Equal D1 6
#ACT
AddStr A1 "(Ater)"
Goto @OldSuccess
Break


#IF
Equal D1 7
#ACT
AddStr A1 "(Phasma)"
Goto @OldSuccess
Break


#IF
#SAY
It seems an error occured, please send this\\
screen to a GM\\
- Zeus\\
<[ Exit ]/@exit>\


[@oldSuccess]
#IF
#ACT
Give %A1 1
#SAY
Success!!! Here is your <$OUTPUT(A1)>!\\
<[ Back ]/@Main>\\
<[ Exit ]/@exit>\\




[@OldSpecial]
#IF
!CheckItem %A2 1
#SAY
You don't appear to have the required\
items for me to do some work on\\
#ACT
Break


#IF
Random 40
#ACT
Mov A1 "God"
AddStr A1 %A0
Take %A2 1
Goto @OldSuccess
Break


#IF
Random 30
#ACT
Mov A1 "Demon"
AddStr A1 %A0
Take %A2 1
Goto @OldSuccess
Break


#IF
Random 10
#ACT
Mov A1 %A0
AddStr A1 "Ring"
Take %A2 1
Goto @OldSuccess
Break


#IF
#ACT
Take %A2 1
Break
#SAY
The item was too Rusted and my crafting skills\
just werent good enough to un-rust it!\\
I'm sorry please bring me another and I will try again\\
<[ Back ]/@Main>\\
<[ Exit ]/@exit>\\






}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

idaBigA

Holley Mir 3!!
VIP
Oct 28, 2003
1,966
110
310
Stoke, UK
Not checked the rest, but the first bit is looking for an item called

ItemName(Rusted)(Rusted)



Code:
#IF
#ACT
Mov A0 %ARG(1)        ;A0 = DemonTemptation(Rusted)
Mov A2 %A0            ;A2 = DemonTemptation(Rusted)
AddStr A2 "(Rusted)"  ;A2 = DemonTemptation(Rusted)(Rusted)
Mov D0 %ARG(2)
Mov A1 ""
#IF
!CheckItem %A2 1

Remove the (Rusted) from this section

Code:
<[ DemonTemptation(Rusted) ]/@ManageOldItem(DemonTemptation(Rusted),1)>\

To this

Code:
<[ DemonTemptation(Rusted) ]/@ManageOldItem(DemonTemptation,1)>\

And it may be fine.
 
Last edited:
Upvote 0

LightningStar

LOMCN Veteran
Veteran
Loyal Member
May 28, 2007
408
7
65
Essex, UK
Not checked the rest, but the first bit is looking for an item called

ItemName(Rusted)(Rusted)



Code:
#IF
#ACT
Mov A0 %ARG(1)        ;A0 = DemonTemptation(Rusted)
Mov A2 %A0            ;A2 = DemonTemptation(Rusted)
AddStr A2 "(Rusted)"  ;A2 = DemonTemptation(Rusted)(Rusted)
Mov D0 %ARG(2)
Mov A1 ""
#IF
!CheckItem %A2 1

Remove the (Rusted) from this section

Code:
<[ DemonTemptation(Rusted) ]/@ManageOldItem(DemonTemptation(Rusted),1)>\

To this

Code:
<[ DemonTemptation(Rusted) ]/@ManageOldItem(DemonTemptation,1)>\

And it may be fine.

Removing that did work mate, Althought i am not using the light or the dark i am just using 'DemonTemptation(Element)"

How would I go about resolving that? :)
 
Upvote 0

idaBigA

Holley Mir 3!!
VIP
Oct 28, 2003
1,966
110
310
Stoke, UK
Just remove these sections should do it...

From [@OldRings]
Code:
#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break

From [@OldNecks]
Code:
#IF
Random 20
#ACT
Mov A1 %A0
AddStr A1 "Light"
Goto @OldElement
Break


#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break

From [@OldBraces]
Code:
#IF
Random 20
#ACT
Mov A1 "Light"
AddStr A1 %A0
Goto @OldElement
Break

#IF
Random 10
#ACT
Mov A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break
 
Upvote 0