Latest Threads

Popular / Threads / Snippets

yduochcm20   -   16 hours 18 mins ago

Việt Nam ghi nhận thêm 6 ca mắc Covid-19 nâng lên tổng 169 trường hợp

Ca bệnh số 164 là nam, 23 tuổi, quốc tịch Việt Nam, có địa chỉ ở Rạch Giá, Kiên Giang. Bệnh nhân là du học sinh tại Anh, về Việt Nam ngày 23/3/2020 trên chuyến bay mang số hiệu VN0054 của Vietnam Airlines (ghế 22K), nhập cảnh tại sân bay Vân Đồn. Bệnh nhân được chuyển về khu cách ly Trung đoàn 855, tỉnh Ninh Bình, mẫu bệnh phẩm được gửi tới Viện Vệ sinh Dịch tễ Trung ương ngày 26/3/2020. Hiện tại bệnh nhân đang được cách ly và điều trị tại Bệnh viện Đa khoa tỉnh Ninh Bình, tình trạng sức khoẻ ổn định.

Ca bệnh số 165 là nam, 58 tuổi, quốc tịch Việt Nam, địa chỉ ở Tiên Dương, Đông Anh, Hà Nội. Bệnh nhân từ Anh về Việt Nam ngày 23/3/2020 trên chuyến bay mang số hiệu VN0054 của Vietnam Airlines (ghế 41C), nhập cảnh tại sân bay Vân Đồn. Bệnh nhân được chuyển về khu cách ly Trường Quân sự tỉnh Ninh Bình, mẫu bệnh phẩm được gửi tới Viện Vệ sinh Dịch tễ Trung ương ngày 26/3/2020. Hiện tại bệnh nhân đang được cách ly và điều trị tại Bệnh viện Đa khoa tỉnh Ninh Bình, tình trạng sức khoẻ ổn định.

Ca bệnh số 166 là nữ, 25 tuổi, quốc tịch Việt Nam, địa chỉ ở Đông Phú, Lục Nam, Bắc Giang. Bệnh nhân sống tại Thái Lan, về Việt Nam ngày 20/3/2020 trên chuyến bay mang số hiệu TG564 của Thai Airways (ghế 40B). Bệnh nhân được chuyển về khu cách ly Sư đoàn 241, tỉnh Ninh Bình, mẫu bệnh phẩm được gửi tới Viện Vệ sinh Dịch tễ Trung ương ngày 26/03/2020. Hiện tại bệnh nhân đang được cách ly và điều trị tại Bệnh viện Đa khoa tỉnh Ninh Bình, tình trạng sức khoẻ ổn định.

 Respond  
togelsakti4d   -  2 days ago

Hallo ! Selamat datlang di halaman profil aku, aku amat menyukai permainan togel dan aku teramat gemar sekali menghasilkan formula pertogelan dgn memanfaatkan data sgp, data hk, dan data sidney apabila kamu berminat join di website aku silakan mengklik http://13.228.183.229/

 Respond  
TristarProducts01   -  2 days ago

Phone : +1 973-575-5400

Tristar Products Review is where you can find honest testimonials from inventors and consumer goods manufacturers who have successfully worked with Tristar to launch their products. Tristar Products is the premier product marketing company in the industry today recognized for the many popular consumer brands Tristar has helped turn into household names. With thousands of Tristar products reviews and over 25 years of success dominating the direct-response industry, Tristar has the capability and expertise to achieve domestic and international market dominance. Read more at Tristar Products Review to see how they can turn an idea into a brand, and make that brand a category leader.

 Respond  
michelleriley17   -  3 days ago

Pool Design

 Respond  
romanj123   -  3 days ago

Looking for Local Plumbers Near Me services? Our professional plumbers are there to assist the commercial caretakers and residents.

 Respond  
ThatPoolHeatingCompany   -  3 days ago

We are a family run business that specialises in pool heating. We are proud of the work and customer service that we offer. We strive to offer the nest possible pool heating solutions and provide only the best quality in terms of products and workmanship. Having contracted to some of the largest pool heating suppliers in Australia we are confident in knowing we can offer the best service and systems in the market.

