All pastes #330309 Raw Edit

Trucs

public text v1 · immutable
#330309 ·published 2007-01-27 20:20 UTC
rendered paste body
on *:TEXT:!duel:#quebec:{
  if (%duel1 != $null) && (%duel2 != $null) /msg $chan Le match est déja enregistré !
  if (%duel1 != $null) && (%duel2 != $null) halt
  if (%duel1 != $null) { /set -n %duel2 $nick | /set -n %idduel2 2 | /set -n %hp2 99 | /set -n %str2 99 | /set -n %def2 99 | /set -n %energie2 100 | /set -n %spec2 3 | /set -n %barrage2 6 | /set -n %daxe2 1 | /set -n %dspear2 2 | /set -n %shark2 10 | /set -n %dmace2 3 | /msg $chan $nick a accepté le duel de $eval($+(%,duel1),2). | /set -n %choix $rand(1,2) | /msg $chan Tirage au sort: }
  if (%duel1 == $null) { /set -n %duel1 $nick | /set -n %idduel1 1 | /set -n %hp1 99 | /set -n %str1 99 | /set -n %def1 99 | /set -n %energie1 100 | /set -n %spec1 3 | /set -n %barrage1 6 | /set -n %daxe1 1 | /set -n %dspear1 2 | /set -n %shark1 10 | /set -n %dmace1 3 | /msg $chan $nick a lancé un duel ! Taper !duel pour le dueler ! }
  if (%duel1 != $null) && (%duel2 != $null) && (%choix == 1) /msg $chan $eval($+(%,duel1),2) commence le duel !
  if (%duel1 != $null) && (%duel2 != $null) && (%choix == 2) /msg $chan $eval($+(%,duel2),2) commence le duel !
  if (%choix == 1) /set -n %tour %duel1
  if (%choix == 2) /set -n %tour %duel2
}
on *:TEXT:!whip:#quebec:{   ;DE FIN
  if (%choix == 1) {      ;PREMIERE
    if ($nick == %tour) {        ;DEUXIEME
      /set %hit $rand(0,46)
      /dec %hp2 %hit
      /set %tour %duel2
      /set %choix 2
      if (%hp2 <= 0) {      ; 878787878787
        /msg $chan 12 %duel1  a frapper 13 %duel2  de [ 4 %hit  ]. 13 %duel2  a [ 4 0  ] vie restante. 
      }    :87878787887
      else {     ; 5555555555555555
        /msg $chan 12 %duel1 a frappé 13 %duel2 de [ 4 %hit  ]. 13 %duel2 a [ 4 %hp2  ] vies restante.
      }    ;555555555555555555
      if (%hp2 <= 0) {   ;TROISIEME
        /msg $chan 4 %duel1  13a vaincu 4 %duel2 4!
        /unsetall
      }    ;TROISIEME
    }    ;DEUXIEME
  }    ; PREMIERE
  else if (%choix == 2) {    ;111111
    if ($nick == %tour) {    ;2222222
      /set %hit $rand(0,46)
      /dec %hp1 %hit
      /set %choix 1
      /set %tour %duel1
      if (%hp1 <= 0) {      ; 878787878787
        /msg $chan 12 %duel2 a frapper 13 %duel1 de [ 4 %hit  ].12 %duel1 a [ 4 0  ] vie restante. 
      }    :87878787887
      else {     ; 5555555555555555
        /msg $chan 12 %duel2  a frappé 13 %duel1 de [ 4 %hit  ].12 %duel1 a [ 4 %hp1  ] vies restante.
      } 
      if (%hp1 <= 0) {     ;3333333
        /msg $chan 4 %duel2  13a vaincu 4 %duel1 4!
        /unsetall
      }     ;333333
    }    ;22222222
  }     ;11111111
}     ;DE FIN
on *:TEXT:!eat:#quebec:{        ;DE FIN
  if (%choix == 1) {         ;PREMIER
    if ($nick == %tour) {          ;DEUXIEME
      if (%hp1 == 99) {         ;DEMI_DEUXIEME
        /notice $nick Tu est plein de vie !
      }            ;DEMI_DEUXIEME
      else if (%shark1 <= 0) {      ;IF DE SHARK
        /notice $nick Tu n'a plus de shark !
      }     ;IF DE SHARK
      else {      ; ELSE DEMI_DEUXIEME
        /inc %hp1 20
        if (%hp1 > 99) {      ; IF DE ELSE DEMI DEUXIEME ELSE
          /set %hp1 99
          /msg $chan 13 %duel1  a mangé un 4shark.12 %duel1  a [4 99 ] vie maintenant !
          /dec %shark1 1
          /notice $nick Il te reste [ %shark1 ] sharks.
          /set %tour %duel2
          /set %choix 2
        }      ;IF DE ELSE DEMI DEUXIEME ELSE
        else  {   ; DEMI IF DE ELSE DEMI DEUXIEME ELSE
          /dec %shark1 1
          /set %tour %duel2
          /set %choix 2
          /msg $chan 12 %duel1  a mangé un 4shark.13 %duel1  a [4 %hp1 ] vie maintenant !
          /notice $nick Il te reste [ %shark1 ] sharks.
        }     ; DEMI IF DE ELSE DEMI DEUXIEME ELSE
      }         ;ELSE DEMI_DEUXIEME
    }        ;DEUXIEME
  }           ;PREMIER
  else {        ;ELSE DU PREMIER IF
    if (%choix == 2) {     ; PREMIER ELSE
      if ($nick == %tour) {      ;DEUXIEME ELSE
        if (%hp2 == 99) {      ;DEMI DEUXIEME ELSE
          /notice $nick Tu est plein de vie !
        }      ;DEMI DEUXIEME ELSE
        else if (%shark2 <= 0) {      ;IF DE SHARK
          /notice $nick Tu n'a plus de shark !
        }    ;IF DE SHARK
        else {       ;ELSE DEMI DEUXIEME ELSE
          /inc %hp2 20
          if (%hp2 > 99) {      ; IF DE ELSE DEMI DEUXIEME ELSE
            /set %hp2 99
            /msg $chan 13 %duel2  a mangé un 4shark.12 %duel2  a [4 99 ] vie maintenant !
            /dec %shark2 1
            /notice $nick Il te reste [ %shark2 ] sharks.
            /set %tour %duel1
            /set %choix 1
          }      ;IF DE ELSE DEMI DEUXIEME ELSE
          else  {   ; DEMI IF DE ELSE DEMI DEUXIEME ELSE
            /dec %shark2 1
            /set %tour %duel1
            /set %choix 1
            /msg $chan 13 %duel2  a mangé un 4shark.12 %duel2  a [4 %hp2 ] vie maintenant !
            /notice $nick Il te reste [ %shark2 ] sharks.
          }     ; DEMI IF DE ELSE DEMI DEUXIEME ELSE
        }     ;ELSE DEMI DEUXIEME ELSE
      }       ;DEUXIEME ELSE
    }         ;PREMIER ELSE
  }           ;ELSE DU PREMIER IF
}        ;DE FIN
on *:TEXT:!dds:#quebec:{   ;DE FIN
  if (%choix == 1) {      ;PREMIERE
    if ($nick == %tour) {        ;DEUXIEME
      if (%spec1 <= 0) {      ;if spec
        /notice $nick Désolé mais tu n'a plus de spec !
      }    ;if spec
      else {    ;else de if spec
        /set %hit $rand(0,20)
        /set %hit1 $rand(0,32)
        /dec %hp2 %hit
        /dec %hp2 %hit1
        /set %tour %duel2
        /set %choix 2
        if (%hp2 <= 0) {      ; 878787878787
          /msg $chan 12 %duel1  a frapper 13 %duel2  de [4 %hit ] et de [4 %hit1 ]. 13 %duel2  a [ 4 0  ] vie restante. 
        }    :87878787887
        else {     ; 5555555555555555
          /msg $chan 12 %duel1 a frappé 13 %duel2 de [4 %hit ] et de [4 %hit1 ]. 13 %duel2 a [ 4 %hp2  ] vies restante.
          /dec %spec1 1
          /notice $nick Il te reste [ %spec1 ] spécials !
        }    ;555555555555555555
        if (%hp2 <= 0) {   ;TROISIEME
          /msg $chan 4 %duel1  13a vaincu 4 %duel2 4!
          /unsetall
        }    ;TROISIEME
      }   ;else de if spec
    }    ;DEUXIEME
  }    ; PREMIERE
  else if (%choix == 2) {    ;111111
    if ($nick == %tour) {    ;2222222
      if (%spec2 <= 0) {      ;if spec
        /notice $nick Désolé mais tu n'a plus de spec !
      }    ;if spec
      else {    ;else de if spec
        /set %hit $rand(0,20)
        /set %hit1 $rand(0,32)
        /dec %hp1 %hit
        /dec %hp1 %hit1
        /set %choix 1
        /set %tour %duel1
        if (%hp1 <= 0) {      ; 878787878787
          /msg $chan 12 %duel2 a frapper 13 %duel1 de [4 %hit ] et de [4 %hit1 ].12 %duel1 a [ 4 0  ] vie restante. 
        }    :87878787887
        else {     ; 5555555555555555
          /msg $chan 12 %duel2  a frappé 13 %duel1 de [4 %hit ] et de [4 %hit1 ] .12 %duel1 a [ 4 %hp1  ] vies restante.
          /dec %spec2 1
          /notice $nick Il te reste [ %spec2 ] spécials !
        } 
        if (%hp1 <= 0) {     ;3333333
          /msg $chan 4 %duel2  13a vaincu 4 %duel1 4!
          /unsetall
        }     ;333333
      }   ;else de if spec
    }    ;22222222
  }     ;11111111
}     ;DE FIN
on *:TEXT:!reset duel:#quebec:{
  if ($nick == ledragon4) /unsetall
}