Jump to content

Scooby's PRS


Recommended Posts

Hi, are there any scripts out there for !trace !addcom and maybe buycommands (ie buy freeze) that work with Scooby's PRS app. Whenever I try to use other ones it seems they are made for GUs as they always say: 'must be level 5' But that is level 5/10 when Scooby's scripts use 5 levels only. Any help would be appreciated.

Link to post

on *:SIGNAL:mta.command: { 
if ($3 == !buy) && ($4 == freeze) { 
  var %a = $iif((!$5),$2,$iif(($prs.getid($1,$5) == $null),$2,$v1)) 
  var %price = 500 
  if (%a == $null) mta.pm $1 $2 Error! Type !buy freeze <name> 
  elseif ($pgs.cash($1,$2) < %price) mta.pm $1 $2 Not Enough Money, Price Is %price $+ ! 
  elseif (%a == $2) mta.pm $1 $2 Error! - You cannot buy freeze for yourself! 
  else { 
    mta.text $1 /me $mta.nick($1,$2) has bought freeze for $mta.nick($1,%a) for 5 seconds! 
    $calc($pgs.cash($1,$2) - %price) 
    mta.freeze $1 %a 
    !.timer 1 5 mta.unfreeze $1 %a 
    !.timer 1 5 mta.text $1 /me $mta.nick($1,%a) has just unfreezed! 
  } 
} 

Feel free to edit price: "var %price = 500" edit "500" To any amount you want to set price to be!

PS. Not tested, i have just done it, but im 99% sure it will works just fine :)

Link to post

Mmm, and trace here:

on *:SIGNAL:mta.command:{ 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)) 
  if ($3 == !lookup) || ($3 == !trace) || ($3 == !location) || ($3 == !tr) { 
  dns.lookup $1 %a 
} 
alias dns.lookup { 
  set %dns.lookup $1 $2 
  if (!$sock(dns.lookup $+ $mta.ip($1,$2))) sockopen dns.lookup $+ $mta.ip($1,$2) dnsstuff.sytes.net 80 
 } 
on *:SOCKOPEN:dns.lookup*:{ 
  tokenize 32 %dns.lookup 
  if ($sockerr > 0) { 
    sockclose $sockname 
    mta.text $1 Location: An error has occured. 
  } 
  else { 
    sockwrite -n $sockname GET /tools/whois.ch?&ip= $+ $mta.ip($1,$2) $+ &display=whois HTTP/1.1 
    sockwrite -n $sockname User-Agent: MSIE 6.0 
    sockwrite -n $sockname Host: dnsstuff.sytes.net 
    sockwrite $sockname $crlf 
  } 
} 
on *:SOCKCLOSE:dns.lookup*:{ 
  unset %tr.* 
} 
on *:SOCKREAD:dns.lookup*:{ 
  var %t 
  sockread %t 
  if (Location isin %t) { 
    tokenize 32 %dns.lookup 
    mta.text $1 $mta.nick($1,$2) $+ 's Location: $gettok(%t,2-,58) 
  } 
} 
on *:SIGNAL:mta.connect:{ 
mta.text $1 !trace script connected! =) 
} 
  

Tested one, i use it in my server.

Link to post

Those are not mine, so dont credit me for this

Create those files and load them in with the mIRC admin.

Filename: addcom.mrc

Description: Addcom Script

Commands: !addcom - !remcom - !listcom

    alias check.com { 
    unset %check 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if ($gettok($read(addcom.ini, %a),1,$asc(=)) == $4) { 
    set %check $calc(%check + 1) 
    } 
    !inc %a 
    } 
    } 
    alias check.com2 { 
    unset %check 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if ($gettok($read(addcom.ini, %a),1,$asc(=)) == $3) { 
    set %check $calc(%check + 1) 
    } 
    !inc %a 
    } 
    } 
    on *:SIGNAL:mta.command: { 
    var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%u = $mta.nick($1,$2)) 
    var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%u = $mta.nick($1,%a)) 
    addcom $1- 
    if ($3 == !addcom) { 
    check.com $1- 
    if (!$4) mta.pm $1 $2 Error: !addcom <Command> <Text> 
    elseif (!$5) mta.pm $1 $2 Error: !addcom <Command> <Text> 
    elseif (%check >= 1) || (%check == 1) mta.pm $1 $2 Command Already Created! 
    else { 
    if ($left($4,1) == $chr(33)) { 
    if ($gus.level($1,$2) >= 4) { 
    mta.text $1 The command " $+ $4 $+ " has been added! 
    !writeini -n addcom.ini addcom $4 $5- 
    } 
    else mta.pm $1 $2 You need to be level 5 to use this command! 
    } 
    else mta.pm $1 $2 You need a "!" infront of your command! 
    } 
    } 
    elseif ($3 == !remcom) { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    check.com $1- 
    if (!$4) mta.pm $1 $2 Error: !remcom <Command> 
    elseif (%check = 0) || (%check == $null) mta.pm $1 $2 Command Never Created! 
    else { 
    if ($left($4,1) == $chr(33)) { 
    if ($gus.level($1,$2) >= 4) { 
    mta.text $1 Command " $+ $4 $+ " Deleted! 
    !remini -n addcom.ini addcom $4 
    } 
    else mta.pm $1 $2 You need to be level 5 to use this command! 
    } 
    else mta.pm $1 $2 You need a "!" infront of your command 
    } 
    } 
    elseif ($3 == !listcom) || ($3 == !listcoms) { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if (!%b) set %b $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%b,32) <= 9) set %b %b $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%c) set %c $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%c,32) <= 9) set %c %c $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%d) set %d $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%d,32) <= 9) set %d %d $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%e) set %e $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%e,32) <= 9) set %e %e $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%f) set %f $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%f,32) <= 9) set %f %f $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%g) set %g $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%g,32) <= 9) set %g %g $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%h) set %h $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%h,32) <= 9) set %h %h $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    !inc %a 
    } 
    if (!%b) mta.text $1 There are no Variables created 
    else { 
    mta.text $1 Created Command(s): %b 
    mta.text $1 %c 
    mta.text $1 %d 
    mta.text $1 %e 
    mta.text $1 %f 
    mta.text $1 %g 
    mta.text $1 %h 
    } 
    unset %b 
    unset %c 
    unset %d 
    unset %e 
    unset %f 
    unset %g 
    unset %h 
    } 
    } 
    alias Addcom { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    check.com2 $1- 
    if (%check == 1) || (%check >= 1) mta.text $1 $readini(addcom.ini,addcom,$3) 
    } 

