İPUCU

Sosyal medya ve Sosyal Platformlar Sosyal Medya Ve Sosyal Platformlar Hakkında Her şey.

Seçenekler

Serverinizi Kendi Bilgisayarınıza Kurun(2)

By-CyL1nD3r - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2008
Nereden:
BuRs4
Mesajlar:
1.490
Konular:
1115
Teşekkür (Etti):
0
Teşekkür (Aldı):
547
Ticaret:
(0) %
26-10-2008 15:27
#1
Thumbs down
Serverinizi Kendi Bilgisayarınıza Kurun(2)
alias -l mascovy.motd {
var %nick = $gettok($1,2,58) , %olist = 0
if ($sock("nick*,0) > $mascovy.limit.sock) { mascovy.senfcmd $sockname $+(:,$mascovy.server) 263 %nick :Server Is Full | sockclose $sockname | halt }
mascovy.senfcmd $sockname $+(:,$mascovy.server) 001 %nick :12 4,114 ®15| 4ÖzeL Sunucumuza Hoşgeldiniz IRC Network AteSSheLL 15|14® $gettok($sockname,2,58)
mascovy.senfcmd $sockname $+(:,$mascovy.server) 002 %nick :Your Host is $mascovy.server Running Version ®CoDeR RooT AteS® IRC SIMULATOR [V1.0.(a)]
mascovy.senfcmd $sockname $+(:,$mascovy.server) 003 %nick :THIS Server was Created on $fulldate
mascovy.senfcmd $sockname $+(:,$mascovy.server) 004 %nick $mascovy.server MASCOVY VER(04) oOiwscrkKnfydaAbgheFxXjI biklLmMnoprRstvcj
mascovy.senfcmd $sockname $+(:,$mascovy.server) 005 %nick NOQUIT SAFELIST MODES=2 MAXCHANNELS=6 MAXBANS=7 NICKLEN=20 TOstarhackz.comstarhackz.comstarhackz.comLEN=300 KICKLEN=300 CHANTYPES=# PREFIX=(ov)@+ NETWORK= $+ $mascovy.network SILENCE=0 WATCH=12 CASEMAPPING=ascii CHANMODES=b,k,l,ovbmspitnLkrR :are available on this server
while (%olist < $lines($mascovy.motd.files)) { inc %olist | mascovy.senfcmd $sockname $+(:,$mascovy.server) 372 %nick : $+ $read($mascovy.motd.files,%olist) }
mascovy.senfcmd $sockname $+(:,$mascovy.server) 251 %nick :There are $sock("nick*,0) users and $iif(%mascovy.mode.i,%mascovy.mode.i,0) invisible on this server
mascovy.senfcmd $sockname $+(:,$mascovy.server) 252 %nick 0 :IRC OPERATORS ALLOWS / Connected
mascovy.senfcmd $sockname $+(:,$mascovy.server) 254 %nick %chan.mascovy :channel formed
mascovy.senfcmd $sockname $+(:,$mascovy.server) 255 %nick :I have $calc($sock("nick*,0) + $sock(new*,0)) Client On 1 Server
mascovy.senfcmd $sockname $+(:,$mascovy.server) 265 %nick :Current local users: $calc($sock("nick*,0) + $sock(new*,0)) Max: 200
mascovy.senfcmd $sockname $+(:,$mascovy.server) 266 %nick :Current Global Users: $calc($sock("nick*,0) + $sock(new*,0)) MAx: 200
mascovy.senfcmd $sockname $+(:,$mascovy.server) 376 %nick :End of /MOTD
mascovy.senfcmd $sockname PING $+(:,$encode($ctime,m))
}
alias -l mascovy.whois {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %whois = $sock($+("NICK:,$1,:*),1) ,
if (!%whois) { mascovy.senfcmd $sockname $+(:,$mascovy.server) 401 %nick $1 :No such nick/channel | goto end }
var %chan = $remove($gettok(%whois,3-,58),:") , %cycle = 0 , %deep , %adv = %mascovy.user. [ $+ [ $1 ] ]
while (%cycle < $numtok(%chan,58)) { inc %cycle | var %temp = $gettok(%chan,%cycle,58) , %sim = $mascovy.xs($1,%temp) | %deep = $addtok(%deep,$iif($left(%sim,1) == + || $left(%sim,1) == @,$+($left(%sim,1),%temp),%temp),32) }
if (%mascovy.away. [ $+ [ $1 ] ] ) mascovy.senfcmd $sockname $+(:,$mascovy.server) 301 %nick $1 %mascovy.away. [ $+ [ $1 ] ]
if (r isin $sock(%whois).mark) mascovy.senfcmd $sockname $+(:,$mascovy.server) 307 %nick $1 :has identified for this nick
mascovy.senfcmd $sockname $+(:,$mascovy.server) 311 %nick $1 $gettok(%adv,1,32) $gettok(%adv,5,32) * $decode($gettok(%adv,4,32),m)
mascovy.senfcmd $sockname $+(:,$mascovy.server) 312 %nick $1 $remove($mascovy.server, :WwW.AteSChaT.CoM ®CoDeR RooT AteS®
mascovy.senfcmd $sockname $+(:,$mascovy.server) 317 %nick $1 $duration($calc($ctime - $iif($gettok(%adv,6,32),$gettok(%adv,6,32),$ctime) ),3) :seconds idle, signon time
mascovy.senfcmd $sockname $+(:,$mascovy.server) 319 %nick $1 : $+ %deep
:end
mascovy.senfcmd $sockname $+(:,$mascovy.server) 318 $gettok($sockname,2,58) $1 :End of /WHOIS list. | halt
}
alias -l mascovy.names {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %chan = $1
if (!$istok(%sock,%chan,58)) goto end
var %cal = $sock($+(*,%chan,*),0) , %exe = 0 , %temp = 1 , %snap = :
while (%exe < %cal) {
inc %exe | var %getch = $mascovy.Xs($gettok($sock($+(*,%chan,*),%exe),2,58 ),%chan)
if (%exe = 1) if (!$istok($remove(%snap,,%getch,32)) %snap = $addtok(%snap,%getch,32)
if ($calc(%exe / 42) isnum %temp) { inc %temp | mascovy.senfcmd $sockname $+(:,$mascovy.server) 353 %nick = %chan %snap | %snap = : }
if (!$istok($remove(%snap,,%getch,32)) %snap = $addtok(%snap,%getch,32)
}
mascovy.senfcmd $sockname $+(:,$mascovy.server) 353 %nick = %chan %snap
:end
mascovy.senfcmd $sockname $+(:,$mascovy.server) 366 %nick %chan :End of /NAMES list.
}
alias -l mascovy.who {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %chan = $1 , %user = 0 , %list = $sock($+(*:,%chan,:*),0)
if (!$istok(%sock,%chan,58)) goto end
while (%user < %list) {
inc %user
var %name = $sock($+(*:,%chan,:*),%user) , %tname = $gettok(%name,2,58) , %utemp = %mascovy.user. [ $+ [ %tname ] ] , %tmap = $mascovy.xs(%tname,%chan)
mascovy.senfcmd $sockname $+(:,$mascovy.server) 352 %nick %chan $gettok(%utemp,1,32) $gettok(%utemp,5,32) $mascovy.server %tname $+(H,$iif(@ isin %tmap || + isin %tmap,$left(%tmap,1),)) :0 $gettok($decode($gettok(%utemp,4,32),m),2-,58)
}
:end
mascovy.senfcmd $sockname $+(:,$mascovy.server) 315 %nick %chan :End of /WHO list.
}
alias -l mascovy.list {
var %nick = $gettok($sockname,2,58)
if (!$1) halt
mascovy.senfcmd $sockname $+(:,$mascovy.server) 321 %nick Channel :Users Name
var %gset = $ini($mascovy.chan.files,0) , %tem = 0 , %rec , %rfor
while (%tem < %gset) {
inc %tem
var %ini = $ini($mascovy.chan.files,%tem)
if ($sock($+(*:,%ini,:*),0) >= 1) mascovy.senfcmd $sockname $+(:,$mascovy.server) 322 %nick %ini $sock($+(*:,%ini,:*),0) $decode($gettok($mascovy.chan.setting(%ini,tostarh ackz.comstarhackz.comstarhackz.com),1,32),m))
}
mascovy.senfcmd $sockname $+(:,$mascovy.server) 323 %nick :End of /LIST
}
alias -l mascovy.ping {
var %sock = $sockname , %nick = $gettok(%sock,2,58)
if (!$1-) halt
mascovy.senfcmd $sockname $+(:,$mascovy.server) PONG $mascovy.server $1-
}
alias -l mascovy.watch {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %tm = 0 , %watch = $1-
while (%tm < $count(%watch,+)) {
inc %tm
var %temp = $gettok($gettok(%watch,$calc(%tm + 1),43),1,32) , %watched = %mascovy.watch. [ $+ [ %nick ] ] , %cmos = %mascovy.user. [ $+ [ %temp ] ]
if (!$istok(%watched,%temp,44)) %mascovy.watch. [ $+ [ %nick ] ] = $addtok(%mascovy.watch. [ $+ [ %nick ] ] ,%temp,44)
if (%cmos) mascovy.senfcmd $sockname $+(:,$mascovy.server) 604 %nick %temp $gettok(%cmos,1,32) $gettok(%cmos,5,32) $gettok(%cmos,6,32) :is online
if (!%cmos) mascovy.senfcmd $sockname $+(:,$mascovy.server) 605 %nick * * 0 :is Offline
}
var %tm = 0
while (%tm < $count(%watch,-)) {
inc %tm
var %temp = $gettok($gettok(%watch,$calc(%tm + 1),45),1,32) , %watched = %mascovy.watch. [ $+ [ %nick ] ] , %cmos = %mascovy.user. [ $+ [ %temp ] ]
if ($istok(%watched,%temp,44)) { %mascovy.watch. [ $+ [ %nick ] ] = $remtok(%mascovy.watch. [ $+ [ %nick ] ] ,%temp,44) | mascovy.senfcmd $sockname $+(:,$mascovy.server) 602 %nick %temp $gettok(%cmos,1,32) $gettok(%cmos,5,32) $gettok(%cmos,6,32) :stopped watching }
}
if (($asc($2) iswm 67) && (!$3-)) unset %mascovy.watch. [ $+ [ %nick ] ]
}
alias -l mascovy.chanserv {
if (OP iswm $1) { var %op = $mascovy.chan.setting($2,op) | mascovy.chan.setting $2 op $addtok(%op,$3,44) | mascovy.senfcmd $+(*,$2,*) :ChanServ MODE $2 :+o $3 | halt }
if (DEOP iswm $1) { var %op = $mascovy.chan.setting($2,op) | mascovy.chan.setting $2 op $remtok(%op,$3,44) | mascovy.senfcmd $+(*,$2,*) :ChanServ MODE $2 :-o $3 | halt }
if (voice iswm $1) { var %op = $mascovy.chan.setting($2,voice) | mascovy.chan.setting $2 voice $addtok(%op,$3,44) | mascovy.senfcmd $+(*,$2,*) :ChanServ MODE $2 :+v $3 | halt }
if (devoice iswm $1) { var %op = $mascovy.chan.setting($2,voice) | mascovy.chan.setting $2 voice $remtok(%op,$3,44) | mascovy.senfcmd $+(*,$2,*) :ChanServ MODE $2 :-v $3 | halt }
}
alias -l mascovy.service.chanserv {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %chan = $2 , %mark = $sock(%sock).mark , %ison = $istok(%sock,%chan,58) , %target = $sock($+("NICK:,$3,:*),1)
var %aop = $mascovy.chan.setting(%chan,aop) , %sop = $mascovy.chan.setting(%chan,sop) , %voice = $mascovy.chan.setting(%chan,voice)
var %oper = $addtok(%aop,%sop,44) , %opxs = $mascovy.chan.setting(%chan,op) , %oper = $addtok(%oper,%opxs,44) , %xsvoice = $mascovy.chan.setting(%chan,voicexs)
if (Help iswm $1) { mascovy_cs_help $sockname | halt }
if (info iswm $1) {
var %reg = $mascovy.chan.setting($2,register) , %top = $mascovy.chan.setting($2,tostarhackz.comstarhackz. comstarhackz.com)
if (!$2) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /ChanServ Info <channel> | halt }
if (!%reg) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $2 Is Not Registered | halt }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $2 Is Registered by $gettok(%reg,1,32) | halt
}
if (op iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv OP #Channel Nick | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%oper,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if (!%target) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 No Such Nick | halt }
if (!$istok(%target,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Not on %chan | halt }
if (!$istok(%opxs,$3,44)) mascovy.chan.setting %chan op $addtok(%opxs,$3,44)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +o $3 | mascovy.senfcmd %target :ChanServ NOTICE $3 :You were Opped by %nick | halt
}
if (Deop iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv DEOP #Channel Nick | halt }
if (!$istok(%oper,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : %chan :You're not Operator | halt }
if (!%target) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 No Such Nick | halt }
if (!$istok(%target,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Not on %chan | halt }
if ($istok(%opxs,$3,44)) mascovy.chan.setting %chan op $remtok(%opxs,$3,44)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -o $3 | mascovy.senfcmd %target :ChanServ NOTICE $3 :You were deopped by %nick | halt
}
if (kick iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv KICK #Channel Nick | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%oper,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : %chan :You're not Operator | halt }
if (!%target) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 No Such Nick | halt }
if (!$istok(%target,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Not on %chan | halt }
if ($istok(%opxs,$3,44)) mascovy.chan.setting %chan op $remtok(%opxs,$3,44)
if ($istok(%voice,$3,44)) mascovy.chan.setting %chan voice $remtok(%voice,$3,44)
if ($sock(%target).status) rename %target $remtok(%target,%chan,58)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ KICK %chan $3 | mascovy.senfcmd %target :ChanServ NOTICE $3 :You were Kicked by %nick | halt
}
if (voice iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv VOICE #Channel Nick | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%opxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if (!%target) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 No Such Nick | halt }
if (!$istok(%target,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Not on %chan | halt }
if (!$istok(%voice,$3,44)) mascovy.chan.setting %chan voice $addtok(%voice,$3,44)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +v $3 | mascovy.senfcmd %target :ChanServ NOTICE $3 :You were Voice by %nick | halt
}
if (devoice iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv VOICE #Channel Nick | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%opxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if (!%target) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 No Such Nick | halt }
if (!$istok(%target,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Not on %chan | halt }
if ($istok(%voice,$3,44)) mascovy.chan.setting %chan voice $remtok(%voice,$3,44)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -v $3 | mascovy.senfcmd %target :ChanServ NOTICE $3 :You were Devoice by %nick | halt
}
if (invite iswm $1) {
var %allxs = $addtok(%oper,%voicexs,44) , %tag = $sock($+("NICK:,$iif($3,$3,%nick),:*),1)
if (!$2) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv Invite #Channel Nick | halt }
if (!$istok(%allxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You must be Auto-Voice or higher to use this command. | halt }
if (!%tag) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $iif($3,$3,%nick) No Such Nick | halt }
if ($istok(%tag,%chan,58)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $iif($3,$3,%nick) All ready on %chan | halt }
if (!$istok(%mascovy.invite. [ $+ [ %chan ] ] ,$iif($3,$3,%nick),44)) %mascovy.invite. [ $+ [ %chan ] ] = $addtok(%mascovy.invite. [ $+ [ %chan ] ],$iif($3,$3,%nick),44)
mascovy.senfcmd %tag :ChanServ INVITE %chan $iif($3,$3,%nick) | mascovy.senfcmd %tag :ChanServ NOTICE $iif($3,$3,%nick) :You were INVITED by %nick | halt
}
if (Info iswm $1) halt
if (set iswm $1) halt
if (Register iswm $1) {
var %csmode = $mascovy.chan.setting(%chan,register) , %cmode = $mascovy.chan.setting(%chan,mode)
if (!$2) || (!$3) || (!$4) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Parameters missing. Usage: /Chanserv register #Channel Password Description | halt }
if (r !isin %mark) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You have to register your nick before you can register a channel. | halt }
if (%csmode) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ %chan is already registered by $gettok(%csmode,1,32) | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%oper,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if (r !isin %cmode) mascovy.chan.setting %chan mode %cmode $+ r
var %tay = $mascovy.nick.setting(%nick,xs) | inc %chan.mascovy
mascovy.chan.setting %chan register %nick $3 $encode($4-,m)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +r %chan
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ %chan is now registered under your account . Your password is $3. | halt
}
if (Drop iswm $1) {
var %csmode = $mascovy.chan.setting(%chan,register) , %cmode = $mascovy.chan.setting(%chan,mode)
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv DROP #Channel password | halt }
if (!%csmode) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ %chan is not registered | halt }
if ($gettok(%csmode,2,32) !iswm $3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You have to identify for the channel's founder to Drop the channel. | halt }
if (r isin %cmode) mascovy.chan.setting %chan mode $remove(%cmode,r)
mascovy.chan.setting %chan register | mascovy.chan.setting %chan aop | mascovy.chan.setting %chan sop | mascovy.chan.setting %chan voicexs
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -r | mascovy.senfcmd $+(*:,%chan,:*) :ChanServ NOTICE %chan :This channel has just been dropped by %nick | halt
}
if (Identify iswm $1) {
var %csmode = $mascovy.chan.setting(%chan,register) , %cmode = $mascovy.chan.setting(%chan,mode)
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage:/Chanserv IDENTIFY #Channel PASSWORD | halt }
if (!%csmode) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ %chan is not registered | halt }
if (r !isin %mark) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You must identify to Nickserv before using this command. | halt }
if (!$gettok(%csmode,2,32) iswm $3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $3 Bad password for %chan | halt }
if (!$istok(%opxs,%nick,44)) mascovy.chan.setting %chan op $addtok(%opxs,%nick,44)
mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +o %nick | mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You are now identified as a founder of %chan | halt
}
if (AKICK iswm $1) halt
if (AV iswm $1) {
var %allxs = $addtok(%aop,%sop,44)
if (r !isin %mark) || (!$istok(%allxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if ($3 = LIST) { var %list = $mascovy.chan.setting(%chan,voicexs) | mascovy.senfcmd $+(*:,%chan,:*) :ChanServ NOTICE %nick :VOICE LIST %chan : $replace(%list,$chr(44),$chr(32)) | halt }
if (!$2) || (!$3) || (!$4) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv AV #Channel ADD/DEL Nick | halt }
if (!%ison) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not on that channel | halt }
if (!$istok(%opxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if ((!$istok(%voicexs,$4,44)) && ($3 = ADD)) {
var %tay = $mascovy.nick.setting($4,xs) | mascovy.nick.setting $4 Xs $addtok(%tay,%chan,44)
mascovy.chan.setting %chan voicexs $addtok(%voicexs,$4,44) | if (!$istok(%voice,$4,44)) mascovy.chan.setting %chan voice $addtok(%voice,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +v $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were Voice by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 now an $3 in %chan $+ 's access list.
}
if ((!$istok(%voicexs,$4,44)) && ($3 = DEL)) {
mascovy.chan.setting %chan voicexs $remtok(%voicexs,$4,44) | if ($istok(%voice,$4,44)) mascovy.chan.setting %chan voice $remtok(%voice,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -v $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were DeVoice by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 has been removed from %chan $+ 's access list.
}
}
if (AOP iswm $1) {
var %allxs = $addtok(%aop,%sop,44)
if (r !isin %mark) || (!$istok(%allxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if ($3 = LIST) { var %list = $mascovy.chan.setting(%chan,aop) | mascovy.senfcmd $+(*:,%chan,:*) :ChanServ NOTICE %nick :VOICE LIST %chan : $replace(%list,$chr(44),$chr(32)) | halt }
if (!$2) || (!$3) || (!$4) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv AOP #Channel ADD/DEL Nick | halt }
if (!$istok(%sop,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not SUPER Operator %chan | halt }
if ((!$istok(%aop,$4,44)) && ($3 = ADD)) {
var %tay = $mascovy.nick.setting($4,xs) | mascovy.nick.setting $4 Xs $addtok(%tay,%chan,44)
mascovy.chan.setting %chan aop $addtok(%aop,$4,44) | if (!$istok(%op,$4,44)) mascovy.chan.setting %chan op $addtok(%op,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +o $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were Oppered by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 now an $3 in %chan $+ 's access list.
}
if ((!$istok(%aop,$4,44)) && ($3 = DEL)) {
mascovy.chan.setting %chan aop $remtok(%aop,$4,44) | if ($istok(%aop,$4,44)) mascovy.chan.setting %chan op $remtok(%op,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -o $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were Deopped by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 has been removed from %chan $+ 's access list.
}
}
if (SOP iswm $1) {
var %allxs = $addtok(%oper,%voicexs,44) ,
if (r !isin %mark) || (!$istok(%allxs,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Operator | halt }
if ($3 = LIST) { var %list = $mascovy.chan.setting(%chan,aop) | mascovy.senfcmd $+(*:,%chan,:*) :ChanServ NOTICE %nick :VOICE LIST %chan : $replace(%list,$chr(44),$chr(32)) | halt }
if (!$2) || (!$3) || (!$4) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv AOP #Channel ADD/DEL Nick | halt }
if (!$istok(%sop,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You're not Founder %chan | halt }
if ((!$istok(%sop,$4,44)) && ($3 = ADD)) {
var %tay = $mascovy.nick.setting($4,xs) | mascovy.nick.setting $4 Xs $addtok(%tay,%chan,44)
mascovy.chan.setting %chan sop $addtok(%sop,$4,44) | if (!$istok(%op,$4,44)) mascovy.chan.setting %chan op $addtok(%op,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan +o $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were Oppered by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 now an $3 in %chan $+ 's access list.
}
if ((!$istok(%sop,$4,44)) && ($3 = DEL)) {
var %tay = $mascovy.nick.setting($4,xs) | mascovy.nick.setting $4 Xs $remtok(%tay,%chan,44)
mascovy.chan.setting %chan sop $remtok(%aop,$4,44) | if ($istok(%op,$4,44)) mascovy.chan.setting %chan op $remtok(%op,$4,44)
if ($istok(%target,%chan,58)) { mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -o $4 | mascovy.senfcmd %target :ChanServ NOTICE $4 :You were Deopped by %nick }
mascovy.senfcmd $sockname :ChanServ NOTICE %nick : $+ $4 has been removed from %chan $+ 's access list.
}
}
if (List iswm $1) halt
if (UNBAN iswm $1) {
if (!$2) || (!$3) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Usage: /Chanserv unban #Channel <nick / All> | halt }
if (r !isin %mark) || (!$istok(%oper,%nick,44)) { mascovy.senfcmd $sockname :ChanServ NOTICE %nick :You must be Auto-Voice or higher to use this command | halt }
if ($istok(%oper,%nick,44)) {
if ($3 = all) { var %ban = %mascovy.ban. [ $+ [ %chan ] ] | unset %mascovy.ban. [ $+ [ %chan ] ] | mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan $+(-,$str(b,$numtok(%ban,44))) $replace(%ban,$chr(44),$chr(32)) | halt }
if ($3 != all) { var %tbar = $3 , %ban = %mascovy.ban. [ $+ [ %chan ] ] | %mascovy.ban. [ $+ [ %chan ] ] = $remtok(%mascovy.ban. [ $+ [ %chan ] ] ,$3,44) | if ($istok(%ban,$3,44)) mascovy.senfcmd $+(*:,%chan,:*) :ChanServ MODE %chan -b $3 | halt }
}
halt
}
else mascovy.senfcmd $sockname :ChanServ NOTICE %nick :unknown Command
}
alias -l mascovy.service.memoserv mascovy.senfcmd $sockname :MemoServ NOTICE $gettok($sockname,2,58) :Err_404 Currently Service Not available/Disable for this time.. $logo
alias mascovy.nick.setting {
if ($isid) { return $readini($mascovy.nick.files,$1,$2) }
else { if ($3-) writeini $mascovy.nick.files $1 $2- | if (!$3-) remini $mascovy.nick.files $1 $2 }
}
alias -l mascovy.service.nickserv {
var %sock = $sockname , %nick = $gettok(%sock,2,58) , %chan = $2 , %mark = $sock(%sock).mark
if (identify iswm $1) {
var %pass = $iif($3,$3,$2) , %rnick = $iif($3,$2,%nick) , %npass = $mascovy.nick.setting(%rnick,register) , %socktag = $sock($+("NICK:,%rnick,:*),1) , %idt = $sock(%socktag).mark
if (!%pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :No Password specified. | halt }
if (!%npass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %rnick Isn't registered. | halt }
if ($istok($gettok(%idt,2,32),%rnick,44)) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :You are already identified as %rnick | halt }
if ($gettok(%npass,1,32) !iswm %pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Bad password for %rnick | halt }
mascovy.senfcmd $sockname :NickServ NOTICE %nick :Password Accepted for %rnick | var %mark = $sock(%socktag).mark
if (%nick == %rnick) { mascovy.senfcmd $sockname :NickServ MODE %nick +r | /sockmark %socktag $iif(r isin $gettok(%mark,1,32),$gettok(%mark,1,32),$+($gettok (%mark,1,32),r)) $iif(!$istok($gettok(%mark,2,44),%rnick,44),$addto k($gettok(%mark,2,44),%rnick,44),$gettok(%mark,2,4 4)) }
if (%nick != %rnick) { /sockmark %socktag $gettok(%mark,1,32) $iif(!$istok($gettok(%mark,2,44),%rnick,44),$addto k($gettok(%mark,2,44),%rnick,44),$gettok(%mark,2,4 4)) }
var %xs = $remove($gettok(%socktag,3-,58),:") , %t = 0 , %chan
while (%t < $numtok(%xs,58)) {
inc %t | %chan = $gettok(%xs,%t,58)
if (!$istok($mascovy.chan.setting(%chan,op),%nick,44) ) {
if ($istok($mascovy.chan.setting(%chan,aop),%rnick,44 )) { mascovy.chanserv op %chan %nick }
if ($istok($mascovy.chan.setting(%chan,sop),%rnick,44 )) { mascovy.chanserv op %chan %nick }
}
if (!$istok($mascovy.chan.setting(%chan,voice),%nick, 44)) if ($istok($mascovy.chan.setting(%chan,voicexs),%rnic k,44) ) { mascovy.chanserv voice %chan %nick }
}
halt
}
if (register iswm $1) {
var %rnick = $iif($4,$2,%nick) , %pass = $iif($4,$3,$2) , %email = $iif($4,$4,$3) , %reg = $mascovy.nick.setting(%rnick,register) , %mark = $sock($sockname).mark
if (!$2) || (!%pass) || (!%email) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Usage:/NickServ Register password email | halt }
if (%rnick != %nick) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :You are not %rnick | halt }
if (@ !isin %email) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Invalid E-Mail Address | halt }
if (%register) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :This Nickname is already registered by someone else | halt }
mascovy.nick.setting %rnick register %pass $ctime %email | mascovy.chan.setting /chan/ num $calc($mascovy.chan.setting(/chan/,num) + 1)
mascovy.senfcmd $sockname :NickServ NOTICE %nick :This nickname $+ %rnick $+ is registered under your account, please remember your password $+(,%pass,)
mascovy.senfcmd $sockname $+(:,$mascovy.ip(%nick)) MODE %nick +r
sockmark $sockname $iif(r isin $gettok(%mark,1,32),$gettok(%mark,1,32),$+($gettok (%mark,1,32),r)) $iif(!$istok($gettok(%mark,2,44),%rnick,44),$addto k($gettok(%mark,2,44),%rnick,44),$gettok(%mark,2,4 4))
halt
}
if (drop iswm $1) {
var %rnick = $iif($4,$2,%nick) , %pass = $iif($4,$3,$2), %reg = $mascovy.nick.setting(%rnick,register) , %mark = $sock($sockname).mark
if (!$2) || (!%pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Usage:/NickServ DROP nick password | halt }
if (%pass != $gettok(%reg,1,32)) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Bad Password for %rnick | halt }
var %tra = $mascovy.nick.setting(%rnick,xs) , %xy = 0
while (%xy < $numtok(%tra,44)) {
inc %xy | var %tom = $gettok(%tra,%xy,44) , %aop = $mascovy.chan.setting(%tra,aop) , %sop = $mascovy.chan.setting(%tra,sop) , %voice = $mascovy.chan.setting(%tra,voicexs)
if ($istok(%aop,%rnick,44)) { mascovy.chan.setting %tom aop $remtok(%aop,%rnick,44) | mascovy.chanserv deop %tom %rnick }
if ($istok(%sop,%rnick,44)) { mascovy.chan.setting %tom sop $remtok(%aop,%rnick,44) | mascovy.chanserv deop %tom %rnick }
if ($istok(%voicexs,%rnick,44)) { mascovy.chan.setting %tom voicexs $remtok(%aop,%rnick,44) | mascovy.chanserv devoice %tom %rnick }
if ($gettok($mascovy.chan.setting(%tom,register),1,32 ) iswm %rnick) mascovy.chan.setting %tom register
}
mascovy.nick.setting %rnick register
mascovy.senfcmd $sockname :NickServ NOTICE %nick :Nickname $+ %rnick $+ Now Dropped
mascovy.senfcmd $sockname :NickServ MODE %rnick -r
sockmark $sockname $iif(r !isin $gettok(%mark,1,32),$gettok(%mark,1,32),$remove($g ettok(%mark,1,32),r)) $iif(!$istok($gettok(%mark,2,44),%rnick,44),$addto k($gettok(%mark,2,44),%rnick,44),$gettok(%mark,2,4 4))
halt
}
if (info iswm $1) halt
if (help iswm $1) mascovy_ns_help $sockname
if (ghost iswm $1) {
var %gnick = $2 , %pass = $3 , %me = $mascovy.nick.setting(%gnick,register) , %socket = $sock($+("NICK:,%gnick:*),1)
if (!$2) || (!$3) || ($4) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Parameters missing. Usage: /NickServ GHOST Nick Password | halt }
if (!%me) { mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick is Not Registered. | halt }
if (!$gettok(%me,1,32) iswm %pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Wrong password for %gnick | halt }
if (!$sock(%socket).status) { mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick Is Not Used By Anyone | halt }
var %cmap = $+(GUESS,$ctime) , %rem = $reptok(%socket,%gnick,%cmap,58)
mascovy.setnick %socket %cmap
mascovy.senfcmd %rem :NickServ NOTICE %cmap :GHOST Command By %nick
mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick Currently not Used
halt
}
if (recover iswm $1) {
var %gnick = $2 , %pass = $3 , %me = $mascovy.nick.setting(%gnick,register) , %socket = $sock($+("NICK:,%gnick:*),1)
if (!$2) || (!$3) || ($4) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Parameters missing. Usage: /NickServ RECOVER Nick Password | halt }
if (!%me) { mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick is Not Registered. | halt }
if (!$gettok(%me,1,32) iswm %pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Wrong password for %gnick | halt }
if (!$sock(%socket).status) { mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick Is Not Used By Anyone | halt }
var %cmap = $+(GUESS,$ctime) , %rem = $reptok(%socket,%gnick,%cmap,58)
mascovy.setnick %socket %cmap
mascovy.senfcmd %rem :NickServ NOTICE %cmap :GHOST Command By %nick
mascovy.senfcmd $sockname :NickServ NOTICE %nick : $+ %gnick Currently not Used
halt
}
if (changepw iswm $1) {
var %pass = $iif($4,$3,$2) , %npass = $iif($4,$4,$3) , %me = $mascovy.nick.setting(%nick,register) , %mark = $sock($sockname).mark
if (!$2) || (!$3) || ($4) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Usage: /NickServ CHANGEPW OLD_PASS NEW_PASS | halt }
if (!%me) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Your Nick is Not Registered. | halt }
if (!$gettok(%me,1,58) iswm %pass) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :Bad password for %nick | halt }
if (r !isin $gettok(%mark,1,32)) { mascovy.senfcmd $sockname :NickServ NOTICE %nick :You need to identify before you can use this command. | halt }
mascovy.nick.setting %nick %npass $gettok(%me,2-,32)
mascovy.senfcmd $sockname :NickServ NOTICE %nick :Password For %nick Change To $+(,%npass,)
halt
}
else mascovy.senfcmd $sockname :NickServ NOTICE %nick :Command You requested Currently Not Available
}
alias -l mascovy_ns_help {
var %sock = $1 , %nick = $gettok(%sock,2,58)
mascovy.senfcmd $sockname :NickServ NOTICE %nick :NickServ allows you to "register" a nickname and
mascovy.senfcmd $sockname :NickServ NOTICE %nick revent others from using it. If the nick is not used
mascovy.senfcmd $sockname :NickServ NOTICE %nick :for 4 weeks, the registration will expire. The following
mascovy.senfcmd $sockname :NickServ NOTICE %nick :commands allow for registration and maintenance of
mascovy.senfcmd $sockname :NickServ NOTICE %nick :nicknames; to use them, type /NickServ <command>.
mascovy.senfcmd $sockname :NickServ NOTICE %nick :For more information on a specific command, type
mascovy.senfcmd $sockname :NickServ NOTICE %nick :/NickServ help <command>.
mascovy.senfcmd $sockname :NickServ NOTICE %nick :
mascovy.senfcmd $sockname :NickServ NOTICE %nick : REGISTER Register a nickname
mascovy.senfcmd $sockname :NickServ NOTICE %nick : IDENTIFY Identify yourself with your password
mascovy.senfcmd $sockname :NickServ NOTICE %nick : DROP Cancel the registration of a nickname
mascovy.senfcmd $sockname :NickServ NOTICE %nick : RECOVER Kill another user who has taken your nick
mascovy.senfcmd $sockname :NickServ NOTICE %nick : GHOST Kill another user identified for your nick
mascovy.senfcmd $sockname :NickServ NOTICE %nick : CHANGEPW Changes your nickname's password
mascovy.senfcmd $sockname :NickServ NOTICE %nick :
mascovy.senfcmd $sockname :NickServ NOTICE %nick :NOTICE: This service is intended to provide a way for
mascovy.senfcmd $sockname :NickServ NOTICE %nick :IRC users to ensure their identity is not compromised.
mascovy.senfcmd $sockname :NickServ NOTICE %nick :It is NOT intended to facilitate "stealing" of
mascovy.senfcmd $sockname :NickServ NOTICE %nick :nicknames or other malicious actions. Abuse of NickServ
mascovy.senfcmd $sockname :NickServ NOTICE %nick :will result in, at minimum, loss of the abused nickname(s).
halt
}
alias -l mascovy_cs_help {
var %sock = $1 , %nick = $gettok(%sock,2,58)
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :ChanServ allows you to register and control various
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :aspects of channels. ChanServ can often prevent
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :malicious users from "taking over" channels by limiting
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :who is allowed channel operator privileges. ChanServ's
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :commands are listed below; to use them, type
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :/ChanServ <command>. For more information on a
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :specific command, type /ChanServ help command.
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :REGISTER Register a channel
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :IDENTIFY Identify yourself with your password
mascovy.senfcmd $sockname :ChanServ NOTICE %nick ROP Cancel the registration of a channel
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :LIST Display channel's access list
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :AV/AOP/SOP/CoFounder Manage the channels access lists.
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Other commands: INFO, INVITE, OP, DEOP, VOICE, DEVOICE,
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :KICK, UNBAN
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Note that any channel which is not used for four weeks
mascovy.senfcmd $sockname :ChanServ NOTICE %nick i.e. which no user on the channel's access list enters
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :for that period of time) will be automatically dropped.
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :ATTENTION! Some ChanServ Command Not Available In This Version,
mascovy.senfcmd $sockname :ChanServ NOTICE %nick :Maybe Next Version I will Finish its. | halt
}
dialog mindforce {
title "®CoDeR RooT AteS® IRC Simulator©2008 / Açık / Kapalı"
size -1 -1 188 106
option dbu
icon $scriptdirsvs.ico
tab "&Ayarlar", 1, 2 3 185 101
text "Server Genel Ayarları", 8, 11 24 94 8, tab 1
text "Server Adı :", 6, 22 40 55 8, tab 1
text "Maximum Bağlantı :", 7, 22 50 55 8, tab 1
text "", 9, 11 75 29 8, tab 1
text "Network Adı :", 15, 22 60 56 8, tab 1
edit "", 12, 83 41 96 10, tab 1
edit "", 13, 83 51 23 10, tab 1
edit "", 16, 83 62 50 10, tab 1
button "&Güncelle", 14, 140 63 37 10, tab 1 disable
check "", 17, 12 86 50 10, tab 1
button "&Nick işlemleri", 18, 65 86 37 10, tab 1
button "&Kanal işlemleri", 19, 104 86 37 10, tab 1
edit "", 33, 150 51 28 10, tab 1
text "Max Kanal Girişi :", 32, 108 52 37 8, tab 1
button "Mot&d", 35, 143 86 37 10, tab 1
check "&Başlat", 40, 140 24 40 10, tab 1 push
tab "&Takip", 2
text "AteS Server takip paneli", 10, 9 24 87 8, tab 2
check "Logları Kaydet", 3, 10 88 40 10, tab 2
edit "", 21, 55 89 125 10, tab 2
edit "", 20, 8 34 174 52, tab 2 multi autohs vsbar read hsbar
tab "&Bağlantı", 4
text "Aktif Bağlantı Paneli", 11, 9 24 77 8, tab 4
text "Bağlanan :", 23, 64 40 46 8, tab 4
text "PORT :", 24, 64 50 45 8, tab 4
text "Ip Adress :", 25, 64 60 45 8, tab 4
text "Kanal Girişi :", 26, 64 70 44 8, tab 4
button "&Bu kişiyi kopart", 27, 64 84 37 11, tab 4
edit "", 28, 109 39 70 10, tab 4 read center
edit "", 29, 109 49 70 10, tab 4 read center
edit "", 30, 109 59 70 10, tab 4 read center
edit "", 31, 109 69 71 29, tab 4 read center multi
list 22, 9 37 50 60, tab 4 size
text "Aktif:", 37, 120 25 19 8, tab 4
edit "", 38, 142 24 36 10, tab 4 read
tab "Eklenti", 41
tab "Yardım", 34
text "SaNaL IRC Simulator is design By ®CoDeR RooT AteS® . Bu bölümde kendi bilgisayarınıza minik bir irc server açabilirsiniz. Ayarlar Menüsünden girerek gerekli alanları doldurup başlar butonuna basarsanız IRC Serveriniz açılmış olur. Serverinize girmek için /server localhost yada /server IP_adresiniz şeklinde bağlanabilirsiniz. Dışardan bir arkadaşınız sadece IP_Adresinizden IRC Serverinize bağlanabilir.", 36, 10 28 169 63, tab 34 center
box "", 5, 5 17 180 85
button "Tamam", 39, 161 2 26 8, hide ok cancel
text "[ Clone Yönetim Paneli ]", 42, 12 27 70 8, tab 41
text "Bu panelden sunucunuza Clone sokabilirsiniz.", 43, 12 36 166 14, tab 41
text "Clone Sayısı:", 44, 17 60 45 8, tab 41
edit "", 45, 65 59 19 10, limit 2, tab 41
text "# Kanal ismi :", 46, 36 72 25 8, tab 41
combo 47, 65 71 60 50, size edit drop, tab 41
button "Kaldır", 48, 129 72 28 9, tab 41 disable
button "Yükle", 49, 28 87 37 9, tab 41 disable
button "Hepsini Kopart", 50, 71 87 37 9, tab 41 disable
check "Rasgele Giriş", 51, 128 87 50 10, tab 41
button "Gönder", 52, 88 60 29 9, tab 41 disable
}
dialog selnick {
title "Nick ayar Menüsü"
size -1 -1 113 72
option dbu
icon $scriptdirsvs.ico
box "Ne yapmak istersin ?", 1, 2 4 109 51
radio "Şifreli Nickleri sil", 2, 8 14 96 10
radio "Nick dosyasını düzenle ", 3, 8 23 76 10
radio "Yedek oluştur", 4, 8 32 77 10
radio "Yedekten Onar", 5, 8 42 90 10
button "Uygula", 6, 6 58 37 10, ok
button "Vazgeç", 7, 69 58 37 11, cancel
}
dialog selchan {
title "Kanal ayar Menusü"
size -1 -1 113 72
option dbu
icon $scriptdirsvs.ico
box "Ne yapmak istersin ?", 1, 2 4 109 51
radio "Şifreli kanalları sil", 2, 8 14 96 10
radio "Kanalları düzenle ", 3, 8 23 76 10
radio "Yedek oluştur", 4, 8 32 77 10
radio "Yedekten onar", 5, 8 42 90 10
button "&Uygula", 6, 6 58 37 10, ok
button "&Vazgeç", 7, 69 58 37 11, cancel
}
on 1:dialog:mindforce:*:*:{
if ($devent == init) {
did -ra $dname 12 $mascovy.server
did -ra $dname 13 $mascovy.limit.sock
did -ra $dname 16 $mascovy.network
did -ra $dname 33 $mascovy.limit.chan
did -ra $dname 21 $mascovy.log.files
did -ra $dname 38 $sock("Nick*,0)
if ($sock(irc*,1).status) did -c $dname 40
if (%bind.mascovy) did -c $dname 17
if (%log.mascovy) { did -c $dname 3 | did -b $dname 21 }
var %sock = 0 , %num
while (%sock < $sock("Nick*,0)) { inc %sock | %num = $sock("Nick*,%sock) | did -a $dname 22 $gettok(%num,2,58) }
if (!$timer(mascovy.update)) .timermascovy.update 0 1 //mascovy.update
var %cctv = 0
did -ra $dname 45 $mascovy.count.sock
while (%cctv < $numtok($mascovy.join.sock,44)) { inc %cctv | did -a $dname 47 $gettok($mascovy.join.sock,%cctv,44) }
if (%randomjoin.mascovy) did -c $dname 51
if ($sock(mascovy*,1)) did -e $dname 50
if (!$sock(mascovy*,1)) did -e $dname 49
Halt
}
if ($devent == sclick) {
if ($did == 40) {
if ($did(40).state == 1) { mascovy on | halt }
if ($did(40).state == 0) { mascovy off | halt }
halt
}
if ($did == 17) {
if ($did(17).state == 1) { %bind.mascovy = ok | halt }
if ($did(17).state == 0) { unset %bind.mascovy | halt }
halt
}
if ($did == 51) {
if ($did(51).state == 1) { %randomjoin.mascovy = ok | halt }
if ($did(51).state == 0) { unset %randomjoin.mascovy | halt }
halt
}
if ($did == 3) {
if ($did(3).state == 1) {
set %log.mascovy $iif($did(21).edited,$did(21),$mascovy.log.files)
if (!$exists($nofile(%log.mascovy))) { unset %log.mascovy | did -u $dname $did | mascovy.info -w Current Directory Invalid .. Create Directory First | halt }
if ($exists($nofile(%log.mascovy))) { did -ra $dname 21 %log.mascovy | did -b $dname 21 | halt }
halt
}
if ($did(3).state == 0) { unset %log.mascovy | did -e $dname 21 | halt }
}
if ($did == 14) {
if ($did(12).edited) %mascovy.server = $did(12)
if ($did(13).edited) %sock.mascovy = $did(13)
if ($did(33).edited) %chan.mascovy = $did(33)
if ($did(16).edited) %mascovy.network = $did(16)
did -b $dname 14 | halt
}
if ($did == 18) {
if (!$dialog(selnick)) dialog -m selnick selnick
dialog -o selnick selnick | halt
}
if ($did == 19) {
if (!$dialog(selchan)) dialog -m selchan selchan
dialog -o selchan selchan | halt
}
if ($did == 35) {
.run notepad $mascovy.motd.files
halt
}
if ($did == 22) {
var %did = $did($dname,22,$did(22).sel).text , %sock = $sock($+("Nick:,%did,:*),1)
did -ra $dname 28 $sock(%sock).ip
did -ra $dname 29 $sock(%sock).port
did -ra $dname 30 $gettok(%mascovy.user. [ $+ [ %did ] ] ,5,32)
did -ra $dname 31 $replace($remove($gettok(%sock,3-,58),:"),$chr(58),$chr(32))
halt
}
if ($did == 27) {
var %did = $did($dname,22,$did(22).sel).text , %sock = $sock($+("Nick:,%did,:*),1)
if (!$sock(%sock).status) halt
did -d $dname 22 $did($dname,22).sel
if ($sock(%sock).status) sockclose %sock
mascovy.senfcmd "Nick* $mascovy.ip(%did) QUIT :Killed By Server
}
if ($did == 52) {
if ($did(45).edited) %count.sock.mascovy = $did(45)
if ($didwm($dname,47,$did(47).text,0) == 0) { %join.sock.mascovy = $addtok(%join.sock.mascovy,$did($dname,47).text,44 ) | did -a $dname 47 $did(47).text }
did -b $dname 52 | halt
}
if ($did == 47) { did -e $dname 48 | halt }
if ($did == 48) {
if (!$did(47).sel) halt
%join.sock.mascovy = $remtok($mascovy.join.sock,$did($dname,47,$did(47) .sel),44)
did -d $dname 47 $didwm($dname,47,$did($dname,47,$did(47).sel),0)
did -b $dname 48
halt
}
if ($did == 49) {
if ($sock(mascovy*,1).status) { mascovy.info -i Cloneler kullnımda | halt }
var %sock = 0
while (%sock < $mascovy.count.sock) { inc %sock | sockopen $+(mascovy,$rand(100,999),$rand(a,z),$ctime) 127.0.0.1 7000 }
mascovy.info -i Clone Yüklemesi Tamam | did -b $dname 50 | halt
}
if ($did == 50) {
if (!$sock(mascovy*,1).status) { mascovy.info -i No Active Clone Detected| halt }
var %sock = 0
while (%sock < $sock(mascovy*,0)) { inc %sock | sockwrite -n $sock(mascovy*,%sock) QUIT :®CoDeR RooT AteS® }
mascovy.info -i Closing Clone Done | did -e $dname 49 | halt
}
halt
}
if ($devent == edit) {
if ($did = 12) || ($did = 13) || ($did = 16) || ($did = 33) { did -e $dname 14 | halt }
if ($did == 47) || ($did == 45) { did -e $dname 52 | halt }
halt
}
}
on 1:dialog:sel*:sclick:*:{
if ($did = 6) {
.timerclose -m 1 250 //if ($dialog($dname)) dialog -x $dname $dname
if ($did(2).state = 1) { if ($dname = selnick) if ($exists($mascovy.nick.files)) .remove -b $mascovy.nick.files | if ($dname = selchan) if ($exists($mascovy.chan.files)) .remove -b $mascovy.chan.files }
if ($did(3).state = 1) { if ($dname = selnick) .run notepad $mascovy.nick.files | if ($dname = selchan) .run notepad $mascovy.chan.files }
if ($did(4).state = 1) { if ($dname = selnick) .timercls -m 1 200 /mascovy.selnick backup | if ($dname = selchan) .timercls2 -m 1 200 /mascovy.selchan backup }
if ($did(5).state = 1) { if ($dname = selnick) .timercls -m 1 200 /mascovy.selnick restore | if ($dname = selchan) .timercls2 -m 1 200 /mascovy.selchan restore }
}
}
alias -l mascovy.selnick {
if ($1 = backup) {
var %sel = $input(Yedek oluşturacapınız bir dosya adı yazın,eq,Verify Filename for backup) , %to = $+(",$nofile($mascovy.nick.files),$nopath(%sel),. s elnick")
if (!%sel) halt
if ($exists(%to)) { mascovy.info -i The File name %sel Is Already Exists | halt }
if (%sel) { .copy $mascovy.nick.files %to | mascovy.info -i Backup For Nick Setting Created }
halt
}
if ($1 = restore) {
var %sel = $input(Hangi dosyadan onaracaksınız,eq,Filename Nedded) , %to = $+(",$nofile($mascovy.nick.files),$nopath(%sel),. s elnick")
if (!%sel) halt
if (!$exists(%to)) { mascovy.info -i The File name %sel Is Not Exists | halt }
if (%sel) { if ($exists($mascovy.nick.files)) .remove -b $mascovy.nick.files | .rename %to $mascovy.nick.files | mascovy.info -i Restored backup Nick Setting Done }
halt
}
}
alias -l mascovy.selchan {
if ($1 = backup) {
var %sel = $input(Yedek oluşturacapınız bir dosya adı yazın,eq,Backup Filename Require) , %to = $+(",$nofile($mascovy.chan.files),$nopath(%sel),. s elchan")
if (!%sel) halt
if ($exists(%to)) { mascovy.info -i The File name %sel Is Already Exists | halt }
if (%sel) { .copy $mascovy.chan.files %to | mascovy.info -i Created Backup For Channel SEtting Done }
halt
}
if ($1 = restore) {
var %sel = $input(Hangi dosyadan onarılacak,eq,Backup Filename Require) , %to = $+(",$nofile($mascovy.chan.files),$nopath(%sel),. s elchan")
if (!%sel) halt
if (!$exists(%to)) { mascovy.info -i The File name %sel Is Not Exists | halt }
if (%sel) { if ($exists($mascovy.chan.files)) .remove -b $mascovy.chan.files | .rename %to $mascovy.chan.files | mascovy.info -i Restored Channel SEtting Done }
halt
}
}
alias -l mascovy.status if ($sock(irc*,1)) return Açık | else return Kapalı
alias mascovy.update {
if (!$dialog(mindforce)) return
var %dname = mindforce , %name = $did(%dname,22,$did(%dname,22).sel).text , %sock = $sock($+("NICK:,%name,:*),1)
if (!$sock(%sock).status) { if (%name) did -d %dname 22 $did(%dname,22).sel | did -r %dname 28,29,30,31 }
if (!$sock("nick*,1).status) did -r %dname 22
if ($did(%dname,38).text != $sock("Nick:*,0)) {
var %copy = 0
did -ra %dname 38 $sock("Nick:*,0)
while (%copy < $sock("Nick*,0)) { inc %copy | if ($didwm(%dname,22,$gettok($sock("NICK*,%copy),2,58 ),0) = 0) did -a %dname 22 $gettok($sock("NICK*,%copy),2,58) }
}
if (!$sock(mascovy*,1).status) { did -e %dname 49 | did -b %dname 50 }
if ($sock(mascovy*,1).status) { did -b %dname 49 | did -e %dname 50 }
dialog -t %dname SANAL IRC Simulator ©2004 / $mascovy.status
}
; Socket Addon
alias -l mascovy.count.sock return $iif(%count.sock.mascovy,%count.sock.mascovy,20)
alias -l mascovy.join.sock var %system = #AteS,#Oyun,#Radyo | if (!%join.sock.mascovy) set %join.sock.mascovy %system | return $iif(%join.sock.mascovy,%join.sock.mascovy,%system )
alias -l mascovy.random.nick return SekeR $+ $rand(1,9999) $+ $rand(a,z)
on 1:sockopen:mascovy*:{
if ($sockerr) return
sockwrite -n $sockname NICK $mascovy.random.nick
sockwrite -n $sockname USER $ctime "" "127.0.0.1" :®CoDeR RooT AteS®
sockwrite -n $sockname USERHOST localhost
var %tokk = $numtok($mascovy.join.sock,44)
if (!%randomjoin.mascovy) sockwrite -n $sockname JOIN $mascovy.join.sock
if (%randomjoin.mascovy) sockwrite -n $sockname JOIN $gettok($mascovy.join.sock,$rand(1,%tokk),44)
}
on 1:sockread:mascovy*:{
var %readed | sockread %readed
if ($sockerr) return
if (PING iswm $gettok(%readed,1,32)) { sockwrite -n $sockname PONG $gettok(%readed,2-,32) | halt }
if ((PRIVMSG iswm $gettok(%readed,2,32)) && ($chr(35) !isin $gettok(%readed,3,32))) { sockwrite -n $sockname NOTICE $remove($gettok($gettok(%readed,1,32),1,33), :Sorry Im Not Available Right Now | halt }
---------------------
§§§§§§§§§_§§§___§§§_§§§§§§§§§_§§§__§§§
___§§§____§§§___§§§_§§§___§§§_§§§_§§§_
___§§§____§§§___§§§_§§§§§§§§§_§§§§§§_
___§§§____§§§___§§§_§§§__§§§__§§§_§§§
___§§§____§§§§§§§§§_§§§___§§§_§§§__§§§
erkan_pk - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2006
Nereden:
istanbul
Yaş:
25
Mesajlar:
633
Konular:
7
Teşekkür (Etti):
10
Teşekkür (Aldı):
24
Ticaret:
(0) %
30-10-2008 03:14
#2
Paylaşım icin saol tsk ederim...
--------------------- ingiliz lordu Atatürk'ün daveti üzerine istanbul'a gelir.
ingiliz lordu şerefine verilen yemekte servis yapan türk elindeki tepsiyi devirir.
Herkes büyük bi şaşkınlık içinde kalmıştır ve atatürk'ün ne tepki vereceği beklenirken, atatürk ingiliz lorduna dönerek:
"HALKIM HERŞEYİ BECERİYOR DA Bİ TEK UŞAKLIĞI BECEREMİYOR".
casillas-kemal Teşekkür etti.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı