Vice City Multiplayer

VC:MP 0.3 => mIRC/pawn Scripting => Topic started by: scripter_pawn on December 26, 2011, 01:51:45 am

Title: loto cmd
Post by: scripter_pawn on December 26, 2011, 01:51:45 am

Code: [Select]

  else if ( $3 = loto ) {
    if ( $readini(accounts.ini,$vcmp.name($1,$2),log) = 0 ) vcmp.msg $1 $2 Please register/login to use this command
    if ( !$readini(accounts.ini,$vcmp.name($1,$2),level) ) vcmp.msg $1 $2 Please register/login to use this command
    elseif ( $readini(accounts.ini,$vcmp.name( $1,$2),alr) = 1 ) vcmp.msg $1 $2 Sorry today you losed your chance , try after 5 hours
    elseif ( $readini(accounts.ini,$vcmp.name($1,$2),cash) < 2000 ) vcmp.msg $1 $2 You need at least 2000 dollars !
    else {
      writeini accounts.ini $vcmp.name($1,$2) alr 1
      var %temp = $rand(1,100)
      timer.loto 1 18000 writeini accounts.ini $vcmp.name($1,$2) alr 0
      vcmp.msg $1 $2 Loto started good luck !!!
      if ( %temp = 56 ) {
        writeini accounts.ini $vcmp.name($1,$2) cash $calc($readini(accounts.ini,$vcmp.name($1,$2),cash) + 100000)
        vcmp.announce $1 $2 ~y~W~b~i~y~n~b~n~y~e~b~r~o~!
        vcmp.say $1 Pay atention ! , $vcmp.name( $1,$2) has just won 100.000 dollars
        vcmp.msg $1 $2 Well done :)
      }
      else vcmp.msg $1 $2 Too bad :( you losed , good luck next time
    }
  }
It should work for all mirc scripts , but you will need to convert my to ur script

Title: Re: loto cmd
Post by: yazeen on December 26, 2011, 06:04:23 am

You want us to convert this? if you do then which language?

Title: Re: loto cmd
Post by: scripter_pawn on December 26, 2011, 10:46:56 am

FROM "MIRC RFS" wich is mine to "FBS" for example
i will try to convert it ...

Code: [Select]

else if ( $3 == loto ) {
if ( !FBS.Level($1,$2) ) vcmp.msg $1 $2 Please register
elseif (FBS.lin($1,$2) != 1 ) vcmp.msg $1 $2 Please login
elseif ( RFS.Level($1,$2) < 4 ) vcmp.msg $1 $2 You need at least level 4 to use this cmd
;here you will need to add an loto.ini in your script folder
elseif ($readini(loto.ini,$vcmp.name($1,$2),alr) = 1 ) vcmp.msg $1 $2 You cant try one more today ...
elseif ($FBS.actcash($1,$2) < 2000 ) vcmp.msg $1 $2 You need to have at least 2000 $+ $
else {
FBS.DecCash $1 $2 2000
vcmp.msg $1 $2 Loto started good luck
timer.ralr 1 18000 writeini loto.ini $vcmp.name($1,$2) alr 0
if ( $rand = 56 ) {
vcmp.say $1 **Player $vcmp.name($1,$2) has won to loto !!!
vcmp.announce $1 $2 ~y~W~b~i~y~n~b~n~y~e~b~r~o~
vcmp.msg $1 $2 You won to loto and recived price : 100.000 $+ $
FBS.IncCash $1 $2 $calc(FBS.actcash($1,$2)+100.000)
}
else vcmp.msg $1 $2 Too bad you losed , try next time :)
}
}