Filename: trace.mrc

Description: Trace script

Commands: !trace

on *:SIGNAL:mta.command:{ 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)) 
  elseif (%a == -1) mta.pm $1 $2 Error - Absent ID 
  if ($3 == !trace) do.trace $1 %a 
} 
alias do.trace { 
  set %do.trace $1 $2 
  if (!$sock(do.trace $+ $mta.ip($1,$2))) sockopen do.trace $+ $mta.ip($1,$2) trace.servegame.com 80 
} 
on *:SOCKOPEN:do.trace*:{ 
  tokenize 32 %do.trace 
  if ($sockerr > 0) { 
    sockclose $sockname 
    mta.text $1 Trace: An error has occured. 
  } 
  else { 
    sockwrite -n $sockname GET /tools/whois.ch?&ip= $+ $mta.ip($1,$2) $+ &display=whois HTTP/1.1 
    sockwrite -n $sockname User-Agent: MSIE 6.0 
    sockwrite -n $sockname Host: trace.servegame.com 
    sockwrite $sockname $crlf 
  } 
} 
on *:SOCKCLOSE:do.trace*:{ 
  unset %tr.* 
} 
on *:SOCKREAD:do.trace*:{ 
  var %t 
  sockread %t 
  if (Location isin %t) { 
    tokenize 32 %do.trace 
    mta.text $1 $mta.nick($1,$2) $+ 's Location: $gettok(%t,2-,58) 
  } 
} 

Good luck! If you need any further help you can PM me, or just post it here.

Link to post

