Coders-IRC


IRC for Coders

tclscripts / YoutubeTitle


image
Youtube Title 1.9 # - fetches and displays video information when a YouTube link is posted in channel. # - displays title, date and rating of posted video links. # - supports also HTTPS links. # # requires: packages http # # UPDATES/CHANGES: # - (1.9) added stars for like display instead of procentages # - (1.8) added anti-flood support # - (1.8) added youtube search (it will get info from the first youtube video) # - (1.8) added support for music.youtube links # - (1.8) shows...

Read More

Invite script v1.0


image
; Invite Script v1.0 - by entropy 2020 - updated: 6/19/20 ; Change: \"#test\" to the channel you want it to work on ; Then: !i <nickname> ; RAWs for /INVITE raw 443:*:{ if (%x_nick) { .notice %x_nick $2 is already on $3 | halt } } raw 341:*:{ if (%x_nick) { .notice %x_nick $qt($2) has been invited to $3 | halt } } raw 401:*:{ if (%x_nick) { .notice %x_nick No such nickname $qt($2) on IRC | halt } } ; Events for /INVITE on *:input:#test:{ if (!i * iswm $1- && $server)...

Read More

Window Dialog


image

;=====================================================
; ChatToIRC
; DIVERSE ZAKEN VOOR ChatToIRC
;=====================================================
;=====================================================
; Auteur: JamesBond
; Homepagina: https://chatplezier.com
; Netwerk: ChatPlezier
; Server: irc.chatplezier.com
; Email: jamesbond@chatplezier.com
;=====================================================

alias ChatToIRC-Ops { dialog -dm ChatToIRC-ops ChatToIRC-ops }

dialog ChatToIRC-Ops {
  title "  ChatToIRC Ops Menu"
  size -1 -1 140 90
  icon $icodir(emoticon.ico), 0 noborder
  option dbu
  tab "Notices", 1, 2 1 135 85 
  tab "Channels", 2
  tab "Kicks/Bans", 3
  tab "Clones", 4 
  button " Aanzetten", 7, 30 20 70 10,tab1 
  button " Uitzetten", 8, 30 40 70 10,tab1
  button " Aanzetten", 9, 30 20 70 10,tab2
  button " Uitzetten", 10, 30 40 70 10,tab2
  button " Aanzetten", 11, 30 20 70 10,tab3
  button " Uitzetten", 12, 30 40 70 10,tab3
  button " Aanzetten", 13, 30 20 70 10,tab4
  button " Uitzetten", 14, 30 40 70 10,tab4
  button " Sluiten", 19, 30 60 70 10,ok
}
on *:dialog:ChatToIRC-Ops:sclick:7:{ .set %Notices On | .set %Notices 1 | /window -n @Notice | echo -a 0,4 @Notices 0,12 Berichten Staat Nu AaN 0  }
on *:dialog:ChatToIRC-Ops:sclick:8:{ .set %Notices Off | .set %Notices 0 | /window -c @Notice | echo -a 0,4 @Notices 0,12 Berichten Staat Nu UiT 0  }
on *:dialog:ChatToIRC-Ops:sclick:9:{ .set %Channels On | .set %Channels 1 | /window -n @Channels | echo -a 0,4 @Channels 0,12 Berichten Staat Nu AaN 0  }
on *:dialog:ChatToIRC-Ops:sclick:10:{ .set %Channels Off | .set %Channels 0 | /window -c @Channels | echo -a 0,4 @Channels 0,12 Berichten Staat Nu UiT 0  }
on *:dialog:ChatToIRC-Ops:sclick:11:{ .set %Kicks/Bans On | .set %Kicks/Bans 1 | /window -n @Kicks/Bans | echo -a 0,4 @Kicks/Bans 0,12 Berichten Staat Nu AaN 0  }
on *:dialog:ChatToIRC-Ops:sclick:12:{ .set %Kicks/Bans Off | .set %Kicks/Bans 0 | /window -c @Kicks/Bans | echo -a 0,4 @Kicks/Bans 0,12 Berichten Staat Nu UiT 0  }
on *:dialog:ChatToIRC-Ops:sclick:13:{ .set %Clones On | .set %Clones 1 | /window -n @Cloons | echo -a 0,4 @Clones 0,12 Berichten Staat Nu AaN 0  }
on *:dialog:ChatToIRC-Ops:sclick:14:{ .set %Clones Off | .set %Clones 0 | /window -c @Cloons | echo -a 0,4 @Clones  0,12 Berichten Staat Nu UiT 0  }

on 1:START:{
  if (%Notices == 1) {  echo -m Notices Window 3Active | /window -n @Notice }
  if (%Channels == 1) {  echo -m Channels Window 3Active | /window -n @Channels }
  if (%Kicks/Bans == 1) { echo -m Kicks/Bans Window 3Active | /window -n @Kicks/Bans }
  if (%Clones == 1) { echo -m Clones Window 3Active | /window -n @Cloons }
}

