Scooby's PRS

thestrangestick · August 6, 2007

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.

SanZoR · August 6, 2007

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

SanZoR · August 6, 2007

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.

thestrangestick · August 6, 2007

Thanks! And those definitely work with prs?

No chance of a addcom then? EDIT: The buyfreeze works but the trace doesn't. Anyway to change the time of the freeze?

And no addcom?

QuickBreakdown · August 7, 2007

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.

SanZoR · August 7, 2007

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

SanZoR · August 7, 2007

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.

SanZoR · August 7, 2007

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.

QuickBreakdown · August 7, 2007

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

Edited August 7, 2007 by Guest

SanZoR · August 7, 2007

Oh rly? Type !addcommand $calc(mta.fuckyou) and its crashed, you fool!

QuickBreakdown · August 7, 2007

What fucking idiot is gonna try that

SanZoR · August 7, 2007

And please, stop arguing with me.

Addcon scripts is HouseMD's and trace & buy freeze are mine!

SanZoR · August 7, 2007

What idiot is gonna try that

you

lil Toady · August 7, 2007

And please, stop arguing with me.
Addcon scripts is HouseMD's and trace & buy freeze are mine!

You really can't script. Admit it.

thestrangestick · August 8, 2007

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?

SanZoR · August 10, 2007

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?

thestrangestick · August 11, 2007

Does it really matter what filename you give it?

thestrangestick · August 11, 2007

I fixed, my problem, I copied the script in with hashes *me embarassed*

BTW, your addcom still won't work - I think it's just for GUS. IE You need to be GUS level 5. So any PRS compatible addcom still apreciated.

Scooby's PRS

Recommended Posts

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Recently Browsing 0 members