/ScriptServ

;This bot was made by Hawkee and if the only reason your useing this script is for this get Hawkee's fserve script
[About]
show=penguin

[Windows]
main=0,0,0,0,2
wchannel=11,510,47,278,0

[DDE]
ServerStatus=on
ServiceName=mIRC

[mPopup]
n0=Join channel:/join #$$?="Enter channel name:"
n1=Whois user:/whois $$?="Enter nickname:"
n2=CTCP
n3=.Ping:/ctcp $$?="Enter nickname:" ping
n4=.Time:/ctcp $$?="Enter nickname:" time
n5=.Version:/ctcp $$?="Enter nickname:" version
n6=.Finger:/ctcp $$?="Enter nickname:" finger
n7=DCC
n8=.Send:/dcc send $$?="Enter nick to send to"
n9=.Chat:/dcc chat $$?="Enter nick to chat with"
n10=-
n11=Fserve Setup:/setup
n12=Change Setup
n13=.Access command:%command = $$?="Please enter a new fserve command:"
n14=.Fserve directory:%directory = $$?="Please enter a new fserve directory:"
n15=.Welcome file:%welcome = $dir="Select a Welcome file" c:\
n16=.Starting Credits:%start = $$?="How many free credits offered?"
n17=.Ratio:%ratio = $$?="What byte ratio on 1 upload? defaut: 2"
n18=.Horse names:%horse1 = $$?="What do you want to name Horse #1?" | %horse2 = $$?="What do you want to name Horse #2?" | %horse3 = $$?="What do you want to name Horse #3?" 
n19=.Auto Message On-Off
n20=..On:/enable #join
n21=..Off:/disable #join
n22=Fserve On-Off
n23=.Activate Fserve: {
n24=if ( %shutdown != $null ) { 
n25=/.dlevel 1 
n26=/echo $me Activated %command -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.6 
n27=/set %shutdown $null
n28=}
n29=else { /echo $me Your fserve is already activated }
n30=}
n31=.Deactivate Fserve: {
n32=if ( %shutdown == $null ) {
n33=/.dlevel 8
n34=/set %shutdown $$?="What is the reason for the shutdown?" 
n35=/echo $me Shut down %command $+ : %shutdown 
n36=}
n37=else { /echo $me Your fserve is already deactivated }
n38=}
n39=-
n40=Set Away
n41=.On:/away $$?="Enter away message:"
n42=.Off:/away
n43=Ignore User:/ignore $$?="Enter nickname:"
n44=Names:/names #$$?="Enter a channel name:"
n45=Change Nick:/nick $$?="Enter your new nickname:"
n46=List Channels:/list
n47=Quit IRC:/quit -°° £õGìÇ-§üÇkS°°- Leecher Proof fserve v1.06

[qPopup]
n0=Whois:/whois $$1
n1=CTCP
n2=.Ping:/ctcp $$1 ping
n3=.Version:/ctcp $$1 version
n4=.Time:/ctcp $$1 time
n5=DCC
n6=.Send:/dcc send $$1
n7=.Chat:/dcc chat $$1
n8=-
n9=Free credits:%free = $$?="Enter amount of credits" | /msg $$1 You have been awarded %free free download credits on %command | /inc % $+ ( $+ $$1 $+ )  %free | /msg $$1 You now have % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] credits.
n10=Take credits:%lose = $$?="How many credits do you want to take?" | /msg $$1 I have taken %lose credits from you... sorry | /dec % $+ ( $+ $$1 $+ )  %lose | /msg $$1 You now have % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] credits.
n11=Leecher Access
n12=.On:/msg $$1 You have been awarded full leecher access on %command |  /set % [ $+ [ $$1 [ $+ leech ] ] ] on | /.ruser 6 $$1 | /unset % [ $+ [ $$1 [ $+ ban ] ] ] 
n13=.Off:/unleech $$1
n14=Ban from fserve :% [ $+ [ $$1 [ $+ ban ] ] ] = $$?="Enter reason for ban" | /msg $$1 Sorry, you have been banned from my fserve: -= $+ % [ $+ [ $$1 $+ ban ] ] $+ =- | /.auser 6 $$1 | /unset % [ $+ [ $$1 [ $+ leech ] ] ]
n15=Unban from fserve:/unban $$1
n16=User info:/info $$1

