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

Ko-Cuce 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

Ko-Cuce Links

En yeni üyeler

KoCuce Sosyal