We offer a range of solar pool heating solutions, both strip and rigid systems ( vermin and cockatoo proof) All Australian made and have been in the market place for 30 years. We offer a range of pool heat pumps, full inverter, standard heat pump and a commercial range, that are the most energy efficient on the market. We also offer gas heating.
Spasa Member
Fully Insured and Licensed

 Respond  
Sammie 2034   -  3 days ago

Owner of a number of escape rooms in the uk.

 Respond  
Sammie 2034   -  3 days ago

Escape room owner Game Over Liverpool.

 Respond  
ASAPCashForCars   -  4 days ago

ASAP Brisbane's one of the leading car removal service provider offers top cash for cars of any model. If you have an old or scrap car or your model is too old that no one purchases it. Sell it to us, we offer top cash for your scrapped car. Once you sell your old or scrap model we give u instant cash. At ASAP we provide online facilities to get a free online car valuation, Talk to us right now to get sell your used cars now and get the right price for your used car today! Our to class or hassle-free services. When it comes to finding the best place to sell cars, no name is more reliable than ours. So don’t be late to sell your old or scrap cars. Sell it today and enjoy the most reliable offers.

 Respond  
JackSully   -  4 days ago

Vi på Billigfitness.se har alla intresse och passion inom fitness och hälsa, och vi vet att träning kan skapa positiva förändringar och ge mer energi till vardagen

 Respond  
TeethWhiteningKits   -  6 days ago

Welcome to Teeth Whitening Kits Ireland, we offer the leading products for teeth whitening at very affordable prices. Start your transformation today and get that whiter and brighter smile. Our products include teeth whitening kits and whitening powder. The kits are effective, convenient, and safe to use at home allowing you to achieve 3 to 4 shades whiter. You are guaranteed results and a more confident, bright, whiter, and fresher smile. Order online with us today. If you have any questions, please get in touch with us. We look forward to hearing from you.

 Respond  
lurdoperku   -  7 days ago

As indicated by the name offpage web optimization streamlining (site structure improvement) we can without a great deal of a stretch look at that it is a system identified with the web crawler and redesign anything on the web. Through the a boss among other online device called as site. With the assistance of off page search engine optimization plan improvement we can without a lot of a stretch and quickly notable our things (regions) online than different procedures, for example, facebook pages twitter pages instagram pages and pinterest pins.

 Respond  
monalisa24   -  9 days ago

Hi, I am Mona. I have 10 years rich experience in rendering Kindle Support. Resolve all your Kindle Related issues with specialized services available at Kindle Support. Best of assistance and support assured.

 Respond  
exploredwellness   -  9 days ago

The dietary supplement that Chris Dziak was founded was out of the firm branded Genuine Nootropics items. You are able to order their products from their on-line website and possess it provided in your house for One to utilize .

 Respond  
VIPCarRental   -  10 days ago

Luxury Car Rental - Less Money Same Style
Need to take her out for a night on the town she'll always remember? Or on the other hand possibly you might want to journey down to the keys for the end of the week, in style? VIP car rental has become a well known alternative for the individuals who need to encounter the rush of driving an outlandish vehicle, without using up every last cent.

 Respond  
btmfloorworx   -  10 days ago

At BTM floorworx, whether you have a small repair or a large project, we offer complete and vinyl flooring Melbourne solutions that suite every requirement. Carpet Repairs Melbourne With our extensive product knowledge Steam Cleaning Hawthorn and commitment to providing our customers with unique and design focused flooring solution and, you can feel confident that every project will be completed successfully. Water Damage Carpet Melbourne Here at BTM Floorworxs, we are committed to providing quality, performance, reliability and cost effectiveness for all our customers. With over 20 years’ experience in the flooring industry carpet layers Melbourne we aim to provide our clients with the assurance that every aspect of their flooring project will be completed successfully, with ease and the utmost quality. For more details about carpet repairs Melbourne visit us today.

 Respond  
