on ^*:text:*:#services {
  if $regex($1-,/GiRdi|oldu|KanaLa|Degistirdi|Ayrildi|Kickledi|Cikti/Si) { /echo -t $chan $+(4[  ,Services,4 ]) $1- | halt } 
  elseif (*clients* iswm $1-) { /echo -t $chan  $remove($regsubex($regsubex($1-,/(5681|7000)/,Web),/(666[56789]|8000)/,mIRC),clients,2Port4) $+(,12,[,14,Gline,12,],$chr(32),12,[,14,Shun,12,])  | halt }
  else { /echo -t $chan $+(4[  ,$nick,4 ]) $1- | halt }
}
on ^1:HOTLINK:*shun*:#services:if ($strip($1) == [Shun]) return | halt 
on ^1:HOTLINK:*Gline*:#services:if ($strip($1) == [Gline]) return | halt 
on *:hotlink:*:#services:{
  if $strip($1) == [Gline] { if $regex($hotline,/@?(\d+\.\d+\.\d+\.\d+)/S) { gline $+(*@,$regml(1)) +0 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } }
  elseif $strip($1) == [Shun] { if $regex($hotline,/@?(\d+\.\d+\.\d+\.\d+)/S) { shun $+(+*@,$regml(1)) +0 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } }  
}