Aop Help

on ^*:JOIN:#:{
  if ($nick != $me) {
    if ($me !isowner $chan) { Halt }
    if ($hget(AOP.ini,Global,$ial($nick).addr)) {
      var %a = ($hget(AOP.ini,Global,$ial($nick).addr)
      msg # Globalq $nick ( $+ $ial($nick).addr $+ )  Reason $hget(Aop,%A).item
      .RAW -q MODE # +q $nick 
    }
  }

Anyone know how I get the reason to show? also for nicklist to add the reason too.

#userlist on
on ^*:join:#:{
  if ($left($nick,1) == >) && ($nick != $me) && (D21DB211 !isin $address) && ($me isop #) && (>null != $nick) && (%guestkick == ON) {
    .timer 1 1 { /set %guestflood 1 }
    .inc %guestflood
    .kick $chan $nick oi! You Must Be A Bot! BAD! 
    .access $chan add deny $address($nick,1)  
  }
  if (oneq isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) && ($nick !isowner $chan) && ($chan isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) { 
    .timeraop 1 3 { .mode $chan +q $nick }
    .access $chan add owner *! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @* 0 : 14AutoOp 
  }
  if (oneo isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) && ($nick !isowner $chan) && ($chan isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) { 
    .mode $chan +o $nick
    .access $chan add host *! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @* 0 : 14AutoOp
  }
  if (globalq isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) && ($me isowner #) {
    .mode $chan +q $nick
    .access $chan add owner *! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @* 0 : 14AutoOp
  }
  if (globalo isin $level(*! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @*)) && ($me isowner #) {
    .mode $chan +q $nick
    .access $chan add owner *! $+ $gettok($gettok($ial($nick),2,33),1,64) $+ @* 0 : 14AutoOp
  }
  if ($ulist($address,Identifier,1) == $address($nick,1)) { 
    window -mk0 @Indentifier
    echo @Indentifier 4‹14 $+ $time(h15:14nn15t14)4-14 $+ 4-14 $+ $nick Is $ulist($address,Identifier,1).info In $chan $+ 4› | halt 
  }
  if ($ulist($address,shit,1) == $address($nick,1)) && ($me isop #) {
    access $chan clear 
    access $chan add deny $address($nick,1)
    kick $chan $nick 4‹14shitx4/14Reason4:14 $+ $ulist($address,shit,1).info $+ 4›
    prop $chan ownerkey $chr($rand(32,255)) $+ œ $+ $rand(a,z) $+ $chr($rand(32,255)) $+ [autokick] $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255))  $+ $rand(1,900) $+ œ $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) 
    access $chan add owner 66.231.3* 0 : 4‹15(14deceptionx15)4›
  }
  else { /halt }
}
#userlist end

