Mine

menu nicklist {
  Fun Write
  .Vocals(/fwvo):/fwvo $?="Enter the line you want to say "
  .F_to_ph(/fwph):/fwph $?="Enter the line you want to say "
  .Registered_say(/fwreg):/fwreg $?="Enter the line you want to say "
  .Crypled(/fwcr):/fwcr $?="Enter the line you want to say "
  .Secret:/set %fwtalk $?="Enter the line you want to say " | /fwsecret %fwtalk
  .Letter_count(/fwcount):/fwcount $?="Enter the line you want to say "
  .-
  .Whole_wavy:/fwfl1 $?="Enter the line you want to say "
  .3*Whole_wavy:/fwfl5 $?="Enter the line you want to say "
  .3*color_Whole_wavy:/fwfl3 $?="Enter the line you want to say "
  .-
  .Word_wavy:/fwfl2 $?="Enter the line you want to say "
  .3*Word_wavy:/fwfl6 $?="Enter the line you want to say "
  .3*color_Word_wavy:/fwfl4 $?="Enter the line you want to say "
  .-
  .Whole_raised:/fwfr1 $?="Enter the line you want to say "
  .3*Whole_raised:/fwfr1a $?="Enter the line you want to say "
  .3*color_Whole_raised:/fwfr1b $?="Enter the line you want to say "
  .-
  .Word_raised:/fwfr2 $?="Enter the line you want to say "
  .3*Word_raised:/fwfr2a $?="Enter the line you want to say "
  .3*color_Word_raised:/fwfr2b $?="Enter the line you want to say "
  .-
  .Roses:/fwr1 $?="Enter the line you want to say "
  .3*Roses:/fwr1a $?="Enter the line you want to say "
  .3*color_Roses:/fwr1b $?="Enter the line you want to say "
  .-
  .Turtle_smileys :/fwturtle $?="Enter the line you want to say "
  .Zorro_smileys :/fwzorro $?="Enter the line you want to say "
  .-
  .Fakes
  ..Set_mode_on_nick:/set %fwpers $1 | /fwmodeplus $?="Enter Mode"
  ..unSet_mode_on_nick:/set %fwpers $1 | /fwmodeminus $?="Enter Mode"
  ..Set_topic:/fwtopic $?="Enter Topic"
  ..Nick_Join_channel:/fwjoin $1
  ..typed_Join_channel:/fwjoin2 $?="Enter Nick to join"
  ..Nickchange:/set %fwnick $?="Enter New Nick" | /fwnick $1
  ..Standard_kick:/fwkick1 $1
  ..kick_with_tekst:/set %fwreason $?="Enter kick tekst" | /fwkick2 $1
  ..ban:/fwban $1
}
alias /fwvo {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwrc $fwrand
  /set %fwtalk $1- 
  /set %fwt  $+ %fwrc $+ a $+ 
  /set %fwtalk $replace(%fwtalk,a,%fwt)
  /set %fwt  $+ %fwrc $+ e $+ 
  /set %fwtalk $replace(%fwtalk,e,%fwt)
  /set %fwt  $+ %fwrc $+ i $+ 
  /set %fwtalk $replace(%fwtalk,i,%fwt)
  /set %fwt  $+ %fwrc $+ o $+ 
  /set %fwtalk $replace(%fwtalk,o,%fwt)
  /set %fwt  $+ %fwrc $+ u $+ 
  /set %fwtalk $replace(%fwtalk,u,%fwt)
  /set %fwt  $+ %fwrc $+ y $+ 
  /set %fwtalk $replace(%fwtalk,y,%fwt)
  /say %fwtalk

}
alias /fwreg {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwrc $fwrand
  /set %fwtalk $1- 
  /set %fwt  $+ %fwrc $+  ® $+ $me $+ 
  /set %fwtalk %fwtalk $+ %fwt 
  /say %fwtalk
}

