MTAMA Scripting

[Oli]

elseif ($3 == !) {
 if ($4 == $null) {
   mta.say $1 You have typed this command incorrectly it is ! of player!
 }
 else {
   mta.say $1 $mta.name($1,$2) would like to tell $mta.name($1,$4) to  off!!
 }
} 

that wouldn't work well if $4 would be equal to 0, as mirc sees $null as being 0 too, so by triggering $4 as 0, it the same as not having $4 at all, if you are checking it against $null.

why not try if ($4 >= 0) .. which would basically check that $4 is a numerical value which is at least 0, so it would work with a player id of 0.

what a load of crap. If $4 == $null it means if there is no char in $4. Why would it put a 0 char for $4 when $4 is empty? thats just stupid

[Bungle]

yeah.. i was getting confused with using just if ($4) { .. there.. my mistake.. wasn't thinking properly

still just using $null wouldn't check to see if it was an integer or not, some could use $4 as an alphabetical char.. unless you state otherwise, so may as well use if ($4 !isnum)

[Aeron]

yeah.. i was getting confused with using just if ($4) { .. there.. my mistake.. wasn't thinking properly

still just using $null wouldn't check to see if it was an integer or not, some could use $4 as an alphabetical char.. unless you state otherwise, so may as well use if ($4 !isnum)

A if give false if the expression is:

0

$null

$false

[Dark_Isle]

Hello,

Iam searching for an script that's displaying evrything what is said in a mIRC channel in the server. Can someone make this for me??

Thanks for your time,

Stefan

[Mike]

Check out page one of this topic (second post)

[Darkwolf]

would this script be ok for loading and activating a game of manhunt ??

    ;; Manhunt Game Loader
       if ($3 == !mhon) {
         !load -rs manhunt.mrc 
         mta.say $1 !mh on
       }
       ;; Manhunt Game Unloader
       if ($3 == !mhoff) {
         ;; Score Reset Script 
       }

[Bungle]

well looking at that you might also want get a script to put within the trigger of !mhoff, as all is in there atm is a comment.. which wouldn't do anything.

[Oli]

that and the fact this is NOT in any alias. Basically, no that wouldnt work

[Dark_Isle]

That script is that you must typ !say and then it will be displayed in the server. i dont want that i want that evrything wat is said in the mirc channel must be displayed in the server!!

[Mike]

Look a tiny bit further down the post... (i think he's titled it "Status Flooder" or similar)

[Darkwolf]

This Script might be useful for people who cant ban people with dynamic ips. If you use !prat it will store the name and the ip address in variables. It first kicks the player but if they try rejoin they will be banned if the name or the ip address is the same

; PRAT 1.0 by BJack /*
alias mta.command {
 if ($3 == !prat) && ($mta.name($1,$2) == )
 set %prat $mta.name($1,$4)
 set %pratip $mta.ip($1,$4) 
 mta.say $1 $mta.name($1,$4) is PRAT!!!!!!
 mta.kick $1 $4
}
alias mta.join {
 if ($mta.ip == %pratip) || $mta.name($1,$2) == %prat) {
   mta.ban $1 $2
 }
}

[Aeron]

This Script might be useful for people who cant ban people with dynamic ips. If you use !prat it will store the name and the ip address in variables. It first kicks the player but if they try rejoin they will be banned if the name or the ip address is the same

; PRAT 1.0 by BJack /*
alias mta.command {
 if ($3 == !prat) && ($mta.name($1,$2) == )
 set %prat $mta.name($1,$4)
 set %pratip $mta.ip($1,$4) 
 mta.say $1 $mta.name($1,$4) is PRAT!!!!!!
 mta.kick $1 $4
}
alias mta.join {
 if ($mta.ip == %pratip) || $mta.name($1,$2) == %prat) {
   mta.ban $1 $2
 }
}

; PRAT 1.0 by BJack
; Debugged by Aeron
alias mta.command {
 if ($3 == !prat) && ($mta.name($1,$2) == ) {
   !set %prat $mta.name($1,$4)
   !set %pratip $mta.ip($1,$4) 
   mta.say $1 $mta.name($1,$4) is PRAT!!!!!!
   mta.kick $1 $4
 }
}
alias mta.join {
 if ($mta.ip($1,$2) == %pratip) || ($mta.name($1,$2) == %prat) mta.ban $1 $2
}

Few tips:

- You need better admin securance

- Dynamic ips are... dynamic ? How to ban those?

- Why not search for the dynamic-ip-range and ban that range?

Dynamic-IP-range-scanner:

;Dynamic-IP-range-scanner v1.0 by Aeron, Copyright (c) 2004
alias getrange {
 echo $timestamp * Scanner - Stage 1: Getting host of $+(",$1,"...)
 %range.ip = $1
 %range.stage = 1
 %range.time = $ticks
 !.dns $1
}
on *:DNS: {
 if (%range.stage == 1) {
   if ($dns(1).addr) {
     echo $timestamp * Scanner - Stage 1: Host resolved to $+(",$dns(1).addr,") (Time: $duration($calc(($ticks - %range.time) / 1000)) $+ )
     !tokenize 46 %range.ip
     %range.addr = $replace($dns(1).addr,$1,*,$2,*,$3,*,$4,*)
     if (%range.addr != $dns(1).addr) {
       echo $timestamp * Scanner - Stage 2: Getting begin-IP of host $+(",%range.addr,"...)
       !inc %range.stage
       %range.time = $ticks
       %range.maxip = $longip(%range.ip)
       %range.minip = 0
       %range.sip = $round($calc(%range.maxip / 2),0)
       %range.try = 1
       !.dns $longip(%range.sip)
     }
     else {
       echo $timestamp * Scanner - Stage 1: Unique host
       echo $timestamp * Scanner: %range.ip (Longip: $longip(%range.ip) $+ )
     }
   }
   else {
     echo $timestamp * Stage 1: Can not resolve host of $dns(0).ip
     echo $timestamp * Scanner: %range.ip (Longip: $longip(%range.ip) $+ )
   }
 }
 else if (%range.stage == 2) {
   if (%range.addr iswm $dns(1).addr) {
     %range.maxip = %range.sip
     !dec %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   else {
     %range.minip = %range.sip
     !inc %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   if ($calc(%range.maxip - %range.minip) == 1) {
     %range.bip = %range.maxip
     echo $timestamp * Scanner - Stage 2: Begin-IP of host resolved to $+(",$longip(%range.bip),") (Time: $duration($calc(($ticks - %range.time) / 1000)) Trys: %range.try $+ )
     echo $timestamp * Scanner - Stage 3: Getting end-IP of host $+(",%range.addr,"...)
     !inc %range.stage
     %range.time = $ticks
     %range.maxip = 4294967296
     %range.minip = $longip(%range.ip)
     %range.sip = $round($calc((%range.maxip - %range.minip) / 2),0)
     %range.try = 1
     !.dns $longip(%range.sip)
   }
   else {
     !inc %range.try
     !.dns $longip(%range.sip)
   }
 }
 elseif (%range.stage == 3) {
   if (%range.addr iswm $dns(1).addr) {
     %range.minip = %range.sip
     !inc %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   else {
     %range.maxip = %range.sip
     !dec %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   if ($calc(%range.maxip - %range.minip) == 1) {
     %range.eip = %range.minip
     %range.stage = 0
     echo $timestamp * Scanner - Stage 3: End-IP of host resolved to $+(",$longip(%range.eip),") (Time: $duration($calc(($ticks - %range.time) / 1000)) Trys: %range.try $+ )
     echo $timestamp * Scanner: $longip(%range.bip) - $longip(%range.eip) (Longip: %range.bip - %range.eip $+ )
   }
   else {
     !inc %range.try
     !.dns $longip(%range.sip)
   }
 }
}

Usage: /getrange

If you have the range:

alias mta.join {
 var %a = $longip($mta.ip($1,$2))
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
}

To ban them

[alias.tin]

  !writeini -n $+(",%dir2,money.ini") balance $mta.name($1,$2) $calc($readini(%dir2 $+ money.ini,balance,$mta.name($1,$2))-$calc(($4)($+ $readini(%dir2 $+ painkillers.ini,main,painkillers) $+)))}   

it's supposed to take your balance (ie 100) and subtract a number a player enters (ie 5) multiplied by the price of something (ie 10 each)

when i try it it works, but it doesnt multiply the price times the number purchased...

sooo say my balance is 100, the cost of 1 is 5, and i buy 3...

as a result it will only subtract 3 from my balance instead of 15...

help

[andeh]

alias mta.join {

Few tips:

- You need better admin securance

- Dynamic ips are... dynamic ? How to ban those?

- Why not search for the dynamic-ip-range and ban that range?

Dynamic-IP-range-scanner:

;Dynamic-IP-range-scanner v1.0 by Aeron, Copyright (c) 2004
alias getrange {
 echo $timestamp * Scanner - Stage 1: Getting host of $+(",$1,"...)
 %range.ip = $1
 %range.stage = 1
 %range.time = $ticks
 !.dns $1
}
on *:DNS: {
 if (%range.stage == 1) {
   if ($dns(1).addr) {
     echo $timestamp * Scanner - Stage 1: Host resolved to $+(",$dns(1).addr,") (Time: $duration($calc(($ticks - %range.time) / 1000)) $+ )
     !tokenize 46 %range.ip
     %range.addr = $replace($dns(1).addr,$1,*,$2,*,$3,*,$4,*)
     if (%range.addr != $dns(1).addr) {
       echo $timestamp * Scanner - Stage 2: Getting begin-IP of host $+(",%range.addr,"...)
       !inc %range.stage
       %range.time = $ticks
       %range.maxip = $longip(%range.ip)
       %range.minip = 0
       %range.sip = $round($calc(%range.maxip / 2),0)
       %range.try = 1
       !.dns $longip(%range.sip)
     }
     else {
       echo $timestamp * Scanner - Stage 1: Unique host
       echo $timestamp * Scanner: %range.ip (Longip: $longip(%range.ip) $+ )
     }
   }
   else {
     echo $timestamp * Stage 1: Can not resolve host of $dns(0).ip
     echo $timestamp * Scanner: %range.ip (Longip: $longip(%range.ip) $+ )
   }
 }
 else if (%range.stage == 2) {
   if (%range.addr iswm $dns(1).addr) {
     %range.maxip = %range.sip
     !dec %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   else {
     %range.minip = %range.sip
     !inc %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   if ($calc(%range.maxip - %range.minip) == 1) {
     %range.bip = %range.maxip
     echo $timestamp * Scanner - Stage 2: Begin-IP of host resolved to $+(",$longip(%range.bip),") (Time: $duration($calc(($ticks - %range.time) / 1000)) Trys: %range.try $+ )
     echo $timestamp * Scanner - Stage 3: Getting end-IP of host $+(",%range.addr,"...)
     !inc %range.stage
     %range.time = $ticks
     %range.maxip = 4294967296
     %range.minip = $longip(%range.ip)
     %range.sip = $round($calc((%range.maxip - %range.minip) / 2),0)
     %range.try = 1
     !.dns $longip(%range.sip)
   }
   else {
     !inc %range.try
     !.dns $longip(%range.sip)
   }
 }
 elseif (%range.stage == 3) {
   if (%range.addr iswm $dns(1).addr) {
     %range.minip = %range.sip
     !inc %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   else {
     %range.maxip = %range.sip
     !dec %range.sip $round($calc((%range.maxip - %range.minip) / 2),0)
   }
   if ($calc(%range.maxip - %range.minip) == 1) {
     %range.eip = %range.minip
     %range.stage = 0
     echo $timestamp * Scanner - Stage 3: End-IP of host resolved to $+(",$longip(%range.eip),") (Time: $duration($calc(($ticks - %range.time) / 1000)) Trys: %range.try $+ )
     echo $timestamp * Scanner: $longip(%range.bip) - $longip(%range.eip) (Longip: %range.bip - %range.eip $+ )
   }
   else {
     !inc %range.try
     !.dns $longip(%range.sip)
   }
 }
}

Usage: /getrange

If you have the range:

alias mta.join {
 var %a = $longip($mta.ip($1,$2))
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
 if (%a >= [min ip]) && (%a <= [max ip]) mta.ban $1 $2
}

To ban them

errr.. im getting error saying "no such file as mta.dns", it also crashed MTAMA and made it fail crc check

[Niels]

why is this not work i typ in mta /msg admin tempadmin 0

admin says Admin rights give to Unkown

this is it script

alias mta.pm {
elseif ($3 == admin) {
elseif ($4 == tempadmin) {
       %b = $iif($4 isnum,$4,$mta.getid($1,$4))
       mta.say $1 Admin rights give to $mta.name($1,%b)
       !writeini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ %b level Admin
       writeini -n "rights.ini" Admin $mta.ip($1,%b) $mta.ip($1,%b)
     }

[Aeron]

why is this not work i typ in mta /msg admin tempadmin 0

admin says Admin rights give to Unkown

this is it script

alias mta.pm {
elseif ($3 == admin) {
elseif ($4 == tempadmin) {
       %b = $iif($4 isnum,$4,$mta.getid($1,$4))
       mta.say $1 Admin rights give to $mta.name($1,%b)
       !writeini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ %b level Admin
       writeini -n "rights.ini" Admin $mta.ip($1,%b) $mta.ip($1,%b)
     }

You got a few syntax buggy's:

alias mta.pm {
 if ($3 == admin) {
   if ($4 == tempadmin) {
     %b = $iif($5 isnum,$5,$mta.getid($1,$5))
     mta.say $1 Admin rights give to $mta.name($1,%b)
     !writeini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ %b level $6
     !writeini "rights.ini" Admin $mta.name($1,%b) $mta.ip($1,%b)
   }
 }
}

Usage:

/msg admin tempadmin

[Niels]

Thx Aeron !

[Niels]

alias mta.command {
if ($3 == !getip) {
       mta.msg $1 $2 IP from $4 is $readini(joins.ini,IP,$4,$mta.ip($1,$4))
     }
alias mta.join {
writeini -n "joins.ini" IP $mta.ip($1,$2) $mta.name($1,$2) 
}

;This is ini file
;[iP]
;***.***.***.***=test
;***.***.***.***=MTAFreak

Why is this not work i typ in chat !getip test admin says: IP form test is

[Mike]

First off, use the mirc script editor - you have a bracket mismatch

Goes more like this

alias mta.command { 
 if ($3 == !getip) { 
   mta.msg $1 $2 IP from $4 is $readini(joins.ini,IP,$mta.name($1,$4))
 } 
}
alias mta.join { 
 writeini -n "joins.ini" IP $mta.name($1,$2) $mta.ip($1,$2)
}

;This is ini file 
;[iP] 
;test=***.***.***.***
;MTAFreak=***.***.***.***

Also: Don't know why you'd want this as you can just have a script which just uses $mta.getip without the ini.

[Aeron]

alias mta.command {
if ($3 == !getip) {
       mta.msg $1 $2 IP from $4 is $readini(joins.ini,IP,$4,$mta.ip($1,$4))
     }
alias mta.join {
writeini -n "joins.ini" IP $mta.ip($1,$2) $mta.name($1,$2) 
}

;This is ini file
;[iP]
;***.***.***.***=test
;***.***.***.***=MTAFreak

Why is this not work i typ in chat !getip test admin says: IP form test is

alias mta.command {
 if ($3 == !getip) {
   mta.msg $1 $2 IP from $4 is $readini(joins.ini,IP,$4)
 }
}
alias mta.join {
 !writeini -n joins.ini IP $mta.name($1,$2) $mta.ip($1,$2)
}
;This is ini file
;[iP]
;test=***.***.***.***
;MTAFreak=***.***.***.***

Are you scripting in notepad or something? If yes: YOU USE mIRC's SCRIPT EDITOR. I see alot {} error's

[Oli]

ahaha thats the exact script i gave the guy on msn

[Guest]

can some1 plz tell me where i can aquire the !hp script plz? And i cant seem to get the !location working in MTA:ma:GRS v3.07

[Oli]

yes i know why !loc dont work 3.07.. its fixed in next update.. to fix it ureself.. in options.ini in the grs dir.. under [main] add this line:

locallow=1

then itll work

[Niels]

have somebody a good ping kicker with average ping ???

[Oli]

alias mta.connect {
 if %max == $null { !set %max 250 }
 !.timerping 0 10 pingkick
}
alias pingkick { 
 var %a = 1,%b 
 while (%a < 90) { 
   if ($sock(mta. $+ %a)) { 
     %b = $readini($mta.dir $+ mta.ini,%a,max) 
     while (%b >= 0) { 
       !tokenize 32 $hget(Ping. $+ %a,%b) 
       !hadd -m Ping. $+ %a %b $calc($mta.ping(%a,%b) +$1) $calc(1+$2)
       if ($ini($mta.dir $+ %a $+ .ini,ID $+ %b)) { !writeini " $+ $mta.dir $+ %a $+ .ini $+ " ID $+ %b avping $calc($1 /$2) }
       if ($2 > 5) { 
         if $calc($1 / $2) > %max {
           mta.say %a Kicking $+(',$mta.name(%a,%b),') for high ping [ $+ $calc($1 /$2) $+ ]. Max allowed: %max
           mta.kick %a %b
         } 
         !hadd -m Ping. $+ %a %b $mta.ping(%a,%b) 1 
       } 
       !dec %b 
     } 
   } 
   !inc %a  
 } 
}
alias mta.command {
 var %a = $iif($4 == $null,$2,$iif($4 isnum,$4,$mta.getid($1,$4)))
 if !ping* iswm $3 {
   if %a == -1 mta.say $1 Error - Absent ID.
   elseif $mta.name($1,%a) == unknown mta.say $1 Error - Absent ID.
   else mta.say $1 $mta.name($1,%a) $+ 's ping: $mta.ping($1,%a) $+ . Average ping: $readini($mta.dir $+ $1.ini,ID $+ %a,avping) $+ . Max ping allowed: %max $+ .
 }
}

To set the max ping different from teh default of 250.. in mirc do /set %max replacing with the number of the max ping (ie 200)

!ping will return a players ping, average ping and max ping allowed. This works for wildcards and for individuals (ie !ping)