[CD3.55] Help please with keymaker system

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
 

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
In MapQuest.txt you must put this:

Code:
[COLOR=#006400]Mapname[/COLOR] [0] 0 [MonDie] [COLOR=#b22222]Keymaker[/COLOR] * [MapQuest_Def\Keymaker] [@WTKM] Group


This script must be in: MapQuest_Def
To add a key of X Keymaker, use the following script:

Code:
[@[COLOR=#000000]WTKM[/COLOR]]
#IF
#ACT
Sysmsg "You received 1 KeyOf[COLOR=#000000]WTKM[/COLOR] for killing Keymaker"
goto @GiveWTKMKey

[@GiveWTKMKey]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_WTKM" [@LoadWTKMKeys]

[@LoadWTKMKeys()]
#ACT
mov A1 %ARG(1)
mov D1 %ARG(2)
#IF
Equal A1 ""
#ACT
FormatStr "'%s',%s" %USERNAME 0         
    Mov A8 %A9    
    FormatStr "FLD_nume='%s'" %USERNAME 
    Mov A2 %A9
    WriteValueSql "TBL_Keymaker" %A2 "FLD_num,FLD_WTKM" %A8
goto @AddWTKMKey
#ELSEACT
goto @AddWTKMKey
   
[@AddWTKMKey]
#IF
#ACT
Inc D1 1
FormatStr "FLD_num='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_WTKM='%s'" %D1
UpdateValueSql "TBL_Keymaker" %A8 %A9


To see how many keys do you have:

Code:
[@MAIN]
#IF
#SAY
<Check WTKM Keys/@WTKMKeys>\
\
<Exit/@exit>\

[@WTKMKeys]
#IF
#ACT
FormatStr "FLD_num='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_num,FLD_WTKM" [@CheckWTKMKeys]

[@CheckWTKMKeys()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
#SAY
{FCOLOR/9}WTKM:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/10} Keys.\
\
<Back/@main>\
<Exit/@exit>\

Follow this procedure for each cave.

Regards,
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
mapquest_def \keymaker.txt i have this:-

[@ASTKM]
#IF
#ACT
Sysmsg "You received 1 AngledStoneTomb Key for killing Keymaker"
goto @GiveASTKMKey
[@GiveASTKMKey]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ASTKM" [@LoadASTKMKeys]
[@LoadASTKMKeys()]
#ACT
mov A1 %ARG(1)
mov N3 %ARG(2)
#IF
Equal A1 ""
#ACT
FormatStr "'%s',%s" %USERNAME 0
Mov A8 %A9
FormatStr "FLD_nume='%s'" %USERNAME
Mov A2 %A9
WriteValueSql "TBL_Keymaker" %A2 "FLD_nume,FLD_ASTKM" %A8
goto @AddASTKMKey
#ELSEACT
goto @AddASTKMKey

[@AddASTKMKey]
#IF
#ACT
Inc N3 1
FormatStr "FLD_nume='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_ASTKM='%s'" %N3
UpdateValueSql "TBL_Keymaker" %A8 %A9

mapquest i have this:-

D704 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker.txt] [@ASTKM] group


and on npc i have this :_

[@ASTKMKeys]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ASTKM" [@CheckASTKMKeys]
[@CheckASTKMKeys()]
#ACT
Mov A1 %ARG(1)
Mov N3 %ARG(2)
#SAY
{FCOLOR/9}ASTKM:{FCOLOR/12} {FCOLOR/1}<$OUTPUT(N3)>{FCOLOR/10} Keys.\
\
<Back/@kms>\
<Exit/@exit>\

TBL_Keymaker has all flds and KM flds as needed.........not sure on the data type needed for TBL_Keymaker tho.
any ideas because it still dont save key from any KM's
 
Upvote 0

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
Reboot is needed.

(!)The words in red are corrected.

MapQuest.txt:

Code:
[COLOR=#666666]D704 [0] 0 [MonDie] Keymaker * [MapQuest_Def\[/COLOR][COLOR=#ff0000]Keymaker[/COLOR][COLOR=#666666]] [@ASTKM] group[/COLOR]

Keymaker.txt

Code:
[COLOR=#666666][@ASTKM][/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]Sysmsg "You received 1 AngledStoneTomb Key for killing Keymaker"[/COLOR]
[COLOR=#666666]goto @GiveASTKMKey
[/COLOR]
[COLOR=#666666][@GiveASTKMKey][/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_ASTKM" [@LoadASTKMKeys]
[/COLOR]
[COLOR=#666666][@LoadASTKMKeys()][/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]mov A1 %ARG(1)[/COLOR]
[COLOR=#666666]mov [/COLOR][COLOR=#ff0000]D1[/COLOR][COLOR=#666666] %ARG(2)[/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]Equal A1 ""[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]FormatStr "'%s',%s" %USERNAME 0 [/COLOR]
[COLOR=#666666]Mov A8 %A9 [/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME [/COLOR]
[COLOR=#666666]Mov A2 %A9[/COLOR]
[COLOR=#666666]WriteValueSql "TBL_Keymaker" %A2 "FLD_nume,FLD_ASTKM" %A8[/COLOR]
[COLOR=#666666]goto @AddASTKMKey[/COLOR]
[COLOR=#666666]#ELSEACT[/COLOR]
[COLOR=#666666]goto @AddASTKMKey[/COLOR]

[COLOR=#666666][@AddASTKMKey][/COLOR]
[COLOR=#666666]#IF[/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]Inc [/COLOR][COLOR=#ff0000]D1[/COLOR][COLOR=#666666] 1[/COLOR]
[COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME[/COLOR]
[COLOR=#666666]Mov A8 %A9[/COLOR]
[COLOR=#666666]FormatStr "FLD_ASTKM='%s'" [/COLOR][COLOR=#ff0000]%D1[/COLOR]
[COLOR=#666666]UpdateValueSql "TBL_Keymaker" %A8 %A9[/COLOR]

NPC.txt

Code:
[COLOR=#666666][@ASTKMKeys][/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_ASTKM" [@CheckASTKMKeys]
[/COLOR]
[COLOR=#666666][@CheckASTKMKeys()][/COLOR]
[COLOR=#666666]#ACT[/COLOR]
[COLOR=#666666]Mov A1 %ARG(1)[/COLOR]
[COLOR=#666666]Mov [/COLOR][COLOR=#ff0000]D1[/COLOR][COLOR=#666666] %ARG(2)[/COLOR]
[COLOR=#666666]#SAY[/COLOR]
[COLOR=#666666]{FCOLOR/9}ASTKM:{FCOLOR/12} {FCOLOR/1}<$OUTPUT([/COLOR][COLOR=#ff0000]D1[/COLOR][COLOR=#666666])>{FCOLOR/10} Keys.\[/COLOR]
[COLOR=#666666]\[/COLOR]
[COLOR=#666666]<Back/@kms>\[/COLOR]
[COLOR=#666666]<Exit/@exit>\[/COLOR]

You have created the mob Keymaker?


Why u use variable N?...

Regards,
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
so all variables must be D1 ?

---------- Post Merged at 08:19 PM ---------- Previous Post was at 08:09 PM ----------

and yes Keymaker is created

---------- Post Merged at 08:26 PM ---------- Previous Post was at 08:09 PM ----------

so why when a player logs on using this scripts that all gets 1 of each key?and more when resync?
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
i am trying your script, rebooted server and everyone gets 1 of every key when resync....................

---------- Post Merged on 12-11-2012 at 08:09 PM ---------- Previous Post was on 11-11-2012 at 09:41 PM ----------

ok so fixed that and changed data typed in TBL_Keymaker and now all works, tyvm yolom.

now have another issue i want boss doors to check if player has key and if doesnt then it wont let that player in. but if the player does have key then one is deducted.

in mapquest.txt i have this


D1105 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker] [@ZTKM] group
;D1106 [0] 0 [Enter] * * [Mapquest_Def\EnterZTKR] [@ZTKR]
D503 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker] [@WTKM] group
;D504 [0] 0 [Enter] * * [Mapquest_Def\EnterWTKR] [@WTKR]

in EnterZTKR I Have this........
[@ZTKR]
#IF
Check [465] 1
#ACT
Set [465] 0
Enter_OK
#ELSEACT
Enter_Fail
#ELSESAY
You cannot get in here! Get a Key!\\\

i dnt know where this came from but how can i alter or chaange it to check keys and deduct please?
 
Upvote 0

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
At first you need remove this:

Code:
[COLOR=#ff0000];[/COLOR][COLOR=#666666]D1106 [0] 0 [Enter] * * [Mapquest_Def\EnterZTKR] [@ZTKR][/COLOR]


EnterZTKR.txt



Code:
[COLOR=#666666][COLOR=#666666][@ZTKR]
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]#IF
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]#ACT
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]FormatStr "FLD_nume='%s'" %USERNAME
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_ZTKR" [@ReadZTKRKeys]
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]
[@ReadZTKRKeys()]
[/COLOR][/COLOR][COLOR=#666666][COLOR=#666666]#ACT
[/COLOR][/COLOR][COLOR=#666666]Mov A1 %ARG(1)
[/COLOR][COLOR=#666666][COLOR=#666666]Mov [/COLOR][/COLOR][COLOR=#696969]D1[/COLOR][COLOR=#666666][COLOR=#666666] %ARG(2)
goto @CheckZTKRKeys

[@CheckZTKRKeys]
#IF
Elarge D1 1
#ACT
enter_ok
Dec D1 1
FormatStr "FLD_nume='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_ZTKR='%s'" %D1
UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
#ELSEACT
enter_fail
#ELSESAY
You cannot get in here! Get a Key!\
[/COLOR][/COLOR]

Try this... Maybe works.


Regards,
 
Last edited:
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
so if i remove this line from mapquest
;D1106 [0] 0 [Enter] * * [Mapquest_Def\EnterZTKR] [@ZTKR]
then there wont be anywhere to look to check keys and remove?
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
still doesnt remove 1 key upon entry of kingsroom.

D1105 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker] [@ZTKM] group
D1106 [0] 0 [Enter] * * [Mapquest_Def\EnterZTKR] [@Main] ; changed this to [@main]

---------- Post Merged on 14-11-2012 at 06:13 PM ---------- Previous Post was on 13-11-2012 at 01:23 PM ----------

new problem
[@Main]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_STKM" [@ReadSTKRKeys]
[@ReadSTKRKeys()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
goto @CheckSTKRKeys
[@CheckSTKRKeys]
#IF
Elarge D1 1
#ACT
enter_ok
DEC D1 1
FormatStr "FLD_nume='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_STKM='%s'" %D1
UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
#ELSEACT
enter_fail
#ELSESAY
You cannot get in here! Get a Key!\

when go to kings room it deducts key but does not allow players to go in.............

any help plz?

---------- Post Merged on 15-11-2012 at 05:47 PM ---------- Previous Post was on 13-11-2012 at 01:23 PM ----------

anyone know?
 
Upvote 0

Yolom

LOMCN Veteran
Veteran
Aug 7, 2010
325
21
45
Spain
Try this:

Code:
[@Main]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_STKM" [@ReadSTKRKeys]

[@ReadSTKRKeys()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
goto @CheckSTKRKeys

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

[@enter]
#IF
#ACT
enter_ok

Regards,
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
NO this doesnt work either i get this error :-

14:45:42:Exception) TFrmSql.WriteSqlValue -> ExecSQL 2
14:45:42: :insert into TBL_Keymaker (FLD_nume,FLD_DCKM) Values('Athena',0)

could it be data in TBL_Keymaker that is set up wrong?

View attachment 13058
 
Upvote 0

Zisha

Dedicated Member
Dedicated Member
Feb 23, 2012
165
5
44
The problem is sql not added your name in sql.

Need script to:

#IF
EQUAL A1 ""
#ACT
ADD YOUR NAME AND ADD 0 IN ALL VARIABLES
GOTO @SCRIPT
#ELSEACT
GOTO @SCRIPT

[@SCRIPT]
#IF
#ACT
ADD +1 KEYMAKER.


It is your fail in script.
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
can u be more spcific please.
i can not see that info working at all, if not cause errors
 
Upvote 0

TheDayIDie

Banned
Banned
Dedicated Member
Jul 29, 2011
4,071
97
135
UK
The problem is sql not added your name in sql.

Need script to:

#IF
EQUAL A1 ""
#ACT
ADD YOUR NAME AND ADD 0 IN ALL VARIABLES
GOTO @SCRIPT
#ELSEACT
GOTO @SCRIPT

[@SCRIPT]
#IF
#ACT
ADD +1 KEYMAKER.


It is your fail in script.

Close but you dont need the script to add 0 to all variables, my script leaves other variables as NULL and still changes them to 1 when i kill keymaker. I've fixed his keymaker script so that it adds a key.
I made the door take a key when you enter but it does not let you enter.
The door will take 1 key but dont let me enter into the map, if i take off the door off of MapQuest i can enter fine but not with it on MapQuest, any ideas?
 
Upvote 0

dagras

LOMCN Veteran
Veteran
Feb 6, 2011
282
3
44
ok so finally got keys working correctly on npc and dmenu, how i wanted it .
now when i enter kr door it doesnt allow me in nor does it remove key.

D20023 [0] 0 [MonDie] Keymaker * [MapQuest_Def\Keymaker] [@DCKM] ; kill km to add key...works
D2004 [0] 0 [Enter] * * [MapQuest_Def\EnterDCKM] [@Main] ; enter doorway to 2004....doesnt allow entry and dont take key


any help pls

---------- Post Merged at 03:09 PM ---------- Previous Post was at 02:53 PM ----------

and in EnterDCKM.txt i have this

[@Main]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_nume,FLD_DCKM" [@ReadDCKRKeys]
[@ReadDCKRKeys()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
goto @CheckDCKRKeys
[@CheckDCKRKeys]
#IF
Elarge D1 1
#ACT
ENTER_OK
goto @TakeKey
#ELSEACT
enter_fail
#ELSESAY
You cannot get in here! Get a Key!\
[@TakeKey]
#IF
#ACT
DEC D1 1
FormatStr "FLD_nume='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_DCKM='%s'" %D1
UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
 
Upvote 0