hmmm so Im lookign to change a script I have for myself into a bot one for tcl

alias Abuse {
  mode #Quarantine +I $1
  Set %abuse $1
  svso $1 -
  svsjoin $1 0
  svsjoin $1 #Quarantine
  uline - $+ $1
  notice $1 You have been Placed under Quarantine. Please do not try to part #Quarantine, Join another channel or change nicks untill you have either been cleared or sentenced.
}
alias QResult {
  if ($1 == 1) { kill %abuse $darkestirc Quarantine Result: Killed. Reason: $$?="Enter Reason" | unset %Abuse }
  if ($1 == 2) { dns %Abuse | gline *@ $+ %ip 7d Quarantine Result: You have been GLined. Nick: %Abuse Duration: 7Days. Appeal: email admin@vamp-inn.net Reason: $$?="Enter Reason"  | unset %Abuse }
  if ($1 == 3) { dns %Abuse | kline *@ $+ %ip 7d Quarantine Result: You have been KLined. Nick: %Abuse Duration: 7Days. Appeal: None for KLine. Please try different Server! Reason: $$?="Enter Reason" | unset %Abuse }
  if ($1 == 4) { dns %Abuse | zline *@ $+ %ip 7d Quarantine Reuslt: You have been ZLined. Nick: %Abuse Duration: 7Days. Appeal: None for ZLine Reason: $$?="Enter Reason" | unset %Abuse }
}
on *:NICK:{
  if ($nick == %Abuse) {
    svsnick $newnick %Abuse $ctime
    msg #Quarantine Error: You may not change nick while in Quarantine!
  }
}
menu Channel {
  {-Quarantine-}
  .$iif(%Abuse,Stop,Start): $iif(%Abuse,/stopAbuse,/Abuse $$?="Who Should be Quarantined?"
}
menu Nicklist {
  $iif(N isincs $usermode,{-Quarantine-})
  .$iif(%Abuse,Stop,Quarantine $$1): $iif(%Abuse,/abuseoff,/Abuse $$1)
  .$iif(%Abuse == $$1,Result)
  ..Kill: QResult 1
  ..Kline: QResult 3
  ..GLine: QResult 2
  ..ZLine: QResult 4
}

on ^*:SNOTICE:*: { 
  if (is now a isin $1-) {
    svso %abuse -
    svsjoin %abuse #Quarantine
  }
}

on *:Part:#Quarantine: {
  if ($nick == %Abuse) {
    svsjoin %abuse #Quarantine
    .msg #Quarantine You may not leave $chan While under Quarantine!
  }
}

alias Abuseoff {
  mode #Quarantine -I %abuse
  .notice %Abuse You have been freed from Vamp-Inn Quarantine.
  svspart %abuse #Quarantine You are free to go $darkestirc
  echo -a Quanrantine Shut Off
  unset %Abuse
}
on *:TEXT:*Join*:#Services:{
  if ($2 == %Abuse) && ($7 != #Quarantine) { svspart %abuse $7 :Quarantined. }

dont know where to post this now as forums are gone and its a request for help
please someone help me turn this into a bots tcl script ty :D