[CD3.55] Help please with keymaker system

smoochy boys on tour

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
so im still working on getting sql to read and give the correct keys after Keymaker is killed.

i get message saying keymaker killed blah blah blah but instead of giving the correct key it gives all keys +1

it is currently on my D menu and this is the script im using:-
00default points to system\keymaker.txt @Keymakeradd

[@keymakeradd]
{
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_WTKM" @LoadKeys

[@LoadKeys()]
#ACT
Mov A1 %ARG(1)
Mov N2 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N2 0
FormatStr "'%s',%s" %A1 %N2
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_WTKM" %A8
#elseact
INC N2 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_WTKM='%s'" %N2
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_PTKM" @LoadKeys1

[@LoadKeys1()]
#ACT
Mov A1 %ARG(1)
Mov D2 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D2 0
FormatStr "'%s',%s" %A1 %D2
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_PTKM" %A8
#elseact
INC D2 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_PTKM='%s'" %D2
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8


#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ZTKM" @LoadKeys2

[@LoadKeys2()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D1 0
FormatStr "'%s',%s" %A1 %D1
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ZTKM" %A8
#elseact
INC D1 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_ZTKM='%s'" %D1
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8


#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_JPKM" @LoadKeys3

[@LoadKeys3()]
#ACT
Mov A1 %ARG(1)
Mov D4 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D4 0
FormatStr "'%s',%s" %A1 %D4
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_JPKM" %A8
#elseact
INC D4 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_JPKM='%s'" %D4
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_BPKM" @LoadKeys4

[@LoadKeys4()]
#ACT
Mov A1 %ARG(1)
Mov D3 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D3 0
FormatStr "'%s',%s" %A1 %D3
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_BPKM" %A8
#elseact
INC D3 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_BPKM='%s'" %D3
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_MSKM" @LoadKeys5

[@LoadKeys5()]
#ACT
Mov A1 %ARG(1)
Mov D6 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D6 0
FormatStr "'%s',%s" %A1 %D6
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_MSKM" %A8
#elseact
INC D6 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_MSKM='%s'" %D6
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_NRKM" @LoadKeys6

[@LoadKeys6()]
#ACT
Mov A1 %ARG(1)
Mov D8 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D8 0
FormatStr "'%s',%s" %A1 %D8
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_NRKM" %A8
#elseact
INC D8 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_NRKM='%s'" %D8
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DCKM" @LoadKeys7

[@LoadKeys7()]
#ACT
Mov A1 %ARG(1)
Mov D5 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D5 0
FormatStr "'%s',%s" %A1 %D5
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DCKM" %A8
#elseact
INC D5 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_DCKM='%s'" %D5
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_PSCKM" @LoadKeys8

[@LoadKeys8()]
#ACT
Mov A1 %ARG(1)
Mov N4 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N4 0
FormatStr "'%s',%s" %A1 %N4
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_PSCKM" %A8
#elseact
INC N4 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_PSCKM='%s'" %N4
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8


#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ASTKM" @LoadKeys9

[@LoadKeys9()]
#ACT
Mov A1 %ARG(1)
Mov N3 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N3 0
FormatStr "'%s',%s" %A1 %N3
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ASTKM" %A8
#elseact
INC N3 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_ASTkm='%s'" %N3
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_KeyMaker" %A9 "FLD_nume,FLD_DVKM" @LoadKeys10

[@LoadKeys10()]
#ACT
Mov A1 %ARG(1)
Mov N1 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N1 0
FormatStr "'%s',%s" %A1 %N1
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DVKM" %A8
#elseact
INC N1 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_DVKM='%s'" %N1
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_RMVKM" @LoadKeys11

[@LoadKeys11()]
#ACT
Mov A1 %ARG(1)
Mov N5 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N5 0
FormatStr "'%s',%s" %A1 %N5
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_RMVKM" %A8
#elseact
INC N5 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_RMVkm='%s'" %N5
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_STKM" @LoadKeys12

[@LoadKeys12()]
#ACT
Mov A1 %ARG(1)
Mov D9 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D9 0
FormatStr "'%s',%s" %A1 %D9
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_STKM" %A8
#elseact
INC D9 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_STKM='%s'" %D9
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8

#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_LTKM" @LoadKeys13

[@LoadKeys13()]
#ACT
Mov A1 %ARG(1)
Mov N6 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N6 0
FormatStr "'%s',%s" %A1 %N6
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_LTKM" %A8
#elseact
INC N6 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_LTKM='%s'" %N6
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_FDKM" @LoadKeys14

[@LoadKeys14()]
#ACT
Mov A1 %ARG(1)
Mov D7 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov D7 0
FormatStr "'%s',%s" %A1 %D7
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_FDKM" %A8
#elseact
INC D7 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_FDKM='%s'" %D7
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_WOKM" @LoadKeys15

[@LoadKeys15()]
#ACT
Mov A1 %ARG(1)
Mov N7 %ARG(2)

#IF
Equal A1 ""
#ACT
Mov A1 %USERNAME
Mov N7 0
FormatStr "'%s',%s" %A1 %N7
Mov A8 %A9
FormatStr "FLD_nume='%s'" %A1
WriteValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_WOKM" %A8
#elseact
INC N7 1
eventMsg "You received 1 Key for killing Keymaker"
FormatStr "FLD_WOKM='%s'" %N7
Mov A8 %A9
FormatStr "FLD_nume='%s' " %A1
UpdateValueSql "TBL_Keymaker" %A9 %A8



#SAY
{FCOLOR/9}DeathValley:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N1)>{FCOLOR/10} Keys\
{FCOLOR/9}WoomaTemple:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N2)>{FCOLOR/10} Keys\
{FCOLOR/9}AngledStoneTemple:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N3)>{FCOLOR/10} Keys\
{FCOLOR/9}PrajnaStoneCave:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N4)>{FCOLOR/10} Keys\
{FCOLOR/9}RedMoonValley:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N5)>{FCOLOR/10} Keys\
{FCOLOR/9}ZumaTemple:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/10} Keys\
{FCOLOR/9}PrajnaTemple:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/10} Keys\
{FCOLOR/9}BlackPalace:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/10} Keys\
{FCOLOR/9}JinchonPalace:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D4)>{FCOLOR/10} Keys\
{FCOLOR/9}DesertCity:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D5)>{FCOLOR/10} Keys\
{FCOLOR/9}MysteryShip:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D6)>{FCOLOR/10} Keys\
{FCOLOR/9}FrostDungeon:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D7)>{FCOLOR/10} Keys\
{FCOLOR/9}NumaRuins:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/10} Keys\
{FCOLOR/9}Wombats:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N7)>{FCOLOR/10} Keys\
{FCOLOR/9}SnowTower:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D9)>{FCOLOR/10} Keys\
{FCOLOR/9}LavaTemple:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N6)>{FCOLOR/10} Keys\
<Reload/@Kms>\\\


}