MeganArno   -  11 days ago

Kids enjoy games and colors. Why not incorporate These in one celebration? NM Celebration Renting has Crayon Combo that will certainly entice the kids to perform enjoy yourself in it. They could bounce and slip inside without needing to be concerned about their security as they're doing the work inside an inflatable slide.

 Respond  
RomanPol   -  11 days ago

A swarm of undead walking around the Old Gods.

I'm also not sure why this is being contested as a possible old god and not as a possible void pet. Again, I'm not sure, if I'm reading it right.

What games would you like to read about?

 Respond  
jessicalima   -  12 days ago

How many days are required for touring Hyderabad?

The days you require to visit Hyderabad depends on your interest and time. If you are a history buff, there is no dearth of significant forts, monuments, mosques, and tombs to explore that need a day or two to explore. There are many tour companies like Viator, get your guide, make my trip and Indiator that offer tour packages ranging from single days to Multi days. If you do not have much time you can opt for a Hyderabad day tour that will cover all the prominent sites in the city is just a single day. Some of the popular sites that you will visit include Golkonda Fort, Qutub Sahi Tombs, Mecca Masjid, iconic Charminar and Salar Jung Museum.

The tour company will provide you transfers for sightseeing as well as service of English speaking tour guides. All you need to do is book tours in advance and avail offers and discounts for the same.

 Respond  
hirecleanly   -  13 days ago

Cleanly is your prime destination for professional cleaning services in the Morgan Hill, CA area. With years of experience, we are proud to service both residential and commercial properties, ensuring that everyone gets the meticulous clean they deserve. We take the time to understand our clients’ specific needs so that their spaces are cleaned to their satisfaction; and cleanings can be scheduled as often as is needed to maintain a pristine environment.

 Respond  
Hawkee   -  Feb 15, 2020

I'm trying to figure out what to do with this site. The spam is really a huge problem. I'd love to change things around, but I don't know what I could do to make it successful. I don't think just another code snippet sharing platform has much of a place online, so I need to completely reimagine this site. Any thoughts, ideas or suggestions?

VxD aka DEATHJ0KER   -  Jan 15, 2020

mIRC VxD script NҾ₢⃝№щΐ₵ᴑᴎ ❽
☠ Rev.50

is a mIRC script that allows you to manage the graphics of the mIRC client in many aspects.
Can change the look and feel of mIRC has never been so easy 100% customizable

This Script is evolving to enable any combination of style, color and aspects of graphic display effect to your dialog window with DCX.dll and other notes Dlls combined with each other.

Latest version Ver 8.50

The minimum requirements for the installation are;

  • NET Framework versions 4.5
  • Dual core processor or higher graphics adapter to medium-high.
  • mIRC v7.58 or above
  • Windows 10

● full script updated download to https://vxd.mobi/necronomicon.html

 Respond  
arahantu   -  Jan 05, 2020

yesssssssssssssss

 Respond  
sbh7600   -  Nov 25, 2019

Hello, is there still a working now playing script for spotify to mIRC ?

 Respond  
Tai_Pan   -  Nov 02, 2019

Search Ip from connect info
For By Cheiron on Sep 23, 2019

Open a text file with the name IP and place it in the mIRC home directory.
Add the above code to the remote. ( Alt + R )
It will record incoming and outgoing nicks.
You can interrogate him as Nick or IP. My English is bad.
I hope I understood your problem correctly. ;)

Code;


