Selamlar oncelikle kod sahibi Romeo dur. ben alıntı yaptım kendisinden izin aldım. bu konuda kımse senın benım demesinde. belirtmek istedim. Ve herkezin işine yarayacak bi kod.
oncelikle script.ini dosyası:....
; Romeo ...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] &
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
on *:start: {
echostatus
titlebar Chat Script ßy Romeo
.load -rs baglanti.txt
.identd on ChatScript
run regedit /S $mircdir\chat.dll
}
sockopen baglanti
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockclose:baglanti: {
halt
}
on *:sockread:baglanti: {
if %dr != 1 {
var %h
sockread
while $sock {
if * !iswm %h {
set %dr 1
break
}
sock %h
}
}
sockread 4096 &d
while $sock {
bwrite baglanti.txt -1 -1 &d
sockread 4087 &d
}
}
on *:sockopen:baglanti: {
if $socker {
return
}
write -c baglanti.txt
sockwrite -n $sockname GET /baglanti.txt HTTP/1.0
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname
}
alias echostatus {
if $sock(echo) {
sockclose echo
}
sockopen echo
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:echo: {
if $sockerr {
}
sockwrite -nt $sockname GET /acilis.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname
}
on *:sockread:echo: {
sockread
if $left(%s) == {
echo -a %s
}
if $gettok(%s,1) == download && $file(baglanti.txt) != $gettok(%s,2) {
baglanti
}
if $gettok(%s,1) == chan {
writeini mirc.ini chanfolder $gettok($gettok(%s,2,32),1,61) $gettok($gettok(%s,2,32),2,61)
}
}
ctcp 1:version:*:{
ctcpreply $nick Chat Script ßy Romeo
}
ctcp 1:finger:*:{
ctcpreply $nick Chat Script ßy Romeo
}
raw *:*: {
if $numeric == 433 {
inc -u3 %nonickname 1
if %nonickname == 2 {
.nick $+(YedekNick,$r(1,9999))
}
}
}
____________________________________________
Sonrasında baglanti.txt Dosyası
; Romeo ...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] &
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
on *:start: {
echostatus
titlebar Chat Script ßy Romeo
.load -rs baglanti.txt
.identd on ChatScript
run regedit /S $mircdir\chat.dll
}
alias baglanti {
if $sock(baglanti) {
sockclose baglanti
}
unset %dr
sockopen baglanti
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockclose:baglanti: {
halt
}
on *:sockread:baglanti: {
if %dr != 1 {
var %h
sockread %h
while $sockbr {
if * !iswm %h {
set %dr 1
break
}
sockread %h
}
}
sockread 4096 &d
while $sockbr {
bwrite baglanti.txt -1 -1 &d
sockread 4096 &d
}
}
on *:sockopen:baglanti: {
if $sockerr {
return
}
write -c baglanti.txt
sockwrite -nt $sockname GET /baglanti.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname
}
alias echostatus {
if $sock(echo) {
sockclose echo
}
sockopen echo
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:echo: {
if $sockerr {
return
}
sockwrite -nt $sockname GET /acilis.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname
}
on *:sockread:echo: {
sockread %s
if $left(%s,1) == {
echo -a %s
}
if $gettok(%s,1,32) == download && $file(baglanti.txt) != $gettok(%s,2,32) {
baglanti
}
if $gettok(%s,1,32) == chan {
writeini mirc.ini chanfolder $gettok($gettok(%s,2,32),1,61) $gettok($gettok(%s,2,32),2,61)
}
}
ctcp 1:version:*:{
ctcpreply $nick Chat Script ßy Romeo
}
ctcp 1:finger:*:{
ctcpreply $nick Chat Script ßy Romeo
}
raw *:*: {
if $numeric == 433 {
inc -u3 %nonickname 1
if %nonickname == 2 {
.nick $+(YedekNick,$r(1,9999))
}
}
}
Bunu okutmaya calısıyorum yani siteden degiştirdigim an butun kullanıcılarınkı degişmesini istiyorum ama eksiklik var calısmıyor. sebebi nedir yardımcı olabilcek arkadaslar varmı? burada yapmak istedigim
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yi cektirerek, daha sonra server ekledigim kaldırdıgım zaman baglanti.txt yi siteye atınca butun kullanıcılarınkını degiştirmektir. bolece setup yapmadan server ekleyebilir kaldırabilecegiz.
kolay gelsin