Jump to content

slap script


ceelen1

Recommended Posts

k ty for this ur the best :DDDDDDDDDDDDDDDDDDDD

k my last guestion i have an jail+suspect script the suspect thing work eprfect but nothing happens when i type jail:

on *:SIGNAL:mta.command:{

if ($3 == !jail) {

var %a = $iif($4,$iif($mta.name($1,$4) != Unknown,$4,$mta.getid($1,$4)),$2)

if ((Cop* iswm $mta.skin($1,$2).name) && ($rpg.criminal($1,%a) == $true) && ($2 != %a) && (%a != -1) && ($5 isnum)) {

if (($rpg.area($1,%a) == Jail-Cells) || ($rpg.area($1,%a) == Big-Cell)) {

mta.msg $1 $2 You jailed a criminal. Here's your reward. $100

mta.msg $1 %a Someone in the jail made you drop soap. Poor bastard.

mta.say $1 $mta.name($1,%a) has been jailed for $5 Minutes!

.timer 1 1 mta.msg $1 $2 You have earned $calc(1700 * $rpg.wantedlvl($1,%a)) $+ !

!writeini -n " $+ $scriptdir $+ suspectlist.ini" $mta.name($1,$2) cash $calc($rpg.cash($1,$2) + 100)

!writeini -n " $+ $scriptdir $+ suspectlist.ini" $mta.name($1,%a) criminal 0

!writeini -n " $+ $scriptdir $+ suspectlist.ini" $mta.name($1,%a) Jailed Yes

!.timer 1 $calc($calc($5 * 60) + 1) mta.say $1 $mta.name($1,%a) is now a free man!

!.timer 1 $calc($5 * 60) !writeini -n " $+ $scriptdir $+ suspectlist.ini" $mta.name($1,%a) Jailed No

}

}

}

elseif (!suspect == $3) {

var %a = $iif($4,$iif($mta.name($1,$4) != Unknown,$4,$mta.getid($1,$4)),$2)

if (Cop* iswm $mta.skin($1,$2).name) {

if (%a == -1) mta.msg $1 $2 Error - Absent ID/Name

if (%a == $2) mta.msg $1 $2 Error - Can't suspect yourself

else {

!writeini " $+ $scriptdir $+ suspectlist.ini" List $mta.name($1,%a) 1

!writeini " $+ $scriptdir $+ suspectlist.ini" Reasons $mta.name($1,%a) $iif($5,$5-,No Reason)

mta.say $1 Server: $mta.name($1,%a) has been suspected by $mta.name($1,$2) : Reason: $iif($5,$5-,None)

}

}

else mta.msg $1 $2 Server: You are not a cop.

}

elseif ($3 == !crime) {

var %a = 0,%b

while (%a <= $mta.maxplayers($1)) {

if ($readini($scriptdir $+ suspectlist.ini,list,$mta.name($1,%a)) == 1) {

mta.say $1 Wanted: $mta.name($1,%a) $+ , Reason: $readini($scriptdir $+ suspectlist.ini,reasons,$mta.name($1,%a))

}

inc %a

}

}

elseif (!wanted == $3) {

var %a = 0,%b

while (%a <= $mta.maxplayers($1)) {

if ($readini($scriptdir $+ suspectlist.ini,list,$mta.name($1,%a)) == 1) {

if (!%b) %b = $mta.name($1,%a)

elseif (%b) %b = %b $+ , $mta.name($1,%a)

}

inc %a

}

mta.say $1 Wanted Players: $iif(%b,%b,None)

}

}

on *:SIGNAL:mta.kill:{

if ($readini($scriptdir $+ suspectlist.ini,list,$mta.name($1,$2)) == 1) {

if (Cop* iswm $mta.skin($1,$3).name) {

mta.msg $1 $3 Killed a wanted player and u get 100$ of his bounty.

!writeini rpg.ini cash mta.name($1,$32) $calc($readini(rpg.ini,cash,$mta.name($1,$2)) + 100)

!remini " $+ $scriptdir $+ suspectlist.ini" List $mta.name($1,$2)

!remini " $+ $scriptdir $+ suspectlist.ini" Reasons $mta.name($1,$2)

!writeini rpg.ini cash $mta.name($1,$3) $calc($readini(rpg.ini,cash,$mta.name($1,$3)) + 100)

}

Link to comment

if the link dont work here

*/
alias mta.level !return $iif($readini($mta.dir $+ $1.ini,ID $+ $2,level),$v1,0)
alias mta.spree !return $iif($hget(mta.spree,$mta.name($1,$2)),$v1,0)
alias my.kills !return $iif($readini($scriptdir $+ mta.stats.ini,KILLS,$mta.name($1,$2)),$v1,0)
alias my.deaths !return $iif($readini($scriptdir $+ mta.stats.ini,DEATHS,$mta.name($1,$2)),$v1,0)
alias my.spree !return $iif($readini($scriptdir $+ mta.stats.ini,SPREE,$mta.name($1,$2)),$v1,0)
on *:SIGNAL:mta.command: {
 var %a = $iif($4,$iif($mta.name($1,$4) != Unknown,$4,$mta.getid($1,$4)),$2)
 ;PLAYERS COMMANDS
 if (!admin* iswm $3) {
   var %a = 0,%b,%c
   while (%a <= $mta.maxplayers($1)) {
     if ($mta.level($1,%a) >= 6) %b = $iif(%b,%b $+ $chr(44) $mta.name($1,%a),$mta.name($1,%a)) $+ (Level: $mta.level($1,%a) $+ )
     elseif ($mta.level($1,%a) >= 2) %c = $iif(%c,%c $+ $chr(44) $mta.name($1,%a),$mta.name($1,%a)) $+ (Level: $mta.level($1,%a) $+ )
     !inc %a
   }
   mta.say $1 $iif(%b,Admins: %b,No admins currently present.)
   if (%c) mta.say $1 Moderators: %c
 }
 elseif ($3 == !skin) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) $+ 's skin: $mta.skin($1,%a).name)
 elseif ($3 == !level) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) $+ 's level: $mta.level($1,%a))
 elseif ($3 == !ping) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) $+ 's ping: $mta.ping($1,%a))
 elseif ($3 == !idle) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) is idle for: $mta.idle($1,%a).time)
 elseif (($3 == !hp) || ($3 == !health)) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) $+ 's health: $mta.health($1,%a))
 elseif (($3 == !car) || ($3 == !vehicle)) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $iif($mta.vehicle($1,%a).name == foot,$mta.name($1,%a) is currently on foot. Health: $mta.health($1,%a) $+ %,$mta.name($1,%a) is currently $iif($findtok(11 12 13 50,$mta.vehicle($1,%a),1,32),flying,driving) a $mta.vehicle($1,%a).name $+ . $iif($findtok(11 12 13 50,$mta.vehicle($1,%a),1,32),Vehicle,Helicopter) Health: $mta.health($1,%a).vehicle $+ %))
 elseif (!loc* iswm $3) $iif(%a == -1,mta.msg $1 $2 Error - Absent ID,mta.say $1 $mta.name($1,%a) $+ 's location: $mta.area($1,%a))
 elseif ($3 == !time) mta.say $1 Current time: $time($GMT) GMT
 elseif (!count* iswm $3) {
   var %i = 3,%a = 0
   if (($4 isnum) && ($4 <= 5)) %i = $4
   while (%i >= 1) { .timer 1 %a mta.say $1 %i | !dec %i | !inc %a }
   .timer 1 %a mta.say $1 GOGOGO!!!
 }
 elseif ($findtok(!out !in,$3,1,32)) {
   var %a = 0,%b = 0,%c = $findtok(!out !in,$3,1,32)
   while (%a <= $mta.maxplayers($1)) {
     if ($mta.status($1,%a) == %c) %b = %b + 1
     !inc %a
   }
   mta.say $1 There $iif(%b == 1,is,are) %b $iif(%b == 1,player,players) $iif(%c == 1,out,in) game.
 }
 elseif ($3 == !list) {
   if ($findtok(in out,$4,1,32)) {
     var %a = 0,%b,%c,%d
     while (%a <= $mta.maxplayers($1)) {
       if ($4 == in) %b = 2
       elseif ($4 == out) %b = 1
       if ($mta.status($1,%a) == %b) {
         if (!%c) %c = $mta.name($1,%a)
         elseif ($numtok(%c,32) <=  %c = %c $+ , $mta.name($1,%a)
         elseif (!%d) %d = $mta.name($1,%a)
         else %d = %d $+ , $mta.name($1,%a)
       }
       !inc %a
     }
     mta.say $1 $iif(%c,Players $4 $+ -game: %c,There are no Players $4 $+ -Game)
     if (%d) mta.say $1 %d
   }
   else mta.msg $1 $2 Error - Syntax: $3 
 }
 if (!stat* iswm $3) {
   if (%a == -1) mta.msg $1 $2 Error - Absent ID.
   else {
     mta.say $1 Stats for $mta.name($1,%a) - Kills: $mta.kills($1,%a) $+ , Deaths: $mta.deaths($1,%a) $+ , Spree: $mta.spree($1,%a)
     mta.say $1 Overall - Kills: $my.kills($1,%a) $+ , Deaths: $my.deaths($1,%a) $+ , Ratio: $round($calc($my.kills($1,%a) / $my.deaths($1,%a)),4) $+ , Score: $calc($my.kills($1,%a) - $my.deaths($1,%a)) $+ , Best Spree: $my.spree($1,%a)
   }
 } 
 elseif ($mta.level($1,$2) >= 2) {
   if ($mta.level($1,$2) >= 3) {
     if ($mta.level($1,$2) >= 4) {
       if ($mta.level($1,$2) >= 5) {
         if ($mta.level($1,$2) >= 6) {
           if ($mta.level($1,$2) >= 7) {
             if ($mta.level($1,$2) >=  {
               if ($mta.level($1,$2) >= 9) {
                 if ($mta.level($1,$2) >= 10) {
                   ;LEVEL 10 COMMANDS
                   if ($3 == !setlevel) {
                     if (!$5) mta.msg $1 $2 Error - Syntax: !setlevel 
                     elseif (%a == -1) mta.msg $1 $2 Error - Absent ID
                     elseif ($5 !isnum) mta.msg $1 $2 Error - Please enter a numeric admin level.
                     elseif (($5 < 1) || ($5 > 10)) mta.msg $1 $2 Error - $5 is an invalid admin level.
                     elseif ($mta.level($1,%a) == 0) mta.msg $1 $2 Error - $mta.name($1,%a) is not registered with the server
                     else {
                       mta.say $1 $mta.name($1,%a) $+ 's level changed from $mta.level($1,%a) to $5 by $mta.name($1,$2)
                       !writeini " $+ $scriptdir $+ mta.nickserv.ini" $mta.name($1,%a) level $5
                       !writeini " $+ $mta.dir $+ $1.ini" ID $+ %a level $5
                     }
                   }
                   elseif ($3 == !clankick) {
                     mta.say $1 All members of $4 clan kicked by $mta.name($1,$2) $+ ! $iif($5,Reason: $5-,No Reason)
                     var %b = 0
                     while (%b <= $mta.maxplayers($1)) {
                       if (($4 isin $mta.name($1,%b)) && (%b != $2)) mta.kick $1 %b
                       !inc %b
                     }
                   }
                   elseif ($3 == !clanban) {
                     mta.say $1 All members of $4 clan has banned by $mta.name($1,$2) $+ ! $iif($5,Reason: $5-,No Reason)
                     var %b = 0
                     while (%b <= $mta.maxplayers($1)) {
                       if (($4 isin $mta.name($1,%b)) && (%b != $2)) mta.ban $1 %b
                       !inc %b
                     }
                   }
                 }
                 ;LEVEL 9 COMMANDS
                 if ($3 == !subnetban) {
                   if ($2 == %a) mta.msg $1 $2 Error - Can't ban yourself.
                   elseif (%a == -1) mta.msg $1 $2 Error - Absent ID
                   else {
                     var %b = $gettok($mta.ip($1,%a),1-2,46)
                     mta.say $1 $mta.name($1,%a) $+ 's subnet $+(%b $+ .0.0) banned.
                     mta.ban $1 %a
                     mta.addban $1 %b $+ .0.0
                   }
                 }
               }
               ;LEVEL 8 COMMANDS
               if ($3 == !ban) {
                 if (%a == -1) mta.msg $1 $2 Error - Absent ID
                 elseif (%a == $2) mta.msg $1 $2 Error - Can't ban yourself.
                 else {
                   mta.say $1 $mta.name($1,%a) has been banned by $mta.name($1,$2) $+ . $iif($5,Reason: $5-)
                   mta.kick $1 %a $5-
                 }
               }
               elseif ($3 == !addban) {
                 if (*.*.*.* iswm $4) {
                   mta.addban $1 $4
                   mta.say $1 IP ' $+ $4 $+ ' banned.
                 }
               }
             }
             ;LEVEL 7 COMMANDS

           }
           ;LEVEL 6 COMMANDS
           if ($3 == !constant) {
             if ($findtok(off sun cloud rain fog,$4,1,32)) {
               set %constantw $4
               mta.say $1 Constant weather set to: $4
               mta.setweather $1 $replace($4,cloud,1,rain,2,fog,3,sun,0)
             }
           }
         }
         ;LEVEL 5 COMMANDS
         if ($3 == !kick) {
           if (%a == -1) mta.msg $1 $2 Error - Absent ID
           elseif (%a == $2) mta.msg $1 $2 Error - Can't kick yourself.
           else {
             mta.say $1 $mta.name($1,%a) has been kicked by $mta.name($1,$2) $+ . $iif($5,Reason: $5-)
             mta.kick $1 %a
           }
         }
       }
       ;LEVEL 4 COMMANDS
       if ($3 == !slap) {
         if (%a == -1) mta.msg $1 $2 Error - Absent ID
         elseif (%a == $2) mta.msg $1 $2 Error - Can't slap yourself
         else {
           if (($5 isnum) && ($5 <= 5)) .timer $5 0 mta.slap $1 %a
           else mta.slap $1 %a
         }
       }
     }
     ;LEVEL 3 COMMANDS
     if ($3 == !ip) {
       if (%a == -1) mta.msg $1 $2 Error - Absent ID
       else mta.msg $1 $2 $mta.name($1,%a) $+ 's IP: $mta.ip($1,%a)
     }
   }
   ;LEVEL 2 COMMANDS
   if ($3 == !settime) mta.settime $1 $4
   elseif ($findtok(!sun !fog !cloud !rain,$3,1,32)) mta.setweather $1 $replace($3,!cloud,1,!rain,2,!fog,3,!sun,0)

 }
}
on *:SIGNAL:mta.join:{
 if ($findtok(login register admin,$mta.name($1,$2),1,32)) {
   mta.msg $1 $2 Sorry, $+(',$mta.name($1,$2),') is an illegal nick, please change.
   mta.kick $1 $2
 }
 elseif ($readini($scriptdir $+ mta.nickserv.ini,$mta.name($1,$2),level)) {
   var %a = $readini($scriptdir $+ mta.nickserv.ini,$mta.name($1,$2),level)
   if ($mta.ip($1,$2) == $readini($scriptdir $+ mta.nickserv.ini,$mta.name($1,$2),ip)) {
     mta.say $1 $iif(%a >= 6,Admin,$iif(%a >= 2,Moderator,Registered player)) $mta.name($1,$2) auto-logged in. (Status level: %a $+ )
     !writeini " $+ $mta.dir $+ $1.ini" ID $+ $2 level %a
   }
   else {
     mta.msg $1 $2 Nick $+(',$mta.name($1,$2),') is registered with the server. You have 30 seconds to login.
     mta.msg $1 $2 To login type '/msg login '
     $+(.timer,login,$1,$2) 1 30 mta.kick $1 $2
   }
 }
 else mta.msg $1 $2 You can register your nick with the server. To register type '/msg register '
}
on *:SIGNAL:mta.pm:{
 if ($3 == login) {
   if (!$4) mta.msg $1 $2 Error - missing password.
   elseif (($left($4,1) == $chr(60)) && ($right($4,1) == $chr(62))) mta.msg $1 $2 Please enter your pass without <> signs
   elseif ($4 != $readini($scriptdir $+ mta.nickserv.ini,$mta.name($1,$2),password)) mta.msg $1 $2 Wrong password.
   else {
     var %a = $readini($scriptdir $+ mta.nickserv.ini,$mta.name($1,$2),level)
     mta.say $1 $iif(%a >= 6,Admin,$iif(%a >= 2,Moderator,Registered player)) $mta.name($1,$2) logged in. (Status level: %a $+ )
     !writeini " $+ $mta.dir $+ $1.ini" ID $+ $2 level %a
     !writeini " $+ $scriptdir $+ mta.nickserv.ini" $mta.name($1,$2) ip $mta.ip($1,$2)
     $+(.timer,login,$1,$2) off
   }
 }
 elseif ($3 == register) {
   if (!$4) mta.msg $1 $2 Error - missing password.
   elseif (($left($4,1) == $chr(60)) && ($right($4,1) == $chr(62))) mta.msg $1 $2 Please enter your pass without <> signs
   else {
     mta.say $1 $mta.name($1,$2) registered and auto-logged in!
     !writeini " $+ $scriptdir $+ mta.nickserv.ini" $mta.name($1,$2) ip $mta.ip($1,$2)
     !writeini " $+ $scriptdir $+ mta.nickserv.ini" $mta.name($1,$2) password $4
     !writeini " $+ $scriptdir $+ mta.nickserv.ini" $mta.name($1,$2) level 1
     !writeini " $+ $mta.dir $+ $1.ini" ID $+ $2 level 1
   }
 }
}
on *:SIGNAL:mta.part:{
 $+(.timer,login,$1,$2) off
}

;CONSTANT WEATHER CHANGE
on *:SIGNAL:mta.event:{
 if ((%constantw) && (%constantw != off)) {
   if (Weather isin $2-) {
     if ($mta.weather($1) != %constantw) mta.setweather $1 $replace(%constantw,cloud,1,rain,2,fog,3,sun,0)
   }
 }
}

;SPAWN MESSAGES
on *:SIGNAL:mta.spawn:{
 mta.say $1 $mta.name($1,$2) spawned as $mta.skin($1,$2).name
}

;STATS LOG
on *:SIGNAL:mta.kill:{
 if (!$hget(mta.spree)) !hmake mta.spree 100
 if ($3 != $2) {
   !writeini " $+ $scriptdir $+ mta.stats.ini" KILLS $mta.name($1,$3) $calc($my.kills($1,$3) + 1)
   !hadd mta.spree $mta.name($1,$3) $calc($mta.spree($1,$3) + 1)
   if ($mta.spree($1,$3) > $my.spree($1,$3)) !writeini " $+ $scriptdir $+ mta.stats.ini" SPREE $mta.name($1,$3) $calc($my.spree($1,$3) + 1)
 }
 !writeini " $+ $scriptdir $+ mta.stats.ini" DEATHS $mta.name($1,$2) $calc($mta.deaths($1,$2) + 1)
 !hdel mta.spree $mta.name($1,$2)
}
on *:LOAD:{
 if (!$exists($scriptdir $+ mta.nickserv.ini)) {
   var %a = $input(Welcome to the 10 levels Admin-Sytem setup $lf $+ Enter your nickname to login with:,eod,Admin-System by lil_Toady),%b = $input(Enter your password:,eod,Admin-System by lil_Toady),%c = $input(Admin-System configured! $lf $+ Nickname: %a $+ , Password: %b ,o,Admin-System by lil_Toady)
   !writeini " $+ $scriptdir $+ mta.nickserv.ini" %a password %b
   !writeini " $+ $scriptdir $+ mta.nickserv.ini" %a level 10
 }
}

Link to comment
  • 6 months later...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...