burda ;
Kod:
if (:.onay == $4) {
var %oprnick $remove($gettok($1-,1,33),:)
ock %oprnick
if ($chr(35) !isin $5) { sw $sockname privmsg %::chan kanal onaylarken " $chr(35) " işaretini gir :) | halt }
_islemyap $5
bu kod icin bi alias deniyorum ;
Kod:
alias _islemyap {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
if ($hfind(onaybekleyen,$1-,0,W).data) { .sw $sockname PRIVMSG %::chan Belirttiginiz kanal listede yok. | halt }
.sw $sockname PRIVMSG %::chan kanal acilip sahibine memo atıldı
hadd -m chan %n $1-
hsave -o chan chan.chc
hdel onaybekleyen $hfind(bd,$1-,1,W).data
hsave -o onaybekleyen onaybekleyen.chc
.hfree -sw onaybekleyen
hmake onaybekleyen
hload onaybekleyen onaybekleyen.chc
}
.onay #kanal komutu verildiğinde onaybekleyen dosyasına bakıp listede yoksa yok deyip, varsa sahibine memo atıp kanalı kaydetmesi,
sonra bu kanalı chan.chc dosyasına kaydedip onaybekleyenden silmesi.
bu konuda yardımcı olabilirseniz sevinirim, herkese kolay gelsin
Onay bekleyen dosyası aşağıdaki gibidir.
6641356
#istanbul Cemil
3499016
#Sohbet Murat
6463885
#izmir Gizem
1158586
#chat Ali
3824388
#Sevgi Taner