Forums Scripts & Popups I Need Help with Twitch IRC Scripting

;Raffle System (Beavis)
on *:text:!raffle off:#:{
  if ($nick isop #) {
    set %ticketoff 1
    msg $chan $nick, the raffle/giveaway system is now set to OFF.
  }
  else { msg $chan This command is only available to moderators. }
}
on *:text:!raffle on:#:{
  if ($nick isop #) {
    unset %ticketoff
    msg $chan $nick has started a raffle/giveaway. To enter the raffle/giveaway, you need a ticket. You can purchase a ticket for 200pts by typing the command "!ticket"; only 1 ticket allowed per user. 
  }
  else { msg $chan This command is only available to moderators. }
}
on *:text:!ticket:#:{
  if (%ticketoff) { msg $chan There is currently no raffle/giveaway. | HALT }
  if ((%floodraffle) || ($($+(%,floodraffle.,$nick),2))) { return }
  set -u3 %floodraffle On
  set -u60 %floodraffle. $+ $nick On
  /* Add follower check script here. 
  https://albinstuff.net/twitch2.php?id=[USERNAME]&follows=[FOLLOWS] might have what I need.
  */
  if ($hget($+(tickets.,#),$nick)) { msg # $nick , you already have a ticket! | return }
  var %topic = $+(#,.,$nick)
  ; Check if enough points
  if ($readini(Points.ini,%topic,Points) >= 200) {
    ; Deduct the points
    var %a = $v1 - 200
    writeini Points.ini %topic Points %a
    ; Add the user to tickets.#channel hash table, creating the table if it doesn't exist
    hadd -m $+(tickets.,#) $nick 1
    msg # $nick spent 200 points on a raffle ticket.
  }

else msg #  Sorry $nick , you don't have enough points to join this raffle. You need 200 points to join. }

on *:text:!roll:#:{
  if ($nick isop #) {
    if ($hget($+(tickets.,#))) {
      var %i = $r(1,$hget($+(tickets.,#),0).item)
      msg # The winner is $hget($+(tickets.,#),%i).item
      ; The next line frees the table (all data in it is gone)
      hfree $+(tickets.,#)
    }
    else msg # There are no ticket entries at this time. 
  }
  else msg # $nick, only moderators can use that command.
}

{"created_at":"2014-02-21T19:34:46Z","_links":{"self":"https://api.twitch.tv/kraken/users/radmux/follows/channels/fresherdata"},"channel":{"mature":true,"abuse_reported":null,"status":"DayZ SA Experimental Adventures in the wild","display_name":"fresherdata","game":"DayZ","delay":0,"_id":28363157,"name":"fresherdata","created_at":"2012-02-19T21:04:31Z","updated_at":"2014-06-03T06:01:54Z","logo":"http://static-cdn.jtvnw.net/jtv_user_pictures/fresherdata-profile_image-c467c541d1d7103d-300x300.jpeg","banner":"http://static-cdn.jtvnw.net/jtv_user_pictures/fresherdata-channel_header_image-a2f576bce4791618-640x125.png","video_banner":"http://static-cdn.jtvnw.net/jtv_user_pictures/fresherdata-channel_offline_image-2de465272540a574-640x360.png","background":null,"profile_banner":null,"profile_banner_background_color":"null","url":"http://www.twitch.tv/fresherdata","views":124907,"followers":6233,"_links":{"self":"https://api.twitch.tv/kraken/channels/fresherdata","follows":"https://api.twitch.tv/kraken/channels/fresherdata/follows","commercial":"https://api.twitch.tv/kraken/channels/fresherdata/commercial","stream_key":"https://api.twitch.tv/kraken/channels/fresherdata/stream_key","chat":"https://api.twitch.tv/kraken/chat/fresherdata","features":"https://api.twitch.tv/kraken/channels/fresherdata/features","subscriptions":"https://api.twitch.tv/kraken/channels/fresherdata/subscriptions","editors":"https://api.twitch.tv/kraken/channels/fresherdata/editors","teams":"https://api.twitch.tv/kraken/channels/fresherdata/teams","videos":"https://api.twitch.tv/kraken/channels/fresherdata/videos"}}}

true

alias followcheck {
  var %follow $1
  var %username $iif($left($2,1) == $chr(35),$right($2,-1),$2)
  var %url $+(https://api.twitch.tv/kraken/users/,%follow,/follows/channels/,%username)

  jsonclearcache
  var %error $json(%url,error) 
  if !%error { 
    echo -tag %follow is follower of %username  
  }
  else { 
    echo -tag %follow is not follower of %username  
  }
}

on *:text:!gimme:#: {
  followcheck
  if !%error { msg $chan $nick , you are not a follower. Hit that follow button to have access to this command! | halt }
else { msg $chan Here is your gold. } 
}

alias followcheck {
  var %follow $1
  var %username $iif($left($2,1) == $chr(35),$right($2,-1),$2)
  var %url $+(https://api.twitch.tv/kraken/users/,%follow,/follows/channels/,%username)

  jsonclearcache
  var %error $json(%url,error) 

  if $isid { return %error }

  if !%error { 
    echo -tag %follow is follower of %username  
  }
  else { 
    echo -tag %follow is not follower of %username  
  }
}

on *:text:!gimme:#: {
  var %error $followcheck($nick,$chan)

  if %error { msg $chan $nick , you are not a follower. Hit that follow button to have access to this command! }
  else { msg $chan Here is your gold. } 
}

menu nicklist {
  Followcheck:/followcheck $1
}


alias followcheck {
  var %follow $1
  var %username $iif($left($2,1) == $chr(35),$right($2,-1),$2)
  var %url $+(https://api.twitch.tv/kraken/users/,%follow,/follows/channels/,%username)

  jsonclearcache
  var %error $json(%url,error) 
  if !%error { 
    msg # %follow is following %username  
  }
  else { 
    msg # %follow is not following %username  
  }
}

on $*:text:!followers:#: {
  followers.update -s # 
}

alias followers.update {
  if (-* iswm $1) {
    var %switches = $1
    tokenize 32 $2-
  }
  var %chan = #$$1, %limit = $iif($2,$2,25), %offset = $iif($3,$3,0)
  var %sockname = twitch.followers. $+ $ticks
  hfree -w %sockname | hmake %sockname
  hadd %sockname chan %chan
  hadd %sockname limit %limit
  hadd %sockname offset %offset
  hadd %sockname request /kraken/channels/ $+ $mid(%chan,2-) $+ /follows?limit= $+ %limit $+ &offset= $+ %offset
  hadd %sockname method GET
  hadd %sockname signal followers.update
  if (s isin %switches) hadd %sockname show 1
  if (!$hget(followers. $+ %chan)) hadd %sockname init 1
  sockopen -e %sockname api.twitch.tv 443
  return %sockname
}

on *:signal:followers.update:{
  var %err = $1, %sockname = $2, %header = $3, %data = $4
  var %chan = $hget(%sockname,chan), %init = $hget(%sockname,init), %show = $hget(%sockname,show)

  if (* 200 OK iswm $read(%header,n,1)) {
    if (!$hget(followers. $+ %chan)) {
      hmake -s followers. $+ %chan $iif($calc($json(%data,_total) / 10) > 100,$v1,$v2)
      if ($ini(followers.ini,%chan,0) > 0) hload -i followers. $+ %chan followers.ini %chan
    }

    var %i = 0, %n = $json(%data,follows).count, %new.count
    while (%i < %n) {
      var %name = $json(%data,follows,%i,user,name)
      var %display_name = $json(%data,follows,%i,user,display_name)
      if (!$hget(followers. $+ %chan,%name)) {
        hadd followers. $+ %chan %name 1
        if (!%init) && (%show) {
          set -nz %followers. $+ %chan %followers. [ $+ [ %chan ] ] %display_name
          if ($calc($len(%followers. [ $+ [ %chan ] ]) + $len(%display_name)) > 350) {
            var %msg = Welcome to our new follower $+ $iif($numtok(%followers. [ $+ [ %chan ] ],32) > 1,s:,:) $regsubex(%followers. [ $+ [ %chan ] ],/( $+ $chr(32) $+ )/g,$iif(\n == \0,$iif(\0 > 2,$chr(44),$chr(32)) and $chr(32),$chr(44) $+ $chr(32))) $+ !
            .timer 1 $iif(%flood.protection,$v1,0) msg %chan $safe(%msg)
            inc -z %flood.protection 5
            unset %followers. [ $+ [ %chan ] ]
          }
        }
        inc %new.count
      }
      else break
      inc %i
    }

    if (%new.count == $hget(%sockname,limit)) {
      followers.update %chan 100 $calc($hget(%sockname,limit) + $hget(%sockname,offset))
      var %next = $result
      if (%init) hadd %next init 1
      if (%show) hadd %next show 1
    }
    else {
      if (!%init) && (%show) && (%new.count) {
        var %msg = Welcome to our new follower $+ $iif($numtok(%followers. [ $+ [ %chan ] ],32) > 1,s:,:) $regsubex(%followers. [ $+ [ %chan ] ],/( $+ $chr(32) $+ )/g,$iif(\n == \0,$iif(\0 > 2,$chr(44),$chr(32)) and $chr(32),$chr(44) $+ $chr(32))) $+ !
        .timer 1 $iif(%flood.protection,$v1,0) msg %chan $safe(%msg)
        inc -z %flood.protection 5
      }  
      unset %followers. [ $+ [ %chan ] ]
      if ($hget(followers. $+ %chan)) hsave -i followers. $+ %chan followers.ini %chan
    }
  }

  hfree -w %sockname
  if ($isfile(%header)) .remove %header
  if ($isfile(%data)) .remove %data
}

var %i = 0, %n = $json(%data,follows).count, %new.count
echo -a n value is %n
while (%i < %n) {

on *:TEXT:!followers:#:if $nick isop # { follow # }

alias follow {
  var %chan $1, %username $iif($left($1,1) == $chr(35),$right($1,-1),$1)
  var %cmd $iif(%chan ischan,msg %chan,echo -agt)
  if !$readini(follower.ini,%username,$chr(44)) {
    %cmd start follower update for %chan $+ ...
    follow@ %chan %username
  }
  else { %cmd follower update for %chan is in progress.. }
}

alias -l follow@ {
  var %chan $1, %username $2, %follow 
  tokenize 32 $readini(follower.ini,%username,$chr(44))
  var %limit 100, %offset $iif($1,$1,0), %ctime $iif($2,$2,$ctime)
  var %lastshow $iif(!$ini(follower.ini,%username),10)
  var %url $+(https://api.twitch.tv/kraken/channels/,%username,/follows?limit=,%limit,&offset=,%offset)

  echo -agt parsing.. %url | ; if you dont want to see update progress, delete this line.

  var %i 0 | while $json(%url,follows,%i,user,display_name) {
    var %f $v1 | inc %i
    if ($numtok(%follow,32) <= %lastshow || (!%lastshow && !$readini(follower.ini,%username,%f))) && %offset == 0 { %follow = %follow %f }
    writeini follower.ini %username %f %ctime
  }
  var %cmd $iif(%chan ischan,msg %chan,echo -agt)
  if %offset == 0 {
    if %follow { %cmd Welcome to our new followers: $replace(%follow,$chr(32),$+($chr(44),$chr(32))) }
    else { %cmd There is no new followers }
  }

  if %i == %limit { 
    inc %offset %limit 
    writeini follower.ini %username $chr(44) %offset %ctime 
    .timerfollow. [ $+ [ %chan ] ] 1 5 follow@ %chan %username
  }
  else { 
    var %tmp $+(%username,.tmp)
    remini follower.ini %username $chr(44)
    hmake %username | hload -i %username follower.ini %username | hsave -i %username %tmp
    window -h @.
    filter -fwx %tmp @. $+(*,%ctime,*) 
    filter -cww @. @. *=*
    var %unfollow, %i 1 
    while $line(@.,%i) {
      %unfollow = %unfollow $v1
      remini follower.ini %username $v1
      inc %i
    }
    window -c @.
    hfree %username | .remove %tmp

    if %unfollow { %cmd Goodbye to our followers: $replace(%unfollow,$chr(32),$+($chr(44),$chr(32))) }
    echo -agt follower update for %chan is completed ( $ini(follower.ini,%username,0) users ) 
  }
}

    while $line(@.,%i) {
      var %uf $gettok($v1,1,61)
      %unfollow = %unfollow %uf
      remini follower.ini %username %uf
      inc %i
    }