mouchard

Menu menubar {
  mouchard:mouchard
}
alias mouchard dialog -m sentc sentc

dialog sentc {
  title "Mouchard Par Nortidane"
  size -1 -1 580 360
  text "Veillez mettre les pseudos à espionner dans les cases ci-dessous  ." ,1,10 10 450 40,style(left)
  box "Please fill in your sentences: ",50,10 53 530 275,style
  text "Sentence 1:",2,20 70 65 20,style(left)
  combo 3,85 70 445 20,style(edit)
  text "Sentence 2:",4,20 95 65 20,style(left)
  combo 5,85 95 445 20,style(edit)
  text "Sentence 3:",6,20 120 65 20,style(left)
  combo 7,85 120 445 20,style(edit)
  text "Sentence 4:",8,20 145 65 20,style(left)
  combo 9,85 145 445 20,style(edit)
  text "Sentence 5:",10,20 170 65 20,style(left)
  combo 11,85 170 445 20,style(edit)
  text "Sentence 6:",12,20 195 65 20,style(left)
  combo 13,85 195 445 20,style(edit)
  text "Sentence 7:",14,20 220 65 20,style(left)
  combo 15,85 220 445 20,style(edit)
  text "Sentence 8:",16,20 245 65 20,style(left)
  combo 17,85 245 445 20,style(edit)
  text "Sentence 9:",18,20 270 65 20,style(left)
  combo 19,85 270 445 20,style(edit)
  text "Sentence 10:",20,20 295 65 20,style(left)
  combo 21,85 295 445 20,style(edit)
  button "Clear all",82,310 335 70 20,style(edit)
  button "Save",80,390 335 70 20,style(ok)
  button "Cancel",81,470 335 70 20,style(cancel)
}
on *:dialog:sentc:init:*:{
  if (%spy1 == NotSet) did -ci sentc 3 1 Tapez le pseudo concerné
  if (%spy2 == NotSet) did -ci sentc 5 1 Tapez le pseudo concerné
  if (%spy3 == NotSet) did -ci sentc 7 1 Tapez le pseudo concerné
  if (%spy4 == NotSet) did -ci sentc 9 1 Tapez le pseudo concerné
  if (%spy5 == NotSet) did -ci sentc 11 1 Tapez le pseudo concerné
  if (%spy6 == NotSet) did -ci sentc 13 1 Tapez le pseudo concerné
  if (%spy7 == NotSet) did -ci sentc 15 1 Tapez le pseudo concerné
  if (%spy8 == NotSet) did -ci sentc 17 1 Tapez le pseudo concerné
  if (%spy9 == NotSet) did -ci sentc 19 1 Tapez le pseudo concerné
  if (%spy10 == NotSet) did -ci sentc 21 1 Tapez le pseudo concerné
  if (%spy1 != NotSet) did -ci sentc 3 1 %spy1
  if (%spy2 != NotSet) did -ci sentc 5 1 %spy2
  if (%spy3 != NotSet) did -ci sentc 7 1 %spy3
  if (%spy4 != NotSet) did -ci sentc 9 1 %spy4
  if (%spy5 != NotSet) did -ci sentc 11 1 %spy5
  if (%spy6 != NotSet) did -ci sentc 13 1 %spy6
  if (%spy7 != NotSet) did -ci sentc 15 1 %spy7
  if (%spy8 != NotSet) did -ci sentc 17 1 %spy8
  if (%spy9 != NotSet) did -ci sentc 19 1 %spy9
  if (%spy10 != NotSet) did -ci sentc 21 1 %spy10
  did -t sentc 80 1
}
on *:dialog:sentc:sclick:80:{
  if ($did(sentc,3).text != Tapez le pseudo concerné) set %spy1 $did(sentc,3).text
  if ($did(sentc,5).text != Tapez le pseudo concerné) set %spy2 $did(sentc,5).text
  if ($did(sentc,7).text != Tapez le pseudo concerné) set %spy3 $did(sentc,7).text
  if ($did(sentc,9).text != Tapez le pseudo concerné) set %spy4 $did(sentc,9).text
  if ($did(sentc,11).text != Tapez le pseudo concerné) set %spy5 $did(sentc,11).text
  if ($did(sentc,13).text != Tapez le pseudo concerné) set %spy6 $did(sentc,13).text
  if ($did(sentc,15).text != Tapez le pseudo concerné) set %spy7 $did(sentc,15).text
  if ($did(sentc,17).text != Tapez le pseudo concerné) set %spy8 $did(sentc,17).text
  if ($did(sentc,19).text != Tapez le pseudo concerné) set %spy9 $did(sentc,19).text
  if ($did(sentc,20).text != Tapez le pseudo concerné) set %spy10 $did(sentc,21).text
  if ($did(sentc,3).text == Tapez le pseudo concerné) set %spy1 NotSet
  if ($did(sentc,5).text == Tapez le pseudo concerné) set %spy2 NotSet
  if ($did(sentc,7).text == Tapez le pseudo concerné) set %spy3 NotSet
  if ($did(sentc,9).text == Tapez le pseudo concerné) set %spy4 NotSet
  if ($did(sentc,11).text == Tapez le pseudo concerné) set %spy5 NotSet
  if ($did(sentc,13).text == Tapez le pseudo concerné) set %spy6 NotSet
  if ($did(sentc,15).text == Tapez le pseudo concerné) set %spy7 NotSet
  if ($did(sentc,17).text == Tapez le pseudo concerné) set %spy8 NotSet
  if ($did(sentc,19).text == Tapez le pseudo concerné) set %spy9 NotSet
  if ($did(sentc,21).text == Tapez le pseudo concerné) set %spy10 NotSet
}
on *:dialog:sentc:sclick:79:userinfo
on *:dialog:sentc:sclick:82:{
  set %spy1 NotSet
  set %spy2 NotSet
  set %spy3 NotSet
  set %spy4 NotSet
  set %spy5 NotSet
  set %spy6 NotSet
  set %spy7 NotSet
  set %spy8 NotSet
  set %spy9 NotSet
  set %spy10 NotSet
  did -ci sentc 3 1 Tapez le pseudo concerné
  did -ci sentc 5 1 Tapez le pseudo concerné
  did -ci sentc 7 1 Tapez le pseudo concerné
  did -ci sentc 9 1 Tapez le pseudo concerné
  did -ci sentc 11 1 Tapez le pseudo concerné
  did -ci sentc 13 1 Tapez le pseudo concerné
  did -ci sentc 15 1 Tapez le pseudo concerné
  did -ci sentc 17 1 Tapez le pseudo concerné
  did -ci sentc 19 1 Tapez le pseudo concerné
  did -ci sentc 21 1 Tapez le pseudo concerné
}

on *:text:*:#:{
  if ( %spy1 isin $nick) || ( %spy2 isin $nick) || ( %spy3 isin $nick) || ( %spy4 isin $nick) || ( %spy5 isin $nick) || ( %spy6 isin $nick) || ( %spy7 isin $nick) || ( %spy8 isin $nick) || ( %spy9 isin $nick) || ( %spy10 isin $nick)  {
    if ($window(@Mouchard)) {
      aline -ph @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
    }
    elseif (!$window(@Mouchard)) {
      window -mk0ne @Mouchard
      aline -ph 4 @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
    }
  }
}