[lPopup]
n0=-°° £õGìÇ-§üÇkS°°- version 1.06:/me is using -°° £õGìÇ-§üÇkS°°- Leeher proof fserve v1.06 | /me -= $+ $read [ $mircdir $+ leech.txt ] $+ =-
n1=Whois:/whois $$1
n2=-
n3=-°° £õGìÇ-§üÇkS°°- v1.06
n4=.Free credits:%free = $$?="Enter amount of credits" | /notice $$1 You have been awarded %free free download credits on %command | /inc % $+ ( $+ $$1 $+ ) %free | /notice $$1 You now have % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] credits.
n5=.Take credits:%lose = $$?="How many credits do you want to take?" | /notice $$1 I have taken %lose credits from you... sorry | /dec % $+ ( $+ $$1 $+ ) %lose | /notice $$1 You now have % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] credits.
n6=.Leecher Access
n7=..On:/notice $$1 You have been awarded full leecher access on %command |  /set % [ $+ [ $$1 [ $+ leech ] ] ] on | /.ruser 6 $$1 | /unset % [ $+ [ $$1 [ $+ ban ] ] ] 
n8=..Off:/unleech $$1
n9=.Ban from fserve :% [ $+ [ $$1 [ $+ ban ] ] ] = $$?="Enter reason for ban" | /notice $$1 Sorry, you have been banned from my fserve: -= $+ % [ $+ [ $$1 $+ ban ] ] $+ =- | /.auser 6 $$1 | /unset % [ $+ [ $$1 [ $+ leech ] ] ]
n10=.Unban from fserve:/unban $$1
n11=Fserve Setup
n12=.Current Setup:/setup
n13=.Access command:%command = $$?="Please enter a new fserve command:"
n14=.Fserve directory:%directory = $$?="Please enter a new fserve directory:"
n15=.Welcome file:%welcome = $dir="Select a Welcome file" c:\
n16=.Starting Credits:%start = $$?="How many free credits offered?"
n17=.Ratio:%ratio = $$?="What byte ratio on 1 upload? defaut: 2"
n18=.Horse names:%horse1 = $$?="What do you want to name Horse #1?" | %horse2 = $$?="What do you want to name Horse #2?" | %horse3 = $$?="What do you want to name Horse #3?" 
n19=.Auto Message On-Off
n20=..On:/enable #join
n21=..Off:/disable #join
n22=Fserve On-Off
n23=.Activate Fserve: {
n24=if ( %shutdown != $null ) { 
n25=/.dlevel 1 
n26=/msg # I have just activated %command which is protected by -=Hawkee=- Leecher Proof Fserve v1.6 
n27=/set %shutdown $null
n28=}
n29=else { /echo $me Your fserve is already activated }
n30=}
n31=.Deactivate Fserve: {
n32=if ( %shutdown == $null ) {
n33=/.dlevel 8
n34=/set %shutdown $$?="What is the reason for the shutdown?" 
n35=/msg # I have just shut down %command $+ : %shutdown 
n36=}
n37=else { /echo $me Your fserve is already deactivated }
n38=}
n39=User info:/info $$1
n40=-
n41=Op Controls
n42=.Op:/mode # +o $$1
n43=.Deop:/mode # -o $$1
n44=.Add +v:/mode # +v $$1
n45=.Add -v:/mode # -v $$1
n46=.Kick:/kick # $$1 $$?="Why do you wanna kick this person?"
n47=.Ban
n48=..Normal Ban:/ban $$1 3
n49=..Timed Ban:%time = $$?="Length of ban:" | /mode $chan +b $address($$1,3) | /timer 1 %time /mode $chan -b $address($$1,3) | /msg $chan $1 has been banned for %time seconds.
n50=.Timed Ban/Kick:/%time = $$?="Length of ban-kick:" | /mode $chan +b $address($$1,3) | /kick $chan $$1 You're ban Kicked! | /timer 1 %time /mode $chan -b $address($$1,3) | /msg $chan $1 has been ban-kicked for %time seconds. | /msg $$1 You have been ban-kicked for %time seconds
n51=.Ban/Kick:/ban $1 3 | /kick # $$1 You have been ban kicked!
n52=.Deop/Ban/Kick:/mode # -o $$1 | /ban $$1 3 | /kick # $$1 Buh bye...
n53=CTCP
n54=.Ping:/ctcp $$1 ping
n55=.Version:/ctcp $$1 version
n56=.Time:/ctcp $$1 time
n57=.Anything:/ctcp $$1 $$?="What CTCP do you wanna do?"
n58=DCC
n59=.Send:/dcc send $$1
n60=.Chat:/dcc chat $$1
n61=-
n62=Mass Things
n63=.Mass Op:/mode # +oooo $$1 $2 $3 $4 | /mode # +oooo $5 $6 $7 $8 | /mode # +oooo $9 $10 $11 $12 | /mode # +oooo $13 $14 $15 $16 | /mode # +oooo $17 $18 $19 $20 | /mode # +oooo $21 $22 $23 $24 | /mode # +oooo $25 $26 $27 $28 | /mode # +oooo $29 $30 $31 $32 | /mode # +oooo $33 $34 $35 $36 | /mode # +oooo $37 $38 $39 $40
n64=.Mass Deop:/mode # -oooo $$1 $2 $3 $4 | /mode # -oooo $5 $6 $7 $8 | /mode # -oooo $9 $10 $11 $12 | /mode # -oooo $13 $14 $15 $16 | /mode # -oooo $17 $18 $19 $20 | /mode # -oooo $21 $22 $23 $24 | /mode # -oooo $25 $26 $27 $28 | /mode # -oooo $29 $30 $31 $32 | /mode # -oooo $33 $34 $35 $36 | /mode # -oooo $37 $38 $39 $40
n65=.Mass +v:/mode # +vvvv $$1 $2 $3 $4 | /mode # +vvvv $5 $6 $7 $8 | /mode # +vvvv $9 $10 $11 $12 | /mode # +vvvv $13 $14 $15 $16 | /mode # +vvvv $17 $18 $19 $20 | /mode # +vvvv $21 $22 $23 $24 | /mode # +vvvv $25 $26 $27 $28 | /mode # +vvvv $29 $30 $31 $32 | /mode # +vvvv $33 $34 $35 $36 | /mode # +vvvv $37 $38 $39 $40
n66=.Mass -v:/mode # -vvvv $$1 $2 $3 $4 | /mode # -vvvv $5 $6 $7 $8 | /mode # -vvvv $9 $10 $11 $12 | /mode # -vvvv $13 $14 $15 $16 | /mode # -vvvv $17 $18 $19 $20 | /mode # -vvvv $21 $22 $23 $24 | /mode # -vvvv $25 $26 $27 $28 | /mode # -vvvv $29 $30 $31 $32 | /mode # -vvvv $33 $34 $35 $36 | /mode # -vvvv $37 $38 $39 $40
n67=.Mass Ban:/ban $$* 3
n68=.Mass Kick:/kick # $$* $$?="What's your mass kick message?"
n69=.Mass Invite:/invite $$* $$?="Where do you wanna invite all these people to?"
n70=.Mass Msg:/msg $$* $$?="Enter your message"
n71=Channel Games
n72=.Guess my number: 
n73=..On:{
n74=if ( %guess == on ) { /echo $me A game of Guess my Number is already activated | halt }
n75=else {
n76=/set %guess on
n77=/set %counter 0
n78=/set %answer $$?="Please enter a number (R for random)"
n79=if ( %answer == R ) /set %answer $r(1,999999999)
n80=/notice $chan $me has opened -Guess My Number-
n81=/notice $chan To make a guess type !guess <number>
n82=/notice $chan -=Hawkee=- v1.6
n83=}
n84=}
n85=..Off: {
n86=/set %guess off 
n87=/notice $chan $me has deactivated -Guess My Number-
n88=/notice $chan -=Hawkee=- v1.6
n89=}
n90=.Hangman: 
n91=..On{
n92=if ( %hangman == on ) { /echo $me A game of Hangman is already activated | halt }
n93=else {
n94=/set %hangmanphrase $$?="What phrase will they try to guess?"
n95=:back
n96=if (( , isin %hangmanphrase ) || ( * isin %hangmanphrase )) {
n97=/set %hangmanphrase $$?="Use only letters, please re-enter phrase" 
n98=}
n99=/set %hangman on
n100=/set %lcv 0
n101=/set %wrongletters <
n102=/set %guessed -
n103=/set %hangmanguess >
n104=/set %spaces $count(%hangmanphrase,$chr(32))
n105=/inc %spaces 1  
n106=/set %loop 0
n107=/set %loop2 0
n108=:loop
n109=/inc %loop 1
n110=:innerloop
n111=/set %hangmanguess %hangmanguess $+ _ 
n112=/inc %loop2 1
n113=if ( %loop2 < $len($token(%loop,32,%hangmanphrase)) ) goto innerloop
n114=/set %loop2 0
n115=if ( %loop != %spaces ) { /set %hangmanguess %hangmanguess $+ - }
n116=if ( %loop < %spaces ) goto loop
n117=/set %hangmanphrase2 $mid(1,1,%hangmanphrase)
n118=/set %completeloops 1
n119=/set %loop 0
n120=/set %loop2 1
n121=:loop2
n122=/inc %loop 1
n123=:innerloop2
n124=/inc %completeloops 1
n125=/set %hangmanphrase2 %hangmanphrase2 $+ $mid(%completeloops,1,%hangmanphrase)
n126=/inc %loop2 1
n127=if ( %loop2 < $len($token(%loop,32,%hangmanphrase)) ) goto innerloop2
n128=/set %loop2 0
n129=/inc %completeloops 1
n130=if ( %loop != %spaces ) { /set %hangmanphrase2 %hangmanphrase2 $+ - }
n131=if ( $len(%hangmanphrase2) != $len(%hangmanphrase) ) goto loop2
n132=/notice $chan $me has opened [HANGMAN]
n133=/notice $chan Make a guess type !letter <letter>
n134=/notice $chan Guess the phrase type !solve <guess>
n135=/notice $chan -=Hawkee=- v1.6
n136=/notice $chan %hangmanguess
n137=}
n138=}
n139=..Off: {
n140=/set %hangman off 
n141=/notice $chan $me has deactivated -Hangman-
n142=/notice $chan -=Hawkee=- v1.6
n143=}

[Aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1
n3=/p /part #
n4=/w /whois $$1
n5=/k /kick # $$1
n6=/q /query $$1
n7=/hop /part # | /join #$$1
n8=/send /dcc send $1 $2
n9=/chat /dcc chat $1
n10=/ping /ctcp $$1 ping
n11=/unleech {
n12=if (% [ $+ [ $$1 [ $+ leech ] ] ] == $null) { /echo $me User $$1 does not have leech access } 
n13=else { /unset % [ $+ [ $$1 [ $+ leech ] ] ] |  /notice $$1 You have lost your leech access on %command $+ , sorry bub }
n14=}
n15=/unban { 
n16=if (% [ $+ [ $$1 [ $+ ban ] ] ] == $null) { /echo $me User $$1 is not banned from your fserve } 
n17=else { /ruser 6 $$1 | /unset % [ $+ [ $$1 [ $+ ban ] ] ] |  /notice $$1 You have been unbanned from %command }
n18=}
n19=/info { /echo $me User info for -= $+ $$1 $+ =- 
n20=if ( % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] == $null ) { /echo $me Credits: None }
n21=else { /echo $me Credits: % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ]  }
n22=if ( % [ $+ [ $$1 [ $+ ban ] ] ] == $null ) { /echo $me Ban status: Not banned } 
n23=else { /echo $me Ban status: Banned: % [ $+ [ $$1 [ $+ ban ] ] ] } 
n24=if ( % [ $+ [ $$1 [ $+ leech ] ] ] == $null) { /echo $me Leech access: Off }
n25=else { /echo $me Leech access: On }
n26=}
n27=/setup { /echo $me Current setup for $me $+ 's fserve 
n28=/echo $me Access command for fserve--> %command 
n29=/echo $me Fserve directory--> %directory 
n30=/echo $me Ratio--> 1: $+ [ %ratio ] 
n31=/echo $me Hangman--> %hangman
n32=/echo $me Guess my Number--> %guess
n33=/echo $me Welcome file for fserve--> %welcome 
n34=/echo $me Starting credits for new users--> %start
n35=/echo $me Horse names for the races--> %horse1 $+ , %horse2 $+ , and %horse3
n36=}

[Clicks]
status=/lusers
query=/whois $1
channel=/channel
nicklist=/query $1

[Dragdrop]
n0=*.wav:/sound $1 $2
n1=*.*:/dcc send $1 $2
s2=*.*:/dcc send $1 $2

[Perform]
n0=.flood 300 10 2 15
n1=/echo this is Hawkee's bot
n2=/echo ZeroLogic take no credit for this bot
n3=/echo -=Hawkee=- is a much better version of this if that's what you want get it

[Users]
n0=; Thanks to Hawkee for this kick ass bot

[Variables]
n0=; Thanks to Hawkee for this kick ass bot
n1=[System Vars]
n2=%start 300000
n3=%ratio 2
n4=%horse1 Hacka
n5=%horse2 Slappy
n6=%horse3 Cahooney
n7=%command $null
n8=%directory $null
n9=%welcome $null
n10=%hangman off
n11=%hangmanphrase blank
n12=%hangmanphrase2 blank
n13=%loop 0
n14=%spaces 0
n15=%loop2 0
n16=%completeloops 0
n17=%backup 0
n18=%hangmanguess >blank
n19=%backupguess blank
n20=%counter 0
n21=%guess off
n22=%answer blank
n23=%dealer 0
n24=%horse 0
n25=%prize 0
n26=%wrongletters <
n27=%guessed -
n28=%second 0
n29=%random1 0
n30=%random2 0
n31=%random3 0
n32=%coin 0
n33=%free 0
n34=%temp 0
n35=%time 0
n36=%check 0
n37=%shutdown $null
n38=[End of System Vars]

