u can try use this aop system
on *:join:#: {
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick),2,33)),1,32) == Owner) && ($me isop #) && ($readini(Aop\Aop.txt,GlobalHalt,#) != Halted) {
mode # $iif($me isowner #,+q,+o) $nick
msg # 1Aop 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,Global,$ial($nick).addr),2,32) 7-› 1Global7; 1Owner
}
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick),2,33)),1,32) == Host) && ($me isop #) && ($readini(Aop\Aop.txt,GlobalHalt,#) != Halted) {
mode # +o $nick
msg # 1Aop 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,Global,$ial($nick).addr),2,32) 7-› 1Global7; 1Host
}
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick),2,33)),1,32) == Owner) && ($me isop #) && ($readini(Aop\Aop.txt,ChannelHalt,#) != Halted) {
mode # $iif($me isowner #,+q,+o) $nick
msg # 1Aop 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,#,$ial($nick).addr),2,32) 7-› 1Channel7; 1Owner
}
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick),2,33)),1,32) == Host) && ($me isop #) && ($readini(Aop\Aop.txt,ChannelHalt,#) != Halted) {
mode # +o $nick
msg # 1Aop 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,#,$ial($nick).addr),2,32) 7-› 1Channel7; 1Host
}
}
on *:text:*:#: {
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick),2,33)),1,32) == Owner) && ($me isop #) && ($readini(Aop\Aop.txt,GlobalHalt,#) != Halted) {
if ($1 == .q) && (!$2) { mode # $iif($me isowner #,+q,+o) $nick }
}
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick),2,33)),1,32) == Host) && ($me isop #) && ($readini(Aop\Aop.txt,GlobalHalt,#) != Halted) {
if ($1 == .o) && (!$2) { mode # +o $nick }
}
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick),2,33)),1,32) == Owner) && ($me isop #) && ($readini(Aop\Aop.txt,ChannelHalt,#) != Halted) {
if ($1 == .q) && (!$2) { mode # $iif($me isowner #,+q,+o) $nick }
}
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick),2,33)),1,32) == Host) && ($me isop #) && ($readini(Aop\Aop.txt,ChannelHalt,#) != Halted) {
if ($1 == .o) && (!$2) { mode # +o $nick }
}
}
#Aop end
on *:load: {
if (!$isdir($+(",$mircdir,Aop,"))) {
mkdir $+(",$mircdir,Aop,")
}
}
;--- Cred goes to eXonyte for decoder (Taken from Vincula)
alias aopdecode {
var %r, %l 1
%r = $replace($1-,ï?‚,B,ï‚ ,-,ï€>,-,,-,ï€?,-,ï?…,E,ï?Æ’,C,ï??,A,ï?’,R,ï?‹,K,ï?¹,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,ï?«,k,ï?†,F,ï?µ,u,ï?§,g,Χ,X,,>,,$chr(37),,8,ï?¤,d,ï?Â,m,ï?¨,h,ï»›,s,ï?‡,G,ï??,M,ï?¬,l,ï?³,s,ï?Ÿ,_,ï?â€,T,ï?²,r,ï?¡,a,ï?®,n,ï?£,c,ï?Â¥,e,ï?Ž,N,ï?¡,a,ï?´,t,ï?©,i,ï?¯,o,ï?®,n,ï?¦,f,ï?·,w,ï?Å“,\,ï?¼,|,ï?€,@,ï??,P,ï?„,D,,',ï€ , ,,$chr(40),,$chr(41),,*,,:,ï?›,[,ï??,],ï?°,p,,.)
%r = $replace(%r,ا,I,ή,n,ņ,n,Ω,n,»·,y,Ñ€,p,à ,P,Ã…â„¢,r,Ñ…,x,Ä®,I,Ä»,L,ä,o,Ĉ,C,Ã…?,o,Å©,u,Å„,n,Ä¢,G,Å•,r,Å›,s,Ä·,k,Å–,R,×–,i,ε,e,ק,r,Ñ›,h,ü,m,ØŒ,·,Ä«,i,‘,‘,’,’,Û±,',Ä“,e,¢,¢,ï?“,S,•,•,ï??,O,ï?‰,I,Ά,A,ÑŠ,b,Å Ã,T,Φ,o,Â,b,Ñ?,r,Ã?,E,ô,A,ÃÅ¡,K,ÄŽ,D,ø,n,θ,o,ÃÅ“,M,Ç,I,â,T,Ä,e,Ǻ,A,ö,ö,ä,ä,–,–,·,·,Ö,Ö,Ãœ,Ãœ,Ë,Ë,Ñ•,s,Ä…,a,ÄÂ,i,ù,n,ò,b,þ,o,ш,w,Äž,G,Ä‘,d,÷,e,Ŧ,T,α,a,ÄŸ,g,ú,ú,Ã…â€,R,Ä„,A,ć,c,Ä?,Ã,ÃŽÅ¡,K,Ñž,y,µ,µ,Ã?,Ã,‹,‹,¦,¦,Õ,Õ,Ù,Ù,À,À,ÃŽ ,N,Ò“,f,ΰ,u,Ä¿,L,Ã…?,o,Â,c,Ä‹,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,ž,Ç,Ç, $+ $chr(173),-,Ã?,Ã,…,…,¨,¨,ý,ý,ˉ,¯,â€?,â€,Û,Û,ì,ì,Ã?,p,ÃŽÂ,e,ó,r,à ,à ,È,È,¼,¼,ĵ,j,ã,ã,Ä™,e,ÅŸ,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,Ëš,°,ï,R,Ëœ,Ëœ,ÃŽ,ÃŽ,Ê,Ê,Ã?,Ã,Ã?,Ã,É,É,‡,‡,ÃŒ,ÃŒ,ª,ª,ó,ó,â„¢,â„¢,Ã’,Ã’,ÃÂ,Ã,¿,¿,Ä,Ä,¶,¶,ü,ü,Æ’,Æ’,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Ã… ,Å ,ø,ø,›,›,â,â,î,î,€,€,Å¡,Å¡,ï,ï,ÿ,ÿ,Ã…Æ’,N,©,©,®,®,û,û,†,†,°,°,§,§,±,±,è,è)
%r = $replace(%r,Ƥ,P,Ç,X,Ň,N,Û°,·,Ä´,J,Æ,I,Σ,E,ι,i,Ã…?,O,δ,o,×¥,y,ν,v,×¢,y,מ,n,Ž,Ž,Å‘,o,ÄŒ,C,Ä—,e,₤,L,Ã…Å’,O,ά,a,Ä ,G,Ω,O,Ã?,H,ể,e,ẵ,a,Ö,K,á»?,e,ế,e,á»—,o,Å«,u,â‚£,F,∆,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Åž,S,ÃŽËœ,O,è,W,Î’,B,ß,N,ẅ,w,ﻨ,i,ﯼ,s,ÑŸ,u,Ñ’,h,¹,¹,Ỳ,Y,λ,a,á,C,à $+ $chr(173),E,Å°,U,Ī,I,Ä?,c,Äâ€,E,Ã…Å“,S,Ị,I,Ä?,g,Å€,l,Ñ—,i,ÙÂ,*,ʼn,n,Ħ,H,Ãâ€,A,ÃŽÅ“,M,Ñ‘,e,æ,U,Ñ?,e,“,“,Ñ„,o,у,y,Ñ?,c,ú,k,Ã…,Ã…,â„ž,R,ï “,I,ɳ,n,Ê—,c,â–«,·,Ñ“,r,ệ,e,ắ,a,ẳ,a,ů,u,Ľ,L,Æ°,u,·,·,Ë™,',η,n,â„“,l,Â?,?,Â?,?,Â?,?,×€,i,Ä¡,g,Å´,W,ÃŽâ€,A,ﮊ,J,μ,µ,Ÿ,Ÿ,Ä¥,h,β,ß,ì,b,ų,u,Ñâ€,e,É,w,ÄŠ,C,Ñ–,i,Å‚,l,Ç¿,o,∫,l,ż,z,Å£,t,æ,æ,≈,=,Ã…?,L,Å‹,n,Ú¯,S,Ä?,d,È,w,ÃÆ’,o,Ä£,g,Ή,H,ÃŽ?,i,Ò‘,r,κ,k,Ã…Å ,N,Å“,\,,/,¬,¬,щ,w,Û•,o,×?,o,³,³,½,½,Ä°,I,ľ,l,Ä•,e,Å¢,T,Ã…?,s,Å·,y,ľ,l,Ä©,i,Ãâ€,Ô,Ã…Å¡,S,Ĺ,L,ð,a,õ,e,Ρ,P,È,J,ÃŽ?,N,Ç»,a,Ñ’,h,ί,l,Å’,Å’,¯,¯,Ä?,a,ŵ,w,Â,Â,Ã,Ã,ý,H,ˇ,',¸,¸,Ì£,$chr(44),Ø·,b,Ó,Ó,Ãâ„¢,N,«,«,ù,ù,Ø,Ø,ê,ê)
%r = $replace(%r,²,²,û,n,Ñ‹,bl,ñ,6,ש,w,―,-,Ϊ,I,ï? ,`,Ã…Â,u,ổ,o,Ǿ,Ø,ẫ,a,ầ,a,ï?±,q,Ẃ,W,Ĥ,H,á»?,o,−,-,ï?ž,^,à ¸¥,a,Äœ,G,ﺯ,j,Ù‰,s,ÃÆ’,r,ứ,u,â—?,·,Ã?,u,,0,,7,,",Ó©,O,Ç?,i,Ç‘,O,Æ ,O,,2,Ò¯,y,ï?¶,v,Ã?,A,≤,<,≥,>,ẩ,a,ï?ˆ,H,Ù¤,e,ﺂ,i,ÃÅ’,K,Ū,U,,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,ÃŽâ„¢,I,Ϋ,Y,ï?Å ,J,ï?Ëœ,X,ï?½,$chr(125),ï?»,$chr(123),Ξ,E,ˆ,^,ï?–,V,ï?Å’,L,γ,y,ﺎ,i,ÃŽ?,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,à ¹›,c,ỡ,o,à ¹“,m,ﺄ,i,ïÂŽ,G,Ŭ,U,Ä’,E,Ä‚,A,÷,÷, , ,‚,‚,„,„,ˆ,ˆ,‰,‰,ă,a,ï?¸,x,,=,Ù‚,J,,?,,-,â—Š,o,Ñ‚,T,Ä€,A,ï‡,P,Ä–,E,Ę,E,ο,o,Ë,u,‼,!!,ט,u,ï®’,S,ç,y,Ã’?,r,Ä›,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ã…Ëœ,R,Ư,U,Å“,Å“,ï€Â,-,â€â€,—,à ¸«,n,à ¸ª,a,à ¸?,g,Ψ,Y,Ẫ,A,À,n,Å…,N,Ø!,o,Ë,h,ợ,o,ĉ,c,â—¦,·,ﮎ,S,Ų,U,Õ,E,Ã…,S,Ûµ,o,ÙŠ,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å—,r,ö,x,Î…,",ÃŽ,w,â–ª,·,ζ,l,é,W,à ¸¿,B,ỹ,y,ÃÅ ,i,Ã…Â¥,t,ÿ,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñœ,k,√,v,Ä,t,Ã?,Ã,£,£,ñ,ñ,Â¥,Â¥,ë,ë,Ã¥,Ã¥,ï?â„¢,Y,ÇŽ,a)
%r = $replace(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,ï‚£,£,ïƒ ,à ,ï‚®,®,,á,ï‚©,©,,õ,á»?,o,â€?, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,‌, ,Ù?,',à ¹˜,c,à ¸…,m,Â?,?,,<,â–¼,v,ﻜ,S,â„®,e,ź,z,áºÂ,a,à ¹‘,a,ï¬?,fi,ÑŒ,b,ﺒ,.,ﺜ,:,à ¸¨,a,à ¸ ,n,à ¹?,o,à ¸°,=,ï†,y,à ¸‹,i,‾,¯,∂,a,：,:,≠,=,,+,Ù…,r,ồ,o,Ử,U,Û,N,Ó’,A,Ọ,O,Ẅ,W,á»´,Y,ﺚ,u,ﺬ,i,ïº?,u,Å»,Z,ﮕ,S,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ïºâ€,a,,!,á»…,e,Ù„,J,ر,j,Ù€,_,ÃÅ’,o,â‚«,d,â„–,no,ữ,u,Äš,E,Æ,o,ï» ,I,ц,u,,Ã…,,N,ÃÅ ,H,Έ,E,ï?¾,~,ï?•,U,ạ,a,,1,,4,,3,ỉ,i,Ε,E,Ã?,U,Ùƒ,J,★,*,ï?¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ỵ,y,áº?,w,Ò›,k,Ù¿,u,♂,o,ïÂÅ ,n,Ù¥,o,ï®?,S,â?¿,n,ï»—,9,ï?¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ị,i,Α,A, , ,ﻩ,o,ï»?,E,Ù†,u,ẽ,e,Ø«,u,ã…“,t,Ó›,e,Ó˜,E,ﻘ,o,Û·,v,שׁ,w,ụ,u,ÅŽ,O,Â?,?,á»±,u,Ｊ,J,ï½…,e,ï½?,a,ï¼®,N,（,$chr(40),ï¼ ,@,ï½€,`,．,.,′,',）,$chr(41),â–¬,-,â—„,<,â–º,>,∑,E,Ö»,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,ÃËœ,N,ï?—,W,ï?º,z)
%r = $replace(%r,ס,o,╳,X,Ù ,·,Ò’,F,Ã…,u,â€?,?,Ö¼,·,Çâ€,u,à ¸œ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,ï®â€,S, Ã’Å“,K,♦,·,‗,_,ﻈ,b,à ¸¬,w,אּ,x,ï‚Â,-,à ¸‚,u,à ¸—,n,Ờ,O,Ặ,A,á»Â,u,Ễ,E,à ¨¹,J, Ù‡,o,â– ,·,Æ¡,o,ï?¿,,Ò£,h,Ã’Å¡,K,Ò²,X,Ò³,x,Ã’Å“,K,ع,E,Ú†,c,ч,y,ÃÂ¥,X,Ù¦,7,Ö½,.,ÙŽ,',Ö¿,',׃,:,á»?,o,Ò–,X,ÛŒ,s,à ¸¬,w,∙,·,Τ,T,â“’,c,â“?,a,â“Ÿ,p,â“â€,e,â“£,t,Ç?,A,ÃÂ¥,X,Ö³,.,ÛŒ,s,Ỉ,I,̉,',ï?Å¡,Z,á»?,o,ẹ,e,Ã’?,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,Ã’Å¡,K,ï?Å¡,Z,Ì•,',ââ€Å“,|,ââ€Â¤,|,Ø£,I,‹,,×?,x,ặ,a,Ç’,o,Ờ,O,☼,¤,×?,.,ï?Å¡,Z,à ¸¤,n,â‘·,4,⑵,2,â’ª,0,à ¹€,i,☻,•,â• ,|,╦,n,Ã¥??,†,ấ,a,,‚,×,3,Ẵ,A,ÃŽ,y,Ź,Z,΄,',ˬ,$chr(40),À©,$chr(41),×—,n,Ở,O,á»â€,O,à ¹Œ,',à ¹,g,Ã’,B,ã€?,[,】,],ｓ,s,ï½?,m,ï½?,o,ｋ,k,ï½—,w,ｄ,d,Ũ,U,ï?‘,Q,↨,|,Ẩ,A,Ẽ,E,Ö¸,¸,à ¸˜,s,Ùˆ,g,÷,e,ظ,b,ﺸ,…,Ñ,b,ï?-,m,ﻲ,…,Ù¾,u,غ,e,Ẩ,A,ẻ,e,Ò¹,y,à ¸†,u,à ¸¯,-,ׂ, ,,-,ïƒ?,Ã,,ë,ת,n,Ù§,V,Ợ,O,Û?,I,Ûž,O,Û©,O,˼,:,À{,;)
return %r
}
;---
alias unhaltaop { remini Aop\Aop.txt ChannelHalt # Halted | echo # 1Aop 7-› 1Channel7: Unhalted }
alias haltaop { writeini Aop\Aop.txt ChannelHalt # Halted | echo # 1Aop 7-› 1Channel7: Halted }
alias unhaltgaop { remini Aop\Aop.txt GlobalHalt # Halted | echo # 1Aop 7-› 1Global7: Unhalted }
alias haltgaop { writeini Aop\Aop.txt GlobalHalt # Halted | echo # 1Aop 7-› 1Global7: Halted }
alias globaloscan {
set %i 0
set %j $nick(#,0)
msg # Scanning Aop 7-› 1Global7: Host
:give.aop
inc %i
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick(#,%i)),2,33)),1,32) != $null) && ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick(#,%i)),2,33)),1,32) != Owner) { msg # Found7; $msn.decode($nick(#,%i)) 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,Global,$ial($nick(#,%i)).addr),2,32) 7-› Say7: .o }
if (%i == %j) { msg # Finished Scan | unset %i | unset %j | halt }
goto give.aop
}
alias globalqscan {
set %i 0
set %j $nick(#,0)
msg # Scanning Aop 7-› 1Global7: Owner
:give.aop
inc %i
if ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick(#,%i)),2,33)),1,32) != $null) && ($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($nick(#,%i)),2,33)),1,32) != Host) { msg # Found7; $msn.decode($nick(#,%i)) 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,Global,$ial($nick(#,%i)).addr),2,32) 7-› Say7: .q }
if (%i == %j) { msg # Finished Scan | unset %i | unset %j | halt }
goto give.aop
}
alias chanoscan {
set %i 0
set %j $nick(#,0)
msg # Scanning Aop 7-› 1Channel7: Host
:give.aop
inc %i
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick(#,%i)),2,33)),1,32) != $null) && ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick(#,%i)),2,33)),1,32) != Owner) { msg # Found7; $msn.decode($nick(#,%i)) 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,#,$ial($nick(#,%i)).addr),2,32) 7-› Say7: .o }
if (%i == %j) { msg # Finished Scan | halt }
goto give.aop
}
alias chanqscan {
set %i 0
set %j $nick(#,0)
msg # Scanning Aop 7-› 1Channel7: Owner
:give.aop
inc %i
if ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick(#,%i)),2,33)),1,32) != $null) && ($gettok($readini(Aop\Aop.txt,#,$gettok($ial($nick(#,%i)),2,33)),1,32) != Host) { msg # Found7; $msn.decode($nick(#,%i)) 7-› 1Logged as7; $gettok($readini(Aop\Aop.txt,#,$ial($nick(#,%i)).addr),2,32) 7-› Say7: .q }
if (%i == %j) { msg # Finished Scan | halt }
goto give.aop
}
menu channel {
Aop is $iif($group(#Aop) == On,On,Off)
.Turn Aop $iif($group(#Aop) == On,Off,On) : $iif($group(#Aop) == On,disable,enable) #Aop
.-
.$iif($readini(Aop\Aop.txt,ChannelHalt,#) == Halted,Unhalt,Halt) Channel Aop : $iif($readini(Aop\Aop.txt,ChannelHalt,#) == Halted,$unhaltaop,$haltaop)
.$iif($readini(Aop\Aop.txt,GlobalHalt,#) == Halted,Unhalt,Halt) Global Aop : $iif($readini(Aop\Aop.txt,GlobalHalt,#) == Halted,$unhaltgaop,$haltgaop)
.Scans
..Channel Owner : { $chanqscan }
..Channel Host : { $chanoscan }
..Global Owner : { $globalqscan }
..Global Host : { $globaloscan }
.-
.Aop\Aop.txt (Aop listings) : { run $+(",Aop\Aop.txt,") }
-
}
menu nicklist {
-
Aop
.$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Owner,Remove,Add) Channel Owner {
if (!$ial($$1)) { .whois $$1 }
$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Owner,remini,writeini) Aop\Aop.txt # $ial($1).addr Owner $aopdecode($1)
$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Owner,echo # 1Added Aop 7-› 1Logged as7: $aopdecode($1) 7-› 1Channel7: 1Owner,echo # Removed Channel Aop7: $aopdecode($1))
}
.$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Host,Remove,Add) Channel Host {
if (!$ial($$1)) { .whois $$1 }
$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Host,remini,writeini) Aop\Aop.txt # $ial($1).addr Host $aopdecode($1)
$iif($gettok($readini(Aop\Aop.txt,#,$gettok($ial($1),2,33)),1,32) == Host,echo # 1Added Aop 7-› 1Logged as7: $aopdecode($1) 7-› 1Channel7: 1Host,echo # Removed Channel Aop7: $aopdecode($1))
}
.-
.$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Owner,Remove,Add) Global Owner {
if (!$ial($$1)) { .whois $$1 }
$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Owner,remini,writeini) Aop\Aop.txt Global $ial($1).addr Owner $aopdecode($1)
$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Owner,echo # 1Added Aop 7-› 1Logged as7: $aopdecode($1) 7-› 1Global7: 1Owner,echo # Removed Global Aop7: $aopdecode($1))
}
.$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Host,Remove,Add) Global Host {
if (!$ial($$1)) { .whois $$1 }
$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Host,remini,writeini) Aop\Aop.txt Global $ial($1).addr Host $aopdecode($1)
$iif($gettok($readini(Aop\Aop.txt,Global,$gettok($ial($1),2,33)),1,32) == Host,echo # 1Added Aop 7-› 1Logged as7: $aopdecode($1) 7-› 1Global7: 1Host,echo # Removed Global Aop7: $aopdecode($1))
}
-
}
i forgot who made this one but u can try it . 
Non-Tested