on :input:#Ops:{
if $regex($1,/^[!.]searchip$/Si) {
if !$2 { msg # 5Please Specify Nick / IP.. 12Use Of:4.searchip 12and 4!searchip 7or 4.searchnick 12or 4!searchnick }
elseif $regex($2,/\d+.\d+.\d+.\d+/Si) {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($2),) 12™ ® 4INo Recorded Data for IP Number Found.. 12® ™ | return }
msg # 4=====" 2Nickname 4"======" 2Ident 4"======" 2Action 4"=======" 2Time 4"======= " 2Date 4"=====
msg # 2-
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4Nick:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2-4 Action:11 $token(%:read,4-,32) 2-4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # 2-
msg # 13™ ® 4Information:10 $+(,$strip($2),) 4Number Of IP2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
msg # 13===============================================================
msg # 2-
.hadd -ms Ns-list $strip($2) #
ns list $+(
@,$strip($2))
}
else {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($5),) 12™ ® 4No Data Found for This Nick .. 12® ™ | return }
msg # 4=====" 2IP Number 4"======" 2Ident 4"=======" 2Action 4"========" 2Time 4"==== " 2Date 4"=====
msg # 2-
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4IP:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2- 4 Action:11 $token(%:read,4-,32) 2- 4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # 2-
msg # 13™ ® 4Information:10 $+(,$strip($2),) 4For This Nickname2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
msg # 13===============================================================
msg # 2-
}
}
}
on :notice::?:{
if ($nick == NickServ) {
if $regex($1-,/Matching Data:/Si) && $regex($1-,/(\d+.\d+.\d+.\d+)/Si) {
msg # $hget(Ns-list,$regml(1)) 10 $+(,$regml(1),) 9Registered Nick List of IP Number:
}
elseif $regex($1-,/(\d+.\d+.\d+.\d+)/Si) && $hget(Ns-list,$regml(1)) {
msg # $hget(Ns-list,$regml(1)) 4IP Owner Nick:2 $strip($1) }
elseif $regex($1-,/End Of List/Si) {
$iif($4 == 0/0,msg $hget(NS-list,1).data 12™ ® 4NickServ has No Registered or Identified Nick.. 12 ® ™)
.hfree -sw Ns-list
}
}
}

on :snotice::{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) ((.+)@(.+))/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 6667,Mobil,$iif(%_port == 7003,Web,IRC))) Has Logged in
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
.write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
}
elseif $regex($1-,/his\/her nickname to/Si) {
var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Changed his Nickname
.write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Changed his Nickname
}
elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) {
.hadd -msu15 IRC-Login $regml(1) $regml(2) $regml(3) Command Applied }
elseif $regex($1-,/Client exiting/Si) {
if $regex($1-,/Client exiting\: (.+) ((.+)@(.+)) .+/Si) {
var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) {
var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
var %:ban = $hget(IRC-Login,%_cip)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Logged Out)
.write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Logged Out)
$iif($hget(IRC-Login,%_cip),.hdel -ms IRC-Login %_cip)
}
}

 Respond  
Channel-X   -  Sep 30, 2019

Hi, I need help I have mIRC version v7.19 but I have no talkers.
How can I use these mirc talkers do I need a script for that, so where can I possibly find that please?

 Respond  
independent911   -  Aug 21, 2019

;Made by independent
;Use it only if my name stays on it.

menu * {
TCPWatch-dataforward:init
}

alias init {
inc %aaa
if (%aaa == 1) {
hadd -m conf ip 127.0.0.1
hadd -m conf port 9051
hadd -m conf p2 9050
}
if (!$sock(fromnet).name) socklisten -d 0.0.0.0 fromnet $hget(conf,port)
if (!$dialog(tcpwatch)) dialog -m tcpwatch tcpwatch
did -a tcpwatch 11 [Info] listening on port $hget(conf,port) redirect to $hget(conf,ip) $+ : $+ $hget(conf,p2) $crlf
did -a tcpwatch 11 [Info] Script has been started %aaa times

}

dialog tcpwatch {
title "TCPWatch-dataforward"
size -1 -1 347 93
option dbu
box "Config", 1, 4 4 66 65
edit "9051", 2, 42 16 22 10
text "Listen Port", 3, 7 17 32 8
edit "127.0.0.1", 4, 13 36 50 10
text "forward to ip", 5, 14 27 47 8
edit "9050", 6, 39 47 23 10
text "To Port", 7, 9 47 25 8
button "START", 8, 4 71 34 12
button "STOP", 9, 39 71 30 12
box "Debug", 10, 69 4 268 65
edit "", 11, 72 13 263 54, result multi autohs autovs hsbar vsbar limit 99999
button "CLEAR", 12, 116 72 37 12
button "SAVE", 13, 214 72 37 12
}