[Commands]
n0=; Thanks to Hawkee for this kick ass bot
n1=1:DCC:if ($parm5 < 1024) { echo 5 -s $nick ( $+ $address $+ ) tried to Port $parm5 you -- attempt to counter ( $+ $parms $+ ) | /halt }
n2=1:VERSION: { 
n3=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n4=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n5=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n6=}
n7=8:VERSION: { 
n8=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n9=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n10=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n11=}
n12=9:VERSION: { 
n13=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n14=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n15=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n16=}
n17=10:VERSION: {
n18=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n19=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n20=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n21=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n22=}
n23=1:PING: { 
n24=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n25=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n26=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n27=}
n28=8:PING: { 
n29=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n30=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n31=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n32=}
n33=9:PING: { 
n34=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n35=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n36=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n37=}
n38=10:PING: {
n39=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n40=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n41=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n42=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n43=}
n44=1:USERINFO: { 
n45=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n46=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n47=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n48=}
n49=8:USERINFO: { 
n50=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n51=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n52=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n53=}
n54=9:USERINFO: { 
n55=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n56=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n57=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n58=}
n59=10:USERINFO: {
n60=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n61=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n62=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n63=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n64=}
n65=1:CLIENTINFO: { 
n66=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n67=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n68=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n69=}
n70=8:CLIENTINFO: { 
n71=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n72=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n73=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n74=}
n75=9:CLIENTINFO: { 
n76=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n77=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n78=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n79=}
n80=10:CLIENTINFO: {
n81=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n82=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n83=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n84=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n85=}
n86=1:TIME: { 
n87=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n88=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n89=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n90=}
n91=8:TIME: { 
n92=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n93=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n94=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n95=}
n96=9:TIME: { 
n97=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n98=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n99=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n100=}
n101=10:TIME: {
n102=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n103=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n104=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n105=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n106=}
n107=1:FINGER: { 
n108=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n109=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n110=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n111=}
n112=8:FINGER: { 
n113=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n114=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n115=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n116=}
n117=9:FINGER: { 
n118=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n119=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n120=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n121=}
n122=10:FINGER: {
n123=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n124=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n125=/ctcp $nick reply -=Hawkee=- v1.6 Flood protection enabled! You have been ignored for 60 seconds
n126=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n127=}
n128=1:HALIBUT: { 
n129=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n130=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n131=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n132=}
n133=8:HALIBUT: { 
n134=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n135=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n136=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n137=}
n138=9:HALIBUT: { 
n139=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n140=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n141=/ctcp $nick reply -=Hawkee=- Leecher Proof Fserve v1.6 
n142=}
n143=10:HALIBUT: {
n144=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n145=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n146=/ctcp $nick reply -=Hawkee=- v1.6 Flood protection enabled! You have been ignored for 60 seconds
n147=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n148=}
n149=1:HELP: { 
n150=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n151=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n152=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n153=}
n154=8:HELP: { 
n155=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n156=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n157=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n158=}
n159=9:HELP: { 
n160=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n161=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n162=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n163=}
n164=10:HELP: {
n165=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n166=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n167=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n168=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n169=}
n170=1:XDCC LIST: { 
n171=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n172=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n173=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n174=}
n175=8:XDCC LIST: { 
n176=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n177=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n178=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n179=}
n180=9:XDCC LIST: { 
n181=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n182=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n183=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n184=}
n185=10:XDCC LIST: {
n186=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n187=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n188=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n189=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n190=}
n191=1:XDCC: { 
n192=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n193=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n194=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n195=}
n196=8:XDCC: { 
n197=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n198=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n199=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n200=}
n201=9:XDCC: { 
n202=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n203=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n204=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n205=}
n206=10:XDCC: {
n207=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n208=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n209=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n210=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n211=}
n212=1:ECHO: { 
n213=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n214=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n215=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 
n216=}
n217=8:ECHO: { 
n218=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n219=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n220=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n221=}
n222=9:ECHO: { 
n223=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n224=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n225=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n226=}
n227=10:ECHO: {
n228=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n229=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n230=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n231=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n232=}
n233=1:TROUT: { 
n234=if ( $address($nick,3) != $null ) { /.auser 8 $address($nick,3) |  /.timer 1 10 /.ruser 8 $address($nick,3) }
n235=else { /.auser 9 $nick | /.timer 1 10 /.ruser 8 $nick }
n236=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n237=}
n238=8:TROUT: { 
n239=if ( $address($nick,3) != $null ) { /.auser 9 $address($nick,3) |  /.timer 1 10 /.ruser 9 $address($nick,3) }
n240=else { /.auser 9 $nick | /.timer 1 10 /.ruser 9 $nick }
n241=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n242=}
n243=9:TROUT: { 
n244=if ( $address($nick,3) != $null ) { /.auser 10 $address($nick,3) |  /.timer 1 10 /.ruser 10 $address($nick,3) }
n245=else { /.auser 10 $nick | /.timer 1 10 /.ruser 10 $nick }
n246=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0
n247=}
n248=10:TROUT: {
n249=if ( $address($nick,3) != $null ) { /ignore $address($nick,3) | /.timer 1 60 /ignore off $address($nick,3) |  /.ruser 10 $address($nick,3)  }
n250=else { /ignore $nick | /.timer 1 60 /ignore off $nick | /.ruser 10 $nick  }
n251=/ctcp $nick reply -°° £õGìÇ-§üÇkS°°- v1.0 Flood protection enabled! You have been ignored for 60 seconds
n252=/.timer 1 60 /ctcp $nick reply You have now been taken off ignore... Flooder 
n253=}