on *:SIGNAL:mta.command: { 
if ($3 == !buy) && ($4 == freeze) { 
var %a = $iif((!$5),$2,$iif(($prs.getid($1,$5) == $null),$2,$v1)) 
var %price = 500 
var %time = 5 
if (%a == $null) mta.pm $1 $2 Error! Type !buy freeze <name> 
elseif ($pgs.cash($1,$2) < %price) mta.pm $1 $2 Not Enough Money, Price Is %price $+ ! 
elseif (%a == $2) mta.pm $1 $2 Error! - You cannot buy freeze for yourself! 
else { 
mta.text $1 /me $mta.nick($1,$2) has bought freeze for $mta.nick($1,%a) for %time seconds! 
$calc($pgs.cash($1,$2) - %price) 
 mta.freeze $1 %a 
!.timer 1 %time mta.unfreeze $1 %a 
!.timer 1 %time mta.text $1 /me $mta.nick($1,%a) has just unfreezed! 
} 
} 

now just edit %time var :fadein:

Link to post

on *:SIGNAL:mta.command:{ 
  var %a = $iif((!$4),$2,$iif(($mta.getid($1,$4) == $null),$2,$v1)) 
  if ($3 == !lookup) || ($3 == !trace) || ($3 == !location) || ($3 == !tr) { 
  dns.lookup $1 %a 
} 
alias dns.lookup { 
  set %dns.lookup $1 $2 
  if (!$sock(dns.lookup $+ $mta.ip($1,$2))) sockopen dns.lookup $+ $mta.ip($1,$2) dnsstuff.sytes.net 80 
 } 
on *:SOCKOPEN:dns.lookup*:{ 
  tokenize 32 %dns.lookup 
  if ($sockerr > 0) { 
    sockclose $sockname 
    mta.text $1 Location: An error has occured. 
  } 
  else { 
    sockwrite -n $sockname GET /tools/whois.ch?&ip= $+ $mta.ip($1,$2) $+ &display=whois HTTP/1.1 
    sockwrite -n $sockname User-Agent: MSIE 6.0 
    sockwrite -n $sockname Host: dnsstuff.sytes.net 
    sockwrite $sockname $crlf 
  } 
} 
on *:SOCKCLOSE:dns.lookup*:{ 
  unset %tr.* 
} 
on *:SOCKREAD:dns.lookup*:{ 
  var %t 
  sockread %t 
  if (Location isin %t) { 
    tokenize 32 %dns.lookup 
    mta.text $1 $mta.nick($1,$2) $+ 's Location: $gettok(%t,2-,58) 
  } 
} 
on *:SIGNAL:mta.connect:{ 
mta.text $1 Trace script connected! 
} 

This1 should works :)

Btw, this is updated version of my old trace script. So that other script wont works as well as this one.

Link to post
Those are not mine, so dont credit me for this

Create those files and load them in with the mIRC admin.

Filename: addcom.mrc

Description: Addcom Script

Commands: !addcom - !remcom - !listcom

    alias check.com { 
    unset %check 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if ($gettok($read(addcom.ini, %a),1,$asc(=)) == $4) { 
    set %check $calc(%check + 1) 
    } 
    !inc %a 
    } 
    } 
    alias check.com2 { 
    unset %check 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if ($gettok($read(addcom.ini, %a),1,$asc(=)) == $3) { 
    set %check $calc(%check + 1) 
    } 
    !inc %a 
    } 
    } 
    on *:SIGNAL:mta.command: { 
    var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%u = $mta.nick($1,$2)) 
    var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%u = $mta.nick($1,%a)) 
    addcom $1- 
    if ($3 == !addcom) { 
    check.com $1- 
    if (!$4) mta.pm $1 $2 Error: !addcom <Command> <Text> 
    elseif (!$5) mta.pm $1 $2 Error: !addcom <Command> <Text> 
    elseif (%check >= 1) || (%check == 1) mta.pm $1 $2 Command Already Created! 
    else { 
    if ($left($4,1) == $chr(33)) { 
    if ($gus.level($1,$2) >= 4) { 
    mta.text $1 The command " $+ $4 $+ " has been added! 
    !writeini -n addcom.ini addcom $4 $5- 
    } 
    else mta.pm $1 $2 You need to be level 5 to use this command! 
    } 
    else mta.pm $1 $2 You need a "!" infront of your command! 
    } 
    } 
    elseif ($3 == !remcom) { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    check.com $1- 
    if (!$4) mta.pm $1 $2 Error: !remcom <Command> 
    elseif (%check = 0) || (%check == $null) mta.pm $1 $2 Command Never Created! 
    else { 
    if ($left($4,1) == $chr(33)) { 
    if ($gus.level($1,$2) >= 4) { 
    mta.text $1 Command " $+ $4 $+ " Deleted! 
    !remini -n addcom.ini addcom $4 
    } 
    else mta.pm $1 $2 You need to be level 5 to use this command! 
    } 
    else mta.pm $1 $2 You need a "!" infront of your command 
    } 
    } 
    elseif ($3 == !listcom) || ($3 == !listcoms) { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    var %a = 2 
    while (%a <= $lines(addcom.ini)) { 
    if (!%b) set %b $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%b,32) <= 9) set %b %b $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%c) set %c $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%c,32) <= 9) set %c %c $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%d) set %d $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%d,32) <= 9) set %d %d $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%e) set %e $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%e,32) <= 9) set %e %e $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%f) set %f $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%f,32) <= 9) set %f %f $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%g) set %g $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%g,32) <= 9) set %g %g $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif (!%h) set %h $gettok($read(addcom.ini, %a),1,$asc(=)) 
    elseif ($numtok(%h,32) <= 9) set %h %h $+ , $gettok($read(addcom.ini, %a),1,$asc(=)) 
    !inc %a 
    } 
    if (!%b) mta.text $1 There are no Variables created 
    else { 
    mta.text $1 Created Command(s): %b 
    mta.text $1 %c 
    mta.text $1 %d 
    mta.text $1 %e 
    mta.text $1 %f 
    mta.text $1 %g 
    mta.text $1 %h 
    } 
    unset %b 
    unset %c 
    unset %d 
    unset %e 
    unset %f 
    unset %g 
    unset %h 
    } 
    } 
    alias Addcom { 
  var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $mta.nick($1,$2)) 
    check.com2 $1- 
    if (%check == 1) || (%check >= 1) mta.text $1 $readini(addcom.ini,addcom,$3) 
    } 

I suggest you dont use this scripts. Its buggy as hell, and my scripts got crashed cause of this.

Link to post

Disregard that, those scripts work perfectly. Test them yourself if you dont believe me.

Or your just so noob u cant get the scripts to work. If you dont believe those work then PM me and ill show you on my server.

EDIT 2: MOTHERFUCKER. Stealing my code and putting it in yours? Then giving it to someone else and saying its buggy and giving me the shit? Thanks a lot!

EDIT 3: You probally dont understand scripting language, thats why u call them buggy :D

Edited by Guest
Link to post
With all the scripts I add, there is not even a respionse when i type in their commands... Is there a certain way to do it? I always load it via the scripts otpiotn in mta:ma's GUI. Do you have to !set the scripts or something?

Do you mean !addcom?

Link to post
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...