(Twitch-Bot) raffle script with subscriber-check - 25/05/15 02:18 PM
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 !
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 } }