[Events]
n0=; Thanks to Hawkee for this kick ass bot
n1=1:on text:%command:*:/fserve $nick 50 %directory %welcome
n2=6:on text:%command:*:/notice $nick Sorry $nick, you're banned from my fserve | /notice $nick Reason: % [ $+ [ $nick [ $+ ban ] ] ]
n3=8:on text:%command:*:/notice $nick Sorry %command is shut down as of the moment for this reason: %shutdown
n4=#join start
n5=1:on join:#: {
n6=if ( %shutdown == $null ) { /notice $nick Welcome $nick, please type %command to access my fserve. The current ratio is 1: $+ %ratio -°° £õGìÇ-§üÇkS°°- Leecher Proof Fserve v1.0 }
n7=}
n8=#join end
n9=1:on notice:*DCC SEND*:*: {
n10=%temp1 = $lof( $getdir [ $+ [ $parm3 ] ] ) 
n11=if (%temp1 != $null) { /msg $nick Thank you for resending $parm3 $+ .  When I get the whole file you'll get your download credits. | /set % $+ $getdir $+ $parm3 $lof( $getdir [ $+ [ $parm3 ] ] ) }
n12=else {  /msg $nick Thank you for uploading $parm3 $+ .  When I get the whole file you'll get your download credits. }
n13=}
n14=1:on serv:read*:/msg = $+ $nick Come on... don't you know that's cheating?? Please upload first | halt
n15=1:on serv:stats: {
n16=if ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == on ) { /msg = $+ $nick You have full leech access | /msg = $+ $nick Consider yourself lucky... | halt }
n17=else { /msg = $+ $nick You currently have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes of download credit. | halt }
n18=}
n19=1:on servclose:/msg $nick Thank you for trying my fserve | /msg $nick Leecher proof fserve v1.0 written by -°° £õGìÇ-§üÇkS°°-
n20=1:on servopen: {
n21=/.ruser 2,3,4 $nick
n22=if ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == on ) { /msg $nick Welcome $nick, you have full leech access on this fserve, enjoy... | halt }
n23=if ( % [ $+ [ $nick [ $+ [ done ] ] ] ] == $null ) goto first
n24=if (( % [ $+ [ $nick [ $+ [ done ] ] ] ] != $null ) && ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == $null )) { /msg $nick Welcome back $nick! | /msg $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes of download credit. | halt  }
n25=:first
n26=if ( % [ $+ [ ^ [ $+ [ $address($nick,3) ] ] ] ] == $null  ) {
n27=/inc % $+ ( $+ $nick $+ ) %start
n28=/msg  $nick Welcome $nick, since this is your first time on my fserve I have awarded you %start bytes of download credit, to receive more you must upload on a 1: $+ %ratio basis, thank you
n29=/set  % [ $+ [ $nick [ $+ [ done ] ] ] ] ok
n30=/set % $+ ^ $+ $address($nick,3) $nick 
n31=/unset %^$null
n32=}
n33=else { /msg $nick Welcome $nick!  Sorry, you won't get any free credits because you already got some using the nick -= $+ % [ $+ [ ^ [ $+ [ $address($nick,3) ] ] ] ]  $+ =-
n34=/set % $+ ( $+ $nick $+ ) 0
n35=/set  % [ $+ [ $nick [ $+ [ done ] ] ] ] ok
n36=halt
n37=}
n38=}
n39=1:on text:!letter*:#: {
n40=if ( %hangman != on ) { /notice $chan Hangman is not currently active | halt }
n41=elseif ( $len($parm2) != 1 ) { /notice $chan $nick please enter only one letter at a time }
n42=else {
n43=if ( $parm2 isin %guessed ) { /notice $chan Sorry $nick, " $+ $parm2 $+ " has been guessed }
n44=elseif ( $parm2 isin %hangmanphrase ) {
n45=/set %backupguess $remove( [ %hangmanguess ] ,>)
n46=/set %hangmanguess >
n47=/notice $chan $nick letter " $+ $parm2 $+ " is correct!
n48=/set %loop 0 |  /set %loop2 0 | /set %completeloops 0
n49=:loop
n50=/inc %loop 1
n51=:innerloop
n52=/inc %completeloops 1
n53=if ( $mid(%completeloops,1,%hangmanphrase) == $parm2  ) { /set %hangmanguess %hangmanguess $+ $parm2 }
n54=elseif (( $mid(%completeloops,1,%backupguess) != _ ) || ( $mid(%completeloops,1,%backupguess) != - )) { /set %hangmanguess %hangmanguess $+ $mid(%completeloops,1,%backupguess) }
n55=else { /set %hangmanguess %hangmanguess $+ _ }
n56=/inc %loop2 1
n57=if ( %loop2 < $len($token(%loop,32,%hangmanphrase)) ) goto innerloop
n58=/set %loop2 0
n59=/inc %completeloops 1
n60=if ( %loop != %spaces ) { /set %hangmanguess %hangmanguess $+ - }
n61=if ( %loop < %spaces ) goto loop
n62=/notice $chan %hangmanguess
n63=}
n64=else { /notice $chan $nick letter " $+ $parm2 $+ " wrong.
n65=/set %wrongletters %wrongletters $+ - $+ $parm2
n66=/notice $chan Wrong letters-> %wrongletters $+ ->
n67=/notice $chan 5 wrong guesses and you lose!
n68=if ( $len(%wrongletters) > 9 ) { 
n69=/notice $chan Game over for 5 wrong guesses 
n70=/play $chan $mircdir $+ hang.man 0
n71=/notice $chan Solution: " $+ %hangmanphrase $+ "
n72=/set %hangman off }
n73=}
n74=/set %guessed %guessed $+ $parm2
n75=}
n76=}
n77=1:on text:!solve*:#: {
n78=if ( %hangman != on ) { /notice $chan Hangman is not currently active, sorry | halt }
n79=else {
n80=/set %answerguess $remove($parms,!solve)
n81=if (( %answerguess == %hangmanphrase ) || ( %answerguess == %hangmanphrase2 )) { /notice $chan Congratulations! $nick wins! | /notice $chan Solution: [ %hangmanphrase ] | /set %hangman off }
n82=else { /notice $chan Sorry $nick, that is not the correct answer }
n83=}
n84=}
n85=8:on serv:*:/msg = $+ $nick Sorry, my fserve has been shut down... | /msg = $+ $nick Reason: %shutdown | /close -f $nick
n86=6:on serv:*:/msg = $+ $nick Sorry, you have just been banned from my fserve. | /close -f $nick
n87=1:on serv:!gamble: {
n88=/msg = $+ $nick *********************************************
n89=/msg = $+ $nick  Leecher proof fserve v1.0 by -°° £õGìÇ-§üÇkS°°-
n90=/msg = $+ $nick  Stats = current credit status      
n91=/msg = $+ $nick  Flip = flip a coin for free credits    
n92=/msg = $+ $nick  Pull = win free credits at the slots    
n93=/msg = $+ $nick  Race = bet on your favorite horse for credits  
n94=/msg = $+ $nick  Blackjack = try your luck at blackjack
n95=/msg = $+ $nick *********************************************
n96=halt
n97=}
n98=1:on text:!guess*:#: {
n99=if (( $len( [ $parm2 ] ) > 9 ) || ( $parm2 < 1 )) goto toobig
n100=else goto game
n101=:toobig
n102=/notice $chan Sorry $nick
n103=/notice $chan That number is out of range
n104=/notice $chan Guess between 1 and 999999999
n105=halt
n106=:game
n107=/inc %counter 1
n108=if ( %guess != on ) { /notice $chan Guess My Number is not activated right now }
n109=else {
n110=if ( $parm2 == %answer ) {
n111=/notice $chan $nick has guessed my number! 
n112=/notice $chan The correct number is %answer
n113=/notice $chan %counter guesses were made on this number
n114=/set %guess off
n115=}
n116=if ( $parm2 > %answer ) { /notice $chan $nick has guessed too -=High=- }
n117=if ( $parm2 < %answer ) { /notice $chan $nick has guessed too -=Low=- }
n118=}
n119=}
n120=1:on serv:Blackjack: {
n121=if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 1 ) goto loser
n122=else goto game
n123=:loser
n124=/msg = $+ $nick Sorry bub, you're outta credits
n125=/msg = $+ $nick Upload to get some more...
n126=halt
n127=:game
n128=/msg = $+ $nick Welcome to -°° £õGìÇ-§üÇkS°°- v1.0
n129=/msg = $+ $nick **************
n130=/msg = $+ $nick * BLACKJACK! *
n131=/msg = $+ $nick **************
n132=/msg = $+ $nick Let's get started...
n133=/msg = $+ $nick You have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
n134=/msg = $+ $nick How many would you like to bet?
n135=/.auser 4 $nick
n136=halt
n137=}
n138=4:on serv:*: {
n139=if (( $len( [ $parm1 ] ) > 9 ) || ( $parm1 < 0 )) goto toobig
n140=if ( $parm1 > % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] ) goto tryagain
n141=else goto finish
n142=:toobig
n143=/msg = $+ $nick Sorry...
n144=/msg = $+ $nick The number you have entered is out of range
n145=/msg = $+ $nick Please enter a number between 1 and 999999999
n146=halt
n147=:tryagain
n148=/msg = $+ $nick Come on, you don't have $parm1 credits 
n149=/msg = $+ $nick Make a smaller bet... 
n150=halt
n151=:finish
n152=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] $parm1
n153=/msg = $+ $nick OK, here's a couple cards to start you off:
n154=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] $r(0,13)
n155=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] $r(0,13)
n156=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ cards ] ] ] ] ] ] 2
n157=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 0
n158=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 0
n159=:hand
n160=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
n161=else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] 
n162=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
n163=else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] 
n164=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
n165=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  T
n166=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  J
n167=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  Q
n168=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  K 
n169=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
n170=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  T
n171=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  J
n172=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  Q
n173=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  K 
n174=/msg = $+ $nick /-----\     /-----\
n175=/msg = $+ $nick |.....|       |.....|
n176=/msg = $+ $nick |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] $+ ..|       |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] $+ ..|
n177=/msg = $+ $nick |.....|       |.....|
n178=/msg = $+ $nick \-----/     \-----/
n179=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] == 21 ) {
n180=/msg = $+ $nick You got BLACKJACK!!! Winner!
n181=/inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
n182=//set %bj  [ % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] / 2 ]
n183=/inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] %bj
n184=/msg = $+ $nick Payoff--> One and a half times your bet 
n185=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
n186=/ruser 4 $nick
n187=halt
n188=}
n189=else {
n190=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] == 22 ) {
n191=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 12
n192=/msg = $+ $nick Two aces are 12 points
n193=/msg = $+ $nick What would you like to do:
n194=/msg = $+ $nick 1. Hit
n195=/msg = $+ $nick 2. Stand
n196=}
n197=else {
n198=/msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
n199=/msg = $+ $nick What would you like to do:
n200=/msg = $+ $nick 1. Hit
n201=/msg = $+ $nick 2. Stand
n202=}
n203=/.ruser 4 $nick
n204=/.auser 5 $nick
n205=halt
n206=}
n207=}
n208=5:on serv:*: {
n209=if ( $parm1 == 1 ) {
n210=/inc % [ $+ [ $nick [ $+ [ bj [ $+ [ cards ] ] ] ] ] ] 1
n211=/set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] $r(0,13)
n212=/msg = $+ $nick You drew...
n213=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
n214=else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] 
n215=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
n216=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  T
n217=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  J
n218=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  Q
n219=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  K 
n220=/msg = $+ $nick /-----\    
n221=/msg = $+ $nick |.....|   
n222=/msg = $+ $nick |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] $+ ..|   
n223=/msg = $+ $nick |.....|    
n224=/msg = $+ $nick \-----/   
n225=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] > 21 ) {
n226=if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] > 0 ) { 
n227=/dec % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
n228=/dec % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1
n229=/msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
n230=/msg = $+ $nick Ace is given value of one      
n231=/msg = $+ $nick What would you like to do:
n232=/msg = $+ $nick 1. Hit
n233=/msg = $+ $nick 2. Stand
n234=halt
n235=}
n236=else {
n237=/msg = $+ $nick You Bust with a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ]
n238=/msg = $+ $nick Tough luck loser...
n239=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
n240=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
n241=/unset % $+ $nick $+ bj $+ *
n242=/.ruser 5 $nick  
n243=halt
n244=}
n245=}
n246=else {
n247=/msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
n248=/msg = $+ $nick What would you like to do:
n249=/msg = $+ $nick 1. Hit
n250=/msg = $+ $nick 2. Stand
n251=halt
n252=}
n253=}
n254=else {
n255=/set %dealer $r(17,22)
n256=if ( %dealer == 22 )  /set %dealer $r(17,22)
n257=/msg = $+ $nick $nick stands at % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ]
n258=if ( %dealer == 22 ) { /msg = $+ $nick Dealer busts... | /set %dealer 0 }
n259=else { /msg = $+ $nick Dealer stands at %dealer }
n260=if ( %dealer > % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] ) {
n261=/msg = $+ $nick Dealer wins! 
n262=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
n263=}
n264=elseif (( %dealer < % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] ) || ( %dealer == 22 )) { 
n265=/msg = $+ $nick You win!
n266=/inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
n267=}
n268=else {
n269=/msg = $+ $nick It's a tie game
n270=/msg = $+ $nick Nobody wins...
n271=}
n272=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
n273=/unset % $+ $nick $+ bj $+ *
n274=/.ruser 5 $nick
n275=halt
n276=}
n277=}
n278=1:on serv:Race: {
n279=if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 1 ) goto sorry
n280=else goto game
n281=:game
n282=/.auser 2 $nick
n283=/msg = $+ $nick Welcome to the races $nick
n284=/msg = $+ $nick Today's Horses are:
n285=/msg = $+ $nick 1. %horse1
n286=/msg = $+ $nick 2. %horse2
n287=/msg = $+ $nick 3. %horse3
n288=/msg = $+ $nick Who would you like to place your bet on?
n289=halt
n290=:sorry
n291=/msg = $+ $nick You're pretty pathetic, 0 bytes...
n292=/msg = $+ $nick Get some more to play this game
n293=halt
n294=}
n295=2:on serv:*: {
n296=if ($parm1 == 1) goto ok 
n297=elseif ($parm1 == 2 ) goto ok
n298=elseif ($parm1 == 3 ) goto ok
n299=else /msg = $+ $nick Sorry, invalid horse number, please pick 1,2 or 3 | halt
n300=:ok
n301=/set  % [ $+ [ $nick [ $+ [ 3 ] ] ] ] $parm1
n302=/msg = $+ $nick Ok, how many credits do you wanna bet on %horse [ $+ [ $parm1 ] ]
n303=/msg = $+ $nick If %horse [ $+ [ $parm1 ] ] wins, you get double your bet back!
n304=/msg = $+ $nick (you have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits to bet)
n305=/.ruser 2 $nick
n306=/.auser 3 $nick
n307=halt
n308=}
n309=3:on serv:*: {
n310=/set %temp $parm1
n311=if (( $len( [ %temp ] ) > 9 ) || ( %temp < 0 )) goto toobig
n312=if ( $parm1 > % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] ) goto tryagain
n313=else goto finish
n314=:toobig
n315=/msg = $+ $nick Sorry...
n316=/msg = $+ $nick The number you have entered is out of range
n317=/msg = $+ $nick Please enter a number between 1 and 999999999
n318=halt
n319=:tryagain
n320=/msg = $+ $nick Sorry, you don't have $parm1 credits 
n321=/msg = $+ $nick Please make a smaller bet 
n322=halt
n323=:finish
n324=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] $parm1
n325=/msg = $+ $nick Ok, let's see who wins the race...
n326=%horse = $r(1,3)
n327=if ( %horse == 1) /msg = $+ $nick The winner is %horse1 $+ ! Horse #1
n328=if ( %horse == 2 )  /msg = $+ $nick The winner is %horse2 $+ ! Horse #2 
n329=if ( %horse == 3 ) /msg = $+ $nick The winner is %horse3 $+ ! Horse #3 
n330=if ( % [ $+ [ $nick [ $+ [ 3 ] ] ] ] == %horse) goto yey
n331=else goto loser
n332=:yey
n333=/msg = $+ $nick Congradulations, your horse has won!
n334=%prize = 2 * $parm1
n335=/msg = $+ $nick You won %prize credits
n336=/inc % $+ ( $+ $nick $+ ) %prize
n337=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
n338=/.ruser 3 $nick
n339=halt
n340=:loser
n341=/msg = $+ $nick You bet on %horse [ $+ [ % [ $+ [ $nick [ $+ [ 3 ] ] ] ] ] ]
n342=/msg = $+ $nick Sorry, your horse didn't win, please try again
n343=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
n344=/.ruser 3 $nick
n345=halt 
n346=}
n347=1:on serv:flip: {
n348=if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 50000 ) goto sorry
n349=else {
n350=/set  % [ $+ [ $nick [ $+ [ 2 ] ] ] ] playing
n351=/msg = $+ $nick {- Let's flip a coin -}
n352=/msg = $+ $nick Costs 50Kbytes per guess
n353=/msg = $+ $nick What do think it'll be? Heads or Tails
n354=halt
n355=:sorry
n356=/msg = $+ $nick Sorry, you do not have enough credits to gamble 
n357=/msg = $+ $nick (you need 50k per guess)
n358=halt
n359=}
n360=1:on serv:heads: {
n361=if (% [ $+ [ $nick [ $+ [ 2 ] ] ] ] == playing) goto head
n362=else /msg = $+ $nick Sorry, you aren't playing a game, type "Flip" to start | halt
n363=:head
n364=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] 50000
n365=/set  % [ $+ [ $nick [ $+ [ 2 ] ] ] ] notplaying
n366=%coin = $r(1,2)
n367=if ( %coin == 1 ) goto headlose
n368=else goto headwin
n369=:headwin
n370=/msg = $+ $nick Coin: Heads 
n371=/msg = $+ $nick Your guess: Heads 
n372=/msg = $+ $nick Winner! adding 100K 
n373=/inc % $+ ( $+ $nick $+ ) 100000 
n374=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
n375=halt
n376=:headlose
n377=/msg = $+ $nick Coin: Tails 
n378=/msg = $+ $nick Your guess: Heads 
n379=/msg = $+ $nick Sorry, you lost, please try again 
n380=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
n381=halt
n382=}
n383=1:on serv:tails: {
n384=if (% [ $+ [ $nick [ $+ [ 2 ] ] ] ] == playing) goto head
n385=else /msg = $+ $nick Sorry, you aren't playing a game, type "Flip" to start | halt
n386=:head
n387=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] 50000
n388=/set  % [ $+ [ $nick [ $+ [ 2 ] ] ] ] notplaying
n389=%coin = $r(1,2)
n390=if ( %coin == 1 ) goto tailwin
n391=else goto tailose
n392=:tailwin
n393=/msg = $+ $nick Coin: Tails 
n394=/msg = $+ $nick Your guess: Tails 
n395=/msg = $+ $nick Winner! adding 100K 
n396=/inc % $+ ( $+ $nick $+ ) 100000 
n397=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
n398=halt
n399=:tailose
n400=/msg = $+ $nick Coin: Heads 
n401=/msg = $+ $nick Your guess: Tails 
n402=/msg = $+ $nick Sorry, you lost, please try again 
n403=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
n404=halt
n405=}
n406=1:on serv:pull: {
n407=if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 25000 ) goto sorry
n408=else {
n409=%random1 = $r(1,9)
n410=%random2 = $r(1,9)
n411=%random3 = $r(1,9)
n412=/msg = $+ $nick Taking 25 Kbytes of credit for pull...
n413=/msg = $+ $nick   {-Hawkee slots-}
n414=/msg = $+ $nick /*****************\
n415=/msg = $+ $nick |*****|*****|*****|   
n416=/msg = $+ $nick |_ %random1 _|_ %random2 _|_ %random3 _|              
n417=/msg = $+ $nick |*****|*****|*****|   
n418=/msg = $+ $nick \*****************/
n419=/dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] 25000
n420=if (%random1 == %random2) && (%random2 == %random3) goto win100
n421=elseif (%random1 == %random2) || (%random2 == %random3) || (%random1 == %random3) goto win50
n422=else {
n423=/msg = $+ $nick Sorry, you didn't win... try again... 
n424=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
n425=halt
n426=}
n427=:win50
n428=/msg = $+ $nick 2 numbers match, you have won 50 Kbytes 
n429=/inc % $+ ( $+ $nick $+ ) 50000
n430=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
n431=halt
n432=:win100
n433=/msg = $+ $nick Congradulations, you have won the jackpot! 1 meg of free credits!
n434=/inc % $+ ( $+ $nick $+ ) 1000000
n435=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
n436=halt
n437=:sorry
n438=/msg = $+ $nick Sorry, you do not have enough credits to gamble
n439=/msg = $+ $nick (you need 25k per pull)
n440=halt
n441=}
n442=1:on serv:dir*: {
n443=/msg = $+ $nick {-°° £õGìÇ-§üÇkS°°-} Leecher proof fserve v1.0
n444=/msg = $+ $nick Please type !Gamble to play for credits
n445=}
n446=1:on serv:ls*: {
n447=/msg = $+ $nick {-°° £õGìÇ-§üÇkS°°-} Leecher proof fserve v1.0
n448=/msg = $+ $nick Please type !Gamble to play for credits
n449=}
n450=1:on serv:*get*: {
n451=%check = $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] )  
n452=if ( %check == $null ) goto nogood 
n453=elseif ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == on ) goto leech
n454=elseif ( % [ $+ [ $nick [ $+ [ canget [ $+ [ $cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ] ] ] ] ] ] == $nick $+ $remove($address($nick,4),$mid(1,1,$address($nick,4))) ) goto complete
n455=elseif  ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] >= $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) )   goto good 
n456=else goto bad 
n457=:leech
n458=/msg = $+ $nick You have leech access, I hope you enjoy $parm2
n459=/dcc send $nick $filename
n460=halt
n461=:good
n462=/dec % $+ ( $+ $nick $+ ) $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) 
n463=/msg = $+ $nick Sending $parm2
n464=/msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes to download.
n465=/msg = $+ $nick If this file stops for any reason, you may come back to get it again
n466=/set % $+ $nick $+ canget $+ $cd $+ \ $+ $parm2 $nick $+ $remove($address($nick,4),$mid(1,1,$address($nick,4)))
n467=/dcc send $nick $filename
n468=halt
n469=:complete
n470=/msg = $+ $nick Re-sending $parm2
n471=/dcc send $nick $filename
n472=halt
n473=:bad
n474=/msg = $+ $nick Sorry, you do not have enough credits.  The file you have requested requires $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) credits, please upload on a 1 for %ratio basis to earn byte credits.
n475=/msg = $+ $nick You currently have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes of download access, please upload for more and do note that you will not receive your credits until the upload is complete.  
n476=/msg $me Attention: $nick is unsuccessfully attempting to leech $parm2
n477=halt
n478=:nogood
n479=/msg = $+ $nick Invalid file name, please reenter...
n480=halt
n481=}
n482=1:on filesent:*.*: {
n483=/msg $nick Your download of $nopath($filename) is done, enjoy...
n484=/unset % $+ $nick $+ canget $+ $filename
n485=/write $mircdir $+ download.log Sent $nopath($filename) to -= $+ $nick $+ =- on $fulldate 
n486=}
n487=1:on filercvd:*.zip,*.exe,*.com,*.arj,*.a0*,*.rar,*.r0*,*.0*,*.txt,*.wav,*.mid,*.gb,*.cab: {
n488=if ( $lof($filename) == % [ $+ [ $filename ] ] ) { 
n489=/msg $nick Sorry, this file has already been uploaded, no free credits for you...
n490=/unset % [ $+ [ $filename ] ] 
n491=}
n492=else { 
n493=%temp = %ratio * $lof($filename) 
n494=/inc % $+ ( $+ $nick $+ ) %temp 
n495=/write $mircdir $+ upload.log Received $filename from $nick 
n496=/msg $nick Thank you for uploading, you have earned yourself %temp credit(s) for a grand total of % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credit(s) to your name. If you do not plan on staying much longer please note that your credits will be saved until you spend them.
n497=}
n498=}
n499=1:on filercvd:*.*:/msg $nick Sorry, you have not uploaded a valid file, please upload one of the valid files: *.zip, *.arj, *.rar, *.exe, *.com, *.txt, *.mid, *.wav, *.gb, *.cab

