Gather commands

Chief Sat Sep 08, 2012 11:28 pm

Gather commands
Credit to someone is build this
this code you can put in you remote and you have in options all command
pictures Script
Gather commands T6xluvwiva1jc7jb7veo

the code

Code:: ;This is version 06082009 on 1:UNLOAD:unset %fr* on 1:LOAD:frreset all on 1:CONNECT:frreset on 1:JOIN:%frchan:if (%frcommence == on) frnotice $frstatus on 1:PART:%frchan:frdel $nick on 1:QUIT:frdel $nick on 1:KICK:%frchan:frdel $knick on 1:TEXT:!game *:%frchan:if ($nick isop #) { set %frgame $strip($2-) | frsay Game set to ' $+ %frgame $+ ' } on 1:TEXT:!game:%frchan:frsay Game is ' $+ %frgame $+ ' on 1:TEXT:!on *:%frchan:if (%frcommence == off && $2 < 20 && $2 > 1) frcommence $2 on 1:TEXT:!on:%frchan:if (%frcommence == off) frcommence 10 on 1:TEXT:!ready:%frchan:if (%frcommence == on && $nick isop # && %frplayers != 0) frready on 1:TEXT:!status:%frchan:if (%frcommence == on) frnotice $frstatus | else frsay No game going on on 1:TEXT:!status *:%frchan:if ($2 == -c && $nick isop # && %frcommence == on) frsay $frstatus | elseif (%frcommence == off) frsay No game going on on 1:TEXT:!off:%frchan:if ($nick isop # && %frcommence == on) { frterminate | frsay Terminated } on 1:TEXT:!wsw:%frchan:if ($nick isop #) frnotice connect %frwswip $+ ;password %frwswpw | else frnotice %frwswip Ask an op about password on 1:TEXT:!dota:%frchan:frnotice DotA channel information: ' $+ %frdota $+ ' on 1:TEXT:!vent:%frchan:frnotice Vent information: ' $+ %frvent $+ ' on 1:TEXT:!ruspatch:%frchan:frnotice http://boro.dcmembers.com/ on 1:TEXT:!frsee:%frchan:frnotice http://boro.dcmembers.com/frsee/ on 1:TEXT:!frgather:%frchan:frnotice http://boro.dcmembers.com/gatherbot.html on 1:TEXT:!roll:%frchan:frsay You rolled $rand(1,100) - 100 on 1:TEXT:!roll *:%frchan:frsay You rolled $rand(1, $2) - $2 on 1:TEXT:!crc:%frchan:if ($nick isop #) frnotice $crc($script) on 1:TEXT:!add*:%frchan:if (%frcommence == on && $1 == !add) { if ($2 && $nick isop $chan) fradd $2 | elseif (!$2) fradd $nick } on 1:TEXT:!del*:%frchan:if (%frcommence == on && $1 == !del) { if ($2 && $nick isop $chan) frdel $2 | elseif (!$2) frdel $nick } on 1:TEXT:!set *:%frchan:if ($nick isop $chan) { if ($2 == wsw && $4) { set %frwswip $strip($3) | set %frwswpw $strip($4) | frsay Done. } | elseif ($2 == dota && $3) { set %frdota $strip($3-) | frsay Done. } | elseif ($2 == vent && $3) { set %frvent $strip($3-) | frsay Done. } } alias frreset { if ($1 == all) { unset %fr* | set %frwswip 85.236.101.63:44500 | set %frwswpw fukrog | set %frdota Garena / Hunters Arena Room set %frvent Version: 3.0 / IP: 69.12.71.203 / Port: 2552 / Server PW: p4ssw0rd9 / Room: #roguechannel / Room PW: fukrog set %frchan #fuk-rog | set %frgame HoN } .flood 400 96 24 180 | frterminate } alias -l frsay msg # FR-Gather: $1- alias -l frnotice .notice $nick FR-Gather: $1- alias -l frready frsay The game is ready! $frstatus | frterminate | frsay Terminated alias -l frstat return $chr(91) $+ %frcurrent $+ / $+ %frplayers $+ $chr(93) alias -l frcommence { set %frplayers $int($1) | var %frcounter 0 while (%frcounter < %frplayers) { set %fr $+ $calc(%frcounter +1) x | inc %frcounter } frsay Starting a game with %frplayers players. Starter:7 $nick | Playing:7 %frgame frsay Use 7!add/7!del/7!status or write 7!help for more information set %frstarter $nick | set %frcommence on | set %frcurrent 0 } alias -l frterminate { var %frcounter 0 while (%frcounter < %frplayers) { unset %fr $+ $calc(%frcounter +1) | inc %frcounter } unset %frplayers %frcurrent %frstarter | set %frcommence off } alias -l frstatus { var %frcounter 0 while (%frcounter < %frplayers) { var %frtemp %frtemp $eval($+(%,fr,$calc(%frcounter + 1)),2) - | inc %frcounter } return $frstat Playing:7 %frgame | Starter:7 %frstarter $+ $chr(91) 7 $+ $left(%frtemp,-1) $+ $chr(93) } alias -l fradd { var %frcounter 0 while (%frcounter < %frplayers) { if ($eval($+(%,fr,$calc(%frcounter +1)),2) == $strip($1)) return | inc %frcounter } %frcounter = 0 while (%frcounter < %frplayers) { if ($eval($+(%,fr,$calc(%frcounter +1)),2) == x) { set $eval($+(%,fr,$calc(%frcounter +1)),1) $strip($1) | inc %frcurrent | break } inc %frcounter } if (%frcurrent == %frplayers) frready else frsay $frstat } alias -l frdel { if ($1 == x) return var %frcounter 0 while (%frcounter < %frplayers) { if ($eval($+(%,fr,$calc(%frcounter +1)),2) == $1) { set $eval($+(%,fr,$calc(%frcounter +1)),1) x | dec %frcurrent | msg %frchan FR-Gather: $frstat | break } inc %frcounter } } on 1:TEXT:!list*:%frchan:{ if ($1 == !list && $nick isop #) { if ($2 == add) { if (!$3) frsay Please specify someone to add to the highlight list else { write -ds $+ $3 frlist.txt | write frlist.txt $3 | frsay [Highlight] $3 added. } } elseif ($2 == del) { if (!$3) frsay Please specify someone to remove from the highlight list elseif ($3 == all) write -c frlist.txt else { write -ds $+ $3 frlist.txt | frsay [Highlight] $3 removed. } } elseif (!$2) { var %frlistcount 0 while (%frlistcount < $lines(frlist.txt)) { inc %frlistcount | var %frcounter 0 | var %frinlist 0 | set %frtemp $read(frlist.txt, %frlistcount) while (%frcounter < %frplayers) { if ($eval($+(%,fr,$calc(%frcounter + 1)),2) == %frtemp) { %frinlist = 1 | break } | inc %frcounter } if (!%frinlist && (%frtemp ison #)) var %frnames %frnames %frtemp } frsay [Highlight] %frnames unset %frtemp } } } on 1:TEXT:!help:%frchan:{ frnotice Bot written by 7FR (@ in front of something means that you have to be an op) frnotice 7!help [option]: Displays some information. Option being game, info, set or list (or displays this if not specified) frnotice 7!about: Display information about the bot frnotice 7!roll [number]: Rolls between 1 and 100 (or 1 and number, if specified) frnotice 7@!crc: Shows the CRC checksum of the script in PM (used for devs to check versions) } on 1:TEXT:!help *:%frchan:{ frnotice Bot written by 7FR (@ in front of something means that you have to be an op) if ($2 == game) { frnotice 7!game [@game]: Set the game that is being played (or show what's playing if param is not specified) frnotice 7!on [p]: Start a game with p players (or 10 if not specified) frnotice 7@!off: Turn off the game frnotice 7@!ready: Just like !off except that it will show the players playing before turning off frnotice 7!add [@nick]: Add yourself (or nick, if specified) to the bot frnotice 7!del [@nick]: Remove yourself (or nick, if specified) from the bot frnotice 7!status [@-c]: Shows the status of the current game as a PM (status) and in the channel (ministatus). If -c is specified, it will show status in the channel only } elseif ($2 == info) { frnotice 7!dota: Display DotA information frnotice 7!wsw: Display warsow information frnotice 7!vent: Display ventrillo information frnotice 7!frsee: Display FRsee information frnotice 7!ruspatch: Display RUSpatch information frnotice 7!frgather: Display information about FRgather } elseif ($2 == set) { frnotice 7@!set dota <frdota>: Set the channel which is being played on frnotice 7@!set wsw <frwswip> <frwswpw>: Set wsw to show ip and password frnotice 7@!set vent <frventinfo> [frventver] [frventip] [frventport] [frventservpw] [frventroom] [frventroompw]: Set ventrilo version, IP, port, password, room, roompassword respectively } elseif ($2 == list) { frnotice 7@!list add <name>: Adds someone to the list frnotice 7@!list del <name>: Removes someone from the list frnotice 7@!list: Highlights everyone on the player list in the channel } } on 1:TEXT:!about:%frchan:{ frnotice Bot is written by FR team that includes: frnotice 7Depressed, 7Mezmor (General programmers) frnotice 7Goldmember, 7slashi (General testers and idea-givers :P) }

Enjoy

Mon	Tue	Wed	Thu	Fri	Sat	Sun
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30