This small simple script was inspired by the Transformer Name Generator that was on The Cartoon Network website for a while. It has since been removed from the site so I thought I'd make this script. It generates the exact same results as the Cartoon Networks did because it works on the same basis as explained here: http://tfwiki.net/wiki/Transformers_Name_Generator

Experienced scripters will no doubt find this very crude & I am sure there are probably better or easier ways of doing what I have, but it works. :)

Usage:

!transform - Will generate & return a users Transformer name from their current IRC nick

!transgen - Will generate & return the Transformer name according to what the user specified.

Any comments welcome :)

;==========================================================;
;=            Transformer Name Generator                  =;
;=                       by                               =;
;=                    OliMaylen                           =;
;==========================================================;
;=     This small simple script was inspired by the       =;
;=   Transformer Name Generator that was on The Cartoon   =;
;=     Networks website for a while. It has since been    =;
;=    removed from the site so I thought I'd make this    =;
;=  script which does the same thing. It gives the exact  =;
;=  same results as the site did because it works on the  =;
;=            same basis as explained here:               =;
;=  http://tfwiki.net/wiki/Transformers_Name_Generator    =;
;==========================================================;
;= USAGE:                                                 =;
;= !transform : Will generate & return a users            =;
;=              Transformer name from their IRC nick      =;
;=                                                        =;
;= !transgen <NAME> : Will generate & return whatever     =;
;=                     the user inputs into <NAME>        =;
;==========================================================;

on *:TEXT:*:#: {
  if ($1 == !transform) {
    set %trans.text $nick
    set %trans.nick $nick
    set %trans.chan $chan
    ;=== Below strips unwanted characters from the users nick & converts to lowercase ===;
    set %trans.name $lower($remove(%trans.text,^,-,_,[,],`,1,2,3,4,5,6,7,8,9,0))
    transform1
    halt
  }
  elseif ($1 == !transgen) {
    set %trans.text $2-
    set %trans.nick $nick
    set %trans.chan $chan
    ;=== Below strips unwanted characters from the given string & converts to lowercase ===;
    set %trans.name $lower($remove(%trans.text,!,@,$,%,&,*,=,+,^,-,_,[,],`,;,:,',",<,>,.,/,|,1,2,3,4,5,6,7,8,9,0,$chr(32)))
    transform1
    halt
  }
}

alias transform1 {
;=== Identifies the first letter of the given string (name) ===;
  if ($regex(reg1, %trans.name, ^a)) {
    set %trans1 Metal
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^b)) {
    set %trans1 Cyber
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^c)) {
    set %trans1 Saber
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^d)) {
    set %trans1 Rumble
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^e)) {
    set %trans1 Mecha
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^f)) {
    set %trans1 Blitz
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^g)) {
    set %trans1 Razor
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^h)) {
    set %trans1 Laser
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^i)) {
    set %trans1 Shock
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^j)) {
    set %trans1 Steel
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^k)) {
    set %trans1 Aqua
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^l)) {
    set %trans1 Battle
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^m)) {
    set %trans1 Electro
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^n)) {
    set %trans1 Hammer
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^o)) {
    set %trans1 Hydro
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^p)) {
    set %trans1 Magno
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^q)) {
    set %trans1 Thunder
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^r)) {
    set %trans1 Nitro
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^s)) {
    set %trans1 Wild
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^t)) {
    set %trans1 Steam
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^u)) {
    set %trans1 Techno
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^v)) {
    set %trans1 Ultra
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^w)) {
    set %trans1 Iron
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^x)) {
    set %trans1 Vector
    set %trans.type Decepticon
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^y)) {
    set %trans1 Scatter
    set %trans.type Autobot
    transform2
    halt
  }
  if ($regex(reg1, %trans.name, ^z)) {
    set %trans1 Turbo
    set %trans.type Decepticon
    transform2
    halt
  }
}

alias transform2 {
;=== Identifies the last letter of the given string (name) ===;
  if ($regex(reg2, %trans.name, a$)) {
    set %trans2 blast
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, b$)) {
    set %trans2 wave
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, c$)) {
    set %trans2 breaker
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, d$)) {
    set %trans2 fire
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, e$)) {
    set %trans2 tron
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, f$)) {
    set %trans2 gear
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, g$)) {
    set %trans2 wing
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, h$)) {
    set %trans2 crusher
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, i$)) {
    set %trans2 burner
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, j$)) {
    set %trans2 charger
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, k$)) {
    set %trans2 streak
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, l$)) {
    set %trans2 storm
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, n$)) {
    set %trans2 burst
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, o$)) {
    set %trans2 bolt
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, p$)) {
    set %trans2 blade
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, q$)) {
    set %trans2 crash
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, r$)) {
    set %trans2 strike
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, s$)) {
    set %trans2 spark
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, t$)) {
    set %trans2 quake
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, u$)) {
    set %trans2 warp
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, v$)) {
    set %trans2 spike
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, w$)) {
    set %trans2 shadow
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, x$)) {
    set %trans2 star
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, y$)) {
    set %trans2 frost
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, z$)) {
    set %trans2 spear
    sendtransform
    halt
  }
  if ($regex(reg2, %trans.name, m$)) {
    set %trans2 claw
    sendtransform
    halt
  }
}

alias sendtransform {
;=== Returns the generated Transformer name to the channel ===;
  .msg %trans.chan 4 $+ %trans.nick $+ 10: Your Transformer name is:4 %trans1 $+ %trans2 10[2 $+ %trans.type $+ 10]
  unset %trans.name
  unset %trans1
  unset %trans2
  unset %trans.type
  unset %trans.nick
  unset %trans.chan
  unset %trans.text
}