Forums Scripts & Popups Advertisement script - Read from Website, auto.

alias theme return 
alias t.set {
  ;; 4 is time in seconds
  if ($1 == 1) return $+($theme,Din timer vil nu køre hvert time. ,$theme,.)
  elseif ($1 == 2) return $+($theme,,$nick,,$chr(44) Du har allerede en timer kørende! Type !timer off for at fjerne din timer.)
  elseif ($1 == 3) return $+($theme,[GamerInfo] $3- )
  elseif ($1 == 4) return 600
  elseif ($1 == 5) return $+($theme,Din timer er blevet fjernet fra rotationen.)
  elseif ($1 == 6) return $+($theme,$2 $+ 's timer er blevet fjernet fra rotationen.)

}
on *:NICK:{
  if ($timer($+(.,$nick.,$chan,.advert)).secs) {
    timer $+ $+(.,$nick,.,$chan,.advert) off
    var %com $left($gettok($timer($+(.,$nick.,$chan,.advert)).com,3-,44),$calc($len($gettok($timer($+(.,$nick.,$chan,.advert)).com,3-,44)) - 1))
    .timer $+ $+(.,$newnick,.,$chan,.advert) 0 $v1 msg $chan $+($,t.set,$chr(40),3,$chr(44),$newnick,$chr(44),%com,$chr(41)) 
  }
}

on *:TEXT:*:#:{
  if ($nick isop #) {
    if ($1 == !timer) {
      if ($2 == on) {
        if (!$timer($+(.,$nick.,$chan,.advert)).secs) {
          msg $chan $nick $t.set(1)
          msg $chan $t.set(3,$nick,$3-)
          .timer $+ $+(.,$nick,.,$chan,.advert) 0 $t.set(4) msg $chan $+($,t.set,$chr(40),3,$chr(44),$nick,$chr(44),$3-,$chr(41))
        }
        else {
          msg $chan $t.set(2)
        }
      }
      elseif ($2 == off) {
        if (!$3) {
          msg $chan $t.set(5)
          .timer $+ $+(.,$nick,.,$chan,.advert) off 
        }
        elseif ($3 && $nick($chan,$nick,@&~)) {
          msg $chan $t.set(6,$3)
          .timer $+ $+(.,$3,.,$chan,.advert) off 
        }
      }
    }
  }
}

alias gmr sockopen gmr www.playgames.dk 80

on *:SockOpen:gmr: {  
  sockwrite -n $sockname GET /playtime.txt HTTP/1.1
  sockwrite -n $sockname Host: www.playgames.dk
  sockwrite -n $sockname
}

on *:sockread:gmr: {
  var %data | sockread -f %data
  if (html isin %data) { 
    set %link %data 
    echo -ag %link | sockclose $sockname
  }
}

alias gmr sockopen gmr www.playgames.dk 80

on *:SockOpen:gmr: {  
  sockwrite -n $sockname GET /playtime.txt HTTP/1.1
  sockwrite -n $sockname Host: www.playgames.dk
  sockwrite -n $sockname
}

on *:sockread:gmr: {
  var %data | sockread -f %data
  if (html isin %data) { 
    set %link %data 
    echo -ag %link | sockclose $sockname
  }
}

on *:TEXT:!test*:#gamerhuset: {
  if ($nick isop #) {
    .msg $chan Jokkebaby %link %data
    var %data | sockread -f %data
    if (html isin %data) { 
      set %link %data 
      echo -ag %link | sockclose $sockname
    }
  } 
  else {
    if (($($+(%,commandspam.,$nick),2) == On )  || ($($+(%,commandspam.,$chan),2) == On ))  { return }
    .halt
  }
}

alias gmr sockopen gmr www.playgames.dk 80

on *:SockOpen:gmr: {  
  sockwrite -n $sockname GET /playtime.txt HTTP/1.1
  sockwrite -n $sockname Host: www.playgames.dk
  sockwrite -n $sockname
}

on *:sockread:gmr: {
  var %data | sockread -f %data
  if (html isin %data) { 
    set %link %data 
    echo -ag %link | sockclose $sockname
  }
}

on 1:text:!test:#: {

  ;We will create the socket and mark it with the channel where it has to send the answer

  var %sock = gmr $+ $ticks
  sockopen %sock www.playgaes.dk 80
  sockmark %sock $chan

}

on *:text:!test:#: {

set %chan #
sockopen gmr www.playgames.dk 80


on *:SockOpen:gmr: {  
  sockwrite -n $sockname GET /playtime.txt HTTP/1.1
  sockwrite -n $sockname Host: www.playgames.dk
  sockwrite -n $sockname
}

on *:sockread:gmr: {
  var %data | sockread -f %data
  if (html isin %data) { 
  msg %chan %data | sockclose $sockname
  }
 }
}

* /sockwrite: 'GET' no such socket (line 8, script5.ini)
-
/resident-evil-biohazard-remaster-p-1400.html
-
[21:47:20] ON Unknown command

on *:text:!test:#: {

  set %chan #
  sockopen gmr www.playgames.dk 80
}

on *:SockOpen:gmr: {  
  sockwrite -n $sockname GET /playtime.txt HTTP/1.1
  sockwrite -n $sockname Host: www.playgames.dk
  sockwrite -n $sockname
}

on *:sockread:gmr: {
  var %data | sockread -f %data
  if (html isin %data) { 
    msg %chan %data | sockclose $sockname
  }
}