on $*:text:/^(!duzenle)$/:#kanalim:islem

on *:text:*:#kanalim: {
  if $1- == !duzenle {
    islem
  }
}

alias Islem {
  ; Öncelikle bir html sayfası yapacağız ismi mIRCWeb olsun, yapmadan önce de mIRC klasöründe olan önceki oluşturduğumuz o isimdeki üstüne eklemesin html codelerini diye sileceğiz...
  .remove $shortfn($mircdirmIRCWeb.html)
  ;Html'mizi yazıyoruz, amacımız #Help kanalında kaç kişi var ve bunların prefix bilgilerini (yardım alan user ve beklemede olan user bilgileri de dahil) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] online olarak bildirebilmek.
  ;Uygun html sayfasını hazırlıyoruz!
  write mIRCWeb.html <h1>#Help Kanali Online Yetkilileri</h1>
  write mIRCWeb.html <p>Coder by avdet!</p>
  write mIRCWeb.html </body>
  write mIRCWeb.html </html>
  write mIRCWeb.html <ul>
  var %avdet = 1
  while (%avdet <= $nick(#help,0)) {
    if $+($chr(126),$chr(42)) iswm $nick(#help,%avdet).pnick {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Founder),</li>) 
    }
    if $+($chr(38),$chr(42)) iswm $nick(#help,%avdet).pnick {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Help Super Operator),</li>) 
    }
    if $+($chr(64),$chr(42)) iswm $nick(#help,%avdet).pnick {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Help Operator),</li>) 
    }
    if $+($chr(37),$chr(42)) iswm $nick(#help,%avdet).pnick {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Help Half Operator(Stajyer.)),</li>) 
    } 
    if $+($chr(43),$chr(42)) iswm $nick(#help,%avdet).pnick {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Help Kullanıcısı),</li>) 
    } 
    if $regex($nick(#help,%avdet).pnick,/^([^+%@&~])/) {
      write mIRCWeb.html $+(<li>,$nick(#help,%avdet),$+($chr(32),$str($chr(42),3),$chr(32)),(Help Kullanıcısı(Beklemede.)),</li>) 
    }
    inc %avdet
  }
  write mIRCWeb.html </ul>
  ;Alias'ı kapatmayın daha bitmedi :)
  ;Bu kısımda scripting bilginize ile entegre ettiğiniz html codeleri tamam, bu aşamadan sonra ftp codelerini kullanacağız.
  ;Daha önceden oluşturduğumuz ftp dosyasını silelim. (Aslında gerek yok fakat anlamanız açısından teferruatlı gidiyorum ;) )
  .remove $shortfn($mircdirhelper.ftp)
  ;Kontrol amacı ile kapatıyoruz siz kapatmayın isterseniz.  
  write helper.ftp close FTPIp
  write helper.ftp open FTPIp
  write helper.ftp FTPKullanıcıadın(Web'ine ait FTP bu nedir? diye düşünme.)
  ;Somee'den kendinize ücretsiz bir web alanı edinebilirsiniz eğer yoksa, denemeler için.
  write helper.ftp FTPŞifren
  write helper.ftp cd Htmldosyasınıniçindebulunduğudirklasörününadı
  write helper.ftp send GöndereceğimizmIRCWeb.html'ninpcdekiyeri.
  write helper.ftp quit
  ;Oluştuğumuz Ftp dosyasını çalıştıralım..
  run ftp -s:helper.ftp
}