alias /fwph {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwrc $fwrand
  /set %fwtalk $1- 
  /set %fwt  $+ %fwrc $+ ph $+ 
  /set %fwtalk $replace(%fwtalk,f,%fwt)
  /say %fwtalk
}
alias /fwcr {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwrc $fwrand
  /set %fwtalk $1- 

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ Ã $+ 
  /set %fwtalk $replace(%fwtalk,a,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ß $+ 
  /set %fwtalk $replace(%fwtalk,b,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ © $+ 
  /set %fwtalk $replace(%fwtalk,c,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ Ð $+ 
  /set %fwtalk $replace(%fwtalk,d,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ê $+ 
  /set %fwtalk $replace(%fwtalk,e,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ f $+ 
  /set %fwtalk $replace(%fwtalk,f,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ g $+ 
  /set %fwtalk $replace(%fwtalk,g,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ h $+ 
  /set %fwtalk $replace(%fwtalk,h,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ î $+ 
  /set %fwtalk $replace(%fwtalk,i,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ j $+ 
  /set %fwtalk $replace(%fwtalk,j,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ k $+ 
  /set %fwtalk $replace(%fwtalk,k,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ £ $+ 
  /set %fwtalk $replace(%fwtalk,l,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ m $+ 
  /set %fwtalk $replace(%fwtalk,m,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ñ $+ 
  /set %fwtalk $replace(%fwtalk,n,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ õ $+ 
  /set %fwtalk $replace(%fwtalk,o,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ p $+ 
  /set %fwtalk $replace(%fwtalk,p,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ Q $+ 
  /set %fwtalk $replace(%fwtalk,q,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ® $+ 
  /set %fwtalk $replace(%fwtalk,r,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ § $+ 
  /set %fwtalk $replace(%fwtalk,s,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ t $+ 
  /set %fwtalk $replace(%fwtalk,t,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ù $+ 
  /set %fwtalk $replace(%fwtalk,u,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ v $+ 
  /set %fwtalk $replace(%fwtalk,v,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ w $+ 
  /set %fwtalk $replace(%fwtalk,w,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ × $+ 
  /set %fwtalk $replace(%fwtalk,x,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ ¥ $+ 
  /set %fwtalk $replace(%fwtalk,y,%fwt)

  /set %fwrc $fwrand
  /set %fwt  $+ %fwrc $+ z $+ 
  /set %fwtalk $replace(%fwtalk,z,%fwt)

  /say %fwtalk
}

alias fwfl1 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwtalk $1-
  /fwrand2
  /set %fwtalk $replace(%fwtalk,$chr(032),$chr(0160))
  /set %fwtalk $fwword(%fwtalk)
  /say %fwtalk
}
alias fwfl2 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwparm 1
  /unset %fwtalk 
  :fwmore
  /set %nuword [ $ [ $+ [ %fwparm ] ] ] 
  /if %nuword == $null { goto donefw }
  /fwrand2
  /set %fwtalk %fwtalk $+ 1,1  $+ $fwword(%nuword)
  /inc %fwparm
  goto fwmore
  :donefw
  /say %fwtalk $+ 1,1 
}
alias fwfl3 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfl1 $1-
  /fwfl1 $1-
  /fwfl1 $1-
}

alias fwfl6 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfl2 $1-
  /say %fwtalk $+ 1,1 
  /say %fwtalk $+ 1,1 
}

alias fwfl5 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfl1 $1-
  /say %fwtalk
  /say %fwtalk
}
alias fwfr1a {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfr1 $1-
  /say %fwtalk $+ 1,1 
  /say %fwtalk $+ 1,1 
}
alias fwfr1b {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfr1 $1-
  /fwfr1 $1-
  /fwfr1 $1-
}
alias fwfr2a {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfr2 $1-
  /say %fwtalk $+ 1,1 
  /say %fwtalk $+ 1,1 
}
alias fwfr2b {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwfr2 $1-
  /fwfr2 $1-
  /fwfr2 $1-
}

alias fwfl4 {
  /fwfl2 $1-
  /fwfl2 $1-
  /fwfl2 $1-
}
alias fwfr1 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwrand3
  /set %fwparm 1
  /unset %fwtalk 
  :fwmore
  /set %nuword [ $ [ $+ [ %fwparm ] ] ] 
  /if %nuword == $null { goto donefw }
  /set %fwtalk %fwtalk $+ 1,1  $+ $fwword2(%nuword)
  /inc %fwparm
  goto fwmore
  :donefw
  /say %fwtalk $+ 1,1 
}


alias fwr1a {
  /fwr1 $1-
  /say %fwtalk $+ %fwcol1
  /say %fwtalk $+ %fwcol1
}

alias fwr1b {
  /fwr1 $1-
  /fwr1 $1-
  /fwr1 $1-
}

alias fwr1 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /fwrand4
  /set %fwparm 1
  /unset %fwtalk 
  :fwmore
  /set %nuword [ $ [ $+ [ %fwparm ] ] ] 
  /if %nuword == $null { goto donefw }
  /set %fwtalk %fwtalk $+ 1,1 $+ $fwrose(%nuword)
  /inc %fwparm
  goto fwmore
  :donefw
  /say %fwtalk $+ %fwcol1
}

alias /fwrose {
  /set %fwline $1
  /set %fwwork %fwcol1 $+ $1
  /return %fwwork
}

alias fwfr2 {
  /if $1 == $null {
    /echo 8,4Fun Write 11,1 You need to specify what you want to say !!!
    /halt
  }
  /set %fwparm 1
  /unset %fwtalk 
  :fwmore
  /set %nuword [ $ [ $+ [ %fwparm ] ] ] 
  /if %nuword == $null { goto donefw }
  /fwrand3
  /set %fwtalk %fwtalk $+ 1,1  $+ $fwword2(%nuword)
  /inc %fwparm
  goto fwmore
  :donefw
  /say %fwtalk $+ 1,1 
}
alias /fwword2 {
  /set %fwline $1
  /set %fwwork %fwcol1 $+ € $+ %fwcol2 $+ €  $+ %fw2col1 $+ $1 $+ %fwcol2 $+ €  $+ %fwcol1 $+ €1,1
  /return %fwwork
}
alias /fwword {
  /set %fwline $1
  /set %fwlength $len( %fwline )
  /set %fwoff 1
  /set %fwswap 1
  /unset %fwwork 
  :morecamu  
  /if %fwswap == 1 {
    /set %fwwork %fwwork $+ %fwcol1 $+ $mid(%fwline,%fwoff,1)
    /set %fwswap 2
  }
  else {
    /set %fwwork %fwwork $+ %fwcol2 $+ $mid(%fwline,%fwoff,1)
    /set %fwswap 1
  }
  /inc %fwoff
  if %fwoff > %fwlength { goto donecamu }
  goto morecamu
  :donecamu
  /return %fwwork
}

alias /fwrand {
  /set %fwsel $rand(2,10)
  /if %fwsel == 2 { return 3 }
  /if %fwsel == 3 { return 4 }
  /if %fwsel == 4 { return 5 }
  /if %fwsel == 5 { return 6 }
  /if %fwsel == 6 { return 7 }
  /if %fwsel == 7 { return 10 }
  /if %fwsel == 8 { return 12 }
  /if %fwsel == 9 { return 13 }
  /if %fwsel == 10 { return 14 }
}

alias /fwrand2 {
  /set %fwsel $rand(1,9)
  /if %fwsel == 1 {
    /set %fwcol1 7,2
    /set %fwcol2 8,12
  }
  /if %fwsel == 2 {
    /set %fwcol1 15,14
    /set %fwcol2 0,15
  }
  /if %fwsel == 3 {
    /set %fwcol1 7,5
    /set %fwcol2 8,4
  }
  /if %fwsel == 4 {
    /set %fwcol1 10,2
    /set %fwcol2 11,12
  }
  /if %fwsel == 5 {
    /set %fwcol1 11,6
    /set %fwcol2 0,13
  }
  /if %fwsel == 6 {
    /set %fwcol1 5,7
    /set %fwcol2 4,8
  }
  /if %fwsel == 7 {
    /set %fwcol1 2,10
    /set %fwcol2 12,11
  }
  /if %fwsel == 8 {
    /set %fwcol1 6,14
    /set %fwcol2 13,15
  }
  /if %fwsel == 9 {
    /set %fwcol1 2,3
    /set %fwcol2 12,9
  }
}
alias /fwrand3 {
  /set %fwsel $rand(1,6)
  /if %fwsel == 1 {
    /set %fwcol1 1,14
    /set %fwcol2 1,15
  }
  /if %fwsel == 2 {
    /set %fwcol1 14,6
    /set %fwcol2 15,13
  }
  /if %fwsel == 3 {
    /set %fwcol1 14,3
    /set %fwcol2 15,9
  }
  /if %fwsel == 4 {
    /set %fwcol1 14,7
    /set %fwcol2 15,8
  }
  /if %fwsel == 5 {
    /set %fwcol1 14,5
    /set %fwcol2 15,4
  }
  /if %fwsel == 6 {
    /set %fwcol1 14,2
    /set %fwcol2 15,12
  }
  /set %fwsel $rand(1,7)
  /if %fwsel == 1 {
    /set %fw2col1 11,2
  }
  /if %fwsel == 2 {
    /set %fw2col1 0,13
  }
  /if %fwsel == 3 {
    /set %fw2col1 9,1
  }
  /if %fwsel == 4 {
    /set %fw2col1 8,10
  }
  /if %fwsel == 5 {
    /set %fw2col1 14,15
  }
  /if %fwsel == 6 {
    /set %fw2col1 8,1
  }
  /if %fwsel == 7 {
    /set %fw2col1 11,4
  }
}

alias /fwrand4 {
  /set %fwsel $rand(1,4)
  /if %fwsel == 1 {
    /set %fwcol1 3,1 $+ $chr(123) $+ 6@3 $+ $chr(125) $+ 8
  }
  /if %fwsel == 2 {
    /set %fwcol1 9,1 $+ $chr(123) $+ 4@9 $+ $chr(125) $+ 13
  }
  /if %fwsel == 3 {
    /set %fwcol1 9,3 $+ $chr(123) $+ 0@9 $+ $chr(125) $+ 8
  }
  /if %fwsel == 4 {
    /set %fwcol1 3,1 $+ $chr(123) $+ 11@3 $+ $chr(125) $+ 14
  }
}
alias /fwturtle {
  /say  11,6:1,9) 11,4:1,9) 11,7:1,9) 11,3:1,9) $1- 11,3:1,9) 11,7:1,9) 11,4:1,9) 11,6:1,9)
}
alias /fwzorro {
  /say  11,1:1,8) 11,1:1,8) 11,1:1,8) $1- 11,1:1,8) 11,1:1,8) 11,1:1,8)
}
alias /fwmodeplus {
  /say 3,0*** $me sets $chan mode $+ : + $+ $1 %fwpers
}
alias /fwmodeminus {
  /say 3,0*** $me sets $chan mode $+ : - $+ $1 %fwpers
}
alias /fwtopic {
  /say 3,0*** $me changes topic to ' $+ $1- $+ '
}
alias /fwjoin {
  /say 3,0*** $1 $+ ( $+ $address($1,1) $+ ) has joined $chan
}
alias /fwjoin2 {
  /say 3,0*** $1 $+ (Whome@Irc.ppp007.net) has joined $chan
}
alias /fwnick {
  /say 3,0*** $1 is now known as %fwnick
}
alias /fwkick1 {
  /say 3,0*** $1 was kicked by $me (HeHe Gotcha)
}
alias /fwkick2 {
  /say 3,0*** $1 was kicked by $me ( $+ %fwreason $+ )
}
alias /fwban {
  /say 3,0*** $me sets $chan Mode: +b $address($1,1)
}
alias /fwsecret {
  /say 1,8§ê4©®1êt--[8,8 $1- 1,8]
}
alias /fwcount {
  /set %fwvowel 0
  /set  %fwspace 0
  /set %fwkon 0
  /set %fwspec 0
  /set %fwline $strip($1-)
  /set %fwlength $len( %fwline )
  /set %fwoff 1
  :morecamu  
  /if $mid(%fwline,%fwoff,1) == $chr(032) {
    /inc %fwspace
    /goto hopsa
  }
  /if $mid(%fwline,%fwoff,1) isin aeiouy {
    /inc %fwvowel
    /goto hopsa
  }
  /if $mid(%fwline,%fwoff,1) isin bcdfghjklmnpqrstvwxz {
    /inc %fwkon
    /goto hopsa
  }
  /inc %fwspec
  :hopsa
  /inc %fwoff
  if %fwoff > %fwlength { goto donecamu }
  goto morecamu
  :donecamu
  /say %fwline 4,1(8,1wow I just used : 11,1 %fwvowel vowels, %fwspace spaces, %fwkon consonants, %fwspec specials 4,1)