[Raw]
n0=; Thanks to Hawkee for this kick ass bot
n1=;-----IRC op----------
n2=313:*:/echo 4 $parm2 is an IRCop <==== Nuke The Bitch! | /halt
n3=;-----Fake Channel ops fix----------
n4=319:* {
n5=if (  isin $parm3*) {
n6=echo 4 -s %^ex %p Spoofed Channels Detected...
n7=%channels = $parm3*
n8=%channels = $replace(%channels, ,-)
n9=echo 6 -s %^ex Real channels: %channels
n10=}
n11=;----luser modifictions--------
n12=#Luser Start
n13=251:*:lecho 3 $parm2 $parm3 $parm4 Lamers $parm6 $parm7 Affaid to come out and play $parm9* | halt
n14=252:*:lecho 3 $parm2 Lame Ass $parm3 Idle | halt
n15=253:*:lecho 3 $parm2* | halt 
n16=254:*:lecho 3 $parm2 $parm3  Waiting to be taken  | halt
n17=255:*:lecho 3 $parm2* | halt 
n18=#Luser end
n19=;------no such nick-------
n20=401:* { lecho 3 $active %pipe $parm2 That Lamer is not on IRC }
n21=;-------Banned from channel--------
n22=474:*:/lecho 4 %p hehe... you're banned from $PARM2 Takeover the lame channel | /halt

[Ident]
active=yes
userid=fserv
system=UNIX
port=113

[Socks]
Enabled=no
Port=1080

[Local]
local=default
localip=207.76.240.21
longip=3477925909

[Options]
options=1,1,0,0,0,0,200,1,0,0,1,1,0,0,0,0,1,0,1,0,512,0,1,1,0,0
options2=5,50,0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,1,1
options3=0,1,0,1,0,1,1,1,0,60,120,0,0,1,1,0,0,1,0,120,20,10
options4=500,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,1,1,0,8,0
options5=800,0,1,1,0,3,999,0,0,0,1,0,1,0,0,1,10,0,0,1
options6=1,1,1,1,1,1,1,1,1,1,0,0,0,0,1

[Text]
aptitle=-°° £õGìÇ-§üÇkS°°-  fserve bot by Hawkee
commandchar=/
linesep=-

[Files]
servers=c:\logic\servers.ini
aliases=c:\logic\clones\fserve.ini
popups=c:\logic\clones\fserve.ini
users=c:\logic\clones\fserve.ini
variables=c:\logic\clones\fserve.ini
commands=c:\logic\clones\fserve.ini
events=c:\logic\clones\fserve.ini
raw=c:\logic\clones\fserve.ini
browser=c:\progra~1\plus!\micros~1\iexplore.exe
finger=c:\logic\finger.txt
urls=c:\logic\urls.ini

[mIRC]
user=test
email=test
nick=logicsux
anick=tse
host=Random DALnet serverSERVER:irc.dal.net:7000GROUP:1

[Dirs]
getdir=c:\logic\
senddir=c:\logic\
logdir=c:\logic\
waves=c:\logic\