hi,

i have create a service script, but there seems to be a problem, because it doesnt work, here the code:

Code:
 
on *:LOAD:{
  set %queuesystemchannel $$?="#DeinChannel"
}
on *:EXIT:{
  unset %queuesystem.*
}

on *:JOIN:%queuesystemchannel:{
  if ($nick != $me) && (%queuesystem = ON) {
    .notice $nick 4QUEUE-SYSTEM ON ~ WAIT TO GET VOICED
    inc %queuesystem.total
    set %queuesystem. [ $+ [ %queuesystem.total ] ] $nick
  }
}
on *:TEXT:*:%queuesystemchannel:{
  if ($nick isop $chan) {
    if ($1 == !queue) {
      if ($2 == on) { unset %queuesystem.* | set %queuesystem ON | mode $chan +m-c | .msg $chan 4QUEUE-SYSTEM TURNED ON ~ DON'T QUERY OPS ~ WAIT TO GET VOICE }
      elseif ($2 == off) { unset %queuesystem.* | set %queuesystem OFF | mode $chan -m | mode $chan +b-b * * | .msg $chan 4QUEUE-SYSTEM TURNED OFF }
      else { .msg $chan 4QUEUE-SYSTEM IS ATM %queuesystem $+  }
    }
    if ($1 == !next) {
      if (%queuesystem.user ison $chan) {
        mode $chan -v %queuesystem.user
        .timer 1 300 /queuesystemkb %queuesystem.user
      }
      unset %queuesystem. [ $+ [ %queuesystem.reg ] ]
      set %queuesystem.reg 1
      while (%queuesystem.reg <= %queuesystem.total) {
        if (%queuesystem. [ $+ [ %queuesystem.reg ] ] ison $chan) {
          set %queuesystem.user %queuesystem. [ $+ [ %queuesystem.reg ] ]
          .msg $chan 4 $+ %queuesystem. [ $+ [ %queuesystem.reg ] ] $+ , please ask your question ~ You will be helped by $nick $+ 
          mode $chan +v %queuesystem. [ $+ [ %queuesystem.reg ] ]
          halt
        }
        inc %queuesystem.reg
      }
    }
  }
}
alias queuesystemkb {
  if ($1 ison %queuesystemchannel) && ($1 !isop %queuesystemchannel) { 
    ban -u300 %queuesystemchannel $1 3
    kick %queuesystemchannel $1 4DON'T IDLE IN %queuesystemchannel ~ BANNED FOR 5 MINS
  }
}



can everybody help me?

Last edited by davi; 15/05/05 10:09 AM.