koma script

on 1:load:{
  echo -a 4Votre Script a été ajouté avec succes.
  echo -a 4KoMa`Script V1.03 by KoMa
}
on 1:unload:{
  echo -a 4Votre Script a été supprimé.
  echo -a 4KoMa`Script V1.03 by KoMa
  unset %msgaccueil?
  unset %cmd?
  unset %msgcmd?
  unset %channelcmd
  unset %checkaccueil
}

menu channel {
  .-
  KoMa`ScripT :/dialog -m KoMa KoMa
}

Alias KoMa { dialog -m KoMa KoMa }

 dialog KoMa {
  title "KoMa`Script V1.03"
  size -1 -1 302 128
  option dbu
  tab "Messages d'accueil", 1, 0 0 301 127
  text "1er message d'accueil :", 2, 6 22 62 9, tab 1
  text "2eme message d'accueil :", 3, 6 36 62 9, tab 1
  text "3eme message d'accueil :", 4, 6 50 62 9, tab 1
  text "4eme message d'accueil :", 5, 6 64 62 9, tab 1
  text "5eme message d'accueil :", 6, 6 78 62 9, tab 1
  edit "", 7, 70 21 227 10, tab 1
  edit "", 8, 70 35 227 10, tab 1
  edit "", 9, 70 49 227 10, tab 1
  edit "", 10, 70 63 227 10, tab 1
  edit "", 11, 70 77 227 10, tab 1
  check "Activer les messages d'accueil", 12, 10 97 86 10, tab 1
  button "Valider", 13, 253 115 40 10, ok
  text "Entrer le channel où les messages d'accueil et commandes s'executeront :", 15, 6 117 179 8
  edit "", 16, 185 115 64 10
  tab "Commandes", 18
  text "1er cmd :", 19, 6 19 24 9, tab 18
  text "2eme cmd :", 20, 6 33 28 9, tab 18
  text "3eme cmd :", 21, 6 47 28 9, tab 18
  text "4eme cmd :", 22, 6 61 28 9, tab 18
  text "5eme cmd :", 23, 6 75 28 9, tab 18
  text "6eme cmd :", 24, 6 89 28 9, tab 18
  text "7eme cmd :", 25, 6 103 28 9, tab 18
  edit "", 26, 36 18 47 10, tab 18
  edit "", 27, 36 32 47 10, tab 18
  edit "", 28, 36 46 47 10, tab 18
  edit "", 29, 36 60 47 10, tab 18
  edit "", 30, 36 74 47 10, tab 18
  edit "", 31, 36 88 47 10, tab 18
  edit "", 32, 36 102 47 10, tab 18
  text "Text :", 33, 86 19 16 8, tab 18
  text "Text :", 34, 86 33 16 8, tab 18
  text "Text :", 35, 86 47 16 8, tab 18
  text "Text :", 36, 86 61 16 8, tab 18
  text "Text :", 37, 86 75 16 8, tab 18
  text "Text :", 38, 86 89 16 8, tab 18
  text "Text :", 39, 86 103 16 8, tab 18
  edit "", 40, 104 18 194 10, tab 18
  edit "", 41, 104 32 194 10, tab 18
  edit "", 42, 104 46 194 10, tab 18
  edit "", 43, 104 60 194 10, tab 18
  edit "", 44, 104 74 194 10, tab 18
  edit "", 45, 104 88 194 10, tab 18
  edit "", 46, 104 102 194 10, tab 18
}

on *:dialog:KoMa:*:*:{
  if ($devent == init) {
    if (%checkaccueil) { did -c KoMa 12 | did -n KoMa 7,8,9,10,11 }
      else { did -m KoMa 7,8,9,10,11 }
      var %i = 1
      while %i <= 5 { did -a KoMa $calc(%i + 6) [ %msgaccueil [ $+ [ %i ] ] ] | inc %i }
      did -a KoMa 16 %channelcmd
      var %i = 1
      while %i <= 7 { did -a KoMa $calc(%i + 25) [ %cmd [ $+ [ %i ] ] ] | did -a KoMa $calc(%i + 39) [ %msgcmd [ $+ [ %i ] ] ] | inc %i }
  }
  elseif ($devent == sclick) {
    if ( $did == 13 ) {
      var %i = 1
      while %i <= 5 { set [ %msgaccueil [ $+ [ %i ] ] ] $did($calc(%i + 6)) | inc %i }
      set %channelcmd $did(16)
      var %i = 1
      while %i <= 7 { set [ %cmd [ $+ [ %i ] ] ] $did($calc(%i + 25)) | set [ %msgcmd [ $+ [ %i ] ] ] $did($calc(%i + 39)) | inc %i }
    }

    if ( $did == 12 ) {
      if ($did(12).state) { did -n KoMa 7,8,9,10,11 | set %checkaccueil 1 | echo -a 7¤¤ 4Messages d'accueil 10activés }
      else { did -m KoMa 7,8,9,10,11 | set %checkaccueil 0 | echo -a 7¤¤ 4Messages d'accueil 10déactivés }
    }
  }
}

on 1:join:%channelcmd:{
  if (%checkaccueil) {
    var %j = 1
    while %j <= 5 {
      if (%msgaccueil [ $+ [ %j ] ]) .notice $nick $v1
      inc %j
    }
  }
}

ON *:TEXT:*:%channelcmd:{
  var %i = 1
  while %i <= 7 {
    if ((%cmd [ $+ [ %i ] ] == $1) && (%msgcmd [ $+ [ %i ] ])) {
      .notice $nick $v1
      break
    }
    inc %i
  }
}