A TG007 community discussion started by RashedHammad.
ok waiting u my Friend
it is good that you are here trying to learn, but really, if you are getting code out of someone else's program, you should state where it came from, then clearly define what is required.
but like many here, we all started by doing the same approach, but the difference is that we attempted to have a go... perhaps you should as well? have a go at fixing it yourself. mIRC comes with a very nice help file, and you've seen enough code to understand atleast that mIRC has a scripting basis that is event driven.
Which is what I suggested yesterday..
I'm still a little hazy about what Rashed wants...but I'm sure he could use something like this:
on *:RAWMODE:#:if (Q isincs $1 && $address = YourID@BuzzenPassport) { do something }
I didn't change any of the other code outside of the isowner ishost stuff, but you should think of redoing a lot of that code or scrap it all together and start fresh.. I also didn't do any testing of the code so hopefully it works as you want it to.
#portlist off
on *:KICK:#:{
if ($nick($chan,$me,' .)) {
if ($nick == $me) halt
if ($nick == %botnick) halt
if ($readini(gaop.ini,global,$ial($nick).addr) != $null) halt
if ($readini(gaop.ini,#,$ial($nick).addr) != $null) halt
if ($readini(gaop.ini,#,$ial($knick).addr) != $null) && ($nick($chan,$me,' .)) && ($ial($nick).addr != SND) { sockwrite -n $sockfind($chan) access # clear | sockwrite -n $sockfind($chan) access # add deny $address($nick,1) 0 : kicked protected user $knick | sockwrite -n $sockfind($chan) kick $chan $nick 1,12Protected-user-in-my-GlObaL $+ $knick | sockwrite -n $sockfind($chan) PROP # OWNERKEY $randgen | sockwrite -n $sockfind($chan) PROP # HOSTKEY $randgen | sockwrite -n $sockfind($chan) mode # +q $me }
if ($readini(gaop.ini,global,$ial($knick).addr) != $null) && ($nick($chan,$me,' .)) && ($ial($nick).addr != SND) { sockwrite -n $sockfind($chan) access # clear | sockwrite -n $sockfind($chan) access # add deny $address($nick,1) 0 : kicked protected user $knick | sockwrite -n $sockfind($chan) kick $chan $nick 1,12Protected-user-in-my-GlObaL $+ $knick | sockwrite -n $sockfind($chan) PROP # OWNERKEY $randgen | sockwrite -n $sockfind($chan) PROP # HOSTKEY $randgen | sockwrite -n $sockfind($chan) mode # +q $me }
}
}
#portlist end
#safelist on
on *:owner:*: {
if ($nick != $me) && ($nick($chan,$me,' .)) && ($ial($opnick).addr != SND) && ($readini(antiaop.txt,noq,#) == Active) && ($opnick != $me) && ($opnick != %botnick) {
if ($readini(gaop.ini,global,$ial($opnick).addr) != $null) || ($readini(gaop.ini,#,$ial($opnick).addr) != $null) {
if (!%nickflood+q. [ $+ [ # ] ]) {
msg $chan $ial($opnick) 1,12Allowed Gate for Access 8+q
inc -u5 %nickflood+q. [ $+ [ # ] ]
}
}
else {
if (!%nickflood+q. [ $+ [ # ] ]) {
sockwrite -n $sockfind($chan) access # clear owner
sockwrite -n $sockfind($chan) kick # $opnick : 1,12Gate Not Allowed For Access +q
sockwrite -n $sockfind($chan) access # add deny $address($opnick,1)
sockwrite -n $sockfind($chan) access # add owner $gettok($ial($me),2,33) : %tag
sockwrite -n $sockfind($chan) prop # ownerkey $randgen
sockwrite -n $sockfind($chan) PROP # HOSTKEY $randgen
msg $chan $ial($opnick) 1,12Gate NOT Allowed For Access +q
inc -u5 %nickflood+q. [ $+ [ # ] ]
}
}
}
}
#safelist end
#global on
;global q unhalted
on *:text:+q:*:{
if (!$readini(gaop.ini,ghalted,$chan)) { if ($nick($chan,$nick,' .)) { goto end | msg # 1,12 $+ $nick Ur Aready +Q }
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(gaop.ini,global,$ial($nick).addr) != $null) { mode $chan +qv $nick $nick | .set -u2 %qtxtfp 1 | halt }
}
;global q halted
if ($readini(gaop.ini,ghalted,$chan)) {
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(gaop.ini,global,$ial($nick).addr) != $null) {
/msg # 4G12l4O12b4a12L4 8+Q $nick $+ 12F4o12U4n12D4 12A4s : $+ 12 $readini(gaop.ini,global,$ial($nick).addr) 8 :12Halted | access # add voice $ial($nick).addr | mode # +v $nick | .set -u2 %qtxtfp 1 | halt }
}
;local q unhalted
if (!$readini(gaop.ini,lhalted,#)) { if ($nick($chan,$nick,' .)) { goto end | msg # 1,12 $+ $nick Ur Aready +Q }
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(gaop.ini,#,$ial($nick).addr) != $null) { mode # +qv $nick $nick | .set -u2 %qtxtfp 1 | halt }
}
;local q halted
if ($readini(gaop.ini,lhalted,#)) {
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(gaop.ini,#,$ial($nick).addr) != $null) {
/msg # 12L4o12C4a12L4 8+Q ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $readini(gaop.ini,#,$ial($nick).addr) 8 :1Halted | access # add voice $ial($nick).addr | mode # +v $nick | .set -u2 %qtxtfp 1 | halt }
}
:end
}
;global o unhalted
on *:text:+o:*:{
if (!$readini(haop.ini,ghalted,#)) { if ($nick isop #) { goto end | msg # 14,5 $+ $nick Ur Aready +o }
if ($nick($chan,$me,' .)) && (!%otxtfp) && ($readini(haop.ini,global,$ial($nick).addr) != $null) { mode # +ov $nick $nick | .set -u2 %otxtfp 1 | halt }
}
;global o halted
if ($readini(haop.ini,ghalted,#)) {
if ($nick($chan,$me,' .)) && (!%otxtfp) && ($readini(haop.ini,global,$ial($nick).addr) != $null) {
/msg # 1Global8-1o8¬1 $nick $+ 8:1 Logged as $+ 8¬1 $readini(haop.ini,global,$ial($nick).addr) 8 :1Halted | access # add voice $ial($nick).addr | mode # +v $nick | .set -u2 %qtxtfp 1 | halt }
}
;local o unhalted
if (!$readini(haop.ini,lhalted,#)) { if ($nick isop #) { goto end | msg # 14,5 $+ $nick Ur Aready +o }
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(haop.ini,#,$ial($nick).addr) != $null) { mode # +ov $nick $nick | .set -u2 %qtxtfp 1 | halt }
}
;local o halted
if ($readini(gaop.ini,lhalted,#)) {
if ($nick($chan,$me,' .)) && (!%qtxtfp) && ($readini(haop.ini,#,$ial($nick).addr) != $null) {
/msg # 1Local8-1o8¬1 $nick $+ 8:1 Logged as $+ 8¬1 $readini(haop.ini,global,$ial($nick).addr) 8 :1Halted | access # add voice $ial($nick).addr | mode # +v $nick | .set -u2 %qtxtfp 1 | halt }
}
:end
}
;global q unhalted
on *:join:#:{
if ($nick != $me) && (!$readini(gaop.ini,ghalted,#)) && ($nick($chan,$me,' .)) && ($readini(gaop.ini,global,$ial($nick).addr) != $null) {
/msg # 4G12l4O12b4a12L4 8+Q ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(gaop.ini,global,$ial($nick).addr) $+ 4«« +q For 8+Q4»»
mode # +v $nick
.timeraop 1 2 doaop GO $gettok($readini(gaop.ini,global,$ial($nick).addr),2,32) $!chr(37) $!+ $right($chan,-1) $iif($me isowner #,+q) $nick
}
;global q halted
if ($readini(gaop.ini,ghalted,#)) && ($nick($chan,$me,' .)) && ($readini(gaop.ini,global,$ial($nick).addr) != $null) {
/msg # 4G12l4O12b4a12L4 8+Q ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(gaop.ini,global,$ial($nick).addr) :12Halted
/access # add voice $ial($nick).addr
.timer1 1 3 mode $!chr(37) $!+ $right(#,-1) +v $nick
}
;local q unhalted
if ($nick != $me) && (!$readini(gaop.ini,lhalted,#)) && ($nick($chan,$me,' .)) && ($readini(gaop.ini,#,$ial($nick).addr) != $null) {
/msg # 12L4o12C4a12L4 8+Q ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(gaop.ini,#,$ial($nick).addr) $+ 4«« +q For 8+Q4»»
mode # +v $nick
.timeraop 1 2 doaop CO $gettok($readini(gaop.ini,#,$ial($nick).addr),2,32) $!chr(37) $!+ $right($chan,-1) $iif($me isowner #,+q) $nick
}
;local q halted
elseif ($readini(gaop.ini,lhalted,#)) && ($nick($chan,$me,' .)) && ($readini(gaop.ini,#,$ial($nick).addr) != $null) {
/msg # 12L4o12C4a12L4 8+Q ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(gaop.ini,#,$ial($nick).addr) :12Halted
/access # add voice $ial($nick).addr
.timer1 1 3 mode $!chr(37) $!+ $right(#,-1) +v $nick
}
;global o unhalted
if ($nick != $me) && (!$readini(haop.ini,ghalted,#)) && ($nick($chan,$me,' .)) && ($readini(haop.ini,global,$ial($nick).addr) != $null) {
/msg # 4G12l4O12b4a12L4 5+o ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(haop.ini,global,$ial($nick).addr) $+ 4«« +o For 5+O4»»
}
;global o halted
if ($readini(haop.ini,ghalted,#)) && ($nick($chan,$me,' .)) && ($readini(haop.ini,global,$ial($nick).addr) != $null) {
/msg # 4G12l4O12b4a12L4 5+o ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 12 $readini(haop.ini,global,$ial($nick).addr) 8 :12Halted
/access # add voice $ial($nick).addr
.timer1 1 3 mode $!chr(37) $!+ $right(#,-1) +v $nick
}
;local o unhalted
if ($nick != $me) && (!$readini(gaop.ini,lhalted,#)) && ($me isop #) && ($readini(haop.ini,#,$ial($nick).addr) != $null) {
/msg # 12L4o12C4a12L4 5+o ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 14 $readini(haop.ini,#,$ial($nick).addr) $+ 4«« +o For 5+O4»»
.timer1 1 3 MODE $!chr(37) $!+ $right(#,-1) +o+v $nick $nick
}
;local o halted
elseif ($readini(gaop.ini,lhalted,#)) && ($me isop #) && ($readini(haop.ini,#,$ial($nick).addr) != $null) {
/msg # 12L4o12C4a12L4 5+o ( $+ $nick $+ ) 12F4o12U4n12D4 12A4s $+ 14 $readini(haop.ini,#,$ial($nick).addr) :12Halted
/access # add voice $ial($nick).addr
.timer1 1 3 mode $!chr(37) $!+ $right(#,-1) +v $nick
}
}
#global end
alias gqmade {
var %x $chan, %z 1
msg $chan 4Gl12o4b12a4l 8+q 12S4c12a4n 12O4w12n S12t4a12r4t12e4d12in $chan
while (%z <= $nick(%x,0)) {
if ($readini(gaop.ini,global,$ial($nick(%x,%z),1).addr) != $null) {
msg $chan 4G12lob4al 8+Q12F4o12U4n12D4 $nick(%x,%z) $+ $chr(160) $+ $readini(gaop.ini,global,$ial($nick(%x,%z).addr)) | mode $chan +q $readini(gaop.ini,global,$ial($nick(%x,%z),1).addr) }
inc %z
}
msg # 12Gl4o12b4a12l 8+q 4S12c4a12n 4F12inishe4d in $chan
}
alias gqscan {
var %x $chan, %z 1
msg $chan 12Gl4o12b4a12l 8+q 4S12c4a12n S12t4a12r4t12e4d12in $chan
while (%z <= $nick(%x,0)) {
if ($readini(gaop.ini,global,$ial($nick(%x,%z),1).addr) != $null) { msg $chan 4G12lob4al 8+Q12F4o12U4n12D4 $nick(%x,%z) $+ $chr(160) $+ $readini(gaop.ini,global,$ial($nick(%x,%z).addr)) }
inc %z
}
msg $chan 8`q For 8+Q 12Gl4o12b4a12l 8+q 4S12c4a12n 4F12i4n12i4s12h4e12d in $chan
}
alias lqscan {
var %x 0
msg # 12Lo4C12a4L 8+q 4S12c4a12n
while (%x < $nick(#,0)) {
inc %x
if ($readini(gaop.ini,#,$ial($nick(#,%x)).addr)) {
msg # 4L12oCaL 8+Q $nick(#,%x)
}
}
msg $chan 12 +q For 8+Q
}
alias ghmade {
var %x $chan, %z 1
msg $chan 4Gl12o4b12a4l 5+o 12S4c12a4n 12h4o12s4t S12t4a12r4t12e4d 12in $chan
while (%z <= $nick(%x,0)) {
if ($readini(haop.ini,global,$ial($nick(%x,%z),1).addr) != $null) {
msg $chan 4G12lob4al 5+o12F4o12U4n12D4 $nick(%x,%z) $+ $chr(160) $+ $readini(haop.ini,global,$ial($nick(%x,%z).addr)) | mode $chan +o $readini(haop.ini,global,$ial($nick(%x,%z),1).addr) }
inc %z
}
msg # 12Gl4o12b4a12l 5+o 4S12c4a12n 4F12i4n12i4s12h4e12d in $chan
}
alias ghscan {
var %x $chan, %z 1
msg $chan 12G4L12o4b12a4L 5+o 12S4c12a4n
while (%z <= $nick(%x,0)) {
if ($readini(haop.ini,global,$ial($nick(%x,%z)).addr) != $null) { msg $chan 4G12l4o12b4a12l 5+o 12F4o12U4n12D4 $nick(%x,%z) }
inc %z
}
msg $chan 5 +o For 5+O
}
alias lhscan {
var %x 0
msg # 12L4o12C4a12L 5+o 12S4c12a4n
while (%x < $nick(#,0)) {
inc %x
if ($readini(haop.ini,#,$ial($nick(#,%x)).addr)) {
msg # 4L12o4C12a4L 5+o 12F4o12U4n12D4 $nick(#,%x)
}
}
msg $chan +o For 5+o
}
alias doaop {
if ($1 == GO) {
if ($4 == +q) && (!$nick($3,$5,' .)) {
.raw mode $3-
}
elseif ($4 == +o) && (!$nick($3,$5,@)) {
.raw mode $3-
}
}
if ($1 == GH) {
if (!$ishost($5,$3)) && (!$nick($3,$5,' .)) {
.raw mode $3-
}
}
if ($1 == CO) {
if ($4 == +q) && (!$nick($3,$5,' .)) {
.raw mode $3-
}
elseif ($4 == +o) && (!$nick($3,$5,@)) {
.raw mode $3-
}
}
if ($1 == CH) && (!$nick($3,$5,' .)) {
if (!$nick($3,$5,@)) {
.raw mode $3-
}
}
}
on *:text:*!join*:#:{
if (!%qtxtfp) && ($readini(gaop.ini,global,$ial($nick).addr) != $null) {
join $replace($chr(37) $+ #$2-,$chr(32),\b)
msg # 12find 4 $+ $replace($chr(37) $+ #$2-,$chr(32),\b) 12Please Wait0.8.4......Room found Joining
}
}
on *:text:*`join*:#:{
if (!%otxtfp) && ($readini(haop.ini,global,$ial($nick).addr) != $null) {
join $replace($chr(37) $+ #$2-,$chr(32),\b)
msg # 12find 4 $+ $replace($chr(37) $+ #$2-,$chr(32),\b) 12Please Wait0.1.4......Room found Joining
}
}
Get information about ircWx here
This Code is made by [Top]
I abologize but he told me to don't put his name ,,
Thanks for [TOP]
Thanks for err0r
looks good TOP well done
Get information about ircWx here
Thnx Brother And Hope All Liked
Sign in to reply or start a new topic where your account has permission.
