# Hoşgeldin ziyaretçi. veya KaydolParolanı mı unuttun ?

Oto Görev Botu Vb6 Yardim & istek)

  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ii


#1
Rob_Zombie
Yeni Üye
Üye Grubu
Yorumları: 18 Konuları: 4 Kayıt Tarihi: 08-12-2015 Rep Puanı: 0
Teşekkürler: 1
1 mesajına 1 kez teşekkür edildi.

S.a Arkadaslar benim Satin Almiş Oldugum oto görev Sourcesi Sorunsuz Çalişiyor 1 den 57 kadar Sorun yok ama yeni Mob eklemek istediğim zaman bunu Yapamiyorum Örnek Olarak Kodlama Şekli şu Şekilde oluyor Patrik gidip görevi alip 5 Worms Kesip lvl 5 ile 10 Elma Toplatikdan sonra Town atip Worm Görevleri ile Elmalari veriyor sonrada  Bandicoot Görevini Aliyor gidip 5 Bandicoot kesiyor Bu Şekilde Devamli gidiyor vede ben bunlarin Arasina Diyelim ki Looter de Kassin lvl 15 Olsun 20 Elma Olsun bunlari Tamamladikdan sonra Ordan Direk Bandicoot Slotuna gitsin istiyorum ama lvl 15 Olup 20 Elma yapiyor ama Oldugu gibi Slotta Kaliyor lvl 20 30 kadar Devam ediyor lvl 15 olup 20 Elmayi yaptikdan sonra Bandicoot görevine geçmiyor bu Sorunu Nasil Hallede bilirim..

Çalişan Kodlamadan bir Örnek

If durum = "wormageldik" Then
mobseçabey "Blood Worm"
atakyap.Enabled = True
Form4.Check48.Value = 1
durum = ""
End If


If Label3.Caption = "wormbitti" Then
If val(itemsayisi("810418000")) >= 10 And CharLevel >= 5 Then
atakyap.Enabled = False
Paket "4800"
Paket "4800"
durum = "kurianagit"
Label3.Caption = ""
End If
End If


If durum = "kurianagit" Then

Yürü 804, 550
If KarakterX = 804 Or KarakterY = 550 Then
kurianelmeal1
If Label10.Caption = "kurian1alındı" Then: durum = "kurielma1ver"
End If
End If

If durum = "kurielma1ver" Then
kurianelmaver1
If Label11.Caption = "kurian1verildi" Then: durum = "kuriyanelmaal2"
End If

If durum = "kuriyanelmaal2" Then
kurianelmeal2
If Label10.Caption = "kurian2alındı" Then: durum = "kuriyanelma2verabeyy"
End If

If durum = "kuriyanelma2verabeyy" Then
kurianelmaver2
If Label11.Caption = "kurian2verildi" Then: durum = "wormvermeyegit"
End If

If durum = "wormvermeyegit" Then
Yürü 826, 550
If KarakterX = "826" Or KarakterY = "550" Then
wormver
If Label11.Caption = "wormverildi" Then: durum = "bandikotal"
End If
End If

If durum = "bandikotal" Then
bandicotal
bandicotalkurian
durum = "bandikoticinsamanlaragit"
End If

If durum = "bandikoticinsamanlaragit" Then
Yürü 807, 465
If KarakterX = 807 Or karkatery = 465 Then
durum = "bandikoticinsamanlarageldik"
End If
End If

If durum = "bandikoticinsamanlarageldik" Then
Yürü 749, 430
If KarakterX = 749 Or KarakterY = 430 Then
durum = "bandikoticinarenageldik"
End If
End If

If durum = "bandikoticinarenageldik" Then
Yürü 641, 426
If KarakterX = 641 Or KarakterY = 426 Then
durum = "bandikoticinbandikotgeldik"
End If
End If


If durum = "bandikoticinbandikotgeldik" Then
Yürü 607, 482
If KarakterX = 607 And KarakterY = 482 Then
mobseçabey "Scavenger Bandicoot"
atakyap.Enabled = True
Form4.Check48.Value = 1
durum = ""
End If
End If