on 1:dialog:tcpwatch:sclick:8:{
init
}
on 1:dialog:tcpwatch:edit:2:{
hadd -m conf port $did(tcpwatch,2)
did -a tcpwatch 11 [Info] changed listen port to $did(tcpwatch,2) $crlf
}
on 1:dialog:tcpwatch:edit:4:{
hadd -m conf ip $did(tcpwatch,4)
did -a tcpwatch 11 [Info] changed ip to $did(tcpwatch,4) $crlf
}
on 1:dialog:tcpwatch:edit:6:{
hadd -m conf p2 $did(tcpwatch,6)
did -a tcpwatch 11 [Info] changed forward port to $did(tcpwatch,6) $crlf
}
on 1:dialog:tcpwatch:sclick:9:{
sockclose fromnet
sockclose redirect

sockclose tcpwatch*
did -a tcpwatch 11 [Info] Closed port. $crlf
}
on 1:dialog:tcpwatch:sclick:13:{
%ticks = $ticks
savebuf -oi tcpwatch 11 data $+ %ticks $+ .txt
run data $+ %ticks $+ .txt

}
on 1:dialog:tcpwatch:sclick:12:{
cleardiag 11
}
alias cleardiag {
did -r tcpwatch $1
}
on 1:SOCKREAD:fromnet*:{
sockread &fromnet
if (!$sock($replace($sockname,fromnet,redirect)).name) sockopen $replace($sockname,fromnet,redirect) $hget(conf,ip) $hget(conf,p2)
if ($sock($replace($sockname,fromnet,redirect)).name) sockwrite -n $replace($sockname,fromnet,redirect) &fromnet
did -a tcpwatch 11 From Net Bin : $bvar(&fromnet,1,$bvar(&fromnet,0)) $crlf
did -a tcpwatch 11 From Net Text: $bvar(&fromnet,1,$bvar(&fromnet,0)).text $crlf

}
on 1:SOCKREAD:redirect*:{
sockread &redirect
if ($sock($replace($sockname,redirect,fromnet)).name) sockwrite -n $replace($sockname,redirect,fromnet) &redirect
did -a tcpwatch 11 Redirect Bin: $bvar(&redirect,1,$bvar(&redirect,0)) $crlf
did -a tcpwatch 11 Redirect Text: $bvar(&redirect,1,$bvar(&redirect,0)).text $crlf

}

on 1:SOCKLISTEN:fromnet:{ %name = fromnet $+ $r(0,99999) | sockaccept %name | if (!$sock($replace($sockname,fromnet,redirect)).name) sockopen $replace(%name,fromnet,redirect) $hget(conf,ip) $hget(conf,p2) }

 Respond  
rounders   -  Aug 16, 2019

Hi everyone, first of all congratulations to all of you for your excellent scripts, today I want to ask you if it is possible to have a query script that helps me to block those who write to me in private, for example: if they write to me bye, are you alright? I need a script to save and block this word for a certain amount of time, so that when half an hour or 1 hour later they will write "hello, are you alright?" the script recognizes this message and ignores it or blocks perhaps with a message "you have already written this message". Do you think it is possible to do this? I sincerely thank those who will help me to do it.

 Respond  
RabbekuL   -  Jul 14, 2019

menu status,menubar,channel {

  • » BadNick Koruma:/dialog -m bads bads

  • }

