Hey,

I am not a good scripter but I have scripted a addme-script where people can join into the raffle.

I have access to the list of subscribers (https://api.twitch.tv/kraken/channels/CHANNELNAME/subscriptions).

My goal is to add subscribers multiple times to the rafflelist (RSNs.txt) but I am not so experienced in mIRC scripting so I don't know a way how to do this.

I've tried it already via vbscript but this way isn't possible because of:
- too long way (execute script, read script, read file, cut line in file, etc)

So I need your help and I hope you have any idea for me how I can solve my problem.

Thank you !

Code:
on *:TEXT:!give *:#: {
  if ($nick == ravelux) {
    if ($2 == 1) {
      var %lines = $lines(RSNs.txt)
      set %user1 $read(RSNs.txt, n)
      while ($read(doublecheck.txt,w,%user1) != $null) {
        set %user1 $read(RSNs.txt, n) 
      }
      msg $chan The winner is: %user1
      write doublecheck.txt %user1
    } 
    elseif ($2 == 2) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      while ((%user1 == %user2) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n) 
      }
      while ($read(doublecheck.txt,w,%user1) != $null) {
        set %user1 $read(RSNS.txt, n) 
      }
      while ($read(doublecheck.txt,w,%user2) != $null) {
        set %user2 $read(RSNS.txt, n) 
      }
      msg $chan The winners are: %user1 , %user2
      write doublecheck.txt %user1
      write doublecheck.txt %user2
    }
    elseif ($2 == 3) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user2 == %user3) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
      }
      msg $chan The winners are: %user1 , %user2 , %user3
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
    }
    elseif ($2 == 4) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user2 == %user3) || (%user2 == %user4) || (%user3 == %user4) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
    }
    elseif ($2 == 5) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      set %user5 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user1 == %user5) || (%user2 == %user3) || (%user2 == %user4) || (%user2 == %user5) || (%user3 == %user4) || (%user3 == %user5) || (%user3 == %user6) || (%user4 == %user5) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null) || ($read(doublecheck.txt,w,%user5) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
        set %user5 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4 , %user5
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
      write doublecheck.txt %user5
    }
    elseif ($2 == 6) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      set %user5 $read(RSNS.txt, n)
      set %user6 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user1 == %user5) || (%user1 == %user6) || (%user2 == %user3) || (%user2 == %user4) || (%user2 == %user5) || (%user2 == %user6) || (%user3 == %user4) || (%user3 == %user5) || (%user3 == %user6) || (%user4 == %user5) || (%user4 == %user6) || (%user5 == %user6) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null) || ($read(doublecheck.txt,w,%user5) != $null) || ($read(doublecheck.txt,w,%user6) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
        set %user5 $read(RSNS.txt, n)
        set %user6 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4 , %user5 , %user6
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
      write doublecheck.txt %user5
      write doublecheck.txt %user6
    }
    elseif ($2 == 7) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      set %user5 $read(RSNS.txt, n)
      set %user6 $read(RSNS.txt, n)
      set %user7 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user1 == %user5) || (%user1 == %user6) || (%user1 == %user7) || (%user2 == %user3) || (%user2 == %user4) || (%user2 == %user5) || (%user2 == %user6) || (%user2 == %user7) || (%user3 == %user4) || (%user3 == %user5) || (%user3 == %user6) || (%user3 == %user7) || (%user4 == %user5) || (%user4 == %user6) || (%user4 == %user7) || (%user5 == %user6) || (%user5 == %user7) || (%user6 == %user7) ||  ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null) || ($read(doublecheck.txt,w,%user5) != $null) || ($read(doublecheck.txt,w,%user6) != $null) || ($read(doublecheck.txt,w,%user7) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
        set %user5 $read(RSNS.txt, n)
        set %user6 $read(RSNS.txt, n)
        set %user7 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4 , %user5 , %user6 , %user7
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
      write doublecheck.txt %user5
      write doublecheck.txt %user6
      write doublecheck.txt %user7
    }
    elseif ($2 == 8) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      set %user5 $read(RSNS.txt, n)
      set %user6 $read(RSNS.txt, n)
      set %user7 $read(RSNS.txt, n)
      set %user8 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user1 == %user5) || (%user1 == %user6) || (%user1 == %user7) || (%user1 == %user8) || (%user2 == %user3) || (%user2 == %user4) || (%user2 == %user5) || (%user2 == %user6) || (%user2 == %user7) || (%user2 == %user8) ||  (%user3 == %user4) || (%user3 == %user5) || (%user3 == %user6) || (%user3 == %user7) || (%user3 == %user8) || (%user4 == %user5) || (%user4 == %user6) || (%user4 == %user7) || (%user4 == %user8) || (%user5 == %user6) || (%user5 == %user7) || (%user5 == %user8) || (%user6 == %user7) || (%user6 == %user8) || (%user7 == %user8) ||  ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null) || ($read(doublecheck.txt,w,%user5) != $null) || ($read(doublecheck.txt,w,%user6) != $null) || ($read(doublecheck.txt,w,%user7) != $null) || ($read(doublecheck.txt,w,%user8) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
        set %user5 $read(RSNS.txt, n)
        set %user6 $read(RSNS.txt, n)
        set %user7 $read(RSNS.txt, n) 
        set %user8 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4 , %user5 , %user6 , %user7 , %user8
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
      write doublecheck.txt %user5
      write doublecheck.txt %user6
      write doublecheck.txt %user7
      write doublecheck.txt %user8
    }
    elseif ($2 == 9) {
      var %lines = $lines(RSNS.txt)
      set %user1 $read(RSNS.txt, n)
      set %user2 $read(RSNS.txt, n)
      set %user3 $read(RSNS.txt, n)
      set %user4 $read(RSNS.txt, n)
      set %user5 $read(RSNS.txt, n)
      set %user6 $read(RSNS.txt, n)
      set %user7 $read(RSNS.txt, n)
      set %user8 $read(RSNS.txt, n)
      set %user9 $read(RSNS.txt, n)
      while ((%user1 == %user2) || (%user1 == %user3) || (%user1 == %user4) || (%user1 == %user5) || (%user1 == %user6) || (%user1 == %user7) || (%user1 == %user8) || (%user1 == %user9) || (%user2 == %user3) || (%user2 == %user4) || (%user2 == %user5) || (%user2 == %user6) || (%user2 == %user7) || (%user2 == %user8) || (%user2 == %user9) || (%user3 == %user4) || (%user3 == %user5) || (%user3 == %user6) || (%user3 == %user7) || (%user3 == %user8) || (%user3 == %user9) || (%user4 == %user5) || (%user4 == %user6) || (%user4 == %user7) || (%user4 == %user8) || (%user4 == %user9) || (%user5 == %user6) || (%user5 == %user7) || (%user5 == %user8) || (%user5 == %user9) || (%user6 == %user7) || (%user6 == %user8) || (%user6 == %user9) || (%user7 == %user8) || (%user7 == %user9) || (%user8 == %user9) || ($read(doublecheck.txt,w,%user1) != $null) || ($read(doublecheck.txt,w,%user2) != $null) || ($read(doublecheck.txt,w,%user3) != $null) || ($read(doublecheck.txt,w,%user4) != $null) || ($read(doublecheck.txt,w,%user5) != $null) || ($read(doublecheck.txt,w,%user6) != $null) || ($read(doublecheck.txt,w,%user7) != $null) || ($read(doublecheck.txt,w,%user8) != $null) || ($read(doublecheck.txt,w,%user9) != $null)) {
        set %user1 $read(RSNS.txt, n)
        set %user2 $read(RSNS.txt, n)
        set %user3 $read(RSNS.txt, n) 
        set %user4 $read(RSNS.txt, n)
        set %user5 $read(RSNS.txt, n)
        set %user6 $read(RSNS.txt, n)
        set %user7 $read(RSNS.txt, n) 
        set %user8 $read(RSNS.txt, n)
        set %user9 $read(RSNS.txt, n)
      }
      msg $chan The winners are: %user1 , %user2 , %user3 , %user4 , %user5 , %user6 , %user7 , %user8 , %user9
      write doublecheck.txt %user1
      write doublecheck.txt %user2
      write doublecheck.txt %user3
      write doublecheck.txt %user4
      write doublecheck.txt %user5
      write doublecheck.txt %user6
      write doublecheck.txt %user7
      write doublecheck.txt %user8
      write doublecheck.txt %user9
    }
    else {
      msg $chan This number is not scripted
    }
  }
  else {
  msg $nick Sorry, you are not allowed to use this command }
}