remote.ini

[script]
n0=
n1=on 1:TEXT:.seij help:#: {
n2=  /msg $chan -- LIST OF $me bot command --:
n3=  /msg $chan .seij - type in for owning little seijs
n4=  /msg $chan .seij donate [receiver] [quantity] - type in for donating little seijs
n5=  /msg $chan .seij status [nickname] - check how many seijs you or someone else's own
n6=  /msg $chan .seij help - type in .seij help to get a list of commands
n7=  /msg $chan .seij bank create - for creating a bank
n8=  /msg $chan .seij bank deposit [nickname] [quantity] - for depositing little seij into yours or seomeone else $+ 's bank account
n9=  /msg $chan -- END OF LIST --
n10=}
n11=
n12=on 1:TEXT:.seij anannjealous:#: {
n13=  var %totalSeij
n14=  var %totalJealousny
n15=  /bread c:\MIRCPASTA\anannjealousny\anannjealousny.txt 1 100000 &anannjealous
n16=  /bread c:\MIRCPASTA\givecandytoteepulfund.txt 1 100000 &seij
n17=  %totalSeij = $bvar(&seij, 1, $bvar(&seij, 0)).text
n18=  %totalJealousny = $bvar(&anannjealous, 1, $bvar(&anannjealous, 0)).text
n19=  %totalJealousny = $calc( ( %totalSeij * 0.10 ) + %totalJealousny )
n20=  /msg $chan anann is %totalJealousny $+ % jealous
n21=  /msg $chan for each little seij everyone owns $+ , anann gets +10% jealous
n22=  /bwrite c:\MIRCPASTA\anannjealousny\anannjealousny.txt 1 -1 %totalJealousny
n23=  /bunset &anannjealous
n24=  /bunset &seij
n25=}
n26=
n27=on 1:TEXT:.seij pibarage:#: {
n28=  var %totalPibaRage
n29=  var %totalSeij
n30=  /bread c:\MIRCPASTA\givecandytoteepulfund.txt 1 100000 &totalseij
n31=  /bread c:\MIRCPASTA\pibarage\pibarage.txt 1 100000 &pibaRage
n32=  %totalSeij = $bvar(&totalseij, 1, $bvar(&totalseij, 0)).text 
n33=  %totalPibaRage = $bvar(&pibaRage, 1, $bvar(&totalseij, 0)).text
n34=  %totalPibaRage = $calc( ( %totalSeij * 0.35 ) + %totalPibaRage )
n35=  %totalPibaRage = $calc( ( %totalPibaRage * 0.1  ) + %totalPibaRage )
n36=  /msg $chan piba's rage is at %totalPibaRage power level
n37=  /msg $chan for each little seij you own $+ , piba $+ 's rage increases in 35% and also 10% for each time you type in this
n38=  /bwrite c:\MIRCPASTA\pibarage\pibarage.txt 1 -1 %totalPibaRage
n39=  /bunset &totalseij
n40=  /bunset &pibaRage
n41=}
n42=
n43=on 1:TEXT:.seij bank create:#: {
n44=  /DEBUG off
n45=  /fopen -o filenamebank c:\MIRCPASTA\debug\debugbank.log
n46=  /fclose filenamebank
n47=  /DEBUG c:\MIRCPASTA\debug\debugbank.log
n48=  /timer 1 2 continuebankcreation1 $chan $nick
n49=}
n50=
n51=on 1:TEXT:.seij bank deposit*:#: {
n52=  if ( $4 != $null && $5 != $null && $5 isnum ) {
n53=    /debug off
n54=    /fopen -o filenamedeposit c:\MIRCPASTA\debug\debugbankdeposit.log
n55=    /fclose filenamedeposit
n56=    /debug c:\MIRCPASTA\debug\debugbankdeposit.log
n57=    /timer 1 2 continuebankdeposit1 $chan $nick $4 $5
n58=  }
n59=  else {
n60=    /msg $chan type in: .seij bank deposit [nickname] [quantity]
n61=    /msg $chan quantity must be typed in as a number
n62=  }
n63=}
n64=
n65=on 1:TEXT:.seij* *status*:#: {
n66=  var %count = 3
n67=  if ( $3 != $null && $4 == $null ) {
n68=    /bread c:\MIRCPASTA\listapessoas.txt 1 100000 &listapessoas
n69=    if ( $bfind(&listapessoas, 1, $3) != 0 ) {
n70=      /bread c:\MIRCPASTA\ $+ $3 $+ .txt 1 100000 &pessoa
n71=      /describe $chan $3 has a total of $bvar(&pessoa, 1, $bvar(&pessoa, 0)).text little seij(s)   
n72=      /bunset &pessoa
n73=    }
n74=    else {
n75=      /describe $chan $3 has a total of 0 little seijs
n76=    }
n77=    /bunset &listapessoas
n78=  }
n79=  else {
n80=    /msg $chan type in .seij status [nick]
n81=  }
n82=}
n83=
n84=on 1:TEXT:.seij* *donate*:#: {
n85=  /debug off
n86=  /fopen -o filenome c:\MIRCPASTA\debug\debug2.log
n87=  /fclose filenome
n88=  /debug c:\MIRCPASTA\debug\debug2.log
n89=  /timer1 1 2 continuedonation1 $nick $3 $4 $chan
n90=}
n91=
n92=
n93=on 1:TEXT:.unused.:#: {
n94=  var %donatorCount = 0
n95=  var %receiverCount = 0
n96=  if ( $3 != $null && $4 != $null && $3 != $nick && $4 isnum ) {
n97=    /bread c:\MIRCPASTA\listapessoas.txt 1 100000 &listapessoas
n98=    if ( $bfind(&listapessoas, 1, $nick) != 0 ) {
n99=      if ( $bfind(&listapessoas, 1, $3) == 0 ) {
n100=        /bwrite c:\MIRCPASTA\listapessoas.txt -1 -1 $3
n101=        /bwrite c:\MIRCPASTA\ $+ $3 $+ .txt 1 -1 0
n102=      }
n103=      /bread c:\MIRCPASTA\ $+ $nick $+ .txt 1 100000 &donator
n104=      /bread c:\MIRCPASTA\ $+ $3 $+ .txt 1 100000 &receiver
n105=      %receiverCount = $bvar(&receiver, 1, $bvar(&receiver, 0)).text
n106=      %donatorCount = $bvar(&donator, 1, $bvar(&donator, 0)).text
n107=
n108=      if ( %donatorCount >= $int($4) && %donatorCount > 0 && $int($4) > 0 ) {
n109=        %donatorCount = $calc( %donatorCount - $int($4) )
n110=        %receiverCount = $calc( %receiverCount + $int($4) )
n111=        /bwrite c:\MIRCPASTA\ $+ $nick $+ .txt 1 -1 %donatorCount
n112=        /bwrite c:\MIRCPASTA\ $+ $3 $+ .txt 1 -1 %receiverCount
n113=        /describe $chan $nick has donated $int($4) little seij(s) to $3 $+ , $3 has now a total of %receiverCount little seij(s)
n114=        /describe $chan $nick has now a total of %donatorCount seij(s)
n115=      }
n116=      else { 
n117=        if ( $4 < 0 ) {
n118=          /msg $chan $nick: can not donate negative values :p
n119=        }      
n120=        elseif ( %donatorCount < $int($4) ) {
n121=          /msg $chan $nick: you want to donate $int($4) seij(s) $+ , but you only have %donatorCount seij(s)
n122=          /msg $chan $nick: you don't have enough seijs to donate
n123=        }  
n124=      }
n125=      /bunset &listapessoas
n126=      /bunset &donator
n127=      /bunset &receiver
n128=    }
n129=    else {
n130=      /msg $chan $nick: you have no little seijs to donate :3
n131=      /msg $chan $nick: you should try typing .seij for getting seijs first      
n132=    }
n133=  }
n134=  else {
n135=    /msg $chan $nick: type in .seij donate [receiver] [quantity]
n136=    if ( $3 == $nick ) {
n137=      /msg $chan $nick: you can't donate to yourself :p
n138=    }
n139=    if ( $4 !isnum ) {
n140=      /msg $chan $nick: quantity must be typed in as a number!
n141=    }
n142=  }
n143=}
n144=
n145=on 1:TEXT:.seij* *gcttf*:#: {
n146=  /bread C:\MIRCPASTA\givecandytoteepulfund.txt 1 100000 &teepulfund
n147=  /msg $chan The Give Candy to Teepul $+ 's Foundation have a total of $calc( $bvar(&teepulfund, 1, $bvar(&teepulfund, 0)).text * 0.10 ) candies
n148=  /msg $chan for each little seij you own $+ , the GCTTF receives 10% as candies
n149=  /bunset &teepulfund
n150=}
n151=
n152=on 1:TEXT:.seij:#: {
n153=  var %count = 0
n154=  /bread C:\MIRCPASTA\listapessoas.txt 1 100000 &listapessoas
n155=  /bread C:\MIRCPASTA\givecandytoteepulfund.txt 1 100000 &teepulfund
n156=  if ( &listapessoas != $null ) {
n157=    if ( $bfind(&listapessoas, 1, $nick) != 0 ) {
n158=      /bread C:\MIRCPASTA\ $+ $nick $+ .txt 1 100000 &pessoa
n159=      %count = $calc( $bvar(&pessoa, 1, $bvar(&pessoa, 0)).text + 1 )
n160=      /bwrite C:\MIRCPASTA\givecandytoteepulfund.txt 1 -1 $calc( $bvar(&teepulfund, 1, $bvar(&teepulfund, 0)).text + 1 )
n161=      /bwrite C:\MIRCPASTA\ $+ $nick $+ .txt 1 -1 %count
n162=      /describe $chan gives one little seij to $nick $+ , he has now a total of %count little seijs
n163=      /bunset &listapessoas
n164=      /bunset &pessoa
n165=      /bunset &teepulfund
n166=    }
n167=    else {
n168=      /bwrite C:\MIRCPASTA\listapessoas.txt -1 -1 $nick
n169=      %count = $calc( %count + 1 )
n170=      /bwrite C:\MIRCPASTA\ $+ $nick $+ .txt 1 -1 %count
n171=      /bwrite C:\MIRCPASTA\givecandytoteepulfund.txt 1 -1 $calc( $bvar(&teepulfund, 1, $bvar(&teepulfund, 0)).text + 1 )
n172=      /describe $chan gives one little seij to $nick $+ , he has now a total of 1 little seij
n173=      /bunset &listapessoas
n174=      /bunset &teepulfund    
n175=    }
n176=  }
n177=}