on *:NOTICE:*:*: {
  if (%Notices == 1) { 
    if ($window(Notice)) && ($nick != $me)  {
      /window -m @Notice 
      /aline -n @Notice @Notice | echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1stuurde je net notice 4Bericht:12 
    } 
    elseif ($nick != $me) {
      /window -m @Notice 
      /aline -n @Notice @Notice | echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1stuurde je net notice 4Bericht:12 $1- 
    }
  }
}

on 1:BAN:#:{
  if (%Kicks/Bans == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Kicks/Bans
    /aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/Bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[BAN]14 $chan 4 $+ $nick 12zet mode4 $1- 
  }
}
on 1:UNBAN:#:{
  if (%Kicks/Bans == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Kicks/Bans
    /aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/Bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[UNBAN]14 $chan 4 $+ $nick 12zet mode4 $1- 
  }
}
on 1:KICK:#:{
  if (%Kicks/Bans == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Kicks/Bans
    /aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 4[KICK]14 $chan 4 $+ $nick 2kick 6 $+ $knick 12 $1-
  }
}
on 1:VOICE:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt } 
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[VOICE]14 $chan 4 $+ $nick 7voice12 $vnick
  }
}
on 1:DEVOICE:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[Devoice]14 $chan 4 $+ $nick 7devoice12 $vnick
  }
}
on 1:HELP:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels  10[ $+ $time $+ ]12[ $+ $date $+ ] 10[HALFOP]14 $chan 4 $+ $nick 7halfop12 $hnick
  }
}
on 1:DEHELP:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEHALFOP]14 $chan 4 $+ $nick 7Dehalfop12 $hnick
  }
}
on 1:OP:#:{
  if (%Channels == 1) { 
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[OP]14 $chan 4 $+ $nick 7op12 $opnick
  }
}
on 1:DEOP:#:{
  if (%Channels == 1) { 
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEOP]14 $chan 4 $+ $nick 7deop12 $opnick
  }
}
on 1:OWNER:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[OWNER]14 $chan 4 $+ $nick 7owner12 $opnick
  }
}
on 1:DEOWNER:#:{
  if (%Channels == 1) {
    if ($me isin $nick) { Halt }
    /window -m @Channels
    /aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEOWNER]14 $chan 4 $+ $nick 7deowner12 $opnick
  }
}

###HL

on *:Join:#: {
  if (%Clones == 1) {
    var %host_to_search_for = $address($nick,2)
    var %number_from_that_host = $ialchan(%host_to_search_for,$chan,0)
    if (%number_from_that_host > 1) {
      ;we have clones!
      ;first set up our vars and loop
      var %count = 0
      unset %clones
      :loop
      inc %count
      ;loop through every nick, adding the nicks to %clones
      var %clones = %clones $ialchan(%host_to_search_for,$chan,%count).nick
      if (%count < %number_from_that_host) { goto loop }
      /window -m @Cloons
      //aline -n @Cloons @Cloons | echo @Cloons 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[CLOONS] 12op 14 $+ $chan 4 $+ %count $+  7-Cloons Gedetecteerd- 12Cloons Van 4 $+ $address($nick,2)
      //aline -n @Cloons @Cloons | echo @Cloons 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[Nick Cloons] 12op 14 $+ $chan $+ :12 %clones
    }
  }
}

alias open {
  .window -ekn @Services 0 0 718 504 @Services Comic Sans MS 11
  .window -ekn @Notice 0 0 718 504 @Notice Courier New 10
}

On ^*:NoticE:*:#: {
  if (%Notices == 1) { 
    if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) { goto n }
    if ($nick == chanserv) || ($nick == memoserv) || ($nick == operserv) || (nickserv == $nick) { .echo @Services [  $nick $+ : $+ $chan ] $1- | halt }
    else { .echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1 - $+ $chan $+ -  $1- | halt }
    else { .echo @Notice Notice $nick - $+ $chan $+ -  $1- | halt }
    :n
  }
}

On ^*:NoticE:*:?: {
  if (%Notices == 1) { 
    if  ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) { goto n }
    if ($nick == chanserv) || ($nick == memoserv) || ($nick == operserv) || (nickserv == $nick) { .echo @Services [  $nick  ] $1- | halt }
    else { .echo @Notice Notice $nick -Private-  $1- | halt }
    :n
  }
}

alias faddr {
  if (!$window(@Address)) { window -azdBke2 @Address $calc($window(-1).w /2 -250) $calc($window(-1).h /2 -125) 500 250 }
  if ($1) { search.addr $1- }
}
on *:INPUT:@Address: { if ($left($1,1) != /) && (!$ctrlenter) { search.addr $1- } }
alias search.addr {
  var %:adr = $1-, %:a = 1
  aline -h @Address $chr(160)
  $iif($ial(%:adr,0),aline -h 4 @Address %:adr $+($chr(40),$v1,$chr(41)) on $network is:,aline -h 4 @Address %:adr no address found on $network)
  while (%:a <= $ial(%:adr,0)) {
    aline -h 15 @Address $+(%:a,$chr(41)) $+(14,$ial(%:adr,%:a).nick,) - $ial(%:adr,%:a).addr
    inc %:a
  }
}



Expand


Read More