(Submission) Some little subs for all.

[Cantinfla]

Like I promised, I updated it and now it will give you the number of kills...

first paste this on the OnAttack sub: If you dont have the sub, here it is.

Code: [Select]

'******************
Sub OnAttack(index)
'******************
If GetPlayerTarget(index) > 0 and GetPlayerTarget(index) <> index Then
If GetPlayerHP(GetPlayerTarget(index)) <= 0 Then
If GetVar("Accounts/" & GetPlayerName(index) & ".ini", "Players_killed", "Kills") & "" = "" Then
Call Putvar("Accounts/" & GetPlayerName(index) & ".ini", "Players_Killed", "Kills", 1)
End If
End If
End If
End Sub

Ok then paste this sub at the end of your main:

Code: [Select]

'()()()()()()()()()()()()()
'By:Cantinfla(John) 2006(c)
'()()()()()()()()()()()()()
'*******************
 Sub PvPpoints(index)
'*******************

Dim PK
PK=GetVar("Accounts/" & GetPlayerName(index) & ".ini", "Players_killed", "Kills")
Call PlayerMsg(index, "You have a PvP score of "& PK &" kills!", 1)
Call GlobalMsg(index, ""& GetPlayerName(index) &" has a PvP score of "& PK &" Kills!", 4)

End Sub
'()()()()()()()()()()()()()
'By:Cantinfla(John) 2006(c)
'()()()()()()()()()()()()()

And of course dont for get to add this on the commands:

Code: [Select]


Case "/pkpoints"

       Call PvPpoints(index)

Exit Sub

I hope you guys like it.

[jakeruston]

Yeah this wasn't a bad script, don't know if it works though.

[DFAx]

it doesnt work properly
it will only display your PK status, not your PK score

make it write your PK score to an ini file

[Cantinfla]

Lol i forgot about this a long time ago, i'll update it soon.

[DFAx]

aiite thank bro =)
can you write this now, ill implement it imediately

[Cantinfla]

Cant now, but as soon as i can i will.

[The Emblem]

I take it your trying to learn how to script?

Great job! The comunity needs more scripters!

[Cantinfla]

I'm still a bit of a beginner...but i like scripting
DFAx: Sorry I couldnt do anything right now.

Gah! gtg later all

[Cantinfla]

Like I promised, I updated it and now it will give you the number of kills...

first paste this on the OnAttack sub: If you dont have the sub, here it is.

Code: [Select]

'******************
Sub OnAttack(index)
'******************
If GetPlayerTarget(index) > 0 and GetPlayerTarget(index) <> index Then
If GetPlayerHP(GetPlayerTarget(index)) <= 0 Then
If GetVar("Accounts/" & GetPlayerName(index) & ".ini", "Players_killed", "Kills") & "" = "" Then
Call Putvar("Accounts/" & GetPlayerName(index) & ".ini", "Players_Killed", "Kills", 1)
End If
End If
End If
End Sub

Ok then paste this sub at the end of your main:

Code: [Select]

'()()()()()()()()()()()()()
'By:Cantinfla(John) 2006(c)
'()()()()()()()()()()()()()
'*******************
 Sub PvPpoints(index)
'*******************

Dim PK
PK=GetVar("Accounts/" & GetPlayerName(index) & ".ini", "Players_killed", "Kills")
Call PlayerMsg(index, "You have a PvP score of "& PK &" kills!", 1)
Call GlobalMsg(index, ""& GetPlayerName(index) &" has a PvP score of "& PK &" Kills!", 4)

End Sub
'()()()()()()()()()()()()()
'By:Cantinfla(John) 2006(c)
'()()()()()()()()()()()()()

And of course dont for get to add this on the commands:

Code: [Select]


Case "/pkpoints"

       Call PvPpoints(index)

Exit Sub

I hope you guys like it. =]

[DFAx]

thx for writing, too lazy to do it myself =)

===========================

Did you even test this?

it doesnt work....and i see a few problems

such as

Code: [Select]

Call GlobalMsg(index, ""& GetPlayerName(index) &" has a PvP score of "& PK &" Kills!", 4)

incorrect parameters


also, is this IF statement even checking anything?

Code: [Select]

If GetVar("Accounts/" & GetPlayerName(index) & ".ini", "Players_killed", "Kills") & "" = "" Then

whats the condition its checking?


first off, make it write to another ini file....second....nvm let me try to write this

[DFAx]

it'd actually just be easier to hard code it..

[danerd100]

Ty For This Script, it the first one that worked for me on my first try

[Munro]

......dont necropost

[RamBONE]

so doe this one work or not< anyone post the working one or not?

[Soljah]

Yes it should work, But please do not necropost - If you have to ask, PM someone that should know if it works or not, and refer them to this topic and ask what you want.

[9sam1]

Wont work for me, im guessing its because im using the eclipse that has .dat accounts files,someone should rework this so it works with the .dat files.

[RamBONE]

That is a major necro post my good sir.

[sToRmY]

Dont Work to me :(