PETIT SYSTEM D'AWAY

***By TonBiZ et SpOoFy***
dialog away {
  title "away Par ToNbiZ eT SpOoFy"
  size -1 -1 500 450 
  button " [ScRyPtInG] ", 1, 100 80 80 50
  button " [aWaY] ", 2, 180 20 130 50
  button " [MaIl] ", 3, 310 80 80 50
  button " [DoDo] ", 4, 60 140 80 50
  button " partir ", 5, 205 160 80 50
  button " [MaNgE] ", 6, 350 140 80 50
  button " [OqP] ", 7, 30 200 80 50
  edit "",8 , 180 215 130 20 ,center
  button " [OuT] ", 9, 390 200 80 50
  button " [devoir] ", 10, 60 260 80 50
  button " revenir ", 11, 205 240 80 50
  button " [travail] ", 12, 350 260 80 50
  button " [lycee] ", 13, 100 320 80 50
  button " [ToIlLeTtE] ", 14, 180 380 130 50
  button " [Pa`La] ", 15, 310 320 80 50
  button "fermer", 16,  1 1 50 30,cancel
  button "fermer", 17,  449 1 50 30
  button "fermer", 18,  1 419 50 30
  button "fermer", 19,  449 419 50 30
}
on 1:dialog:away:sclick:*:{
  if ($did == 1) {
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [ScRyPtInG] | /did -b away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [ScRyPtInG] | /did -b away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 2) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [aWaY] | /did -e away 1 | /did -b away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [aWaY] | /did -e away 1 | /did -b away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 3) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [MaIl] | /did -e away 1 | /did -e away 2 | /did -b away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [MaIl] | /did -e away 1 | /did -e away 2 | /did -b away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 4) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [DoDo] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -b away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [DoDo] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -b away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 5) { 
    if ($did(away,8) != autre pseudo) { /nick $did(away,8) | set %away on } 
    if (%away == off) && ($did(away,8) != autre pseudo) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $did(away,8) | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick $did(away,8) | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 6) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [MaNgE] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -b away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [MaNgE] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -b away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 7) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [OqP] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -b away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [OqP] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -b away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 9) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [OuT] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -b away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [OuT] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -b away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 10) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [devoir] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -b away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [devoir] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -b away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 11) { 
    if (%away == on) { /nick %nickavant 
    set %away off | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10  | /did -b away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 12) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [travail] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -b away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [travail] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -b away 12 | /did -e away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 13) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [lycee] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -b away 13 | /did -e away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [lycee] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -b away 13 | /did -e away 14 | /did -e away 15 }
  }
  if ($did == 14) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [ToIlLeTtE] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -b away 14 | /did -e away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [ToIlLeTtE] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -b away 14 | /did -e away 15 }
  }
  if ($did == 15) { 
    if (%away == off) { /did -e away 11 | /set %away on | /set %nickavant $me }
    if ($me ==  %nickavant) { /nick $me $+ [Pa`La] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -b away 15 }
    if ($me !=  %nickavant) { /nick %nickavant $+ [Pa`La] | /did -e away 1 | /did -e away 2 | /did -e away 3 | /did -e away 4 |  /did -e away 6 |  /did -e away 7 |  /did -e away 9 | /did -e away 10 | /did -e away 11 | /did -e away 12 | /did -e away 13 | /did -e away 14 | /did -b away 15 }
  }
  if ($did == 17) { 
    dialog -c away away
  }
  if ($did == 18) { 
    dialog -c away away
  }
  if ($did == 19) {
    dialog -c away away
  }
}
on *:dialog:away:init:*:{
  did -a away 8 autre pseudo
  if (%away == off) { did -b away 11 }
}
on 1:TEXT:*:?: {
  if ( %away == On ) { notice $nick je suis absent :o( | halt }
}
on ^*:TEXT:*:#: {
  if ($me isin $1-) {
    if ( %away == On ) { notice $nick je suis absent :o( }
    else { halt }
  }
}
on *:disconnect: {
if (%away == on) {
/set %away off
/nick %nickavant
}
}
menu menubar {
¤> mode away <¤:/dialog -m away away 
}
on *:load: {
/set %away off
}