integrals for items

[Unico]

[@Main]
Begin
#SAY
<[HiperRevivalRing]/@cambioint> \

[@cambioint]
#IF
#ACT
mov D1 %ARG(1)
mov A0 %ARG(2)
#IF
Equal A0 ""

#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A8 %A9
check D1 1000
mov D8 %D1
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9

goto @change

[change]

#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A8 %A9
DEC D1 1000
mov D8 %D1
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
give HiperRevivalRing 1


i have this in my npc i want change 1000 integrals for 1 HiperRevivalRing but integrals dont DEC and npc dont give me Ring

can anyone help me plz?

 

[Sejanus]

#IF
elarge D5 5
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D5 5
mov D8 %D5
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9

it checks if u have 5 integs, and if you do it takes them from your account. try it

 

[Unico]

#IF
elarge D1 1000
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D1 1000
mov D8 %D5
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
give HiperRevivalRing 1


i put this but npc change all my integrals for ring

i want npc check 1000 integrals and change only 1000 integrals for ring =(

 

[Sejanus]

look what i wrote once again there is D5, in 3 places, you have it in 1

change your D1 to D5 and try again

 

[Unico]

i change D1 for D5 and dont work =(

i´m back crazy :P

 

[mapadale]

#IF
elarge D5 1000
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D5 1000
mov D8 %D5
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
give HiperRevivalRing 1

 

[Unico]

#IF
elarge D5 1000
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D5 1000
mov D8 %D5
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
give HiperRevivalRing 1

D5 is for FP´s i have npc working 100% the correct are this

#IF
elarge D1 1000
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D1 1000
mov D8 %D1
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
give HiperRevivalRing 1


thx for help

 

[Sejanus]

D4 is fp

 

[Sejanus]

D4 is fp,

In some i have D5 for example ArmorDye, in some D1, and it works fine.

and RentPet has D0, xD

its very confusing xd crap system i would say

 

[Falador]

Sample:

The Script work with your SQL DB "Relaitpoint" there save the DB the Player IPs, all Player must first creat a IP Account before he can trade Items for IPs and IPS for Items !!!!

--------------------Quest Item for IPs-----------------------

[@IPs]
#IF
checkitem Integral(S) 1 ;; or Other Iteam what you will have for IP System
#ACT
FormatStr "FLD_USERID='%s'" %USERID
ReadValueSql "TBL_RELATPOINT" %A9 "FLD_POINT,FLD_USERID"

[@Point]
#ELSESAY
You do not have {FCOLOR/14} Integral(S) {FCOLOR/12} \
Sie haben kein {FCOLOR/14} Integral(S) {FCOLOR/12} bei sich.\\
<Exit/@exit>\\

[@Point()]
#IF
#ACT
mov D1 %ARG(1)
mov A0 %ARG(2)
#IF
Equal A0 ""
#ACT
goto @Integralinquiry
break
#IF
checkitem Integral(S) 1
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A8 %A9
INC D1 5
mov D8 %D1
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
take Integral(S) 1
#SAY

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


----------------------Integrals for Items--------------------

[@Sorcerer]
#SAY
----Titel Items----\\
<NobleMageHelm [750 Integral]/@Point(NobleMageHelm,750,1)> Sorcerer\
<NobleMageBrace [500 Integral]/@Point(NobleMageBrace,500,1)> Sorcerer\
<Exit/@exit>\\ ;;(NobleMageBrace,500,1) 500 is IPs and 1 is how many

[@Point()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
Mov N4 %ARG(3)
goto @Iscominga

[@Iscominga]
#act
FormatStr "FLD_USERID='%s'" %USERID
ReadValueSql "TBL_RELATPOINT" %A9 "FLD_POINT,FLD_USERID" [@checkinta]

[@checkinta()]
#ACT
mov D0 %ARG(1)
mov A4 %ARG(2)
#IF
Equal A4 ""
#ACT
goto @Integralinquiry
break
#IF
elarge D0 %D1
#ACT
FormatStr "FLD_USERID='%s'" %USERID
mov A6 %A9
DEC D0 %D1
mov D8 %D0
FormatStr "FLD_POINT='%s'" %D8
UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9 ;; Update the DB, write the new IP on the DB
give %A1 %N4 ;;SystemMessage
#SAY

When you will have more informations and a few Scripts for the IP System than PN me, i can Script for your a few Sample Scripts.

Sejanus pfffffffff yeah all starting is hard ^^ good Luck with DarkSideServer and np for stole Client ^^ hihihihi

 

[Sejanus]

I didn't say its hard, its just confusing crap system><

and it's not my starting if u don't know that.

i never touched your client, trust your noobs... let me guess who told you that?

kruk? or maybe his friends?