on $:TEXT:/^!@./Si:#: {
if (!$2) { $iif($left($1,1) == @,msg #,.notice $nick) 4Error! 14Lookup name not supplied! | halt }
if ($len($2-) > 12) { $iif($left($1,1) == @,msg #,.notice $nick) 4Error! 14No more than 12 characters allowed! | halt }
else {
set %nick.query $replace($2-,$chr(32),_)
set %nick.ans $iif($left($1,1) == @,msg #,.notice $nick)
sockopen Nick. [ $+ [ $ticks ] ] www.rscript.org 80
} }
on :SOCKOPEN:Nick.:{
sockwrite -nt $sockname GET $+(/lookup.php?type=namecheck&name= $+ %nick.query) HTTP/1.1
sockwrite -nt $sockname Host: rscript.org
sockwrite -nt $sockname $crlf
}
on :SOCKREAD:Nick.:{
if ($sockerr) { %nick.ans 4Error! 14 An error in the socket has caused this error4 " $+ $sockerr $+ "14 Please memo "botmaster" with this socket error. | halt }
else {
var %nick.read
sockread %nick.read
if (NAMECHECK:* iswm %nick.read) {
tokenize 32 %nick.read
if ($2 == AVALIBLE) { set %nick.avlbty 9Available! }
elseif ($2 == NOTAVALIBLE) { set %nick.avlbty 4Not Available. }
%nick.ans 14[NICK14]4 %nick.Query 14is %nick.avlbty
sockclose $sockname
} }
so it would look like this?
alias con {
setvar {
var %i 100
while %i <= 127 {
set $+($(%,),lvl) %i $r(1,999999999)
inc %i
}
}
if ($3 == +c ) { var %conmsg msg $chan }
else { var %conmsg echo -a }
if ($1 < 127 ) && ($2 <= 127 ) {
var %needed $calc(%lvl [ $+ [ $2 ] ] - ( %lvl [ $+ [ $1 ] ] )) | var %neededham $ceil($calc(%needed / 50750)) | var %Con-percent $ceil($calc((%lvl [ $+ [ $1 ] ] / ( %lvl [ $+ [ $2 ] ] ) )100))
if ($1 <= 33 ) {
var %neededpl $ceil($calc(%needed / 60)) | var %con-price $calc(%neededpl 175) | var %con-price1 $calc(%neededpl 275) | %conmsg ---14Construction Level(from $1 $+ ):1 %con-percent $+ % to level $2 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededpl,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14)1--- | halt }
if ($1 isnum 33-127 ) { var %neededoak $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededoak / 120 )))5000) | var %con-price $calc(%neededoak 375) | var %con-price1 $calc(%neededoak 425) | %conmsg ---14Construction Level(from $1 $+ ):1 %con-percent $+ % to level $2 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededoak,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14) 14(Butler Price:6 $bytes(%butler$,b) $+ 14)1--- | halt }
}
if ($1 > 127 ) && ($2 <= 127 ) {
var %needed $calc(%lvl [ $+ [ $2 ] ] - $1 ) | var %neededham $ceil($calc(%needed / 50750)) | var %Con-percent $ceil($calc(($1 / %lvl [ $+ [ $2 ] ] )100))
if ($1 < 18247 ) { var %neededpl $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededoak / 120 )))5000) | var %con-price $calc(%neededpl 175) | var %con-price1 $calc(%neededpl 275) | %conmsg ---14Construction Level(from $1 $+ ):1 %con-percent $+ % to $2 14Exp. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededpl,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14) 14(Butler Price:6 $bytes(%butler$,b) $+ 14)1--- | halt }
if ($1 > 18247 ) { var %neededoak $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededoak / 120 )))5000) | var %con-price $calc(%neededoak 375) | var %con-price1 $calc(%neededoak 425) | %conmsg ---14Construction Level(from $1 $+ ):1 %con-percent $+ % to level $2 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededoak,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14) 14(Butler Price:6 $bytes(%butler$,b) $+ 14)1--- | halt }
}
else { echo -a 4Syntax Error in6 $script $+ 4. Try: 7/con Level/Exp Goal Level4. For example /con 92 127 }
}
on $:text:/^[@!.]con(struct)?(ion)? /Si:#: {
setvar {
var %i 100
while %i <= 127 {
set $+($(%,),lvl) %i $r(1,999999999)
inc %i
}
}
inc -u3 %spam. [ $+ [ $nick ] ]
if (%spam. [ $+ [ $nick ] ] isnum 3-20 ) { notice $nick Fuck you. Don't abuse my scripts faggot. | set %ignore. [ $+ [ $address($nick,2) ] ] | .timer 1 180 /unset %ignore. [ $+ [ $address($nick,2) ] ] | halt }
elseif ($address($nick,2) == %ignore. [ $+ [ $address ] ] ) { halt }
if ($1 == @con ) { var %conmsg msg $chan }
else { var %conmsg notice $nick }
if ($2 !isnum || $3 !isnum ) { halt }
if (!$2 || !$3 ) { notice $nick Syntax Error: (.!@)con(struction) Level/Exp Goal Level | halt }
if ($2 >= 1 ) && ($3 <= 127 ) {
if ($2 >= $3 ) && ($2 <= 127 ) { notice $nick You must specify a level greater than your current! | halt }
var %needed $calc(%lvl [ $+ [ $3 ] ] - %lvl [ $+ [ $2 ] ] ) | var %neededham $ceil($calc(%needed / 50750)) | var %con-percent $ceil($calc(( %lvl [ $+ [ $2 ] ] / %lvl [ $+ [ $3 ] ] )100)))
if ($2 <= 33 ) { var %neededpl $ceil($calc(%needed / 60)) | var %con-price $calc(%neededpl 175) | var %con-price1 $calc(%neededpl 275) | %conmsg ---14Construction Level(from $2 $+ ):1 %con-percent $+ % to level $3 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededpl,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14)1--- | notice $nick The 12Hammers5- Sacred Clay from the mini-game stealing creations made into Hammers. The 7Planks5- Regular planks from Logs. | halt }
if ($2 isnum 33-127 ) { var %neededoak $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededoak / 120 )))5000) | var %con-price $calc(%neededoak 375) | var %con-price1 $calc(%neededoak 425) | %conmsg ---14Construction Level(from $2 $+ ):1 %con-percent $+ % to level $3 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededoak,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14) 14(Butler Price:6 $bytes(%butler$,b) $+ 14)1--- | notice $nick The 12Hammers5- Sacred Clay from the mini-game stealing creations made into Hammers. The 7Planks5- Oak planks. The 6Butler Price5- Is the price using a regular butler, not demon. | halt }}
} }
if ($2 > 127) && ($3 <= 127 ) {
if (%lvl [ $+ [ $3 ] ] <= $2 ) { notice $nick You must specify a level or Exp greater than your current! | halt }
var %needed $calc(%lvl [ $+ [ $3 ] ] - $2 ) | var %neededham $ceil($calc(%needed / 50750)) | var %Con-percent $ceil($calc(($2 / %lvl [ $+ [ $3 ] ] )100))
if ($2 < 18247 ) { var %neededpl $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededpl / 120 )))5000) | var %con-price $calc(%neededpl 200) | var %con-price1 $calc(%neededpl 300) | %conmsg ---14Construction Level(from $bytes($2,b) Exp):1 %con-percent $+ % to level $3 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededpl,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14)1--- | notice $nick The 12Hammers5- Sacred Clay from the mini-game stealing creations made into Hammers. The 7Planks5- Regular planks from Logs. | halt }
elseif ($2 >= 18247 ) { var %neededoak $ceil($calc(%needed / 120)) | var %butler$ $calc($ceil($calc((%neededoak / 120 )))5000) | var %con-price $calc(%neededoak 375) | var %con-price1 $calc(%neededoak 425) | %conmsg ---14Construction Level(from $bytes($2,b) Exp):1 %con-percent $+ % to level $3 $+ 14. Exp:4 $bytes(%needed,b) 14(Planks:7 $bytes(%neededoak,b) $+ 14) (Hammers:12 $bytes(%neededham,b) 14) (Price:3 $bytes(%con-price,b) - $bytes(%con-price1,b) $+ 14) 14(Butler Price:6 $bytes(%butler$,b) $+ 14)1--- | notice $nick The 12Hammers5- Sacred Clay from the mini-game stealing creations made into Hammers. The 7Planks5- Oak planks. The 6Butler Price5- Is the price using a regular butler, not demon. | halt }
} } }
your script is good but i would suggest to rise variables till 200m since its the max from that game
i will post here for ppl who wants it
%lvl100 14391160
%lvl 101 15889109
%lvl 102 17542976
%lvl 103 19368992
%lvl 104 21385073
%lvl 105 23611006
%lvl 106 26068632
%lvl 107 28782069
%lvl 108 31777943
%lvl 109 35085654
%lvl 110 38737661
%lvl 111 42769801
%lvl 112 47221641
%lvl 113 52136869
%lvl 114 57563718
%lvl 115 63555443
%lvl 116 70170840
%lvl 117 77474828
%lvl 118 85539082
%lvl 119 94442737
%lvl 120 104273167
%lvl 121 115126838
%lvl 122 127110260
%lvl 123 140341028
%lvl 124 154948977
%lvl 125 171077457
%lvl 126 188884740
%lvl 127 200000000
ps i changed the value from 127 cuz the result would be 208m and something but since the max from hiscores its only 200m i made 127 has 200m
isnt there a way to put alog like this
on $*:TEXT:/^[!@.]alog/Si:#: {
var %o = $iif($left($1,1) == @,msg #,.notice $nick)
var %q = $getsource(http://rscript.org/lookup.php?type=alog&user= $+ $iif($2,$2,%defname [ $+ [ $address($nick,3) ] ]))
echo -a %q
%o %q
}
so everyone on swiftirc.net are abble to check aswell?
on $:TEXT:/^!@.?stats /Si:#: {
if (!$2) { .notice $nick Enter an RSN to look up! | halt }
if ($len($2) > 12) { .notice $nick RSN too long! | halt }
var %x = 1
while ($sock(rsstats. $+ %x)) inc %x
.set %target. $+ %x $iif($left($1,1) == @,.msg $chan,.notice $nick)
.set %rsn. $+ %x $replace($2-,$chr(32),+)
sockopen rsstats. $+ %x hiscore.runescape.com 80
}
on :sockopen:rsstats.: {
var %x = $right($sockname,1)
if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ $3 ] HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com 80
sockwrite -nt $sockname $crlf
}
on :sockread:rsstats.: {
var %x = $right($sockname,1)
if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
var %read | sockread %read
if (: 0 isin %read) { %target. [ $+ [ %x ] ] %rsn. [ $+ [ %x ] ] is not in the Hi-Scores. You have to be in the top million of any skill with a skill level of at least 30. | cleanup $sockname }
if (combat isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END) }
if (overall isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END,|) | cleanup $sockname }
}
alias cleanup {
unset %target. $+ $right($1,1)
unset %rsn. $+ $right($1,1)
sockclose $1
}