Forums Scripts & Popups combine inputs

on *:input:*: {
  if (/* !iswm $1) && (~* !iswm $1) {
    hdef
    var %msg = $1- 
    var %ccode =  
    if (!%checkr) {
      var %ccode =  $+ $iif((%checkrv),) $+ $iif((%checkrk),$+(,%f,$chr(44),%b)) $+ $iif((%checkro),) 
      if (%ran.ztext == 1) { var %a = $replace($rand(2,15),8,4) | if (%a <= 9) { var %b = $+(0,%a) } | else { var %b = %a } | var %ccode =    $+  $iif((%checkrv),)  $+  $iif((%checkrk),$+(,%b))  $+  $iif((%checkro),) }
      if (%ran.wtext == 1) { var %msg =  $ranw(%msg) }
    }
    if (%talkers) { var %msg = $talkers(%ccode, %msg) }    
    if (<sound isin %msg) { talk.proc %msg | if ($exists($wavedir $+ %z)) { .sound %z } | var %tmp = <sound %z $+ > | set -nu %msg $remove(%msg,$chr(32) $+ %tmp) | /sound %z }
    if (%nickcom) { var %msg = $nickcom(%ccode, $active, %msg) }
    if (!%checkr) { var %msg = %ccode $+ %msg }
    msg $active %msg
    unset %z %zz 
  }
}

on *:input:*:{
  if (!$istok(/ $readini($mircini,text,commandchar),$left($1,1),32)) && (!$ctrlenter) {
    var %input = $1-
    .echo -q $regsub(%input,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^<>\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*)/g,\1,%input)
    .echo -q $regsub(%input,/(irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.]))/g,\1,%input)
    .echo -q $regsub(%input,/(aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?)/g,\1,%input)
    say %input
    halt
  }
}