hope someone can help me
ty
 

idaBigA

Holley Mir 3!!
VIP
Oct 28, 2003
1,966
110
310
Stoke, UK
Have you checked which part of this is failing? Try adding a sysmsg in the #ELSEACT to ensure it is getting to that point and not failing before it gets there.

You can also get it to tell you what the values of the variables you are checking so that you know what is being read.

This should be basic testing procedure, need to tell us what is happening in more detail, and you would probably find you would fix it yourself with this extra info.
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
its failing on allowing entry into boss room and deducting 1 key from sql. the first part works great of killing keymaker and adding 1 key to correct keymaker .
 
Upvote 0

TheDayIDie

Banned
Banned
Dedicated Member
Jul 29, 2011
4,071
97
135
UK
Is this the script i made for you? because it worked fine on my server.
The only part that didn't work was entering KR, it took the key
 
Upvote 0

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
You tried to do that before entering KR, you remove one key?

Code:
[COLOR=#666666][@Main][/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME[/COLOR]
[COLOR=#666666]ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DCKM" [@ReadDCKRKeys][/COLOR]
[COLOR=#666666]
[@ReadDCKRKeys()][/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]Mov A1 %ARG(1)[/COLOR]
[COLOR=#666666]Mov D1 %ARG(2)[/COLOR]
[COLOR=#666666]goto @CheckDCKRKeys[/COLOR]

[COLOR=#666666]
[[/COLOR][COLOR=#666666]@CheckDCKRKeys[/COLOR][COLOR=#666666]][/COLOR]
[COLOR=#666666]#IF
[/COLOR][COLOR=#666666]Elarge D1 1[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]DEC D1 1[/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME[/COLOR]
[COLOR=#666666]Mov A8 %A9[/COLOR]
[COLOR=#666666]FormatStr "FLD_DCKM='%s'" %D1[/COLOR]
[COLOR=#666666]UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
goto @enter
[/COLOR][COLOR=#666666]#ELSEACT
enter_fail
#ELSESAY[/COLOR]
[COLOR=#666666]You cannot get in here! Get a Key!\[/COLOR]

[COLOR=#666666][@enter][/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]ENTER_OK[/COLOR]
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
the key is coming off from character in sql.....but dont allow entry into kr......so to my reckoning the error shud be at last part of script


#ELSEACT
enter_fail
#ELSESAY

You cannot get in here! Get a Key!\

[@enter]
#IF
#ACT
ENTER_OK
 
Upvote 0

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
Code:
[COLOR=#666666][@Main][/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME[/COLOR]
[COLOR=#666666]ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DCKM" [@ReadDCKRKeys][/COLOR]
[COLOR=#666666]
[@ReadDCKRKeys()][/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]Mov A1 %ARG(1)[/COLOR]
[COLOR=#666666]Mov D1 %ARG(2)[/COLOR]
[COLOR=#666666]goto @CheckDCKRKeys[/COLOR]

[COLOR=#666666]
[[/COLOR][COLOR=#666666]@CheckDCKRKeys[/COLOR][COLOR=#666666]][/COLOR]
[COLOR=#666666]#IF
[/COLOR][COLOR=#666666]Elarge D1 1[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]DEC D1 1[/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME[/COLOR]
[COLOR=#666666]Mov A8 %A9[/COLOR]
[COLOR=#666666]FormatStr "FLD_DCKM='%s'" %D1[/COLOR]
[COLOR=#666666]UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
[/COLOR][COLOR=#666666]ENTER_OK[/COLOR][COLOR=#666666]
[/COLOR][COLOR=#666666]#ELSEACT
enter_fail
#ELSESAY[/COLOR]
[COLOR=#666666]You cannot get in here! Get a Key![/COLOR]
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
same script as i already tried.......key goes on character from keymaker. key comes off character when go to enter keyroom, yet can not enter keyroom even tho mapquest is setup for enter.

D20023 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker] [@DCKM] GROUP ; map where keymaker is spawned
D2004 [0] 0 [Enter] * * [MapQuest_Def\EnterDCKM] [@Main] ; map to enter keyroom

---------- Post Merged on 04-01-2013 at 08:46 PM ---------- Previous Post was on 03-01-2013 at 04:58 PM ----------

any help on this please.? starting to get frustrated lol
 
Upvote 0