Stuff

on 1:start: { /s dionisos.irc.gr -j #hellas,#jokes-gr | /s -m irc.dal.net -j #hellas | /s -m irc.undernet.org -j #hellas,#greece | /s -m chat.mad.gr -j #mad | /s -m nemesis.mirc.gr -j #hellas | /s -m chat.pathfinder.gr -j #pathfinder }

on 1:join:#:{ if ($nick isreg $chan) && ($fulladdress !isignore) { .timermsg1 1 3 /msg $nick geia! } }

on ^*:open:?:*:{ if ( (http isin $strip($1-)) || (kalinixta isin $strip($1-)) || (kalhnyxta isin $strip($1-)) || (ante isin $strip($1-)) || (male isin $strip($1-)) || (bye isin $strip($1-)) || (man isin $strip($1-)) || (www. isin $strip($1-)) || (auto isin $strip($1-)) || (antras isin $strip($1-)) || (antio isin $strip($1-)) || (/ isin $strip($1-)) || ($strip($1-,buc) != $1-) || ($chr(35) isin $1-) ) { .ignore -u10pntid $nick | haltdef } }

alias F2 shift -1
alias F3 shift 1
alias shift {
  ; 1: <1=left 0=same >1=right
  ;
  var %wname, %wlist, %wtype, %ccid = $cid, %cwin = $active
  var %a = 0, %aa = $scon(0), %c = 0, %cc = 0, %n = 0, %nwin = 0
  while (%a < %aa) {
    inc %a
    scon %a
    %c = 0
    %cc = $window(*,0)
    while (%c < %cc) {
      inc %c
      %wtype = $window(*,%c).type
      if ($istok(channel status chat custom fserv get send,%wtype,32)) continue
      %wname = $window(*,%c)
      inc %n
      if ((%ccid == $cid) && (%cwin == %wname)) %nwin = %n
      %wlist = $addtok(%wlist,$+($cid,.,%wname),44)
    }
    scon -r
  }
  ;
  if (%nwin == 0) {
    %nwin = $findtok(%wlist,$wildtok(%wlist,$+($cid,.*),1,44),1,44)
    %nwin = $calc(%nwin + $wildtok(%wlist,$+($cid,.*),0,44))
    if ($1 > 0) dec %nwin
  }
  if ($1 < 0) {
    dec %nwin
    if (%nwin == 0) dec %nwin
  }
  elseif ($1 > 0) {
    inc %nwin
    if (%nwin == 0) inc %nwin
  }
  %nwin = $calc(((%nwin - 1) % $numtok(%wlist,44)) + 1)
  ;
  %nwin = $gettok(%wlist,%nwin,44)
  if (%nwin != $null) scid $gettok(%nwin,1,46) window -a $+(",$gettok(%nwin,2,46),")
}

alias mm { var %a $nvnick($chan,0) | while %a { .timer 1 $calc(%a * 9) .msg $nvnick($chan,%a) $1- | dec %a } }

alias hlp { /s -m irc.dal.net -j #windows95,#linux,#linuxhelp,#html,#helpdesk | /s -m irc.undernet.org -j #computerhelp,#linux,#linuxhelp,#html,#scripting,#scripts, | /s -m irc.freenode.org -j #debian,#mepis }


alias F8 {
  scon -a toggletabs %hidden
  if (%hidden == $null) set %hidden 1
  else unset %hidden
}
alias -l toggletabs {
  var %x = window $iif($0,-w,-h), %y = 1
  %x "Status Window"
  while ($chan(%y)) {
    %x $v1
    inc %y
  }
}

on *:input:*: { 
  if ($1- == l) { say apo pou eisai? | halt }
  elseif ($1- == ;) { say poso xronwn eisai? | halt }
  elseif ($1- == kl) { say kai gw | halt }
  elseif ($1- == y) { say giati? | halt }
  elseif ($1- == n) { say nai | halt }
  elseif ($1- == k) { say me ti asxoleisai? | halt }
  elseif ($1- == t) { say theleis na mou peis ligo gia to xaraktira sou? | say i kalytera na se anakalypsw monos mou? | halt }
  elseif ($1- == d) { say gia diaskedasi pou vgaineis sunithws? | halt }
  elseif ($1- == h) { say pws pernas ton eleuthero sou xrono? | halt }
  elseif ($1- == s) { say egw paizw kithara, mousiki, cinema, athlitismos, voltes | halt }
  elseif ($1- == e) { say pws eisai emfanisiaka? | halt }
  elseif ($1- == 1) { say egw 1.87m 85k melaxrinos galazia matia | halt }
  elseif ($1- == 2) { say maresei poly i perigrafi sou! | say egw 1.87m 85k melaxrinos galazia matia | say theleis na gnwristoume kalutera? | halt }
  elseif ($1- == v) { say theleis na antallaksoume kinita na kratisoume epafi? | say to diko mou einai x | say to diko sou? | halt }
  elseif ($1- == z) { say theleis na gnwristoume kalutera? | halt }
  elseif ($1- == q) { say erxesai katholou athina? | halt }
  elseif ($1- == o) { say pws se lene? | halt }
  elseif ($1- == p) { say se poia perioxi meneis? | halt }
  elseif ($1- == a) { say athina | halt }
  elseif ($1- == u) { say esy? | halt }
  elseif ($1- == as) { say ti spoudazeis? | halt }
  elseif ($1- == x) { say trws kavli apo pisw? | halt }
  elseif ($1- == g) { say thelw na kanw mia endiaferousa gnwrimia | say theleis na dokimasoume mazi? | halt }
  elseif ($1- == m) { say sorry lathos bye | halt }
}