Raw mirc script

Description

Comme dab :) je n'arrive pas a finir ce que je commence mais je fait au moin 80% du travail
voila un script qui réagi au Raw :)
c assé simple pour le finir
et comme j'aime pas les chose redondante j'ai pas fait tout les raw mais ils sont tous rescencer
lorqu'un raw n'est pas supporter un message d'erreur s'affiche et a vous de faire votre propre config

Source / Exemple :


voila a quoi ressemble le montre ce serai cool si quelqu'un voulai le finir :) bien que je me suis taper casiment tout le 
travail .. en tout les cas boncoura 

;oRaw1_Raw-0.0.0.mrc
;------------------------------------------------------->

;RAW BETA 0.1
;par Syn- 2005/2006

;-----------------;
;DEBUT
;-----------------;
;<-< 000 à 200 >->;
;-----------------;
raw 001:*: {
  var %th.txt = $Th.texte(raw001,$2-)
  var %th.txt = $replace(%th.txt,<server>,$5,<host>,$8)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 002:*: {  
  var %th.txt = $Th.texte(raw002,$2-)
  var %th.txt = $replace(%th.txt,<servername>,$5,<serverversion>,$8)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 003:*: { 
  var %th.txt = $Th.texte(raw003,$2-)
  var %th.txt = $replace(%th.txt,<date>,$6-$9,<time>,$11-)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 004:*: {
  var %th.txt = $Th.texte(raw004,$4-)
  var %th.txt = $replace(%th.txt,<servername>,$2,<serverversion>,$3)
  echo -s %th.txt
  echo -s 4---
  haltdef
}

;-----------------;
raw 005:*: { 

  var %th.txt = $Th.texte(raw005,$1-)
  echo -s %th.txt

  haltdef
}
;-----------------;
raw 006:*: { echo 5 :non implémenter

}
;-----------------;
raw 007:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 008:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;<-< 200 à 300 >->;
;-----------------;
raw 200:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 201:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 202:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 203:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 204:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 205:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 206:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 207:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 208:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 211:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 212:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 213:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 214:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 215:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 216:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 217:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 218:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 219:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 221:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 222:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 223:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 224:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 231:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 232:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 235:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 241:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 242:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 243:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 244:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 247:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 248:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 249:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 250:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 251:*: {
  set %th.txt  $Th.texte(raw251,$1-)
  var %th.txt = $replace(%th.txt,<nombre_user>,$4,<nombre_invisible>,$7,<nombre_servers>,$10)
  echo -s 4---
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 252:*: { 
  set %th.txt  $Th.texte(raw252,$1-)
  var %th.txt = $replace(%th.txt,<nombre_user>,$2)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 253:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 254:*: {

  set %th.txt  $Th.texte(raw254,$1-)
  var %th.txt = $replace(%th.txt,<nombrechannel>,$2)
  echo -s %th.txt
  haltdef

}
;-----------------;
raw 255:*: {

  set %th.txt  $Th.texte(raw255,$1-)
  var %th.txt = $replace(%th.txt,<nombre_clients>,$4,<server>,$7)
  echo -s %th.txt
  haltdef

}
;-----------------;
raw 256:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 257:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 258:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 259:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 261:*: { echo 5 :non implémenter : $numeric : $1-  

}
;-----------------;
raw 262:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 263:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 265:*: { 
  set %th.txt  $Th.texte(raw265,$1-)
  var %th.txt = $replace(%th.txt,<localuser>,$5,<MAX>,$7)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 266:*: { 
  set %th.txt  $Th.texte(raw266,$1-)
  var %th.txt = $replace(%th.txt,<globaluser>,$5,<MAX>,$7)
  echo -s %th.txt
  haltdef

}
;-----------------;
raw 271:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 272:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 280:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 281:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 290:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 291:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 292:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 293:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 294:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 295:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 298:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;<-< 300 à 401 >->;
;-----------------;
raw 300:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 301:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 302:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 303:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 305:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 306:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 307:*: {
  var %th.txt = $Th.texte(raw307,$3-)
  var %ts4_000 = is a registered nick
  if ( %ts4_000 isin $4 ) {
    var %th.txt = $replace(%th.txt,<nick>,$2,<msg>,ce nickname(pseudo) est enregistrer)
  }
  else {
    var %th.txt = $replace(%th.txt,<nick>,$2)
  }
  echo %T_chan %th.txt
  haltdef
}
;-----------------;
raw 308:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 309:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 310:*: {  
  var %th.txt = $Th.texte(raw310,$3-)
  var %th.txt = $replace(%th.txt,<nick>,$2)
  .th.echotxt %T_chan %th.txt
  haltdef
}

;-----------------;
raw 311:*: {
  var %th.txt = $Th.texte(raw311,$2-)

  ; Nick
  var %th.txt = $replace(%th.txt, <nick>, $2)

  if ($2 != $null) {
    var %th.txt = $replace(%th.txt, <!nick>, $2)
  }
  else {
    var %th.txt = $replace(%th.txt, <!nick>, <deleteline>)
  }

  ; Userhost
  var %th.txt = $replace(%th.txt, <userhost>, $4)

  if ($4 != $null) {
    var %th.txt = $replace(%th.txt, <!userhost>, $4)
  }
  else {
    var %th.txt = $replace(%th.txt, <!userhost>, <deleteline>)
  }  

  .th.echotxt %T_chan %th.txt 

  haltdef
}
;-----------------;
raw 312:*: {
  var %th.txt = $Th.texte(raw312,$2-)

  ; Nick
  var %th.txt = $replace(%th.txt, <nick>, $2)

  if ($2 != $null) {
    var %th.txt = $replace(%th.txt, <!nick>, $2)
  }
  else {
    var %th.txt = $replace(%th.txt, <!nick>, <deleteline>)
  }

  ; Server
  var %th.txt = $replace(%th.txt, <server>, $3)

  if ($3 != $null) {
    var %th.txt = $replace(%th.txt, <!server>, $3)
  }
  else {
    var %th.txt = $replace(%th.txt, <!server>, <deleteline>)
  }  

  ; Server
  var %th.txt = $replace(%th.txt, <network>, $4)

  if ($4 != $null) {
    var %th.txt = $replace(%th.txt, <!network>, $4)
  }
  else {
    var %th.txt = $replace(%th.txt, <!network>, <deleteline>)
  }  

  .th.echotxt %T_chan %th.txt 

  haltdef
}
;-----------------;
raw 313:*: {
  var %th.txt = $Th.texte(raw313,$3-)
  var %th.txt = $replace(%th.txt,<nick>,$2)
  .th.echotxt %T_chan %th.txt
  haltdef
}

;-----------------;
raw 314:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 315:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 317:*: {
  var %th.txt = $Th.texte(raw317,$2-)

  ; Nick
  var %th.txt = $replace(%th.txt, <nick>, $2)

  if ($2 != $null) {
    var %th.txt = $replace(%th.txt, <!nick>, $2)
  }
  else {
    var %th.txt = $replace(%th.txt, <!nick>, <deleteline>)
  }

  ; Idle time
  var %th.txt = $replace(%th.txt, <idletime>, $3)

  if ($3 != $null) {
    var %th.txt = $replace(%th.txt, <!idletime>, $3)
  }
  else {
    var %th.txt = $replace(%th.txt, <!idletime>, <deleteline>)
  }  

  ; Logon time
  var %th.txt = $replace(%th.txt, <logontime>, $asctime($4))

  if ($4 != $null) {
    var %th.txt = $replace(%th.txt, <!logontime>, $asctime($4))
  }
  else {
    var %th.txt = $replace(%th.txt, <!logontime>, <deleteline>)
  }  

  .th.echotxt %T_chan %th.txt 

  haltdef
}
;-----------------;
raw 318:*: {
  var %th.txt = $Th.texte(raw318,$2-)

  ; Nick
  var %th.txt = $replace(%th.txt, <nick>, $2)

  if ($2 != $null) {
    var %th.txt = $replace(%th.txt, <!nick>, $2)
  }
  else {
    var %th.txt = $replace(%th.txt, <!nick>, <deleteline>)
  } 

  .th.echotxt %T_chan %th.txt 

  haltdef
}
;-----------------;
raw 319:*: {
  var %th.txt = $Th.texte(raw319,$2-)

  ; Nick
  var %th.txt = $replace(%th.txt, <nick>, $2)

  if ($2 != $null) {
    var %th.txt = $replace(%th.txt, <!nick>, $2)
  }
  else {
    var %th.txt = $replace(%th.txt, <!nick>, <deleteline>)
  }

  ; Chans
  var %th.txt = $replace(%th.txt, <chans>, $3-)

  if ($3 != $null) {
    var %th.txt = $replace(%th.txt, <!chans>, $3-)
  }
  else {
    var %th.txt = $replace(%th.txt, <!chans>, <deleteline>)
  }  

  .th.echotxt %T_chan %th.txt 

  haltdef
}
;-----------------;
raw 320:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 321:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 322:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 323:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 324:*: {
  var %th.txt = $Th.texte(raw324,$2-)
  var %th.txt = $replace(%th.txt, <modes>, $3-)

  if ($3 != $null) {
    var %th.txt = $replace(%th.txt, <!modes>, $3-)
  }
  else {
    var %th.txt = $replace(%th.txt, <!modes>, <deleteline>)
  }

  .th.echotxt %T_chan2 %th.txt 
  haltdef
}
;-----------------;
raw 328:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 329:*: { 
  var %th.txt = $Th.texte(raw329,$2-)
  var %th.txt = $replace(%th.txt, <creationdate>, $asctime($3))

  ;  xxl $3 %th.txt  <!creationdate> $asctime($3)

  ; if ($3 != $null) {
  ;   var %th.txt = $replace(%th.txt, <!creationdate>, $asctime($3))
  ; }
  ; else {
  ;   var %th.txt = $replace(%th.txt, <!creationdate>, <deleteline>)
  ;}
  set %T_chat $2
  .th.echotxt $2 $xxl($3,%th.txt,<!creationdate>,$asctime($3)) 

  haltdef
}
;-----------------;
raw 330:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 331:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 332:*: {
  var %th.txt = $Th.texte(raw332,$3-)
  var %th.txt = $replace(%th.txt,<chan>,$2)
  echo $2 %th.txt
  haltdef
}
;-----------------;
raw 333:*: {
  var %th.txt = $Th.texte(raw333,$2-)
  var %th.txt = $replace(%th.txt,<nick>,$3,<info>,$asctime($4,dd/mm/yy))
  echo $2 %th.txt
  echo $2 ---
  haltdef
}
;-----------------;
raw 335:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 338:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 341:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 342:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 351:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 352:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 353:*: { 
  var %th.txt = $Th.texte(raw353, $2-)
  var %th.txt = $replace(%th.txt,<chan>,$3,<nicks>,$4-)

  ; Formattage nick operateurs
  if ($pos(%th.txt, <onicks>, 0) > 0) || ($pos(%th.txt, <!onicks>, 0) > 0) {
    var %nbnicks = $numtok($4-, 32)
    var %opnicks = $null
    var %i = 1

    while (%i <= %nbnicks) {
      var %nick = $gettok($4-, %i, 32)
      if ($left(%nick, 1) == @) {
        var %opnicks = %opnicks %nick
      }
      var %i = %i + 1
    }
    var %th.txt = $replace(%th.txt, <onicks>, %opnicks)

    ;if (%opnicks != $null) {
    ;  var %th.txt = $replace(%th.txt, <!onicks>, %opnicks)
    ;}
    ;else {
    ;  var %th.txt = $replace(%th.txt, <!onicks>, <deleteline>)      
    ;}

    var %th.txt = $xxl(%opnicks,%th.txt,<!onicks>,%opnicks)
  }
  ; Formattage nick halfop
  if ($pos(%th.txt, <hnicks>, 0) > 0) || ($pos(%th.txt, <!hnicks>, 0) > 0) {
    var %nbnicks = $numtok($4-, 32)
    var %hnicks = $null
    var %i = 1

    while (%i <= %nbnicks) {
      var %nick = $gettok($4-, %i, 32)
      if ($left(%nick, 1) == %) {
        var %hnicks = %hnicks %nick
      }
      var %i = %i + 1
    } 
    var %th.txt = $replace(%th.txt, <hnicks>, %hnicks)

    ;if (%hnicks != $null) {
    ;  var %th.txt = $replace(%th.txt, <!hnicks>, %hnicks)      
    ;}
    ;else {
    ;  var %th.txt = $replace(%th.txt, <!hnicks>, <deleteline>)      
    ;}

    var %th.txt = $xxl(%hnicks,%th.txt,<!hnicks>,%hnicks)
  }

  ; Formattage nick voices
  if ($pos(%th.txt, <vnicks>, 0) > 0) || ($pos(%th.txt, <!vnicks>, 0) > 0) {
    var %nbnicks = $numtok($4-, 32)
    var %vnicks = $null
    var %i = 1

    while (%i <= %nbnicks) {
      var %nick = $gettok($4-, %i, 32)
      if ($left(%nick, 1) == +) {
        var %vnicks = %vnicks %nick
      }
      var %i = %i + 1
    } 
    var %th.txt = $replace(%th.txt, <vnicks>, %vnicks)

    ;if (%vnicks != $null) {
    ;  var %th.txt = $replace(%th.txt, <!vnicks>, %vnicks)
    ;}
    ;else {
    ;  var %th.txt = $replace(%th.txt, <!vnicks>, <deleteline>)      
    ;}

    var %th.txt = $xxl(%vnicks,%th.txt,<!vnicks>,%vnicks)

  }
  ; Formattage nick regular
  if ($pos(%th.txt, <rnicks>, 0) > 0) || ($pos(%th.txt, <!rnicks>, 0) > 0) {
    var %nbnicks = $numtok($4-, 32)
    var %rnicks = $null
    var %i = 1

    while (%i <= %nbnicks) {
      var %nick = $gettok($4-, %i, 32)
      if ($left(%nick, 1) != @) && ($left(%nick, 1) != %) && ($left(%nick, 1) != +) {
        var %rnicks = %rnicks %nick
      }
      var %i = %i + 1
    } 
    var %th.txt = $replace(%th.txt, <rnicks>, %rnicks)

    ;if (%rnicks != $null) {
    ;  var %th.txt = $replace(%th.txt, <!rnicks>, %rnicks)
    ;}
    ;else {
    ;  var %th.txt = $replace(%th.txt, <!rnicks>, <deleteline>)      
    ;}

    var %th.txt = $xxl(%rnicks,%th.txt,<!rnicks>,%rnicks)
  }
  set %T_chan2 $3
  .th.echotxt $3 %th.txt
  haltdef
}
;-----------------;
raw 354:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 361:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 362:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 364:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 365:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 366:*: {
  var %th.txt = $Th.texte(raw366,$2-)
  .th.echotxt -s %th.txt 
  haltdef
}
;-----------------;
raw 367:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 368:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 369:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 371:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 372:*: {
  var %th.txt = $Th.texte(raw372,$2-)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 373:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 374:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 375:*: {
  var %th.txt = $Th.texte(raw375,$2-)
  echo  -s %th.txt
  echo  -s 4-0-4-
  haltdef
}
;-----------------;
raw 376:*: { 
  var  %th.txt = $Th.texte(raw376,$2-)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 377:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 378:*: {
  set %th.txt  $Th.texte(raw378,$3-)
  var %th.txt = $replace(%th.txt,<nick>,$2,is connecting from,)
  echo %T_chan %th.txt
  haltdef
}
;-----------------;
raw 379:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 381:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 382:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 384:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 391:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 392:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 384:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 391:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 392:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 393:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 394:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 395:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;<-< 401 à 501 >->;
;-----------------;
raw 401:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 402:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 403:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 404:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 405:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 406:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 407:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 408:*: { echo 5 : $numeric : $1-

}
;-----------------;
raw 409:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 411:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 412:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 413:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 414:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 416:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 421:*: {
  var %th.txt = $Th.texte(raw421,$2-)
  var %th.txt = $replace(%th.txt,<commande>,$2)
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 422:*: {
  var %th.txt = $Th.texte(raw422,$2-)
  echo  4---
  echo -s %th.txt
  haltdef
}
;-----------------;
raw 423:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 424:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 429:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 431:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 432:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 433:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 435:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 436:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 437:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 438:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 439:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 440:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 441:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 442:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 443:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 444:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 445:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 446:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 451:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 455:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 461:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 462:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 463:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 464:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 465:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 466:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 467:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 468:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 471:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 472:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 473:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 475:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 476:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 477:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 478:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 481:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 482:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 483:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 484:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 491:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 492:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 496:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 498:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;<-< 501 à 600 >->;
;-----------------;
raw 501:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 502:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 510:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 511:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 512:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 513:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 514:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 520:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 521:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 522:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 523:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;<-< 600 à 620 >->;
;-----------------;
raw 600:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 601:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 602:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 603:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 604:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 605:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 606:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 607:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 617:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 618:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 619:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
raw 620:*: { echo 5 :non implémenter : $numeric : $1- 

}
;-----------------;
;FIN
;-----------------;
raw *:*: { 
  echo 5 : non répertorier : $numeric : $1-
}

;oRaw2_Events-0.0.0.mrc
;------------------------------------------------------->
;partie 2 Raw/Evenement 0.1
;Demarrage
;Beta 0
;

;création de la variable %T_chan2 avec /j
; trés utile :)
alias j { 
  set %T_chan2 #$$1
  join #$$1 $2-
}

on ^*:TOPIC:#: {
  var %th.txt = $Th.texte(raw332,$1-)
  var %th.txt = $replace(%th.txt,<chan>,$chan)
  .timer1 1 3 echo $chan $strip(%th.txt,burcmo)
  haltdef
}

;message de démmarrage
on 1:START: {
  var %th.txt = $Th.texte(msgDmg,$1-)
  th.echotxt -s %th.txt
}

on 1:EXIT:{
  writeini mirc.ini text theme darkmadius2
}
on ^*:QUIT: {
  var %th.txt = $Th.texte(disconnect,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  var %T_comchan = 1
  while %T_comchan <= $comchan($nick,0) {
    echo $comchan($nick,%T_comchan)) %th.txt  
    inc %T_comchan
  }

  haltdef
}
on ^*:CONNECT: {
  var %th.txt = $Th.texte(connect,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  echo -s %th.txt
  haltdef
}
on ^*:DISCONNECT: {
  var %th.txt = $Th.texte(userquit,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  if $nick != $me {
    var %T_comchan = 1
    while %T_comchan <= $comchan($nick,0) {
      echo $comchan($nick,%T_comchan)) %th.txt  
      inc %T_comchan
    }
  }
  haltdef
}

on ^*:MODE:#:{
  var %th.txt = $Th.texte(chanmode,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  echo -s %th.txt
  haltdef
}
on ^*:SERVERMODE:#:{
  var %th.txt = $Th.texte(servmode,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  echo -s %th.txt
  haltdef
}

on ^*:RAWMODE:#: {
  var %th.txt = $Th.texte(rawmode,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  echo $chan %th.txt
  haltdef

}
on ^*:PART:#:{
  var %th.txt = $Th.texte(userpart,$1-)
  var %th.txt = $replace(%th.txt,<nick>,$nick)
  if $nick != $me {
    var %T_comchan = 1
    while %T_comchan <= $comchan($nick,0) {
      echo $comchan($nick,%T_comchan)) %th.txt  
      inc %T_comchan
    }
  }
  haltdef

}
on ^1:SNOTICE:*Looking up your hostname...*: {
  var %th.txt = $Th.texte(snotice.cryh,$1-)
  echo -s  %th.txt
  haltdef

}
on ^1:SNOTICE:*Couldn't resolve your hostname*: {
  var %th.txt = $Th.texte(snotice.luyh,$1-)
  echo -s  %th.txt
  haltdef
}
on ^*:SNOTICE:*Found your hostname*: {
  var %th.txt = $Th.texte(foundhost,$2-)
  echo -s  %th.txt
  haltdef

}
on ^*:SNOTICE:*If you are having problems connecting*: {
  var %th.txt = $Th.texte(probleme,$2-)
  var %th.txt = $replace(%th.txt,/quote pong,0/quote pong4,/raw pong,0/raw pong4)
  echo -s  %th.txt
  haltdef
}
on ^*:NOTICE:*:*: {
  if $nick == Global {
    var %th.txt = $Th.texte(Global,$7-)
    var %th.txt = $replace(%th.txt,<Global>,$nick,<logon>,$1-6)
    echo -s %th.txt
  }
  elseif $nick == NickServ || $nick == HostServ || $nick == ChanServ {
    var %th.txt = $Th.texte(notice,$1-)
    var %th.txt = $replace(%th.txt,<nick>,$nick)
    echo -s %th.txt
  }
  else {
    var %th.txt = $Th.texte(notice,$1-)
    var %th.txt = $replace(%th.txt,<nick>,$nick)
    .timer1 1 3  echo %T_chan1 %th.txt
  }
  haltdef
}

on ^1:USERMODE: {
  var %th.txt = $Th.texte(usermode,$1-)
  echo $chan %th.txt
  haltdef
}

on ^*:JOIN:#: {
  if $nick != $me {
    set %T_chan $chan
    var %com_chn $comchan($nick,0)
    var %th.txt = $Th.texte(otherjoin1,$1-)
    var %th.txt = $replace(%th.txt,<server>,$server,<chancom>,%com_chn,<nick>,$nick,<userhost>,$address($nick,6),<chan>,$chan)
    var %th.txt = $replace(%th.txt,<chanall>,%T_CComchan)
    th.echotxt $chan %th.txt
  }
  if $comchan($nick,0) >= 2 && $nick != $me {
    var %th2.txt = $Th.texte(otherjoin2,$1-)
    var %th2.txt = $replace(%th2.txt,<server>,$server,<chancom>,%com_chn,<nick>,$nick,<userhost>,$address($nick,6),<chan>,$chan)

    var %T_comchan = 1
    var %T_CComchan = $null
    while %T_comchan <= $comchan($nick,0) {
      var %T_CComchan = $+(%T_CComchan,4:,$comchan($nick,%T_comchan))  
      inc %T_comchan
    }

    var %th2.txt = $replace(%th2.txt,<chanall>,%T_CComchan)
    th.echotxt $chan %th2.txt
  }

  if $nick == $me {
    set %T_chan1 $chan
  }
  haltdef
}

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.