loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "xxxxxxxx"
set nick "Webistek"
set altnick "Webistek2"
set my-ip "xxxxxxxxxxxx"
set my-hostname "xxxxx.Com"
set realname "xxxx.Com"
set init-server { 
putserv "identify xxxxxx" 
putserv "oper xxxxx  xxxxx"
putserv "MODE Webistek +D"
}
set servers {
   xxx.xx.xx.xx:xxxx
}
  channel add #istek {
  need-op { putserv "MODE #istek +v Webistek" }
  }
set net-type 5
set owner "ŞaH"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #opers "logs/istek.log"
set shortnick "Webistek"
set home "#istek"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/istek.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/istek.tcl

set db "veri.txt"
set gecikme_zamani "1"
set wait "1"
bind time - "* * * * *" time:optara 
proc time:optara {min hour day month year} {
global db wait gecikme_zamani 
set file [open $db r] 
set listfile [split [subst -nocommands [read $file]] "\n"] 
foreach i $listfile { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#istek"
utimer $wait[list putserv "privmsg $ch :1,4 İstek: $i"] 
}  
set filem [open $db w] 
set listfilem [split [subst -nocommands [read $filem]] "\n"] 
foreach i $listfilem { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#istek"
utimer $wait[list putserv "privmsg $ch :$i"] 
} 
close $file 
}

#######################################
# TcL scripting WEB TXT Aktarılan     #
#  verileri #chan  kanalına gönderir. #
#   TcL coder CLubber                 #
#                                     #
#     Düzenleme MesqeN                #
#######################################
# Zaman Aralıgını 4 olarak belirledim # 
# isteginize Göre degiştirebilirsiniz.# 
# Chan Yazan yere veriyi istediginiz  #
# Kanal adını yazın..                 #
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan yere veri     #
# Cekceginiz adresi yazın....         #
#######################################
set zaman_araligi "4"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "w"]
  foreach i $list {
  putquick "PRIVMSG #Chan $i"
      ::http::cleanup $files
  }
 timer $zaman_araligi basla
}
putlog "#######################################"
putlog "  banac TCL v1.0.2 Load edildi        #"
putlog "#######################################"

#######################################
# TcL scripting WEB TXT Aktarılan     #
#  verileri #chan  kanalına gönderir. #
#   TcL coder CLubber                 #
#                                     #
#     Düzenleme MesqeN                #
#######################################
# Zaman Aralıgını 4 olarak belirledim # 
# isteginize Göre degiştirebilirsiniz.# 
# Chan Yazan yere veriyi istediginiz  #
# Kanal adını yazın..                 #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set zaman_araligi "0"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "w"]
  foreach i $list {
  putquick "PRIVMSG #DJ $i"
      ::http::cleanup $files
  }
 timer $zaman_araligi basla
}
putlog "#######################################"
putlog "  banac TCL v1.0.2 Load edildi        #"
putlog "#######################################" 

#
#            Eggdrop Bot                  
#                                         
#      SekerShell International Service      
#
###########################################
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "SeckinShell"
set nick "P-Bot"
set altnick "bot"
set my-ip "109.235.253.9"
set my-hostname "SeckinShell.Com"
set realname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set init-server { 
putquick "identify *******" 
putquick "oper Bot *******"
putquick "MODE P-Bot +D"
}
set servers {
   109.235.253.9:2291
}
 channel add #Dj {
  need-op { putquick "MODE #Dj +v P-Bot " }
    }
 channel add #AskFM {
  need-op { putquick "MODE #AskFM +v P-Bot " }
    }


set net-type 5
set owner "OzeL"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #opers "logs/Selvinaz.log"
set shortnick "Korku"
set home "#Soz"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/selvinaz.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/webistek.tcl 

<?php
ob_start();
?>
<html>
<head>
<title>AskFM İstek Paneli</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="FFF4DF">
<div align=center>
<table width=258 height="271" border=0 cellpadding=0 cellspacing=0>
<form action=iste.php method=post>
<tr>
 <td height="31" colspan="3"><div align="center"><font face=Tahoma size=2 color=brown><b>
   <center> <a href="http://askyerim.net/askfm/index.php">

<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a> </b></font></div></td></center>
</tr>
<tr>
 <td width="71" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>İsminiz:</strong></font></div></td>
 <td width="11">&nbsp;</td>
 <td width=208 align=left><input type=text size=25 name=isim></td>
</tr>
<tr>
 <td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Sanatçı:</strong></font></div></td>
 <td>&nbsp;</td>
 <td align=left><input type=text size=25 name=sanatci></td>
</tr>
<tr>
 <td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Şarkı:</strong></font></div></td>
 <td>&nbsp;</td>
 <td align=left><input type=text size=25 name=sarki></td>
</tr>
<tr>
 <td height="139" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Mesaj:</strong></font></div></td>
 <td>&nbsp;</td>
 <td align=left ><textarea rows=8 cols=20 name=mesaj></textarea></td>
</tr>
<tr>
 <td colspan="3"><div align="center">
   <input type=submit value=Gönder size=20 name=gonder>
 </div>
</form>
</table>
</div>
</body>
</html>

<html>
<head>
<title>AskFM İstek Paneli</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="#FFF4DF">
</head>
<body>

 <center> <a href="http://askyerim.net/askfm/index.php">

<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a></center>
<?php
$isim = $_POST['isim'];
$sanatci = $_POST['sanatci'];
$sarki = $_POST['sarki'];
$mesaj = $_POST['mesaj'];
if ($sanatci == "" OR $sarki == "" OR $mesaj == "") {
echo "<center>Lütfen Boş Alan Bırakmayınız.<br><a href='index.php'>Geri</a></center>";
} else {
$dosya_adi = "veri.txt";
$dosya = fopen ($dosya_adi , 'w') or die ("Hata! Lutfen Tekrar Deneyiniz!");
$yazi = "\00304,01 İsim:\00309,01 $isim \00304,01Sanatçı:\00309,01 $sanatci \00304,01Şarkı:\00309,01 $sarki \00304,01Mesaj:\00309,01 $mesaj ";
fwrite ( $dosya , $yazi ) ;
echo "<font color=red size=2 face=Arial><b><center>İsteğiniz sunucularımıza iletilmiştir.</b><br><br>
<FORM>
<INPUT TYPE='BUTTON' VALUE='Kapat'
NAME='lowerButton' onClick='self.close()'>
</FORM></center>
</font>";
}
 
?>
</body>
</html>