Alright, well I decided to get 99 construction and I hated using the scripts from bots like RuneScript and Vectra. I'm an amateur scripter and I think I did pretty well although I know there are better ways of putting this together. Also, when I started adding this snippet, I spotted quite a few bugs. With the help of a few people they were fixed.
Constructive Criticism appreciated. (no pun intended :P)
Usage:
Personal use-
/con Current-Level or Exp Goal-Level (+c)
+c for it to show in the channel
Everyone else-
[!.@]con(struction) level/exp goal
--Update: Added Percentage to it. Deleted Input and integrated it into the alias. 1/17/2009
--Update: Corrected a lot of bugs
--Update: Added the @con capability; added flood protection; compressed the alias
--Update: Compacted the script from 75 lines in a remote to 35. Added a syntax error to the alias, fixed percentages, fixed the Experience calculations.
alias con {
if ($3 == +c ) { var %conmsg msg $chan }
else { var %conmsg echo -a }
if ($1 < 99 ) && ($2 <= 99 ) {
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-99 ) { 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 > 99 ) && ($2 <= 99 ) {
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 99 }
}
on $*:text:/^[@!.]con(struct)?(ion)? */Si:#: {
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 <= 99 ) {
if ($2 >= $3 ) && ($2 <= 99 ) { 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-99 ) { 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 > 99) && ($3 <= 99 ) {
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 }
} } }
;;;;;;THIS GOES IN VARIABLES;;;;;
%lvl1 0
%lvl2 83
%lvl3 174
%lvl4 276
%lvl5 388
%lvl6 512
%lvl7 650
%lvl8 801
%lvl9 969
%lvl10 1154
%lvl11 1358
%lvl12 1584
%lvl13 1833
%lvl14 2107
%lvl15 2411
%lvl16 2746
%lvl17 3115
%lvl18 3523
%lvl19 3973
%lvl20 4470
%lvl21 5018
%lvl22 5624
%lvl23 6291
%lvl24 7028
%lvl25 7842
%lvl26 8740
%lvl27 9730
%lvl28 10824
%lvl29 12031
%lvl30 13363
%lvl31 14833
%lvl32 16456
%lvl33 18247
%lvl34 20224
%lvl35 22406
%lvl36 24815
%lvl37 27473
%lvl38 30408
%lvl39 33648
%lvl40 37224
%lvl41 41171
%lvl42 45529
%lvl43 50339
%lvl44 55649
%lvl45 61512
%lvl46 67983
%lvl47 75127
%lvl48 83014
%lvl49 91721
%lvl50 101333
%lvl51 111945
%lvl52 123660
%lvl53 136594
%lvl54 150872
%lvl55 166636
%lvl56 174040
%lvl57 203254
%lvl58 224466
%lvl59 247886
%lvl60 273742
%lvl61 302288
%lvl62 333804
%lvl63 368599
%lvl64 407015
%lvl65 449428
%lvl66 496254
%lvl67 547953
%lvl68 605032
%lvl69 668051
%lvl70 737627
%lvl71 814445
%lvl72 899895
%lvl73 1096278
%lvl74 1210421
%lvl75 1336443
%lvl76 1336443
%lvl77 1475581
%lvl78 1629200
%lvl79 1798808
%lvl80 1986068
%lvl81 2192818
%lvl82 2421087
%lvl83 2673114
%lvl84 2951373
%lvl85 3258594
%lvl86 3597792
%lvl87 3972294
%lvl88 4385776
%lvl89 4842295
%lvl90 5346332
%lvl91 5902831
%lvl92 6517253
%lvl93 7195629
%lvl94 7944614
%lvl95 8771558
%lvl96 9684577
%lvl97 10692629
%lvl98 11805606
%lvl99 13034431
;;;;;;;;;;;
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
I always admired this script of yours Zep, a socket would have been easier and simpler but if it does the job it does the job and this is/was unique when you made it. Never got on here to comment tho.
I will say though you could shorten it a little by setting your vars like this:
var %a blah,%b blah, %c etc
that would reduce alot of the pipes and make it look a little neater. Plus, why did you not script it around that exp alias you made? :p
Goodjob though zep
Shows you how much experience needed from the levels specified, the oak/regular planks needed, the # of stealing creation hammers needed, an estimated price of planks, and the price of using your (regular, not Demon) butler to gain construction levels.
eg:
---Construction Level(from 50): 55. Exp: 65,303 (Oak Planks: 545) (Hammers: 2 ) (Price: 204,375) (Butler Price: 22,709)---