Brackets look a little messed up, I think this is how it\'s supposed to go:

on !*:TEXT:*:#: {
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan)) {
    halt
  }
  elseif ((fuck isin $1-) || (shit isin $1-) || (dick isin $1-) || (cunt isin $1-)) {
    inc -u900 %swearin. [ $+ [ $nick ] ]
    if (%swearin. [ $+ [ $nick ] ] = 1 ) { notice $nick please do not swear you have been warned }
    if (%swearin. [ $+ [ $nick ] ] = 2 ) { kick $chan $nick I Told You you once $nick once more its a ban got it? } 
    if (%swearin. [ $+ [ $nick ] ] = 3 ) { 
      notice $nick $nick you were told not to swear you\'ve had your chances bye. 
      mode $chan +b $address($nick,0)
    }
    kick $chan $nick you were told to many times dont swear you have an hour ban if ops want to take it further they will. 
    unset %swearin. [ $+ [ $address($nick,0) ] ]
    .timer 1 3600 mode $chan -b $address($nick,0)
  }
}

With

  if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan)) {
    halt
  }

You can just use \"isreg\". if ($nick isreg $chan) { ;rest of script }

    .timer 1 3600 mode $chan -b $address($nick,0)

In the /ban alias, there\'s a -u switch which you could use right here. Instead of /mode $chan +b $address($nick,0), you can combine the two things and do

ban -u3600 $chan $nick 0 $nick you were told not to swear you\'ve had your chances bye. 

(The $nick 0 is the same as $address($nick,0) in the other case)