Çevrimdışı

Alt + o seçeneğinde Açılışta Bağlan seçeneği deaktif zaten muratt_aziz kardeşim. remoteler kapalıykende girmiyor yukarıda logunu vermiştim. Ve /server -m yapıp girdiğimde mynete GIRIS kodu soruyor zaten.. Atıyorum /GIRIS 586 gibi yaparak giriyorum. Neyse muratt_aziz kardeşim Allah senden razı olsun yardımcı olmaya çalıştın elinden geldiğince. Scripti görmeden ancak bu kadar olabilirdi zaten. Sağol varol tekrardan sevgilerimle teşekkürler.

start, /s, /server irc ve GIRIS Kodu ile ilgili yerleride pasteleyeyim son olarak;

on ^*:quit: {
set %quit 0
:start
inc %quit
if ($comchan($nick,%quit) != $null) {
echo $comchan($nick,%quit) $timestamp $+ 12 Çıkış : $nick ( $+ $address $+ $chr(41)) ( $1- )
goto start
}


bir diğeri;

; events
;echo -a scripting\görünüm\Üstmenü.ico
on *:start:{ if ($ppop.trig(n)) { ppop ~ $nick ~
<<<< Hoş Geldiniz >>>> } }
on *:connect:{ if ($ppop.trig(n)) { ppop Bağlantı Kuruldu.. Şu an $server Sunucusu İle Bağlantınız Kuruldu.. } }
on *:disconnect:{ if ($ppop.trig(i)) { ppop Bağlantı Kesildi.. Şu an $server Sunucusu İle Bağlantınız Kesildi.. } }
on *:kill:{ if ($ppop.trig(i)) { ppop Bağlantı Kesildi.. Şu an $2 Tarafından Sunucu İle Bağlantınız Kesildi.. } }
on *:filercvd:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Alımı Tamamlandı.. Dosya: $+(",$get(-1).file,") Gönderen: $get(-1) Tamamlandı.. Alınan: $bytes($get(-1).size,3).suf $iif($get(-1).resumed,after Devam Edilen: $bytes($v1,3).suf) Süre: $duration($get(-1).secs) Ortalama Byte: $bytes($get(-1).cps,3).suf $+ /s. } }
on *:filesent:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Gönderimi Tamamlandı.. Dosya: $+(",$send(-1).file,") Alıcı: $send(-1) Tamamlandı.. Gönderilen: $bytes($send(-1).size,3).suf $iif($send(-1).resumed,after Devam Edilen: $bytes($v1,3).suf) Süre: $duration($send(-1).secs) Ortalama Byte: $bytes($send(-1).cps,3).suf $+ /s. } }
on *:getfail:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Alımı Başarısız.. Dosya: $+(",$get(-1).file,") Gönderen: $get(-1) Başarısız.. Alınan: $+($bytes($get(-1).rcvd,3),/,$bytes($get(-1).size,3).suf) ( $+ $get(-1).pc $+ %) $iif($get(-1).resumed,Devam Edilen: $bytes($v1,3).suf) Süre: $duration($get(-1).secs) Ortalama Byte: $bytes($get(-1).cps,3).suf $+ /s. } }
on *:sendfail:*:{ if ($ppop.trig(d)) { ppop DCC Dosya Gönderimi Başarısız.. Dosya: $+(",$send(-1).file,") Alıcı: $send(-1) Başarısız.. Gönderilen: $+($bytes($send(-1).sent,3),/,$bytes($send(-1).size,3).suf) ( $+ $send(-1).pc $+ %) $iif($send(-1).resumed,Devam Edilen: $bytes($v1,3).suf) Süre: $duration($send(-1).secs) Ortalama Byte: $bytes($send(-1).cps,3).suf $+ /s. } }
ctcp !*:*:*:{

nicklist bölümündeki start olayı, belki alakasız olabilir burası;

:start
var %cl.temp = $_vr(nicklist,$cl.return(%xt))
did - $+ $iif(%cl.temp,c,u) background %xt
did - $+ $iif($did(2).state,e,b) background %xt
if (%xt < 6) { inc %xt | goto start }
var %xt = 7
ve;
:start
_vw nicklist $cl.return(%xt) $did(%xt).state
if (%xt < 6) { inc %xt | goto start }
var %xt = 7



bir diğeri;

menu menubar {
}
on *:START: if ( %imgmirc_config & 1 == 1 ) im_preload
ctcp ^*:version:?: /ctcpreply $nick version %version



bir diğeri;

on 1:start:{
.set %TM1 Turkce mIRC | .set %TM2 Turkce mIRC | .set %logo Turkce mIRC | .set %version Turkce mIRC
.anick TurkcemİRC
.fullname
.identd on MyNet
.if ($group(#ozelkapat) == on) { .disable #ozelkapat }
.stat
}


bir diğeri;

on *^:ERROR:*BANNED*:{
echo 12 -a 5 Serverdan K-Line Yediniz.. ( $+ $9- $+ ) $chr(91) $+ $server $+ $chr(93) | timer 1 5 /server irc.mynet.com | halt
halt
}


bir diğeri;

if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = disconnecting || $scid($activecid).status = disconnected ) { scid $activecid server irc.mynet.com }
else { scid $activecid disconnect }
update.tb
did -f $dname 1
scid $activecid window -a "status window"
}

mynete /server -m ile girdiğimdeki GIRIS kodu örneği;

[05:56:46] * Bağlanılıyor irc.mynet.com (6667)
[05:56:46] -irc8.mynet.com- *** Looking up your hostname...
[05:56:46] -irc8.mynet.com- *** Couldn't resolve your hostname; using your IP address instead
Version Size VERSION Çekti.
[05:56:46] -> [Version] version Turkce mIRC
[05:56:46] [Version VERSION]
[05:56:46] -irc8.mynet.com- *** Version Korumasindan Geciyorsunuz.
[05:56:46] -irc8.mynet.com- *** Version Cevabi Alindi.
##############################
##############################
##############################
##############################
##############################
##############################
##############################
##############################
##############################
[05:56:46] -irc8.mynet.com- Sohbete girebilmek icin, yukaridaki kodu ornekteki gibi /Giris KOD seklinde girmeniz gerekmektedir.
[05:56:46] -irc8.mynet.com- ORNEK: /Giris 123



ve son olarakta bu var;

on *:start:{
.dialog -ma tb tb
.dialog -ma tyr tyr
.dialog -ma tyl tyl
.titlebar Turkce mIRC
.timerram 0 10 .did -ra tb 77,179 $round($remove($gettok($dll($shortfn
(scripting\dll\moo.dll),meminfo,_),3,32),$chr(40), $chr(41),$chr(37)),0))
.titles
}