alias bads { dialog -m bads bads }
dialog bads {
title "Kumsal sCripT Badnick Koruması"
size 200 200 256 176
option dbu
edit "", 2, 17 22 64 10, return autohs
list 3, 17 34 64 75, sort size hsbar
button "Nick ekle", 4, 17 11 32 10
button "Nick SiL", 5, 49 11 32 10
edit "", 6, 98 22 64 10, return autohs
list 7, 98 34 64 75, sort size hsbar
button "M Nick Ekle", 8, 98 11 32 10
button "M Nick SiL", 9, 130 11 32 10
edit "", 10, 176 22 64 10, return autohs
list 11, 176 34 64 75, sort size hsbar
button "M kanal ekle", 12, 176 11 32 10
button "M kanal SiL", 13, 208 11 32 10
button "Badnick Tara", 15, 197 124 50 10
button "Tamam/Kapat", 16, 79 124 99 12, ok
check "Aç / Kapat", 17, 10 124 50 10
box " Badnick Listesi", 19, 10 1 78 116
box " Muaf Nick Listesi", 20, 90 1 78 116
box " Muaf Kanal Listesi", 21, 170 1 78 116
icon 29,10 142 237 26, scripting\ico\menu\koruma.jpg
}
on :dialog:bads:sclick::{
if ($did(17).state == 1) { .enable #kbk } | else { .disable #kbk }
if ($did == 4) { write bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
if ($did == 5) { write -dl $+ $did(3).sel bads.txt | did -d $dname 3 $did(3).sel }
if ($did == 8) { if ($did(6) != $null) { set -u %mnk $did(6) | if (%mnk) && (!$istok(%korunick,%mnk,32)) { .set %korunick $addtok(%korunick,%mnk,32) | did -a $dname 7 %mnk | did -r $dname 6 } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %korunick $remtok(%korunick,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 } }
if ($did == 12) { if ($did(10) != $null) { set -u %mke $did(10) | if (%mke) && (!$istok(%korukanal,%mke,32)) { .set %korukanal $addtok(%korukanal,%mke,32) | did -a $dname 11 %mke | did -r $dname 10 } } }
if ($did == 13) { if ($did(11).sel > 0) { .set %korukanal $remtok(%korukanal,$did(11).seltext,1,32) | did -d $dname 11 $did(11).sel | did -c $dname 11 } }
if ($did == 15) { .tara $active }
}
on 1:dialog:bads:init:0: {
if ($isfile(bads.txt) == $false) { write -c bads.txt } | else { loadbuf -o $dname 3 bads.txt }
if (%korunick) .didtok $dname 7 32 $ifmatch
if (%korukanal) .didtok $dname 11 32 $ifmatch
if ($group(#kbk) == on) { did -c bads 17 }
}

Kbk on

on !:join:#: {
if $istok(%korukanal,#,32) == $true { halt }
if $istok(%korunick,$nick,32) == $true { halt }
if ($me isop $chan) || ($me ishop $chan) || (o isin $usermode) {
var %hd $lines(bads.txt)
while (0 <= %hd) {
if $read(bads.txt,%hd) iswm $nick {
mode # +b $+($v1,!
@)
kick # $nick 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik
}
dec %hd
}
}
}
on
:NICK:{
if $istok(%korunick,$newnick,32) == $true { halt }
if $badnick($newnick) {
var %e = 1, %u = $v1
while $comchan($newnick,%e) {
if ($me isop $v1) || ($me ishop $v1) && (%korukanal != $v2) && ($newnick isreg $v2) {
mode $v2 +b %u
kick $v2 $newnick 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik

  }
  inc %e
}

}
}
alias badnick {
var %e = 1
while $read(bads.txt,%e) {
if $v1 iswm $1 {
return $v1
}
inc %e
}
return $false
}

Kbk end

alias tara {
if $1 ischan {
var %d = $lines(bads.txt)
while %d {
if $fline($1,$read(bads.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(bads.txt,%d),!@) | kick $1 $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik } | dec %q } }
dec %d
}
}
}

Kanalın ortasına sağ klick yaparak açılan menüde bad nick Korumasını aça bilirsin ve acılan Dialod tablosuna nickleri ister wilcard yani sikici gibi örnek teki gibi ekleye bilirsin yada direkt olarak nickte yaza bilirsin bu şekilde çalışacağını düsünüyorum yapacağın sadece nick ekleme olacaktır kolay gelsin..

 Respond  
jacksonjones   -  Jul 09, 2019

Hello everyone hopes all are doing great.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.