RashedHammad Posted June 6, 2009 Author Report Share Posted June 6, 2009 ok waiting u my Friend Link to comment Share on other sites More sharing options...
The Gate Keeper Posted June 6, 2009 Report Share Posted June 6, 2009 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. Link to comment Share on other sites More sharing options...
Guest X-Fusion Posted June 7, 2009 Report Share Posted June 7, 2009 Which is what I suggested yesterday.. Link to comment Share on other sites More sharing options...
Fanfare Posted June 7, 2009 Report Share Posted June 7, 2009 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 } Link to comment Share on other sites More sharing options...
err0r Posted June 7, 2009 Report Share Posted June 7, 2009 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 } } Link to comment Share on other sites More sharing options...
RashedHammad Posted June 8, 2009 Author Report Share Posted June 8, 2009 This Code is made by [Top] I abologize but he told me to don't put his name ,, Thanks for [TOP] Thanks for err0r Link to comment Share on other sites More sharing options...
TOP_die Posted June 9, 2009 Report Share Posted June 9, 2009 (edited) Thnx Mr err0r For Helping me To fix This broblim And i Work on codes. soon Will B Come In VaX ScripT V1.0 For Buzzen Network Thnx Brother Edited June 9, 2009 by TOP_die Link to comment Share on other sites More sharing options...
err0r Posted June 9, 2009 Report Share Posted June 9, 2009 looks good TOP well done Link to comment Share on other sites More sharing options...
TOP_die Posted June 9, 2009 Report Share Posted June 9, 2009 Thnx Brother And Hope All Liked Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now