If Label3.Caption = "bandicotbitti" Then
If val(itemsayisi("810418000")) >= 6 And CharLevel >= 7 Then
otoptat.Enabled = False
If Check9.Value = 1 Then: Paket "2F05"
atakyap.Enabled = False
Paket "4800"
Paket "4800"
durum = "bandikotbitti"
Label3.Caption = ""
End If
End If

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

Eklemek istediğim Mob ile Kordinatlari..

If durum = "wormageldik" Then
mobseçabey "Blood Worm"
atakyap.Enabled = True
Form4.Check48.Value = 1
durum = ""
End If


If Label3.Caption = "wormbitti" Then
If val(itemsayisi("810418000")) >= 10 And CharLevel >= 5 Then ' >= 6 And Elma Önceki Charlevel
atakyap.Enabled = False
Paket "4800"
Paket "4800"
durum = "lootergit"
Label3.Caption = ""
End If
End If

If durum = "lootergit" Then
Yürü 875, 400
If KarakterX = 875 Or KarakterY = 400 Then
durum = "looter2"
End If
End If

If durum = "looter2" Then
Yürü 877, 375
If KarakterX = 877 Or KarakterY = 375 Then
durum = "lootergeldik"
End If
End If

If durum = "lootergeldik" Then
Yürü 880, 360
If KarakterX = 880 And KarakterY = 360 Then
mobseçabey "looter"
atakyap.Enabled = True
Form4.Check48.Value = 1
durum = ""
End If
End If

If Label3.Caption = "looterbitti" Then
If val(itemsayisi("810418000")) >= 20 And CharLevel >= 15Then 
atakyap.Enabled = False
Paket "4800"
Paket "4800"
durum = "kurianagit"
Label3.Caption = ""
End If
End If

If durum = "kurianagit" Then

Yürü 804, 550
If KarakterX = 804 Or KarakterY = 550 Then
kurianelmeal1
If Label10.Caption = "kurian1alındı" Then: durum = "kurielma1ver"
End If
End If

If durum = "kurielma1ver" Then
kurianelmaver1
If Label11.Caption = "kurian1verildi" Then: durum = "kuriyanelmaal2"
End If

If durum = "kuriyanelmaal2" Then
kurianelmeal2
If Label10.Caption = "kurian2alındı" Then: durum = "kuriyanelma2verabeyy"
End If

If durum = "kuriyanelma2verabeyy" Then
kurianelmaver2
If Label11.Caption = "kurian2verildi" Then: durum = "wormvermeyegit"
End If

If durum = "wormvermeyegit" Then
Yürü 826, 550
If KarakterX = "826" Or KarakterY = "550" Then
wormver
If Label11.Caption = "wormverildi" Then: durum = "bandikotal"
End If
End If

If durum = "bandikotal" Then
bandicotal
bandicotalkurian
durum = "bandikoticinsamanlaragit"
End If

If durum = "bandikoticinsamanlaragit" Then
Yürü 807, 465
If KarakterX = 807 Or karkatery = 465 Then
durum = "bandikoticinsamanlarageldik"
End If
End If

If durum = "bandikoticinsamanlarageldik" Then
Yürü 749, 430
If KarakterX = 749 Or KarakterY = 430 Then
durum = "bandikoticinarenageldik"
End If
End If

If durum = "bandikoticinarenageldik" Then
Yürü 641, 426
If KarakterX = 641 Or KarakterY = 426 Then
durum = "bandikoticinbandikotgeldik"
End If
End If


If durum = "bandikoticinbandikotgeldik" Then
Yürü 607, 482
If KarakterX = 607 And KarakterY = 482 Then
mobseçabey "Scavenger Bandicoot"
atakyap.Enabled = True
Form4.Check48.Value = 1
durum = ""
End If
End If


If Label3.Caption = "bandicotbitti" Then
If val(itemsayisi("810418000")) >= 6 And CharLevel >= 7 Then
otoptat.Enabled = False
If Check9.Value = 1 Then: Paket "2F05"
atakyap.Enabled = False
Paket "4800"
Paket "4800"
durum = "bandikotbitti"
Label3.Caption = ""
End If
End If

Bu Şekilde Yapiyorum ama Ne Elma Kodunu Okuyor nede Charlevel Okuya biliyor..

If val(itemsayisi("810418000"))   810418000 <---- Bu Elma Kodu Bunu Deyiştirip
Looter den Çikan Secret Account Book Kodu ile Deyiştirdim Ayni Şekilde Sonuç Alamadim bunu Nasil düzelte bilirim acaba
Arkadaslar.. Vb6 Anliyan birisi Yardimci Ola bilirmi ?


#2
gs09gs09
Yeni Üye
Üye Grubu
Yorumları: 24 Konuları: 0 Kayıt Tarihi: 07-03-2016 Rep Puanı: 0
Teşekkürler: 1
0 mesajına 0 kez teşekkür edildi.

Source olmadan zor neyden kaynakladini bulmak mantik olarak dogru yapmissin gibime geldi


#3
Rob_Zombie
Yeni Üye
Üye Grubu
Yorumları: 18 Konuları: 4 Kayıt Tarihi: 08-12-2015 Rep Puanı: 0
Teşekkürler: 1
1 mesajına 1 kez teşekkür edildi.

(15-12-2018, Saat: 15:29)gs09gs09 Adlı Kullanıcıdan Alıntı: Source olmadan zor neyden kaynakladini bulmak mantik olarak dogru yapmissin gibime geldi

Dogrudur hocam bende öyle Tahmine diyorum ama Dediğim gibi Halad Çalişmadiği yerlede var neden bilmiyorum neden çalişmadiğini İtemsaysini Kodlarini baktim ama halad Sorun nerde bilmiyorum


#4
TheProLive
Coder
Coder Grubu
Yorumları: 5 Konuları: 0 Kayıt Tarihi: 16-01-2016 Rep Puanı: 0
Teşekkürler: 1
1 mesajına 1 kez teşekkür edildi.

kardes bunlar yerine gorevin base idsini okutsan . gorev acıkmı die ordan baksan . daha mantıklı . boyle corba olur .


#5
Rob_Zombie
Yeni Üye
Üye Grubu
Yorumları: 18 Konuları: 4 Kayıt Tarihi: 08-12-2015 Rep Puanı: 0
Teşekkürler: 1
1 mesajına 1 kez teşekkür edildi.

(22-12-2018, Saat: 01:01)TheProLive Adlı Kullanıcıdan Alıntı: kardes bunlar yerine gorevin base idsini okutsan . gorev acıkmı die ordan baksan . daha mantıklı . boyle corba olur .

Görevin Base Id si yok Elimde Güncel Paket Dinleme Olmadiği için Looter den gelen Görev vede Botun Onu Almasi için Gerekli Paketler yok Herşeyi denedim ama Attacak Veriyor Looter gidince Sadece Üstündeki Elma Sayisini yada Scret account book İtem Id sini Alip Elma gibi Okutmaya Çaliştim ama oda bir İşe yaramadi onun için Sanirim Billbor dan Paket leri ögrenmem gerekicek. bunun içinse Steamko nun 2083 Unpack Edilmiş Halie Lazim ki Cheat Engine ile bula bileyim ama şuan için Kullandiğim Sourceye Yeni Hayvan Ekleyemiyecem.


#6
Rivx35
Cezalı Üye
Yasaklı Kullanıcı Grubu
Yorumları: 9 Konuları: 0 Kayıt Tarihi: 04-02-2019
Teşekkürler: 0
1 mesajına 1 kez teşekkür edildi.

recv etmen lazim görev bittiğinde bittiğini anlayip baska asama ya gecirebilesin.

elma olayida üstündeki elma sayisini kontrol ettiriyosun baska bi entrikasi yok




Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Oto Kutu (İstek) sefil 0 67 16-09-2020, Saat: 15:35
Son Yorum: sefil
  (istek) VB6'da Paket Gönderme XignCode 0 98 31-08-2020, Saat: 01:12
Son Yorum: XignCode
  (istek) slot kısıtlama rapstar_bg 1 154 23-05-2020, Saat: 00:03
Son Yorum: kaanxxxx
  ms girmeden exp alma paketi(istek) rapstar_bg 0 153 21-05-2020, Saat: 11:04
Son Yorum: rapstar_bg
  GÜNCEL PROJE SOURCE İSTEK VB6 wolf0 0 1,303 30-10-2017, Saat: 20:26
Son Yorum: wolf0


Hızlı Menü:


Konuyu Okuyanlar:
1 Ziyaretçi