Party Minör Yapımı

**DieChild** · 10-18-2010, 09:50

Arkadaşlar Bugün Size PartyMinör Yapımını Vericem
Not: Party Bölümünüz Varsa Kullanın Yoksa Zorlanırsınız...
Not 2 : Kırmızı Yazıları Kendinize Göre Uyarlayın...
Gerekenler...
1 Tane Check ( Check1 )
1 Tane Timer( Enabled : True -- Interval = 500)
1 Tane Text ( Text1)
1 Tane Label

Timer İçine

Kod:

If Check1.Value = 1 Then

Kod:

MinorKontrol
End If

Modüle Şunları Yazıyoruz

Kod:

Public Sub MinorKontrol()

Kod:

On Error Resume Next
If PartyHP1 < ((PartyMaxHP1 * Form1.Text1.Text) / 100) Then
PartyMinor1
End If
If PartyHP2 < ((PartyMaxHP2 * Form1.Text1.Text) / 100) Then
PartyMinor2
End If
If PartyHP3 < ((PartyMaxHP3 * Form1.Text1.Text) / 100) Then
PartyMinor3
End If
If PartyHP4 < ((PartyMaxHP4 * Form1.Text1.Text) / 100) Then
PartyMinor4
End If
If PartyHP5 < ((PartyMaxHP5 * Form1.Text1.Text) / 100) Then
PartyMinor5
End If
If PartyHP6 < ((PartyMaxHP6 * Form1.Text1.Text) / 100) Then
PartyMinor6
End If
If PartyHP7 < ((PartyMaxHP7 * Form1.Text1.Text) / 100) Then
PartyMinor7
End If
If PartyHP8 < ((PartyMaxHP8 * Form1.Text1.Text) / 100) Then
PartyMinor8
End If
End Sub

1.Üye için...

Kod:

Public Sub PartyMinor1()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID1 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID1 + "490112000307000000000000"
End Sub

2.Üye için...

Kod:

Public Sub PartyMinor2()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID2 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID2 + "490112000307000000000000"
End Sub

3.Üye için...

Kod:

Public Sub PartyMinor3()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID3 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID3 + "490112000307000000000000"
End Sub

4.Üye için...

Kod:

Public Sub PartyMinor4()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID4 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID4 + "490112000307000000000000"
End Sub

5.Üye için...

Kod:

Public Sub PartyMinor5()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID5 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID5 + "490112000307000000000000"
End Sub

6.Üye için...

Kod:

Public Sub PartyMinor6()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID6 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID6 + "490112000307000000000000"
End Sub

7.Üye için...

Kod:

Public Sub PartyMinor7()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID7 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID7 + "490112000307000000000000"
End Sub

Son ve 8.Üye için...

Kod:

Public Sub PartyMinor8()

Kod:

Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID8 + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6) + "00" + KarakterID + PartyID8 + "490112000307000000000000"
End Sub

**1KABUSsee** · 12-22-2010, 08:54

sagol eline saglık

**waki111** · 12-24-2010, 23:46

soal eline saglık

**DieChild** · 12-24-2010, 23:58

Ö.d eksik var galiba bır ara düzeltirim

**uchihasasuketr** · 12-26-2010, 21:13

Ellerine sağlık.

**serhatkan** · 01-08-2011, 21:41

süper paylasım valla

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

12-22-2010, 08:54	#2 (permalink)
1KABUSsee Acemi Oyuncu Kişisel Bulunduğu yer: Gaziantep Forum Üye No: 2606 Üyelik tarihi: Feb 2010 Mesajlar: 7 Teşekkürler + Puan Verdi: 1 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	sagol eline saglık

12-24-2010, 23:46	#3 (permalink)
waki111 Acemi Oyuncu Forum Üye No: 40800 Üyelik tarihi: Dec 2010 Mesajlar: 1 Teşekkürler + Puan Verdi: 0 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	soal eline saglık

12-24-2010, 23:58	#4 (permalink)
DieChild Kral Kişisel Bulunduğu yer: in ne önemi var gönüller bir olsun Forum Üye No: 28641 Üyelik tarihi: Jun 2010 Mesajlar: 469 Teşekkürler + Puan Verdi: 39 + Puan Aldı: 108 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Ö.d eksik var galiba bır ara düzeltirim

12-26-2010, 21:13	#5 (permalink)
uchihasasuketr Usta Oyuncu Forum Üye No: 40401 Üyelik tarihi: Nov 2010 Mesajlar: 27 Teşekkürler + Puan Verdi: 1 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Ellerine sağlık.

01-08-2011, 21:41	#6 (permalink)
serhatkan Kral Forum Üye No: 38898 Üyelik tarihi: Sep 2010 Mesajlar: 250 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 30 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	süper paylasım valla

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)