All pastes #426563 Raw Edit

Bla

public text v1 · immutable
·published 2007-04-06 06:30 UTC
rendered paste body
dialog toolkit { 
  title RS toolkit 
  size -1 -1 197 167 
  option dbu 
  tab "Info", 1, -1 1 199 141 
  text "Rs Toolkit Verson 1.0", 38, 70 34 56 9, tab 1 
  text "Scripted By", 39, 83 45 29 8, tab 1 
  text "Roly", 40, 90 56 16 8, tab 1 
  tab "Stats", 2 
  button "Get Stats", 8, 80 30 37 12, tab 2 
  edit "", 7, 56 17 79 10, tab 2 
  list 9, 2 43 60 58, tab 2 size 
  list 15, 69 43 60 58, tab 2 size 
  list 16, 135 43 60 58, tab 2 size 
  list 36, 87 123 23 10, tab 2 size 
  text "Overall", 37, 89 113 20 8, tab 2 
  tab "Calcs Etc.", 3 
  edit "", 5, 6 24 16 10, tab 3 
  button "XP", 11, 25 23 20 12, tab 3 
  list 13, 48 24 50 10, tab 3 size 
  edit "", 17, 10 105 16 10, tab 3 
  edit "", 25, 10 116 16 10, tab 3 
  text "Attack", 26, 33 50 25 8, tab 3 
  text "Strength", 27, 33 61 25 8, tab 3 
  text "Defense", 28, 33 72 25 8, tab 3 
  text "Hitpoints", 29, 33 83 25 8, tab 3 
  text "Prayer", 30, 33 94 25 8, tab 3 
  text "Range", 31, 33 105 25 8, tab 3 
  text "Mage", 32, 33 116 25 8, tab 3 
  button "Calculate", 33, 71 81 37 12, tab 3 
  list 34, 115 78 66 16, tab 3 size 
  text "Estimated Combat Of:", 35, 118 68 57 10, tab 3 
  tab "Price", 14 
  list 12, 5 57 184 82, tab 14 size 
  button "Price", 4, 77 38 37 12, tab 14 
  edit "", 10, 60 24 67 11, tab 14 
  button "Done", 6, 79 148 42 15, ok cancel 
  text "By Roly", 20, 160 158 28 7 
  edit "", 24, 10 1116 16 10 
  edit "", 18, 10 94 16 10, tab 3 
  edit "", 19, 10 83 16 10, tab 3 
  edit "", 21, 10 72 16 10, tab 3 
  edit "", 22, 10 61 16 10, tab 3 
  edit "", 23, 10 50 16 10, tab 3 
  tab "Non RS Stuff" ,183 
  button "Tip It", 42, 13 116 37 12, tab 183 
  button "AltScripts", 43, 53 116 37 12, tab 183 
  button "Runescape", 44, 93 116 37 12, tab 183 
  button "Google", 45, 133 116 37 12, tab 183 
  box "Calculator", 69, 68 25 88 77, tab 183 
  text "Useful Links", 46, 78 106 32 7, tab 183 
  button "1", 70, 71 48 19 12, tab 183 
  edit "", 74, 78 33 68 13, tab 183 
  button "4", 75, 71 61 19 12, tab 183 
  button "7", 79, 71 74 19 12, tab 183 
  button "0", 83, 71 87 19 12, tab 183 
  button "Clear", 84, 92 87 19 12, tab 183 
  button "8", 80, 92 74 19 12, tab 183 
  button "5", 76, 92 61 19 12, tab 183 
  button "2", 71, 92 48 19 12, tab 183 
  button "3", 72, 113 48 19 12, tab 183 
  button "6", 77, 113 61 19 12, tab 183 
  button "9", 81, 113 74 19 12, tab 183 
  button "=", 85, 113 87 19 12, tab 183 
  button "+", 86, 134 87 19 12, tab 183 
  button "-", 82, 134 74 19 12, tab 183 
  button "*", 78, 134 61 19 12, tab 183 
  button "/", 73, 134 48 19 12, tab 183 
} 
alias toolkit { 
  dialog -ma toolkit toolkit 
} 
on *:dialog:toolkit:sclick:11:{ 
  set %dia.xp $exp($did(toolkit,5).text) 
  did -a toolkit 13 %dia.xp 
} 
alias exp { 
  var %a = 1 
  .set %exp123 0 
  var %a1 = $eval($1) 
  while (%a < %a1) { 
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4) 
    inc %exp123 %expvalue 
    inc %a 
  } 
  return $floor(%exp123) 
} 
on *:dialog:toolkit:sclick:8:{ 
  if (!$did(toolkit,7)) { did -r toolkit 9 | did -a toolkit 9 Please Enter | did -a toolkit 9 Some Information | halt } 
  else { 
    set %statsn.uname.alias $iif($did(toolkit,7),$replace($did(toolkit,7),$chr(32),$chr(43)),$nick)    
    sockopen statsalias slushpuppy.silverinterlocution.org 80 
  } 
} 
on *:sockopen:statsalias:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname.alias HTTP/1.1  
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $crlf $+ $crlf 
} 
on *:sockread:statsalias:{  
  if ($sockerr) { halt }  
  else {    
    sockread %stats.output    
    if (*overall* iswm %stats.output) || (*strength* iswm %stats.output) || (*defense* iswm %stats.output) || (*fletching* iswm %stats.output) || (*cooking* iswm %stats.output) || (*firemaking* iswm %stats.output) || (*fishing* iswm %stats.output) {        
      tokenize 32 %stats.output 
      set %disp1 $iif(overall isin $1,$2) 
      var %dispemer $iif(overall !isin $1,$1 $2) 
      set %disp2 $3 $4 
      set %disp3 $5 $6 
      set %disp4 $7 $8 
      set %disp5 $9 $10 
      set %disp6 $11 $12 
      set %disp7 $13 $14 
      set %disp8 $15 $16 
      set %disp9 $17 $18 
      set %disp10 $19 $20 
      set %disp11 $21 $22 
      set %disp12 $23 $24 
      set %disp13 $25 $26 
      set %disp14 $27 $28 
      set %disp15 $29 $30 
      set %disp16 $31 $32 
      set %disp17 $33 $34 
      set %disp18 $35 $36 
      set %disp19 $37 $38 
      set %disp20 $39 $40 
      set %disp21 $41 $42 
      set %disp22 $43 $44 
      set %disp23 $45 $46 
      set %disp24 $47 $48  
      /sockclose statsalias 
    }  
    did -r toolkit 9 
    did -r toolkit 15 
    did -r toolkit 16 
    did -r toolkit 36 
    $iif(%dispemer,did -a toolkit 9 $iif(%dispemer,%dispemer)) 
    did -a toolkit 9 $remove(%disp2,<br>) 
    did -a toolkit 9 $remove(%disp3,<br>) 
    did -a toolkit 9 $remove(%disp4,<br>) 
    did -a toolkit 9 $remove(%disp5,<br>) 
    did -a toolkit 9 $remove(%disp6,<br>) 
    did -a toolkit 9 $remove(%disp7,<br>) 
    did -a toolkit 9 $remove(%disp8,<br>) 
    did -a toolkit 15 $remove(%disp9,<br>) 
    did -a toolkit 15 $remove(%disp10,<br>) 
    did -a toolkit 15 $remove(%disp11,<br>) 
    did -a toolkit 15 $remove(%disp12,<br>) 
    did -a toolkit 15 $remove(%disp13,<br>) 
    did -a toolkit 15 $remove(%disp14,<br>) 
    did -a toolkit 15 $remove(%disp15,<br>) 
    did -a toolkit 15 $remove(%disp16,<br>) 
    did -a toolkit 16 $remove(%disp17,<br>) 
    did -a toolkit 16 $remove(%disp18,<br>) 
    did -a toolkit 16 $remove(%disp19,<br>) 
    did -a toolkit 16 $remove(%disp20,<br>) 
    did -a toolkit 16 $remove(%disp21,<br>) 
    did -a toolkit 16 $remove(%disp22,<br>) 
    did -a toolkit 16 $remove(%disp23,<br>) 
    did -a toolkit 16 $remove(%disp24,<br>) 
    did -a toolkit 36 %disp1 
  } 
} 
on *:dialog:toolkit:sclick:4:{ 
  if (!$did(toolkit,10)) { did -r toolkit 12 | did -a toolkit 12 Please Enter Something To Search For. | halt } 
  else { 
    set %price.rs $iif($did(toolkit,10),$replace($did(toolkit,10),$chr(32),$chr(43)),$nick) 
    sockopen PRICEDIA www.slushpuppy.silverinterlocution.org 80 
  } 
} 
on *:sockopen:PRICEDIA:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /price.php?price= $+ %price.rs HTTP/1.1 
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $crlf $+ $crlf 
} 
on *:sockread:PRICEDIA:{  
  if ($sockerr) { halt }  
  else {    
    sockread %x    
    if (*gp* iswm %x) {  
      did -r toolkit 12 
      did -a toolkit 12 $remove(%x,<br>) 
      /sockclose pricedia 
    } 
  }  
} 
on *:dialog:toolkit:sclick:33:{ 
  did -r toolkit 34 
  did -a toolkit 34 $cmblevel($did(toolkit,23),$did(toolkit,22),$did(toolkit,21),$did(toolkit,19),$did(toolkit,18),$did(toolkit,17),$did(toolkit,25)) 
} 
alias CmbLevel { 
  set %defence $calc($3 * 100) 
  set %hitpoints $calc($4 * 100) 
  set %prayer $5 
  if ($and(%prayer,1) == 1) { 
    set %prayer $calc((%prayer -1) * 50) 
  } 
  Else if ($and(%prayer,1) == 0) { 
    set %prayer $calc(%prayer * 50) 
  } 
  set %basecombat $calc((%defence + %hitpoints + %prayer) / 400) 
  set %attack $calc($1 * 130) 
  set %strength $calc($2 * 130) 
  set %ranged $6 
  set %mage $7 
  if ($and(%ranged,1) == 1) { 
    set %ranged $calc((%ranged - 1 + %ranged * 2) * 65) 
  } 
  Else if ($and(%ranged,1) == 0) { 
    set %ranged $calc(%ranged * 195) 
  } 
  if ($and(%mage,1) == 1) { 
    set %mage $calc((%mage - 1 + %mage * 2) * 65) 
  } 
  Else if ($and(%mage,1) == 0) { 
    set %mage $calc(%mage * 195) 
  } 
  set %meleecb $calc((%attack + %strength) / 400) 
  set %rangedcb $calc(%ranged / 400) 
  set %magecb $calc(%mage / 400) 

  if ((%meleecb > %rangedcb) && (%meleecb > %magecb)) { 
    return $calc(%meleecb + %basecombat) Melee Based 
  } 
  if ((%rangedcb > %meleecb) && (%rangedcb > %magecb)) { 
    Return $calc(%rangedcb + %basecombat) Ranged Based 
  } 
  if ((%magecb > %rangedcb) && (%magecb > %meleecb)) { 
    Return $calc(%magecb + %basecombat) Mage Based 
  } 
  unset %defence 
  unset %hitpoints 
  unset %prayer 
  unset %basecombat 
  unset %attack 
  unset %strength 
  unset %ranged 
  unset %mage 
  unset %meleecb 
  unset %rangedcb 
  unset %magecb 
} 
on *:dialog:toolkit:sclick:70: { 
  did -a toolkit 74 1 
} 
on *:dialog:toolkit:sclick:71: { 
  did -a toolkit 74 2 
} 
on *:dialog:toolkit:sclick:72: { 
  did -a toolkit 74 3 
} 
on *:dialog:toolkit:sclick:75: { 
  did -a toolkit 74 4 
} 
on *:dialog:toolkit:sclick:76: { 
  did -a toolkit 74 5 
} 
on *:dialog:toolkit:sclick:77: { 
  did -a toolkit 74 6 
} 
on *:dialog:toolkit:sclick:79: { 
  did -a toolkit 74 7 
} 
on *:dialog:toolkit:sclick:80: { 
  did -a toolkit 74 8 
} 
on *:dialog:toolkit:sclick:81: { 
  did -a toolkit 74 9 
} 
on *:dialog:toolkit:sclick:83: { 
  did -a toolkit 74 0 
} 
on *:dialog:toolkit:sclick:73: { 
  did -a toolkit 74 \\ 
} 
on *:dialog:toolkit:sclick:78: { 
  did -a toolkit 74 * 
} 
on *:dialog:toolkit:sclick:86: { 
  did -a toolkit 74 + 
} 
on *:dialog:toolkit:sclick:82: { 
  did -a toolkit 74 - 
} 
on *:dialog:toolkit:sclick:85: { 
  did -ra toolkit 74 $calc($did(toolkit,74)) 
} 
on *:dialog:toolkit:sclick:84: { 
  did -r toolkit 74 
} 
on *:dialog:toolkit:sclick:42: { 
  /url tip.it 
} 
on *:dialog:toolkit:sclick:43: { 
  /url www.altscripts.net 
} 
on *:dialog:toolkit:sclick:45: { 
  /url www.google.com 
} 
on *:dialog:toolkit:sclick:44: { 
  /url www.runescape.com 
}