Tekil Mesaj gösterimi
Alt 04 Ağustos 2018, 21:51   #2
Çevrimdışı
YouMyCure Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım




Turk06 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Socket Bot Eglence eklentileri nasıl yapabılırım yardımcı olurmusunuz bana Socket bota soz cay kek hedıye gıbı eklentılerı nasıl yapabılırım

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si) { if !$5 || !$6 { swextrabot privmsg $_nick($1) Lütfen .söz ekle SÖZÜNÜZ şekline kullanın.. | return } if $5 == ekle { write soz.txt $6- $+ ÷ $+ $_nick($1)) swextrabot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt) swextrabot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4" swextrabot privmsg $_botchan - swextrabot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt) swextrabot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4" swextrabot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız... swextrabot privmsg $_botchan - } } } if *!* iswm $remove($4,:) || *.* iswm $remove($4,:) { var %::ii = 1 while %::ii <= $lines(globalkanal.txt) { if $3 == $read(globalkanal.txt,%::ii) { if $regex($remove($4,:),/([.!]sen)/Si) { if !$5 { swextrabot privmsg $3 Lütfen .sen NİCK şeklinde kullanın. kendiniz için kullanacaksanız .ben | return } if $hget(sen,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sen Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $_botchan $_nick($1) $3 kanalında .sen $5 komutunu kullandı. if !$hget(sen) { hmake sen } hinc -mu1 sen $_nick($1) swextrabot privmsg $3 $+(5,$5,2) $read(senben.txt) } if $remove($4,:) == .ben || $remove($4,:) == !ben { if $hget(ben,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $_botchan $_nick($1) $3 kanalında .ben komutunu kullandı. if !$hget(ben) { hmake ben } hinc -mu1 ben $_nick($1) swextrabot privmsg $3 $+(5,$_nick($1),2) $read(senben.txt) } if $regex($remove($4,:),/([.!]benimtarz[iİı]m)/Si) { if $hget(tarzim,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimtarzim Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $_botchan $_nick($1) $3 kanalında .benimtarzim komutunu kullandı. if !$hget(tarzim) { hmake tarzim } hinc -mu1 tarzim $_nick($1) swextrabot privmsg $3 $_nick($1) $read(tarz.txt) } if $regex($remove($4,:),/([.!]tarz)/Si) { if $5 == $_nick($1) { swextrabot privmsg $3 Kendi tarzınızı yorumlatmak için .benimtarzim | return } if $hget(tarz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tarz Komutunu Kullanabilirsiniz. | return } if !$5 { swextrabot privmsg $3 Lütfen .tarz NİCK şeklinde kullanınız. kendi tarzınızı görmek için .benimtarzim | return } swextrabot privmsg $_botchan $_nick($1) $3 kanalında .tarz $5 komutunu kullandı. if !$hget(tarz) { hmake tarz } hinc -mu1 tarz $_nick($1) swextrabot privmsg $3 $5 $read(tarz.txt) } if $regex($remove($4,:),/([.!][oÖö]p)/Si) { if $5 == $_nick($1) { swextrabot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :Dds | return } if $hget(opo,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]öp Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $3 $+(2,$_nick($1)) $5 1i kocaman öptü4 $gettok(%öpüş,$r(1,7),$asc(*)) 4:* swextrabot privmsg $_botchan $_nick($1) $3 kanalında .öp $5 $5 komutunu kullandı. if !$hget(opo) { hmake opo } hinc -mu1 opo $_nick($1) } if $regex($remove($4,:),/([.!]zar)/Si) { if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...) swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı. if !$hget(zar) { hmake zar } hinc -mu1 zar $_nick($1) var %dice $rand(1,6) var %dice2 $rand(1,6) swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2) if (%dice == %dice2) { swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!) swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt)) } elseif (%dice != $dice2) { swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene! } } if $regex($remove($4,:),/([.!]hed[iİı]ye)/Si) { if $5 == $_nick($1) { swextrabot privmsg $3 Kendi kendine hediyemi gönderecen egolu kardes | return } if !$5 { swextrabot privmsg $3 Lütfen .hediye NİCK şeklinde kullanınız | return } if $hget(hediye,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(hediye.txt) 1hediye etti. swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı. if !$hget(hediye) { hmake hediye } hinc -mu1 hediye $_nick($1) } if $regex($remove($1,:),/([.!]f[iIı]rlat)/Si) { if $5 == $_nick($1) { swextrabot privmsg $3 Kendi kendine ne firlatmayi deniyorsun ah be kardesim | return } if !$5 { swextrabot privmsg $3 Lütfen .fırlat NİCK şeklinde kullanınız | return } if $hget(firlat,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]firlat Komutunu Kullanabilirsiniz. | return } swextrabot privmsg $3 - swextrabot privmsg $3 $+(2,$_nick($1)) 1nicki2 $5 1nickine4 $gettok($read(firlat.txt),1,$asc(=)) 1fırlattı. swextrabot privmsg $3 1aha2 $5 1in4 $gettok(%firlatymc,$r(1,5),$asc(*)) 1:Dd swextrabot privmsg $_botchan $_nick($1) $3 kanalında .fırlat $5 komutunu kullandı. if !$hget(firlat) { hmake firlat } hinc -mu1 firlat $_nick($1) }

kendi botuna göre düzenleyip kullanabilirsin tayfur. txtleri ve identiferleri

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan