/ScriptServ

;----------------affinità

on *:text:!aff*:%affinichan: {
  if ($2 == $null) || ($3 == $null) { msg $chan ERRORE!! digitare !aff nick1 nick2 | halt }
  set %i_1 1
  set %i_2 1
  set %iloveyou 0
  set %iloveyou2 0
  set %somma_lun_nick 0
  ;;controllo il primo nick
  while (%i_1 <= $len($2)) {
    if ($mid($2,%i_1,1) == i) || ($mid($2,%i_1,1) == l) || ($mid($2,%i_1,1) == o) || ($mid($2,%i_1,1) == v) || ($mid($2,%i_1,1) == e) || ($mid($2,%i_1,1) == y) || ($mid($2,%i_1,1) == u) {
      set %iloveyou $calc(%iloveyou +2)
    } 
    inc %i_1
  }
  while (%i_2 <= $len($3)) {
    if ($mid($3,%i_2,1) == i) || ($mid($3,%i_2,1) == l) || ($mid($3,%i_2,1) == o) || ($mid($3,%i_2,1) == v) || ($mid($3,%i_2,1) == e) || ($mid($3,%i_2,1) == y) || ($mid($3,%i_2,1) == u) {
      set %iloveyou2 $calc(%iloveyou2 +2)
    } 
    inc %i_2
  }
  set %somma_lun_nick $calc($len($2) + $len(3))
  if ($calc(%iloveyou + %iloveyou2) == 0) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(5 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 2) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(10 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 4) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(20 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 6) { msg $chan —]0,13Affinità[—  dei nick9 $2 e11 $3 è del:4 $calc(30 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 8) { msg $chan —]0,13Affinità[—  dei nick9 $2 e11 $3 è del:4 $calc(40 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 10) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(50 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 12) { msg $chan —]0,13Affinità[—  dei nick9 $2 e11 $3 è del:4 $calc(60 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 14) { msg $chan —]0,13Affinità[—  dei nick9 $2 e11 $3 è del:4 $calc(70 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 16) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(80 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 18) { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 $calc(90 - (%somma_lun_nick / 2)) $+ % 14 }
  elseif ($calc(%iloveyou + %iloveyou2) == 20) { msg $chan —]0,13Affinità[—  dei nick9 $2 e11 $3 è del:4 $calc(100 - (%somma_lun_nick / 2)) $+ % 14 } 
  ;;se supera il valore 20 l'affinità è del 100%
  else { msg $chan —]0,13Affinità[— dei nick9 $2 e11 $3 è del:4 100% 14 }
}

;----contatore
;######## »mI.r]A[b.Ot« version by {sTReGa} ######

on 1:JOIN:%chaningressi: {
  if ( %ingres = 1 ) {
    inc %counter 1
    msg $chan 4 $nick $+   %messaggiojoin1 4 %counter
  }
  if ( %ingres = 2 ) { 
    msg $chan %messaggiojoin2  $+ 4 $nick
  }
}

;------------


on *:TEXT:!kb *:%kbchan: { 
  if (%kbattivo == 1) {
    set %motivokick $3-
    if (!$3-) { set %motivokick OpSSsss!!! }
    if ( $nick != $me ) && ( $nick isop $chan) || ( $nick isvoice $chan) || ( $nick ishop $chan) {  /ban # $2 2 
      .timer 1 3 /kick # $2 %motivokick 
    }
  }
}




;-----------------------------------------------
;######## »mI.r]A[b.Ot« version by {sTReGa} ######

dialog stre.slap {
  title "AntiSlap"
  size -1 -1 400 180
  Box "Imposta AntiSlap" , 1, 10 10 380 130
  text "Chan AntiSlap:" , 2, 20 40 100 20
  edit %chanslap , 3, 140 38 140 20 , autohs
  text "Parole AntiSlap:" , 4, 20 67 100 20
  edit %parolaslap , 5, 140 65 100 20 , autohs
  edit %parolaslap2 , 6, 250 65 100 20 , autohs
  text "Frase AntiSlap:" , 7, 20 90 100 20
  edit %fraseslap , 8, 20 110 360 20 , autohs
  button "ok" , 20, 150 150 80 25, ok
}

on *:dialog:stre.slap:sclick:20: {
  set %chanslap $did(stre.slap,3)
  set %parolaslap $did(stre.slap,5)
  set %parolaslap2 $did(stre.slap,6)
  set %fraseslap $did(stre.slap,8)
}



ON 1:ACTION:%parolaslap:%chanslap: {
  if ($me isop $chan) {
    /inc -u360 $+(%,contatore,$cid,$chan,$nick)
    if ( $eval($+(%,contatore,$cid,$chan,$nick),2) == 3 ) {
      /set -u360 $+(%,contatore,$cid,$chan,$nick) 0
      /kick $chan $nick %fraseslap
    }
    else {
      /msg botserv say $chan $nick %fraseslap
    }
  }
}

ON 1:ACTION:%parolaslap2:%chanslap: {
  if ($me isop $chan) {
    /inc -u360 $+(%,contatore,$cid,$chan,$nick)
    if ( $eval($+(%,contatore,$cid,$chan,$nick),2) > 2 ) {
      /set -u360 $+(%,contatore,$cid,$chan,$nick) 0
      /kick # $nick %fraseslap
    }
    else {
      /msg botserv say $chan $nick %fraseslap
    }
  }
}

;-----------------


;-----------------------

on *:text:!MSG*:*:{
  if (%attivamsg == 1) {
    if ($2 != $null) && ($readini(data/lasttext.ini,$2,last) != $null) {
      .notice $nick alle $readini(data/lasttext.ini,$2,time) Su : $readini(data/lasttext.ini,$2,chan) l 'ultimo messaggio di $2 : $readini(data/lasttext.ini,$2,last) 
      halt
    }
    if ($2 = $null) {
      .notice $nick Errore: Prego scrivi il nick che ha lascialto l'ultimo testo che desideri!
      .notice $nick Sintassi: !MSG Nickname
      halt
    }
    if ($readini(data/lasttext.ini,$2,last) = $null) {
      .msg $nick Errore: Non ho nessun ultimo messaggio per il nick $2 $+ ... Sorry!
      halt
    }
    else { msg $nick Errore: Errore sconosciuto. Prego controlla i tuoi comandi e prova ancora!
      halt
    }
  }
}

on *:text:*:#:{
  if (%attivamsg == 1) {
    .writeini -n data/lasttext.ini $nick last $1-
    .writeini -n data/lasttext.ini $nick chan $chan
    .writeini -n data/lasttext.ini $nick time $timestamp
  }
}