Vb 6.0 Zamanlı Skıller 2024

ReaL · 11 Ocak 2016

Kod:

[HIDE][B][HIDE]Public Sub FireArmorBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "573"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub

Public Sub LightningArmorBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "773"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ImmunityLightningBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "748"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub EndureLightningBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "724"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ResistLightningBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "706"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub IceArmorBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "673"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub IceBarrierBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "654"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ImmunityColdBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "648"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub FrozenShellBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "630"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub EndureColdBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "624"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub FrozenArmorBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "612"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ResistColdBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "606"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ImmunityFireBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "548"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub EndureFireBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "524"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub ResistFireBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "506"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub





Public Sub InstantlyMagicBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "820"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



Public Sub AbsolutePowerBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "802"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")

End Sub



'===================== Warrior =============================================

Public Sub WallOfIronBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "675"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub HpBoosterBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "780"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub RegenerationBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "750"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub ReturnToLifeBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "740"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub NimbleWindBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "735"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub BlazeKillerBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "731"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub RestorationBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "730"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub RiseBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "715"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub PainKillerBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "710"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub WarriorSprintBas()

Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "002"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")

End Sub



Public Sub DefenseBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "007"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub GainBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "705"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

'===================== Priest ==============================================



Public Sub Strength()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

Public Sub PartyStrength(Üye As String)

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + uyeID(Üye) + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + uyeID(Üye) + "000000000000000000000000")

End Sub



Public Sub EruptionBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "729"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub WildnessBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "629"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub MinaksThornBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "826"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub CurseRefractionBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "820"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub PrayerOfGodsPowerBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "020"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub PrayerOfCronosBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "012"), 1, 6) '013

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub ResistPoisonBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "007"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





Public Sub StrengthBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

Public Sub BlastingBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "529"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub





'===================== Rogue ===============================================

Public Sub SprintBas()

Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "002"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")

End Sub

Public Sub StrengthOfWolfBas()

Paket ("3101" & AlignDWORD(SınıfBul() & "030") & KarakterID() & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "0000000000001100")

Paket ("3103" & AlignDWORD(SınıfBul() & "030") & KarakterID() & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "000000000000")

End Sub



Public Sub HideBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "700"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub EvadeBas()

Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "710"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")

End Sub

Public Sub CatsEyesBas()

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "715"), 1, 6)

Paket ("3106" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

Public Sub LightFeetBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "725"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub SafetyBas()

Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "730"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")

End Sub

Public Sub LupineEyesBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "735"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

Public Sub RogueCureCurse()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul & "736"), 1, 6)

Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"

Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"

End Sub



Public Sub RogueCureDisease()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul & "748"), 1, 6)

Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"

Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"

End Sub

Public Sub ScaledSkinBas()

Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "760"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")

End Sub

Public Sub ConcentrationBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "775"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Function RogueZehirKontrol() As Boolean

Dim AA

Dim BB

Dim CC

AA = LongOku(KO_PTR_DLG)

BB = LongOku(AA + &H338)

CC = LongOku(BB + &H110)

If CC = "0" Then RogueZehirKontrol = True Else RogueZehirKontrol = False

End Function

Public Sub CriticalPointBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "685"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub

Public Sub MagicShieldBas()

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "802"), 1, 6)

Paket ("3106" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000A00")

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000A00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub StealthBas()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "645"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")

End Sub



Public Sub Swift()

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "010"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "F7020400AE01000000000000")

End Sub

Public Sub PartySwift(Üye As String)

Dim SkillID As String

SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "010"), 1, 6)

Paket ("3101" + SkillID + "00" + KarakterID() + uyeID(Üye) + "0000000000000000000000000F00")

Paket ("3103" + SkillID + "00" + KarakterID() + uyeID(Üye) + "F7020400AE01000000000000")

End Sub[/HIDE][/B][/HIDE]

lahana343 · 11 Ocak 2016

Cevap: Vb 6.0 Zamanlı Skıller 2024

swat26' Alıntı:
Kod:

***Hidden content cannot be quoted.***[/B][/HIDE]

ADASDASD

kokerkan · 11 Ocak 2016

Cevap: Vb 6.0 Zamanlı Skıller 2024

eweweweqwe

dhamit · 16 Şubat 2016

Cevap: Vb 6.0 Zamanlı Skıller 2024

swat26' Alıntı:
Kod:

***Hidden content cannot be quoted.***[/B][/HIDE]

amkkk

Vb 6.0 Zamanlı Skıller 2024

ReaL

lahana343

Yeni Cüce

kokerkan

Kayıtlı Üye

dhamit

Yeni Cüce

Online istatistikleri

OnlineHile Links

En yeni üyeler

Vb 6.0 Zamanlı Skıller 2024

ReaL

lahana343

Yeni Cüce

kokerkan

Kayıtlı Üye

dhamit

Yeni Cüce

Online istatistikleri

OnlineHile Links

En yeni üyeler

OnlineHile Sosyal