Equip Protect Help

[tuningtonight]

anyone help me? On having gone out the protection finishes...

[@main]
#IF
check [499] 0
checkfame
#ACT
Mov D4 %P9
#SAY
{FCOLOR/10}Protect equip 6 days,\
2k Fame Points.\\
<Equip /@equipprotecten>\
<Marcharme/@exit>\
[@equipprotecten]
#IF
#ACT
FormatStr "FLD_Player='%s'" %USERNAME
ReadValueSql "TBL_VIP" %A9 "FLD_Player,FLD_Dias,FLD_Usado" [@vipa]
[@vipa()]
#ACT
Mov A3 %ARG(1)
Mov D2 %ARG(2)
Mov D5 %ARG(3)

#IF
Equal A3 %USERNAME
#ACT
Mov D2 6
GOTO @equipprotecten2
break

[@equipprotecten2]
#IF
ELARGE D4 2000
#ACT
dec D4 2000
HLSCRIPTCMD ITEMPROTE 0 %D2
HLSCRIPTCMD ITEMPROTE 1 %D2
HLSCRIPTCMD ITEMPROTE 2 %D2
HLSCRIPTCMD ITEMPROTE 3 %D2
HLSCRIPTCMD ITEMPROTE 4 %D2
HLSCRIPTCMD ITEMPROTE 5 %D2
HLSCRIPTCMD ITEMPROTE 6 %D2
HLSCRIPTCMD ITEMPROTE 7 %D2
HLSCRIPTCMD ITEMPROTE 8 %D2
HLSCRIPTCMD ITEMPROTE 9 %D2
HLSCRIPTCMD ITEMPROTE 10 %D2
MOV D5 1
setfame %D4
goto @ekiprote
<exit/@exit>

[@ekiprote]
#IF
#ACT
FormatStr "FLD_Player='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_Usado='%s'" 1
UPDATEVALUESQL "TBL_VIP" %A8 %A9
break

 

[jonathan508]

anyone help me? On having gone out the protection finishes...

[@main]
#IF
check [499] 0
checkfame
#ACT
Mov D4 %P9
#SAY
{FCOLOR/10}Protect equip 6 days,\
2k Fame Points.\\
<Equip /@equipprotecten>\
<Marcharme/@exit>\
[@equipprotecten]
#IF
#ACT
FormatStr "FLD_Player='%s'" %USERNAME
ReadValueSql "TBL_VIP" %A9 "FLD_Player,FLD_Dias,FLD_Usado" [@vipa]
[@vipa()]
#ACT
Mov A3 %ARG(1)
Mov D2 %ARG(2)
Mov D5 %ARG(3)

#IF
Equal A3 %USERNAME
#ACT
Mov D2 6
GOTO @equipprotecten2
break

[@equipprotecten2]
#IF
checkfame 2000
#ACT
setfame - 2000
HLSCRIPTCMD ITEMPROTE 0 6
HLSCRIPTCMD ITEMPROTE 1 6
HLSCRIPTCMD ITEMPROTE 2 6
HLSCRIPTCMD ITEMPROTE 3 6
HLSCRIPTCMD ITEMPROTE 4 6
HLSCRIPTCMD ITEMPROTE 5 6
HLSCRIPTCMD ITEMPROTE 6 6
HLSCRIPTCMD ITEMPROTE 7 6
HLSCRIPTCMD ITEMPROTE 8 6
HLSCRIPTCMD ITEMPROTE 9 6
HLSCRIPTCMD ITEMPROTE 10 6

goto @ekiprote
<exit/@exit>

[@ekiprote]
#IF
#ACT
FormatStr "FLD_Player='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_Usado='%s'" 1
UPDATEVALUESQL "TBL_VIP" %A8 %A9
break

Try it, if no work explain more ..

Intenta ponerlo asi si no te funciona intenta explicarme el que no te funciona exactamente.

 

[Josiko]

Podria ser problema de que no usas la tabla original donde se guarda esto..

#ACT
FormatStr "FLD_Player='%s'" %USERNAME
ReadValueSql "TBL_VIP" %A9 "FLD_Player,FLD_Dias,FLD_Usado" [@vipa]

Y la otra cosa te la he dicho por private.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Could be a problem that you do not use the original table where it is stored ..