All pastes #837111 Raw Edit

Unnamed

public text v1 · immutable
#837111 ·published 2007-12-29 09:22 UTC
rendered paste body
on !*:text:*:#:{
  if (%saysub) && ($nick !isreg #) && (*sub*Is*Needed* iswm $1-) { set %channs # | .timer -m 1 1  joinsub }
  if (%saygtr) && ($nick !isreg #) && ((*gather*has*been*started* iswm $1-) || (*the*gather*is*currently*on* iswm $1-)) .timerbz 1 5 halt
  if ((*!sub* iswm $1-) || (*@sub* iswm $1-) || (*-sub* iswm $1-)) { set %lol2 $gettok($V1,1,43) }
  if ($timer(bz)) && ((*!add* iswm $1-) || (*@add* iswm $1-) || (*-add* iswm $1-)) {
    set %chann $chan
    .timer -m 1 1 joingtr $chan $3
  }
}
on !*:notice:*:#:{
  if (%saygtr) && ($nick !isreg #) && ((*gather*has*been*started* iswm $1-) || (*the*gather*is*currently*on* iswm $1-)) .timerbz 1 5 halt
}
alias checkplosm {
  if (*m* iswm $chan(%chann).mode) { return }
  else { .timer -m 1 400 msg %chann %lol | .timer -m 1 1000 msg %chann %lol | .timer -m 1 1600 msg %chann %lol | .timercheckplosm off | unset %lol , %chann , %gtr , %saygtr }
}
alias both {
  echo -ta 12- Seems you're afk, the script is now automaticly off.
  unset %lol , %chann , %gtr , %saygtr
}
alias joinsub {
  set %dss $iif($$?*!="Do you want to join the gather at $eval(%channs,5) as sub?" == $true,y,n)
  if (%dss == y) { msg %channs $gettok(%lol2,1,42) | msg %channs $gettok(%lol2,1,42) | unset %channs | unset %dss | unset %saySUB | unset %lol2 }
}
alias joingtr {
  set %ds $iif($$?*!="Gather has been started at $eval(%chann,5) Do you want to join the Gather? y/n" == $true,y,n)
  set %gtr work 
  set %chann $1
  set %lol $2
  if (%gtr == work) && ((%lol == !add) || (%lol == @add) || (%lol == -add)) && (y == %ds) { 
    echo -ta 12Ok, you are now joining the Gather at %chann
    .timeroff off
    .timercheckplosm 0 1 checkplosm
  }
  elseif (%gtr == work) && (n == %ds) {
    var %asd $iif($$?*!="Do you want it will still search Gather?" == $true,y,n)
    if (%asd == n) { unset %gtr | echo -a 12Ok. the script is now off. }
    if (%asd == y) { echo -a 12the script is still on and he's searching for other Gather }
    .timeroff off
  }
  if (%gtr1 == work) && (n == %ds) echo -ta 12Ok, the script is now off.
}
menu channel,query { 
  -
  .Set Gather Searching $iif(%saygtr,OFF,ON):{ if (%saygtr)  { echo 12- The script of the "Gather Searching" is 4OFF12.  | unset %saygtr | halt } | echo 12- The script of the "Gather Searching" is 3ON12.  | set %saygtr 1 }
  .Set Sub Searching $iif(%saySUB,OFF,ON):{ if (%saySUB)  { echo 12- The script of the "Sub Searching" is 4OFF12.  | unset %saysub | halt } | echo 12- The script of the "Sub Searching" is 3ON12.  | set %saySUB 1 }  
  -
}