menu nicklist {
  » ulist
  .a/k:
  ..add:/.auser shit $address($$1,1) $$?="reason.." | /echo # 4[14 $+ $$1 Added To Auto Kick/Ban List4] | /access # clear | /access # add deny $address($$1,1) | /kick # $$1 | /prop # ownerkey $chr($rand(32,255)) $+ œ $+ $rand(a,z) $+ $chr($rand(32,255)) $+ [autokick] $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255))  $+ $rand(1,900) $+ œ $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) $+ $chr($rand(32,255)) | halt | haltdef  
  ..rem:/.ruser shit $address($$1,1) | /echo # 4[14 $+ $$1 Removed From Auto Kick/Ban List4] | halt | haltdef
  .global +q
  ..add:/auser globalq *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Added To Global +q4] | /mode # +q $$1
  ..rem:/ruser globalq *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Removed From Global +q4] | halt
  .global +o
  ..add:/auser globalo *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Added To Global +o4] | /mode # +o $$1 
  ..rem:/ruser globalo *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Removed From Global +o4] | halt
  .active +q
  ..add:/auser -a oneq $+ $chan *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Added To Owner List For # $+ 4] | /mode # +q $$1 
  ..rem:{ /ruser oneq $+ $chan *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* | /echo -a 4[14 $+ $$1 Removed From Owner List For # $+ 4] | halt }
  .active +o
  ..add:{ /auser -a oneo $+ $chan *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* : $+ $$1 | /echo -a 4[14 $+ $$1 Added To Host List For # $+ 4] | /mode # +o $$1 | halt }
  ..rem:/ruser oneo $+ $chan *! $+ $gettok($gettok($ial($$1),2,33),1,64) $+ @* | /echo -a 4[14 $+ $$1 Removed From Host List For # $+ 4] 
  .Identifier
  ..add:/.auser Identifier $address($$1,1) $$1 | echo # 4[14 $+ $converter($$1) Added To Indintifier List4] | mode # +v $$1 | haltdef
  ..rem:/.ruser Identifier $address($$1,1) | echo # 4[14 $+ $converter($$1) Removed From Indentifier List4] | mode # -v $$1 | haltdef 
}
menu menubar {
  » user list
  .$iif(%userlist == ON,$style(1)) on:/set %userlist ON | /enable #userlist 
  .$iif(%userlist == OFF,$style(1)) off:/set %userlist OFF | /disable #userlist
}

NOTE: not mine, my nefue made as i recall a while ago, edit it to your uses

alias userlists {
  if ($1 == file) { return User_Lists[v1]\User_Lists.ini } 
  if ($1 == status) { return $readini(User_Lists[v1]\User_Lists.ini,userlists,status) }
  if ($1 == message) {  
    if ($2 == autokick) { 
      if ($3 == added) { return $+(userlists[a-kick\added]) }
      elseif (!$3) { return $+(userlists[a-kick\,$readini(User_Lists[v1]\User_Lists.ini,kick,$ial($nick).addr),]) }
    }
  }
  if ($1 == scan) { 
    if (!$2) { echo -a $theme(time) error $theme(x) userlists 1:2 you did not specify a channel1...2 }
    elseif ($2) { 
      echo -a $theme(time) 1* ------------------------------2 | echo -a $theme(time) 1*2 scanning $+($lower($theme(replace,$left($2,7))),1...2) for users1...2 | echo -a $theme(time) 1* ------------------------------2
      var %cnt = 1, %ttl = $nick($2,0), %users = 0
      while (%cnt <= %ttl) { $iif($readini($userlists(file),kick,$ial($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 $+(kick,$str( ,2)) $theme(x) $nick($2,%cnt)) | inc %cnt }
      var %cnt = 1
      while (%cnt <= %ttl) { 
        $iif($readini($userlists(file),gowner,$ial($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gowner $theme(x) $nick($2,%cnt))
        inc %cnt
      }
      var %cnt = 1
      while (%cnt <= %ttl) { $iif($readini($userlists(file),gvoice,$ial($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gvoice $theme(x) $nick($2,%cnt)) | inc %cnt }
      var %cnt = 1 
      while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lowner.,$remove($2,$chr(35),$chr(37))),$ial($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lowner $theme(x) $nick($2,%cnt)) | inc %cnt }
      var %cnt = 1 
      while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lhost.,$remove($2,$chr(35),$chr(37))),$ial($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lhost  $theme(x) $nick($2,%cnt)) | inc %cnt }
      echo -a $theme(time) 1* ------------------------------2 | echo -a $theme(time) 1*2 scan complete1...2 | echo -a $theme(time) 1* ------------------------------2
    }
  }
}

menu menubar,status,nicklist { 
  -
  User Lists
  .$iif($userlists(status) == on,$style(2)) Enable:{ writeini -n $userlists(file) userlists status on | echo -a $theme(time) user lists $theme(x) enabled1...2 }
  .$iif($userlists(status) != on,$style(2)) Disable:{ writeini -n $userlists(file) userlists status off | echo -a $theme(time) user lists $theme(x) disabled1...2 }
  .-
  .$iif($readini($userlists(file),halt,$active) == on,$style(1)) $iif($me ison #,Halt Channel) {
    if ($readini($userlists(file),halt,$active) == on) { remini $userlists(file) halt $active * | echo -a $theme(time) user lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 removed1...2 } 
    elseif (!$readini($userlists(file),halt,$active)) { writeini -n $userlists(file) halt $active on | echo -a $theme(time) user lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 added1...2 }
  }
  .-
  .$iif($me ison #,Auto Kick)
  ..$iif($readini($userlists(file),kick,$ial($$1).addr),$style(2)) Add:{
    writeini -n $userlists(file) kick $ial($$1).addr $$?="Enter Reason:" | echo -a $theme(time) user lists $theme(x) a_kick 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2)
    if ($me isowner $active) { 
      if ($$1 isowner $active) { sockwrite -n $socket($active) ACCESS $active CLEAR $lf KICK $active $$1 $userlists(message,autokick,added) $lf PROP $active OWNERKEY $keyz $lf PROP $active HOSTKEY $keyz }
    }
    if ($me isowner $active) || ($me isop $active) { 
      if ($$1 isop $active) && ($$1 !isowner $active) { sockwrite -n $socket($active) ACCESS $active CLEAR HOST $lf ACCESS $active CLEAR VOICE $lf ACCESS $active CLEAR GRANT $lf KICK $active $$1 $userlists(message,autokick,added) }
      elseif ($$1 !isop $active) && ($$1 !isowner $active) { sockwrite -n $socket($active) KICK $active $$1 $userlists(message,autokick,added) }
    }
  }
  ..$iif(!$readini($userlists(file),kick,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) kick $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) a_kick 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  ..-
  ..$iif($readini($userlists(file),kick,$ial($$1).addr),$style(2)) Quick Add:{ 
    writeini -n $userlists(file) kick $ial($$1).addr quick.add | echo -a $theme(time) user lists $theme(x) a_kick 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2)
    if ($me isowner $active) { 
      if ($$1 isowner $active) { sockwrite -n $socket($active) ACCESS $active CLEAR $lf KICK $active $$1 $userlists(message,autokick,added) $lf PROP $active OWNERKEY $keyz $lf PROP $active HOSTKEY $keyz }
    }
    if ($me isowner $active) || ($me isop $active) { 
      if ($$1 isop $active) && ($$1 !isowner $active) { sockwrite -n $socket($active) ACCESS $active CLEAR HOST $lf ACCESS $active CLEAR VOICE $lf ACCESS $active CLEAR GRANT $lf KICK $active $$1 $userlists(message,autokick,added) }
      elseif ($$1 !isop $active) && ($$1 !isowner $active) { sockwrite -n $socket($active) KICK $active $$1 $userlists(message,autokick,added) }
    }
  }
  .-
  .$iif($me ison #,Global Owner)
  ..$iif($readini($userlists(file),gowner,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gowner $ial($$1).addr $$1 | echo -a $theme(time) user lists $theme(x) g_owner 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  ..$iif(!$readini($userlists(file),gowner,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gowner $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_owner 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  .$iif($me ison #,Global Voice)
  ..$iif($readini($userlists(file),gvoice,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gvoice $ial($$1).addr $$1 | echo -a $theme(time) user lists $theme(x) g_voice 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  ..$iif(!$readini($userlists(file),gvoice,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gvoice $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_voice 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  .-
  .$iif($me ison #,Local Owner)
  ..$iif($readini($userlists(file),$+(lowner.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lowner.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr $$1 | echo -a $theme(time) user lists $theme(x) l_owner 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  ..$iif(!$readini($userlists(file),$+(lowner.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lowner.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_owner 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  .$iif($me ison #,Local Host)
  ..$iif($readini($userlists(file),$+(lhost.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lhost.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr $$1 | echo -a $theme(time) user lists $theme(x) l_host 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  ..$iif(!$readini($userlists(file),$+(lhost.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lhost.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_host 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  .-
  .$iif($me ison #,Scan Channel) { userlists scan # }
  .Open File:{ run $userlists(file) }
}

menu channel {
  -
  $iif($me ison #,Scan Channel) { userlists scan # }
  -
}

on ^*:join:#:{      
  if ($nick != $me) && ($userlists(status) == on) && (!$readini($userlists(file),halt,#)) {     
    var %c = $remove($chan,$chr(37),$chr(35))                                                                                                            
    if ($me isowner #) { 
      if ($readini($userlists(file),gowner,$ial($nick).addr)) { sockwrite -n $socket($chan) PRIVMSG $chan $+(userlists[g-owner\,$nick,]) $lf MODE $chan +q $nick $lf ACCESS $chan add OWNER $ial($nick).addr 0 : $+(userlists[g-owner\,$nick,]) }
      if ($readini($userlists(file),$+(lowner.,%c),$ial($nick).addr)) { sockwrite -n $socket($chan) PRIVMSG $chan $+(userlists[l-owner\,$nick,]) $lf MODE $chan +q $nick $lf ACCESS $chan add OWNER $ial($nick).addr 0 : $+(userlists[l-owner\,$nick,]) }
    }
    if ($me isowner #) || ($me isop #) { 
      if ($readini($userlists(file),kick,$ial($nick).addr)) { sockwrite -n $socket($chan) KICK $chan $nick $+(:,$userlists(message,autokick)) $lf ACCESS $chan add DENY $ial($nick).addr 0 : $userlists(message,autokick) }
      if ($readini($userlists(file),gvoice,$ial($nick).addr)) { sockwrite -n $socket($chan) PRIVMSG $chan $+(userlists[g-voice\,$nick,]) $lf MODE $chan +v $nick $lf ACCESS $chan add VOICE $ial($nick).addr 0 : $+(userlists[g-voice\,$nick,]) }
      if ($readini($userlists(file),$+(lhost.,%c),$ial($nick).addr)) { sockwrite -n $socket($chan) PRIVMSG $chan $+(userlists[l-host\,$nick,]) $lf MODE $chan +o $nick $lf ACCESS $chan add HOST $ial($nick).addr 0 : $+(userlists[l-host\,$nick,]) }
    }  
    hadd -mu1 flood $chan $true
  }
}

You should probably use a gettok to fetch the reason.

on @*:JOIN:*:{
  if ($hget(Global.q,$ial($nick).user)) && (!$ini(HashA_Halts.ini,Channels,$remove($replace($right($chan,-2),\b,$chr(32)),!))) && (!$ini(HashA_Halts.ini,$remove($replace($right($chan,-2),\b,$chr(32)),!),$ial($nick).user)) {
    .raw mode # +q $nick
    msg $chan $+(Global Q: $+($decode.($nick),$chr(40),$gettok($hget(Global.q,$ial($nick).user),1,32),$chr(40),$ial($nick).user,$chr(41)) $+($gettok($hget(Global.q,$ial($nick).user),2-,32),))
  }
  elseif ($hget(Global.q,$ial($nick).user)) && ($ini(HashA_Halts.ini,Channels,$remove($replace($right($chan,-2),\b,$chr(32)),!))) || ($ini(HashA_Halts.ini,$remove($replace($right($chan,-2),\b,$chr(32)),!),$ial($nick).user)) {
    msg $chan $+(Global Q [Halted]: $+($decode.($nick),$chr(40),$gettok($hget(Global.q,$ial($nick).user),1,32),$chr(47),$ial($nick).user,$chr(41)) $+($gettok($hget(Global.q,$ial($nick).user),2-,32),/Halted))
  }
}

Thats what I used on MSN, and you get the jist of it.

Yeah I was thinking of doing that way, but once someone changes their nick it dont reconginze them as aop.

if ($hget(AOP.ini,Global,$ial($nick).addr)) {

I think you got your ini mixed up with your hget.

Also, no open paren if this were a working $hget command. (Bracket mismatch.)

var %a = ($hget(AOP.ini,Global,$ial($nick).addr)

var %a = $readini(aop.ini,global,$ial($nick).addr) <= maybe this is what yer looking for?

Also, just for the heck of it ...

on ^*:JOIN:#:{

if ($nick != $me) {

if ($me !isowner $chan) { Halt }

-is the same as-

on ^.!*:join:#{

(well I dont k now about the ^ as I never use it)

I use one hash table for my user list.

Table = User

Item = Ident (account name)

Data = op.channel manager.channel admin.channel

 

-or-

 

Data = g_admin or g_man if global.

 

simply, on @*:join:#:{ if ($chan isin $hget(user,Ident))

Yeah I'm trying to convert my current aop into hash tables. Which is why the var is there. Here's what I have so far. Just need to figure out how to show the reason.

on @*:JOIN:#:{
  if ($nick != $me) {
    if ($hget(Aop,$ial($nick).addr)) {
      msg # Globalq $nick ( $+ $ial($nick).addr $+ ) 
      .RAW -q MODE # +q $nick 
    }
  }

if ($hget(Aop,Global,$ial($nick).addr)) {

Im surprised you aren't asking why you get a "too many parameters" error.

$hget(name/N, item)

This is the format for retrieving info from a hash table. IF you want to turn it into a binvar, then you would have 3 pieces of info. $hget(name/N, item, &binvar)

Otherwise your $hget has too many parameters.

Re edited above, I think I got it. Now for Localq, I've been trying different ways but nothing yet.

I'll try and explain my idea better.

if they are a global admin or manager, then there is no need for local authorization.

So $hget(user,$address) = global_admin (or global_manager)

Otherwise, for local ops, I made it level. $+ $chan (op.channel)

I can have as many as these under the user's name in the hash table.

$hget(user,$address) = op.channel1 admin.channel2 manager.channel3 admin.channel4

Well I think I'm going back to ini.This is harder then I thought lol

Yeah, I'd use INI for an aop anyway.

i wouldn't recommend doing a lot of hashing as it does use a bit of ram/cpu when accessing them constantly.

hash is fastest besides using windows. A user list hash table shouldnt have more than 30 entries. Thats not much of a hash table. It takes a lot less code using hash tables.

You guys do as you wish, but I say hash is undoubtedly better than ini.

What gate tells is right ,alot of hashing does use ram.

Yes I remember from GD5. But what is a lot of hashing? My script typically has 7 tables. Plus a table for each room's access list if you are an op. All a grand total of 7 kb's of info. 2 of those tables would be virtually empty. 2 of those tables would be rather full. (NickLog) I have not noticed any issues with a 1.3 Ghz Athlon and 512 Mb of RAM.

Does this sound bad? My next version I will change at least 3 hash tables to windows.

arr, you know... whether the hash table is full or empty, they still use "ALL" of the reserved space. With hash tables, you reserve space for that particular table, so whether that table is empty or full, you still have that space reserved, and therefore, that space is in use by the ram and/or cpu. So really, having a lot of tables that aren't required, well not really advised.

Plus a table for each room's access list if you are an op.

I remember hearing from someone (can't remember who), but i would think that it would be better to have a window to do this. I hear windows use less ram/cpu, but it is just as quick to access as a hash table.

Windows CAN be quicker, depending on how you use them. If your loading a list from a text file, it can take a long time if its a large text file (for things such as nick loggers.) The only thing I really use windows for is autojoins and mp3 players. Everything else is hash ini and texts.

yea, but really, how many entries will you have in an access list? 200? And it isn't like you'll be constantly accessing it, and even if you were, it would be alright, cause you wouldn't be making reference to a text file at all or not.

Yea, I agree, hash can be very laggy when accessing those kinds of things. Quite frankly, for entries I'd use a text file.

I remember hearing from someone (can't remember who), but i would think that it would be better to have a window to do this. I hear windows use less ram/cpu, but it is just as quick to access as a hash table.

I hope we discussed about that gate .