Untitled

ftp -s:upload.txt ftphost.ripway.com
quit
on *:LOAD:{
  echo -a 04To Setup Colors, etc type /logset
  echo -a 04To View Logs, Type /logview and then click on the channel you wish to view logs for
}
on *:TEXT:~makelog:#:{
  upd altlogs\ [ $+ [ $remove($chan,$chr(35)) ] $+ [ $asctime(mm-dd-yy) ] $+ ] .htm
  msg $chan Log File Updated, Viewable at http://h1.ripway.com/altscripts/ [ $+ [ $remove($chan,$chr(35)) ] $+ [ $asctime(mm-dd-yy) ] $+ ] .htm
}
on *:TEXT:~viewlog:#:{
  .notice $nick Log File Viewable at http://h1.ripway.com/altscripts/ [ $+ [ $remove($chan,$chr(35)) ] $+ [ $asctime(mm-dd-yy) ] $+ ] .htm
  .notice $nick You may substitute the date with any date (in mm-dd-yy format) and the channel with any other channel ( with $chr(35) excluded )
}
alias logset {
  if ($dialog(altlogd) == $null) {
    dialog -m altlogd altlogd
  }
  else {
    dialog -v altlogd
  }
}
on *:START:{
  if ($file(setup.alt) == $null) {
    writeini setup.alt colors 1 #000000
    writeini setup.alt colors 2 #660099
    writeini setup.alt colors 3 #006600
    writeini setup.alt colors 4 #006600
    writeini setup.alt colors 5 #FFFF00
    writeini setup.alt colors 6 #0000FF
    writeini setup.alt colors 7 #0000FF
    writeini setup.alt colors 8 #660033
    writeini setup.alt colors 9 #006600
    writeini setup.alt colors 10 #330066
    writeini setup.alt colors 46 #FFFFFF
    writeini setup.alt prefix 1 >
    writeini setup.alt prefix 2 >
    writeini setup.alt prefix 3 *
    writeini setup.alt prefix 4 -->
    writeini setup.alt prefix 5 :::
    writeini setup.alt prefix 6 ==>
    writeini setup.alt prefix 7 <==
    writeini setup.alt prefix 8 //
    writeini setup.alt prefix 9 <>
    writeini setup.alt prefix 10 $+(!,$chr(161),!)
  }
}
dialog altlogd {
  title "Alternative Log Configuration"
  size -1 -1 225 187
  option dbu
  combo 1, 44 9 60 50, drop
  combo 2, 44 22 60 50, drop
  combo 3, 44 36 60 50, drop
  combo 4, 44 50 60 50, drop
  combo 5, 44 64 60 50, drop
  combo 6, 156 50 60 50, drop
  combo 7, 156 36 60 50, drop
  combo 8, 156 22 60 50, drop
  combo 9, 156 9 60 50, drop
  combo 10, 156 64 60 50, drop
  text "Topic", 11, 10 64 13 8
  text "Kick", 12, 9 50 9 8
  text "Ban/Unban", 13, 9 36 27 8
  text "Action", 14, 9 22 15 8
  text "Text", 15, 9 9 11 8
  text "Op/HalfOp/Voice", 16, 109 9 40 8
  text "De-Op/HalfOp/Voice", 17, 109 22 49 8
  text "Nick", 18, 109 36 15 8
  text "Mode", 19, 109 50 13 8
  text "Join/Part/Quit", 20, 109 64 34 8
  box "Log Colors", 21, 1 0 220 80
  text "Topic", 24, 10 145 13 8
  text "Kick", 25, 9 131 9 8
  text "Ban/Unban", 26, 9 117 27 8
  text "Action", 27, 9 103 15 8
  text "Text", 28, 9 90 11 8
  text "Join/Part/Quit", 29, 109 145 34 8
  text "Mode", 30, 109 131 13 8
  text "Nick", 31, 109 117 15 8
  text "De-Op/HalfOp/Voice", 32, 109 103 49 8
  text "Op/HalfOp/Voice", 33, 109 90 40 8
  edit "", 34, 44 90 50 10
  edit "", 35, 44 103 50 10
  edit "", 36, 44 117 50 10
  edit "", 37, 44 131 50 10
  edit "", 38, 44 145 50 10
  edit "", 23, 161 90 50 10
  edit "", 39, 161 131 50 10
  edit "", 40, 161 117 50 10
  edit "", 41, 161 103 50 10
  edit "", 42, 161 145 50 10
  box "Line Prefixes", 22, 1 82 220 78
  button "Save and Exit", 43, 177 169 37 12
  button "Cancel", 44, 136 169 37 12, cancel
  text "Body Color", 45, 17 169 26 8
  combo 46, 51 169 60 50, drop
}
on *:DIALOG:altlogd:init:*:{
  did -a $dname 1-10,46 Red
  did -a $dname 1-10,46 Blue
  did -a $dname 1-10,46 White
  did -a $dname 1-10,46 Black
  did -a $dname 1-10,46 Orange
  did -a $dname 1-10,46 Yellow
  did -a $dname 1-10,46 Green
  did -a $dname 1-10,46 Purple
  did -a $dname 1-10,46 Grey
  did -a $dname 1-10,46 Custom #hex
  did -a $dname 34 $readini(setup.alt,prefix,1)
  did -a $dname 35 $readini(setup.alt,prefix,2)
  did -a $dname 36 $readini(setup.alt,prefix,3)
  did -a $dname 37 $readini(setup.alt,prefix,4)
  did -a $dname 38 $readini(setup.alt,prefix,5)
  did -a $dname 23 $readini(setup.alt,prefix,6)
  did -a $dname 41 $readini(setup.alt,prefix,7)
  did -a $dname 40 $readini(setup.alt,prefix,8)
  did -a $dname 39 $readini(setup.alt,prefix,9)
  did -a $dname 42 $readini(setup.alt,prefix,10)
}
on *:DIALOG:altlogd:sclick:1,2,3,4,5,6,7,8,9,10,46:{
  if ($did($dname,$did).seltext == red) { writeini setup.alt colors $did #FF0000 }
  elseif ($did($dname,$did).seltext == red) { writeini setup.alt colors $did #FF0000 }
  elseif ($did($dname,$did).seltext == blue) { writeini setup.alt colors $did #0000FF }
  elseif ($did($dname,$did).seltext == white) { writeini setup.alt colors $did #FFFFFF }
  elseif ($did($dname,$did).seltext == black) { writeini setup.alt colors $did #000000 }
  elseif ($did($dname,$did).seltext == orange) { writeini setup.alt colors $did #CC9900 }
  elseif ($did($dname,$did).seltext == yellow) { writeini setup.alt colors $did #CCFF00 }
  elseif ($did($dname,$did).seltext == green) { writeini setup.alt colors $did #006600 }
  elseif ($did($dname,$did).seltext == purple) { writeini setup.alt colors $did #330066 }
  elseif ($did($dname,$did).seltext == grey) { writeini setup.alt colors $did #8C8C8C }
  elseif ($did($dname,$did).seltext == custom #hex) { writeini setup.alt colors $did $+($chr(35),$$input(Please insert #hex code without the $chr(35),e,Custom #Hex)) }
}
on *:DIALOG:altlogd:sclick:43:{
  writeini setup.alt prefix 1 $iif($did($dname,34).text != $null,$did($dname,34).text,$+($chr(36),null))
  writeini setup.alt prefix 2 $iif($did($dname,35).text != $null,$did($dname,35).text,$+($chr(36),null))
  writeini setup.alt prefix 3 $iif($did($dname,36).text != $null,$did($dname,36).text,$+($chr(36),null))
  writeini setup.alt prefix 4 $iif($did($dname,37).text != $null,$did($dname,37).text,$+($chr(36),null))
  writeini setup.alt prefix 5 $iif($did($dname,38).text != $null,$did($dname,38).text,$+($chr(36),null))
  writeini setup.alt prefix 6 $iif($did($dname,23).text != $null,$did($dname,23).text,$+($chr(36),null))
  writeini setup.alt prefix 7 $iif($did($dname,41).text != $null,$did($dname,41).text,$+($chr(36),null))
  writeini setup.alt prefix 8 $iif($did($dname,40).text != $null,$did($dname,40).text,$+($chr(36),null))
  writeini setup.alt prefix 9 $iif($did($dname,39).text != $null,$did($dname,39).text,$+($chr(36),null))
  writeini setup.alt prefix 10 $iif($did($dname,42).text != $null,$did($dname,42).text,$+($chr(36),null))
  dialog -x $dname
}
on *:TEXT:*:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,1),">,$readini(setup.alt,prefix,1),$timestamp , $nick,: $chr(32) ,$strip($replace($1-,<,&lt,>,&gt)),</font><br>)
}
on *:INPUT:#:{
  if (/ != $left($1,1)) {
    dircheck $chan
    write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,1),">,$readini(setup.alt,prefix,1),$timestamp , $me,: ,$strip($replace($1-,<,&lt,>,&gt)),</font><br>)
  }
}
on *:Action:*:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,2),">,$readini(setup.alt,prefix,2),$timestamp , $nick $strip($replace($1-,<,&lt,>,&gt)),</font><br>)
}
on *:Kick:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,4),">,$readini(setup.alt,prefix,4),$timestamp , $nick kicked $knick $1-,</font><br>)
}
on *:TOPIC:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,5),">,$readini(setup.alt,prefix,5),$timestamp , $nick changes the topic to $strip($1-) ,</font><br>)
}
on *:MODE:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,9),">,$readini(setup.alt,prefix,9),$timestamp , $nick sets mode $1-,</font><br>)
}
on *:OP:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,6),">,$readini(setup.alt,prefix,6),$timestamp , $nick opped $opnick,</font><br>)
}
on *:HELP:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,6),">,$readini(setup.alt,prefix,6),$timestamp , $nick halfopped $hnick,</font><br>)
}
on *:VOICE:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,6),">,$readini(setup.alt,prefix,6),$timestamp , $nick voiced $vnick,</font><br>)
}
on *:DEOP:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,7),">,$readini(setup.alt,prefix,7),$timestamp , $nick deopped $opnick,</font><br>)
}
on *:DEHELP:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,7),">,$readini(setup.alt,prefix,7),$timestamp , $nick dehalfopped $hnick,</font><br>)
}
on *:DEVOICE:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,7),">,$readini(setup.alt,prefix,7),$timestamp , $nick devoiced $vnick,</font><br>)
}
on *:JOIN:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,10),">,$readini(setup.alt,prefix,10),$timestamp , $nick joined $chan $+($chr(123),$address($nick,5),$chr(125)),</font><br>)
  if ($nick != $me) {
    .notice $nick I am currently logging this channel. To view the log, please point your web browser to http://h1.ripway.com/altscripts/ [ $+ [ $remove($chan,$chr(35)) ] $+ [ $asctime(mm-dd-yy) ] $+ ] .htm  NOTE: You may replace the date with another, using mm-dd-yy format, and the channel with another ( withholding the $chr(35) ) To Force-Update the log, please use ~makelog
  }
  elseif ($nick == $me) {
    upload $chan
  }
}
on *:PART:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,10),">,$readini(setup.alt,prefix,10),$timestamp , $nick parted $chan,</font><br>)
  if ($nick == $me) {
    upload $chan
  }
}
on *:BAN:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,3),">,$readini(setup.alt,prefix,3),$timestamp , $nick banned $banmask $iif($bnick != $null,Nick = $bnick),</font><br>)
}
on *:UNBAN:#:{
  dircheck $chan
  write $+(AltLogs\,$remove($chan,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,3),">,$readini(setup.alt,prefix,3),$timestamp , $nick unbanned $banmask $iif($bnick != $null,Nick = $bnick),</font><br>)
}
on *:quit:{
  var %i = 0
  while (%i < $comchan($nick,0)) {
    inc %i 1
    dircheck $comchan($nick,%i)
    write $+(AltLogs\,$remove($comchan($nick,%i),$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,10),">,$readini(setup.alt,prefix,10),$timestamp , $nick quit with reason $1-,</font><br>)
  }
}
on *:Nick:{
  var %i = 0
  while (%i < $comchan($newnick,0)) {
    inc %i 1
    dircheck $comchan($newnick,%i)
    write $+(AltLogs\,$remove($comchan($newnick,%i),$chr(35)),$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,8),">,$readini(setup.alt,prefix,8),$timestamp , $nick is now known as $newnick,</font><br>)
  }
}
alias -l dircheck {
  if ($isdir(Altlogs) == $false) {
    mkdir altlogs
  }
  if ($file($+(AltLogs\,$remove($1,$chr(35)),$asctime(mm-dd-yy),.htm)) == $null) {
    write $+(AltLogs\,$remove($1,$chr(35)),$asctime(mm-dd-yy),.htm) $+(<body bgcolor=",$readini(setup.alt,colors,46),">)
  }
}
alias upload {
  upd altlogs\ [ $+ [ $remove($iif($1 == $null,$active,$1),$chr(35)) ] $+ [ $asctime(mm-dd-yy) ] $+ ] .htm
}
alias -l upd {
  write -c upload.txt altscripts
  write upload.txt 279971
  write upload.txt put $1-
  write upload.txt quit
  run upload.bat
}