API tools faq
paste
Advertisement
Guest User

mIRC bot - KB

a guest
Apr 25th, 2014
13
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.67 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!help:#: {
  2. notice $nick If you are having trouble with my codes, please type in !codes
  3. notice $nick If you are having trouble with any code, please see "![code name] help" {not the quote marks} for help on that code.
  4. notice $nick If you are wanting to suggest something, please message penguin's account mail with as much detail as you can.
  5. }
  6. on *:text:!codes:#: {
  7. notice $nick My codes are !help - !harv - !unit - !tech - !land - !seed - !calc - !route - !score - !fund - !tick - !convert. You may add the word help at the end to see help.
  8. }
  9. on *:TEXT:!harv*:#: {
  10. var %2 = $remove(%2,$chr(44)), %3 = $remove($3,$chr(44)), %4 = $remove($4,$chr(44)), %5 = $remove($5,$chr(44)),
  11. var %harvsp = $bytes($ceil($calc(((%2 * 45.5) + (%3 * 141.28) + (%4 * 580) + (%5 * 2168)))),b), %combsp = $bytes($ceil($calc(((%2 * 1.895833) + (%3 * 5.886667) + (%4 * 24.166667) + (%5 * 90.333333)))),b), %steasp = $bytes($ceil($calc(((%2 * 1.1375) + (%3 * 3.532) + (%4 * 14.5) + (%5 * 54.2)))),b), %apples = $bytes($ceil($calc(((%2 * 45.5) + (%3 * 141.28) + (%4 * 810.88) + (%5 * 1612.8)))),b), %banana = $bytes($ceil($calc(((%2 * 1.895833) + (%3 * 5.886667) + (%4 * 33.786667) + (%5 * 67.2)))),b), %cucumb = $bytes($ceil($calc(((%2 * 1.1375) + (%3 * 3.532) + (%4 * 20.272) + (%5 * 40.32)))),b), %aprico = $bytes($ceil($calc(((%2 * 85.2) + (%3 * 141.28) + (%4 * 558.2) + (%5 * 1612.8)))),b), %orange = $bytes($ceil($calc(((%2 * 3.55) + (%3 * 5.886667) + (%4 * 23.2583333) + (%5 * 67.2)))),b), %asshol = $bytes($ceil($calc(((%2 * 2.13) + (%3 * 3.532) + (%4 * 13.955) + (%5 * 40.32)))),b), %wadey = $bytes($ceil($calc(((%2 * 85.2) + (%3 * 141.28) + (%4 * 558.2) + (%5 * 1612.8)))),b), %azzer = $bytes($ceil($calc(((%2 * 3.55) + (%3 * 5.886667) + (%4 * 23.258333) + (%5 * 67.2)))),b), %angela = $bytes($ceil($calc(((%2 * 2.13) + (%3 * 3.532) + (%4 * 13.955) + (%5 * 40.32)))),b)
  12. notice $nick 3Spring ~ [5Harvesters - 4 %harvsp ] * [2Combine Harvesters - 4 %combsp ] * [6Stealth Harvester - 4 %steasp ]
  13. notice $nick 13Summer ~ [5Harvesters - 4 %apples ] * [2Combine Harvesters - 4 %banana ] * [6Stealth Harvester - 4 %cucumb ]
  14. notice $nick 7Autumn ~ [5Harvesters - 4 %aprico ] * [2Combine Harvesters - 4 %orange ] * [6Stealth Harvester - 4 %asshol ]
  15. notice $nick 12Winter ~ [5Harvesters - 4 %wadey ] * [2Combine Harvesters - 4 %azzer ] * [6Stealth Harvester - 4 %angela ]
  16. if ($2 = help) { notice $nick Did you enter each type of land seperately? Also, this code tells you how many harvesters you need for each of the seasons! }
  17. }
  18. on *:text:!unit*:#: {
  19. var %unit = $read(unit.txt,w,* $+ $2- $+ *)
  20. if ($2 == stealth) { msg $chan 5Assassins - 5F-117s - 5Marines - 5Ninjas - 5Secret Agents - 5Sleeping Gas Traps - 5Snipers - 5Spike Traps - 5Stealth Gardeners - 5Stealth Harvesters - 5Stealth Thief - 5Terrorist Leaders - 5Vampire }
  21. if (%unit) { msg $chan 13 %unit }
  22. if ($2 = help) { notice $nick Try typing a different version of the unit name, and message me what name you used for what unit so I may add it :) }
  23. }
  24. on *:text:!tech*:#:{
  25. var %mod = $iif($($+($,$0),2) isnum,$v1,1), %tech = $remove($2-,%mod), %tech = $read(tech.txt,w,* $+ %tech $+ *), %tech = $puttok(%tech,$round($calc($gettok(%tech,2,9) * %mod),0),2,9), %tech = $puttok(%tech,$bytes($calc($remove($gettok(%tech,4,9),$chr(44)) * %mod),b),4,9)
  26. if (%tech) { msg $chan  $remove(%tech,$chr(9)) }
  27. if ($2 = help) { notice $nick If you are having trouble, you either entered an invalid unit or the unit you've entered isn't in the file. If this is the case, message me when name you used so I may add it to the file. }
  28. if ($2 = help) { notice $nick The !tech function tells you information about a tech. You may also add the multiplier for more accurate information [adding the mult will let you know the current cost and ETA of the tech]. }
  29. }
  30. on *:text:!land*:#: {
  31. var %2 = $remove($2,$chr(44)), %banana = $calc(%2 * 0.15), %cucumber = $calc(%2 * 0.12), %durian = $calc(%2 * 0.18)
  32. msg $chan { 5Max Land Grabs - 12Wheelbarrowers = 3 $ceil( %cucumber ) ~~ 10Geo-Phys Thieves/Stealth Thieves = 3 $ceil( %banana ) ~~ 2Thieves = 3 $ceil( %durian ). }
  33. else { msg $chan Sorry $nick $+ , but I cannot calculate that right now. }
  34. }
  35. on *:text:!seed*:#: {
  36. var %3 = $remove($3,$chr(44)), %4 = $remove($4,$chr(44)), %5 = $remove($5,$chr(44)), %2 = $remove($2,$chr(44))
  37. var %tree = $calc(( %2 * 0.97) * 315), %bush = $calc(( %3 * 0.9) * 175), %flower = $calc(( %4 * 0.874999) * 42), %grass = $calc(( %5 * 0.85) * 18), %money = $bytes($calc( %tree + %bush + %flower + %grass ),b)
  38. if (%money) { msg $chan $nick $+ , you will earn roughly 12£ $+ %money after you have planted. }
  39. if ($2 = help) { notice $nick Have you entered four numbers? If you are still having trouble, message me what you entered, and what I reply with and I'll hurry to fix it :) }
  40. if ($2 = help) { notice $nick the !seed function will tell you roughly the amount of cash your seeds are worth. }
  41. }
  42. on *:text:!calc*:#: {
  43. var %answer = $calc($2-)
  44. if (%answer) { msg $chan $nick $+ , the answer is: %answer $+ . }
  45. else { msg $chan Sorry, I cannot calculate that right now! }
  46. }
  47. on *:text:!route*:#: {
  48. var %route = $read(route.txt,w,* $+ $2- $+ *), %pom = 12Political Masterminds: 10Protestor Guru - 10Protestor Leader - 10Loudspeaker Protestor - {5Engineering} - 10Hippy Van - News Van - Political Masterminds [6Hypnotist], %fan = 12Extremists: 10Protestor Guru - 10Protestor Leader - 10Loudspeaker Protestor - {5Engineering} - 10Hippy Van - Rebel - Fanatic [6Extremist], %rpg = 12Recruitment Officers: 10Private - 10Officer - Shock Trooper - Sniper - {5Engineering} - RPG Trooper [6Recruitment Officer], %har = 12F-117s: 10Private - 10Officer - Paratrooper - Flamethrower - Ranger - {5Engineering} - Harrier [6F-117], %sas = 12Secret Agents: 10Sleeping Gas trap - Spike Trap/Stealth Gardener/12Stealth Thief - 10Ninja - {10Engineering} - 10Stealth Harvester - Assassin - Cloner [6Secret Agent], %pms = 12Puppet Masters: 10Sleeping Gas trap - Political Briber - 10Ninja - {5Engineering} - 10Stealth Harvester - Armoured Car - Cloner [6Puppet Master], %pet = 12Petrol Bombers: 10Hooligan - 10Heavy Thug - {5Engineering} - 10Biker - Petrol Bomber - Jeep - 10Terrorist [6Terrorist Leader], %att = 12Nutters: 10Hooligan - 10Heavy Thug - {5Engineering} - 10Biker - Attack Dog - Nutter - 10Terrorist [6Terrorist Leader], %ars = 12Arsonists: 10Hooligan - 10Heavy Thug - {5Engineering} - 10Biker - Thief - Arsonist - 10Terrorist [6Terrorist Leader], %shi = 12Shield Android: 10Small Droid - Cyborg Gardener - Shield Android - 10Cybernetic Warrior - - {5Engineering} - 10Tyrant Drone/10Crazed Driod [6Cybernetic T-Rex/6Scrap Bot], %stu = 12Nanobot: 10Small Droid - Stunbot - Nanobot - 10Cybernetic Warrior - - {5Engineering} - 10Tyrant Drone/10Crazed Driod [6Cybernetic T-Rex/6Scrap Bot], %dra = 12Dragons: 10Serf - Apprentice - Witch - Sorcerer - {5Engineering} - Iron Golem - Siren [6Dragon]
  49. if (%route) { msg $chan 12 $+ %route }
  50. if ($2- == Protestor Guru) { msg $chan %pom }
  51. if ($2- == Protestor Guru) { msg $chan %pfan }
  52. if ($2- == Protestor Leader) { msg $chan %pom }
  53. if ($2- == Protestor Leader) { msg $chan %fan }
  54. if ($2- == Loudspeaker Protestor) { msg $chan %pom }
  55. if ($2- == Loudspeaker Protestor) { msg $chan %fan }
  56. if ($2- == Hippy Van) { msg $chan %pom }
  57. if ($2- == Hippy Van) { msg $chan %fan }
  58. if ($2- == private) { msg $chan %har }
  59. if ($2- == private) { msg $chan %rpg }
  60. if ($2- == officer) { msg $chan %har }
  61. if ($2- == officer) { msg $chan %rpg }
  62. if ($2- == sleeping gas trap) { msg $chan %sas }
  63. if ($2- == sleeping gas trap) { msg $chan %pms }
  64. if ($2- == ninja) { msg $chan %sas }
  65. if ($2- == ninja) { msg $chan %pms }
  66. if ($2- == cloner) { msg $chan %sas }
  67. if ($2- == cloner) { msg $chan %pms }
  68. if ($2- == spike trap) { msg $chan %pms }
  69. if ($2- == stealth gardener) { msg $chan %pms }
  70. if ($2- == stealth thief) { msg $chan %pms }
  71. if ($2- == hooligan) { msg $chan %att }
  72. if ($2- == hooligan) { msg $chan %ars }
  73. if ($2- == heavy thug) { msg $chan %att }
  74. if ($2- == heavy thug) { msg $chan %ars }
  75. if ($2- == biker) { msg $chan %att }
  76. if ($2- == biker) { msg $chan %ars }
  77. if ($2- == terrorist) { msg $chan %pet }
  78. if ($2- == terrorist) { msg $chan %att }
  79. if ($2- == terrorist) { msg $chan %ars }
  80. if ($2- == terrorist leader) { msg $chan %pet }
  81. if ($2- == terrorist leader) { msg $chan %att }
  82. if ($2- == terrorist leader) { msg $chan %ars }
  83. if ($2- == small droid) { msg $chan %stu }
  84. if ($2- == small droid) { msg $chan %shi }
  85. if ($2- == cybernetic warrior) { msg $chan %stu }
  86. if ($2- == cybernetic warrior) { msg $chan %shi }
  87. if ($2- == tyrant drone) { msg $chan %stu }
  88. if ($2- == tyrant drone) { msg $chan %shi }
  89. if ($2- == crazed droid) { msg $chan %stu }
  90. if ($2- == crazed droid) { msg $chan %shi }
  91. if ($2- == t-rex) { msg $chan %stu }
  92. if ($2- == t-rex) { msg $chan %shi }
  93. if ($2- == scrap bot) { msg $chan %stu }
  94. if ($2- == scrap bot) { msg $chan %shi }
  95. if ($2- == serf) { msg $chan %dra }
  96. if ($2- = Penis) msg $chan So.. I snuck into your room last night to wake you up in a pleasurable way, but your penis was too small..
  97. if ($2- = Penis) timer 1 10 msg $chan So I took a picture of it and sent it all over the internet. Sorry :(
  98. if ($2 = help) { notice $nick If you are having trouble, try typing out all of the unit's name [without an 's' at the end]. Hint: Teal names are the units that have more than one route to them, purple names are p-units and red is strictly engineering (Note: don't type in !route engineering, it will not work) }
  99. }
  100. on *:text:!p*:#: {
  101. var %2 = $remove($2,$chr(44)), %4 = $remove($4,$chr(44), %6 = $remove($6,$chr(44), %2b = $left($+ %2 $+,2), %4 = $left($+ %4 $+,2), %6b = $left($+ %6 $+,,2)
  102. var %a2 = $calc(%2b * %2b ), %b2 = $calc(%4b * %4b ), %c2 = $calc(%6b * %6b ), %ab = $calc( %a2 + %b2), %cb = $calc( %c2 - %b2 ), %ca = $calc( %c2 - %a2 )
  103. if ($2 = a^2) { msg $chan A = $calc($sqrt( %cb )) }
  104. if ($4 = b^2) { msg $chan B = $calc($sqrt( %ca )) }
  105. if ($6 = c^2) { msg $chan C = $calc($sqrt( %ab )) }
  106. if ($2 = help) { notice $nick The !p function allows you to find out a, b or c with the Pythagorean Theorem. If you are having issues, try the a^2 + b^2 = c^2 layout - entering two numbers replacing a and b, a and c or b and c. }
  107. else { msg $chan Sorry, but you have entered a calculation I am not able to answer :'( }
  108. }
  109. on *:text:!score*:#: {
  110. var %2 = $remove($2,$chr(44))
  111. var %3 = $remove($3,$chr(44))
  112. var %land = $calc( %2 * %2 * 10)
  113. var %percent = $calc((( %2 * %2 * 10) / %3 ) * 100)
  114. if (%percent <= 10) { msg $chan The land makes up $bytes(( %land ),b) of their total Score. They are3 $round( %percent ,2) $+ % land fat. }
  115. if (%percent >= 30) { msg $chan The land makes up $bytes(( %land ),b) of their total Score. They are4 $round( %percent ,2) $+ % land fat. }
  116. else { msg $chan The land makes up $bytes(( %land ),b) of their total Score. They are $round( %percent ,2) $+ % land fat. }
  117. }
  118. on *:text:!fund*:#: {
  119. var %3 = $remove($3,$chr(44)), %4 = $remove($4,$chr(44)), %5 = $remove($5,$chr(44)), %6 = $remove($6,$chr(44)), %7 = $remove($7,$chr(44)), %8 = $remove($8,$chr(44)), %9 = $remove($9,$chr(44)), %10 = $remove($10,$chr(44)), %11 = $remove($11,$chr(44))
  120. var %no12 = (!= %11), %sumt = $calc((((592.028817 * %3 ) * %7 ) * 0.97) * 315), %sumb = $calc((((1894.406266 * %4 ) * %7 ) * 0.9) * 175), %sumf = $calc((((11234.905634 * %5 ) * %7 ) * 0.874999) * 42), %sumg = $calc((((18944.078048 * %6 ) * %7 ) * 0.85) * 18), %sum = $calc( %sumt + %sumb + %sumf + %sumg ), %tree = $calc(( %8 * 0.97) * 315), %bush = $calc(( %9 * 0.9) * 175), %flower = $calc(( %10 * 0.874999) * 42), %grass = $calc(( %11 * 0.85) * 18), %money = $calc( %tree + %bush + %flower + %grass )
  121. var %wint = $calc((((1184.051971 * %3 ) * %7 ) * 0.974996) * 315), %winb = $calc((((1749.919041 * %4 ) * %7 ) * 0.9) * 175), %winf = $calc((((6998.834667 * %5 ) * %7 ) * 0.875) * 42), %wing = $calc((((7996.905797 * %6 ) * %7 ) * 0.85) * 18), %win = $calc( %wint + %winb + %winf + %wing ), %treew = $calc(( %8 * 0.974976) * 315), %bushw = $calc(( %9 * 0.9) * 175), %flowerw = $calc(( %10 * 0.875) * 42), %grassw = $calc(( %11 * 0.85) * 18), %moneyw = $calc( %treew + %bushw + %flowerw + %grassw )
  122. var %autt = $calc((((1184.051971 * %3 ) * %7 ) * 0.974996) * 315), %autb = $calc((((1749.919041 * %4 ) * %7 ) * 0.9) * 175), %autf = $calc((((6998.834667 * %5 ) * %7 ) * 0.875) * 42), %autg = $calc((((7996.905797 * %6 ) * %7 ) * 0.85) * 18), %aut = $calc( %autt + %autb + %autf + %autg ), %treea = $calc(( %8 * 0.974976) * 315), %busha = $calc(( %9 * 0.9) * 175), %flowera = $calc(( %10 * 0.875) * 42), %grassa = $calc(( %11 * 0.85) * 18), %moneya = $calc( %treea + %busha + %flowera + %grassa )
  123. var %sprt = $calc((((577.235714 * %3 ) * %7 ) * 0.974887) * 315), %sprb = $calc((((1847.046189 * %4 ) * %7 ) * 0.9) * 175), %sprf = $calc((((7182.988636 * %5 ) * %7 ) * 0.875) * 42), %sprg = $calc((((29552.701299 * %6 ) * %7 ) * 0.85) * 18), %spr = $calc( %sprt + %sprb + %sprf + %sprg ), %treespr = $calc(( %8 * 0.974997) * 315), %bushspr = $calc(( %9 * 0.9) * 175), %flowerspr = $calc(( %10 * 0.875) * 42), %grassspr = $calc(( %11 * 0.85) * 18), %moneyspr = $calc( %treespr + %bushspr + %flowerspr + %grassspr )
  124. if ($2 = sum) { msg $chan (In the Summer) $nick $+ , you will earn roughly 12£ $+ $bytes($floor(%sum),b) in $7 ticks not including the seeds you have now.
  125. if ($11) { msg $chan $nick $+ , you will earn roughly 12£ $+ $bytes($calc(%sum + %money),b) in $7 ticks including seeds you already have! }
  126.  
  127. }
  128. if ($2 == win) { msg $chan (In Winter) $nick $+ , you will earn roughly 12£ $+ $bytes($floor(%win),b) in $7 ticks not including the seeds you have now.
  129. if ($11) { msg $chan $nick $+ , you will earn roughly 12£ $+ $bytes($calc(%win + %moneyw),b) in $7 ticks including seeds you already have! }
  130.  
  131. }
  132. if ($2 == spr) { msg $chan (In the Spring) $nick $+ , you will earn roughly 12£ $+ $bytes($floor(%spr),b) in $7 ticks not including the seeds you have now.
  133. if ($11) { msg $chan $nick $+ , you will earn roughly 12£ $+ $bytes($calc(%win + %moneyspr),b) in $7 ticks including seeds you already have! }
  134.  
  135. }
  136. if ($2 == aut) { msg $chan (In Autumn) $nick $+ , you will earn roughly 12£ $+ $bytes($floor(%aut),b) in $7 ticks not including the seeds you have now.
  137. if ($11) { msg $chan $nick $+ , you will earn roughly 12£ $+ $bytes($calc(%aut + %moneya),b) in $7 ticks including seeds you already have! }
  138.  
  139. }
  140. if ($2 == help) { notice $nick If you are having issues, the layout is !fund (first three letters of the season) [tree acres] [bush acres] [flower acres] [grass acres] [# of ticks] [tree seeds] [bush seeds] [flower seeds] [grass seeds] NOTE: current seeds are optional. }
  141. else { notice $nick I'm sorry, but I cannot calculate that at this time. :( Please see !fund help for more information.
  142. }
  143. on *:text:!tick*:#: {
  144. var %3 = $remove($3,$chr(44)), %4 = $remove($4,$chr(44)), %5 = $remove($5,$chr(44)), %2 = $remove($2,$chr(44)), %6 = $remove($6,$chr(44)), %7 = $remove($7,$chr(44)), %8 = $remove($8,$chr(44)), %9 = $remove($9,$chr(44)), %10 = $remove($10,$chr(44)), %11 = $remove($11,$chr(44)), %6 = $remove($6,$chr(44)), %7 = $remove($7,$chr(44)), %8 = $remove($8,$chr(44)), %9 = $remove($9,$chr(44)), %10 = $remove($10,$chr(44)), %11 = $remove($11,$chr(44))
  145. var %tree = $calc(( %7 * 0.97) * 315), %bush = $calc(( %8 * 0.9) * 175), %flower = $calc(( %9 * 0.874999) * 42), %grass = $calc(( %10 * 0.85) * 18), %money = $floor($calc( %tree + %bush + %flower + %grass )), %sumt = $calc(((592.028817 * %2) * 0.97) * 315), %sumb = $calc(((1894.406266 * %3 ) * 0.9) * 175), %sumf = $calc(((11234.905634 * %4 ) * 0.874999) * 42), %sumg = $calc(((18944.078048 * %5 ) * 0.85) * 18), %sum = $floor($calc( %sumt + %sumb + %sumf + %sumg )), %tick = $calc(( %6 - %money ) / %sum ), %tick2 = $calc(( %6 - ( %11 + %money )) / %sum ), %tick3 = $ceil( %tick ), %tick4 = $ceil( %tick2 )
  146. var %wof = $read(tick.txt,s, %tick3 ), %wf = $read(tick.txt,s, %tick4 ), %wint = $calc((((1184.051971 * %3 ) * %7 ) * 0.882141) * 315), %winb = $calc((((1799.91904 * %4 ) * %7 ) * 0.814285) * 175), %winf = $calc((((6998.834667 * %5 ) * %7 ) * 0.791666) * 42), %wing = $calc((((17996.905797 * %6 ) * %7 ) * 0.769049) * 18), %win = $calc( %wint + %winb + %winf + %wing ), %treew = $calc(( %8 * 0.882141) * 315), %bushw = $calc(( %9 * 0.814285) * 175), %flowerw = $calc(( %10 * 0.791666) * 42), %grassw = $calc(( %11 * 0.769049) * 18), %moneyw = $calc( %treew + %bushw + %flowerw + %grassw ), %tickw = $bytes($calc(( %6 - %moneyw ) / %win ),b), %tick2w = $bytes($calc(( %6 - %11 - %moneyw ) / %win ),b), %tick3w = $ceil( %tickw ), %tick4w = $ceil( %tick2w )
  147. if (%tick3 > 0) { msg $chan It will take %tick3 tick(s) ( $+ %wof $+ ) to get the money you need $nick - that is not including your current funds. For a more accurate tick amount, press your up key and add your funds :) }
  148. if (%tick4 < 0) && ( %11 ) { msg $chan You should plant your seeds, you already have reached your target! }
  149. if (%tick4 > 0) && ( %11 ) { msg $chan It will take %tick4 tick(s) ( $+ %wf $+ ) to get the money you need %nick $+ . }
  150. if (%tick3 < 0) { msg $chan It will take %tick3 tick(s) ( $+ %wof $+ ) to get the money you need $nick - that is not including your current funds. For a more accurate tick amount, press your up key and add your funds :) }
  151. if (%2 = help) { notice $nick layout is: !tick [tree acres] [bush acres] [flower acres] [grass acres] [target funds] [tree seeds] [bush seeds] [flower seeds] [grass seeds] {optional [current funds] }
  152. if (%2 = help) { notice $nick what !tick does is tell you how many ticks it will take you to get to your goal funds. }
  153. }
  154.  
  155. on *:text:!convert*:#: {
  156. var %convert = $read(tick.txt,s, $2)
  157. If ( %convert ) { msg $chan $2 tick is %convert $+ . }
  158. if ( $2 = help ) { notice $nick The !convert will convert ticks into minutes, hours, days and weeks. Use the amount of ticks after !convert to get the total RL time.
  159. Else { msg $chan Sorry $nick $+ , but I most likely do not have $2 ticks converted yet, please message me what number you entered and I will try to get it up there :) }
  160. }
  161. on *:text:!carlin:#: {
  162. var %carlin = $read(carlin.txt)
  163. if (%carlin) { msg $chan %carlin }
  164. if ($2 == help) { msg $chan !carlin will give you a random quote from the comedian George Carlin. }
  165. }
  166. on *:text:!contact*:#: {
  167. var %contact = $read(contact.txt,w,* $+ $2- $+ *)
  168. if (%contact) { msg $chan %contact }
  169. else { msg $chan Sorry, but $2- doesn't have a way to contact them posted :( }
  170. }
  171. on *:text:!titus:#: {
  172. var %titus = $read(titus.txt)
  173. if (%titus) { msg $chan %titus }
  174. if ($2 == help) { msg $chan !titus will give you a random quote from the comedian Christopher Titus. }
  175. }
  176. on *:text:!fluffy:#: {
  177. var %fluffy = $read(fluffy.txt)
  178. if (%fluffy) { msg $chan %fluffy }
  179. if ($2 == help) { msg $chan !titus will give you a random quote from the comedian Gabriel Iglesias. }
  180. }
  181. on *:TEXT:!def*:#: {
  182. var %def = $read(def.txt,w,* $+ $2- $+ *)
  183. if ($2 == help) { notice $nick If you are having trouble, try typing out the unit before the p-unit. }
  184. timer 1 2 if ($2 == help) { notice $nick If you are still having troubles, please msg me on what you typed verbatum. }
  185. timer 1 4 if ($2 == help) { notice $nick Please note that the information shared isn't perect and will be constantly updated as Peng sees fit. }
  186. if (%def) { msg $chan %def }
  187. else { msg $chan I'm sorry $nick $+ , but I am unable to complete your request at this time. }
  188. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!