/ScriptServ

ON *:load:{ set %Dizlogo 6•3•6D13izionario3•6• }
on 1:TEXT:!verifica*:%game_channel:{ 
  var %start_let = $lower($left( $2 ,1)) 
  var %str = $read(" $+ $scriptdir $+ dictionary\ $+ italiano. $+ %start_let $+ ",w, $lower($2) ,1) 
  if ( $lower($2) == %str ) { 
    msg %game_channel %Dizlogo 3L9a3 p9arola13 $U($2) 3 E9'3 p9resente! 
  } 
  else { 
    msg %game_channel %Dizlogo 3L9a3 p9arola13 $U($2) 3N9ON3 è p9resente! 
  } 
} 

on 1:TEXT:!addparola*:%game_channel:{ 
  if ($nick isop %game_channel) { 
    var %start_let = $lower($left( $2 ,1)) 
    var %str = $read(" $+ $scriptdir $+ dictionary\ $+ italiano. $+ %start_let $+ ",w, $lower($2) ,1) 
    if ( $lower($2) != %str ) { 
      write -a " $+ $scriptdir $+ dictionary\ $+ italiano. $+ %start_let $+ " $lower($2) 
      msg %game_channel %Dizlogo 3L9a3 p9arola13 $U($2) 3è s9tata3 a9ggiunta!
    } 
  } 
} 

on 1:TEXT:!delparola*:%game_channel:{ 
  if ($nick isop %game_channel) { 
    var %start_let = $lower($left( $2 ,1)) 
    var %str = $read(" $+ $scriptdir $+ dictionary\ $+ italiano. $+ %start_let $+ ",w, $lower($2) ,1) 
    var %voc_pos = $readn 
    if ( $lower($2) == %str ) { 
      write -dl $+ %voc_pos " $+ $scriptdir $+ dictionary\ $+ italiano. $+ %start_let $+ " 
      msg %game_channel %Dizlogo 3L9a3 p9arola13 $U($2) 3è s9tata3 e9liminata! 
    } 
  } 
}