| Kaderin_Cilvesi | 29 Mart 2009 15:04 |
Cevap: Mirc Girişindeki Sorun
Azula kardşeim Allah razı olsun fakat dediğini remotede arattım çıkmadı.
Diğer Notfy ile sorunum yok sadece şu geçersiz paremetlerel.
Yani join & dialog olan kısımlar ...
Ben remotemi koyayım buraya siz bi bakın mümkünse sizede zahmet olacak ama çok minnettar kalırım. Kod:
ON 1:load {
set %Scriptname Kirazimm v1
set %version Version 1.01
echo $color(info text) -se * Auto Nick Identifier successfully loaded - %Scriptname %version
}
ON 1:unload {
unset %auto.nickident.on %auto.nickident.nicks %auto.nickident.pws
echo $color(info text) -se * Auto Nick Identifier successfully Unloaded - %Scriptname %version
}
ON 1:start {
set %Scriptname Kirazimm v1
set %version Kirazimm v1
}
alias -l localhelp {
if ($isfile($scriptdirautoident.help.txt)) { .run $scriptdirautoident.help.txt }
else { echo $color(info text) * Help file not found - %Scriptname %version }
}
menu status,channel,query {
}
on 1:connect: {
auto.nick.variable.error
if (* $me * iswm %auto.nickident.nicks) && ($mid(%auto.nickident.on,11,1) != 0 ) {
auto.indentify $me con
}
}
alias auto.nick.variable.error {
if ( %auto.nickident.on == $null ) || ($len(%auto.nickident.on) != 12 ) { set %auto.nickident.on 000000000000 }
if ( %auto.nickident.nicks == $null ) || ($count(%auto.nickident.nicks,~) != 11 ) { set %auto.nickident.nicks ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }
if ( %auto.nickident.pws == $null ) || ($count(%auto.nickident.pws,~) != 11 ) { set %auto.nickident.pws ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }
}
on 1:NICK: {
if ($nick == $me) && (* $newnick * iswm %auto.nickident.nicks ) {
auto.indentify $newnick
}
}
alias ask.ident {
if ($mid(%auto.nickident.on,12,1) != 0 ) { if ( !$?!="Nickiniz İdentify Edilsin Mi?" ) { return $false } }
return $true
}
alias auto.indentify {
if ($mid(%auto.nickident.on,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),1) != 0 ) && ( $remove($gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126),$chr(32)) != $null ) {
if ($2 == $null) || ($ask.ident == $true) {
if ($isalias(dontdeletethisalias) == $true) {
%nickservice IDENTIFY $gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126)
}
else {
nickserv IDENTIFY $gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126)
}
}
else {
return
}
$remove($gettok(%auto.nickident.nicks,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126),$chr(32))
}
}
ON *:dialog:auto.nickident:init:*:{
dialog -t auto.nickident Kirazimm v1 .:. AutoIdentify
auto.nick.variable.error
if ( $mid(%auto.nickident.on,1,1) != 0 ) { did -c auto.nickident 21 }
if ( $mid(%auto.nickident.on,2,1) != 0 ) { did -c auto.nickident 22 }
if ( $mid(%auto.nickident.on,3,1) != 0 ) { did -c auto.nickident 23 }
if ( $mid(%auto.nickident.on,4,1) != 0 ) { did -c auto.nickident 24 }
if ( $mid(%auto.nickident.on,5,1) != 0 ) { did -c auto.nickident 25 }
if ( $mid(%auto.nickident.on,6,1) != 0 ) { did -c auto.nickident 26 }
if ( $mid(%auto.nickident.on,7,1) != 0 ) { did -c auto.nickident 27 }
if ( $mid(%auto.nickident.on,8,1) != 0 ) { did -c auto.nickident 28 }
if ( $mid(%auto.nickident.on,9,1) != 0 ) { did -c auto.nickident 29 }
if ( $mid(%auto.nickident.on,10,1) != 0 ) { did -c auto.nickident 30 }
if ( $mid(%auto.nickident.on,11,1) != 0 ) { did -c auto.nickident 13 }
if ( $mid(%auto.nickident.on,12,1) != 0 ) { did -c auto.nickident 14 }
did -ra auto.nickident 31 $gettok(%auto.nickident.nicks,1,126)
did -ra auto.nickident 32 $gettok(%auto.nickident.nicks,2,126)
did -ra auto.nickident 33 $gettok(%auto.nickident.nicks,3,126)
did -ra auto.nickident 34 $gettok(%auto.nickident.nicks,4,126)
did -ra auto.nickident 35 $gettok(%auto.nickident.nicks,5,126)
did -ra auto.nickident 36 $gettok(%auto.nickident.nicks,6,126)
did -ra auto.nickident 37 $gettok(%auto.nickident.nicks,7,126)
did -ra auto.nickident 38 $gettok(%auto.nickident.nicks,8,126)
did -ra auto.nickident 39 $gettok(%auto.nickident.nicks,9,126)
did -ra auto.nickident 40 $gettok(%auto.nickident.nicks,10,126)
did -ra auto.nickident 41 $gettok(%auto.nickident.pws,1,126)
did -ra auto.nickident 42 $gettok(%auto.nickident.pws,2,126)
did -ra auto.nickident 43 $gettok(%auto.nickident.pws,3,126)
did -ra auto.nickident 44 $gettok(%auto.nickident.pws,4,126)
did -ra auto.nickident 45 $gettok(%auto.nickident.pws,5,126)
did -ra auto.nickident 46 $gettok(%auto.nickident.pws,6,126)
did -ra auto.nickident 47 $gettok(%auto.nickident.pws,7,126)
did -ra auto.nickident 48 $gettok(%auto.nickident.pws,8,126)
did -ra auto.nickident 49 $gettok(%auto.nickident.pws,9,126)
did -ra auto.nickident 50 $gettok(%auto.nickident.pws,10,126)
}
ON *:dialog:auto.nickident:sclick:*:{
if ( $did == 51 ) { did -ru auto.nickident 21,31,41 }
if ( $did == 52 ) { did -ru auto.nickident 22,32,42 }
if ( $did == 53 ) { did -ru auto.nickident 23,33,43 }
if ( $did == 54 ) { did -ru auto.nickident 24,34,44 }
if ( $did == 55 ) { did -ru auto.nickident 25,35,45 }
if ( $did == 56 ) { did -ru auto.nickident 26,36,46 }
if ( $did == 57 ) { did -ru auto.nickident 27,37,47 }
if ( $did == 58 ) { did -ru auto.nickident 28,38,48 }
if ( $did == 59 ) { did -ru auto.nickident 29,39,49 }
if ( $did == 60 ) { did -ru auto.nickident 30,40,50 }
if ( $did == 99 ) { localhelp }
if ( $did == 1 ) {
set %auto.nickident.on $did(auto.nickident,21).state $+ $did(auto.nickident,22).state $+ $did(auto.nickident,23).state $+ $did(auto.nickident,24).state $+ $did(auto.nickident,25).state $+ $did(auto.nickident,26).state $+ $did(auto.nickident,27).state $+ $did(auto.nickident,28).state $+ $did(auto.nickident,29).state $+ $did(auto.nickident,30).state $+ $did(auto.nickident,13).state $+ $did(auto.nickident,14).state
set %auto.nickident.nicks ~ $did(auto.nickident,31) ~ $did(auto.nickident,32) ~ $did(auto.nickident,33) ~ $did(auto.nickident,34) ~ $did(auto.nickident,35) ~ $did(auto.nickident,36) ~ $did(auto.nickident,37) ~ $did(auto.nickident,38) ~ $did(auto.nickident,39) ~ $did(auto.nickident,40) ~
set %auto.nickident.pws ~ $did(auto.nickident,41) ~ $did(auto.nickident,42) ~ $did(auto.nickident,43) ~ $did(auto.nickident,44) ~ $did(auto.nickident,45) ~ $did(auto.nickident,46) ~ $did(auto.nickident,47) ~ $did(auto.nickident,48) ~ $did(auto.nickident,49) ~ $did(auto.nickident,50) ~
}
}
dialog auto.nickident {
title ""
size -1 -1 168 170
option dbu
box " Otomatik Nick Şifresi Ayarları ",11,4 3 160 150
text "Sec Nick Şifre",12,15 15 200 150
check "Baglanınca Aktif Ol",13,15 140 66 10
check "Şifreyi Girmek İçin Sor",14,90 140 66 10
check "",21,15 25 10 10
check "",22,15 36 10 10
check "",23,15 47 10 10
check "",24,15 58 10 10
check "",25,15 69 10 10
check "",26,15 80 10 10
check "",27,15 91 10 10
check "",28,15 102 10 10
check "",29,15 113 10 10
check "",30,15 124 10 10
edit "",31,25 25 45 10,autohs
edit "",32,25 36 45 10,autohs
edit "",33,25 47 45 10,autohs
edit "",34,25 58 45 10,autohs
edit "",35,25 69 45 10,autohs
edit "",36,25 80 45 10,autohs
edit "",37,25 91 45 10,autohs
edit "",38,25 102 45 10,autohs
edit "",39,25 113 45 10,autohs
edit "",40,25 124 45 10,autohs
edit "",41,75 25 50 10,autohs
edit "",42,75 36 50 10,autohs
edit "",43,75 47 50 10,autohs
edit "",44,75 58 50 10,autohs
edit "",45,75 69 50 10,autohs
edit "",46,75 80 50 10,autohs
edit "",47,75 91 50 10,autohs
edit "",48,75 102 50 10,autohs
edit "",49,75 113 50 10,autohs
edit "",50,75 124 50 10,autohs
button "Reset",51,130 25 25 10
button "Reset",52,130 36 25 10
button "Reset",53,130 47 25 10
button "Reset",54,130 58 25 10
button "Reset",55,130 69 25 10
button "Reset",56,130 80 25 10
button "Reset",57,130 91 25 10
button "Reset",58,130 102 25 10
button "Reset",59,130 113 25 10
button "Reset",60,130 124 25 10
button İptal,2,107 157 25 10,cancel
button Tamam,1,135 157 25 10,ok
}
|
