API tools faq
paste
Guest User

Untitled

a guest
Mar 17th, 2018
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 33.14 KB | None | 0 0
raw download clone embed print report
  1. Alias zinnen {
  2. if (!%resetdate) { resetdate }
  3. $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%zinnen) zinnen getypt, de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me  $+ $geld-exchange(%zindate) zinnen getypt.
  4. }
  5.  
  6. alias tekens {
  7. if (!%resetdate) { resetdate }
  8. $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%tekens) tekens getypt, de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me  $+ $geld-exchange(%tekensdate) tekens getypt met een gemiddelde van $round($calc(%tekensdate / %zindate),2) tekens per zin en een gemiddelde van $round($calc(%tekensdate / %woordendate),2) tekens per woord.
  9. }
  10.  
  11. alias woorden {
  12. if (!%resetdate) { resetdate }
  13. $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%woorden) woorden getypt, en de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me  $+ $geld-exchange(%woordendate) woorden getypt met een gemiddelde van $round($calc(%woordendate / %zindate),2) woorden per zin.
  14. }
  15.  
  16.  
  17. alias resetdate {
  18. unset %zindate %woordendate %tekensdate
  19. set %resetdate $date(dd-mm-yyyy/HH:nn:ss)
  20. }
  21.  
  22. Alias geld-exchange { return $replace($+(€,$bytes($round($1,2),bd)),$chr(44),.) }
  23. alias geld-exchange2 { return $remove($1,€,.) }
  24.  
  25. alias xcounter {
  26. var %i 1
  27. var %xcounter 0
  28. while (%i <= $numtok($3-,$2)) {
  29. if ($1 == $gettok($3-,%i,$2)) {
  30. inc %xcounter 1
  31. }
  32. inc %i
  33. if (%i > $numtok($3-,$2)) { return %xcounter }
  34. }
  35. }
  36.  
  37. alias shutoff {
  38. disable #Talker-V3.2
  39. }
  40.  
  41. alias turnon {
  42. enable #Talker-V3.2
  43. }
  44.  
  45. alias kb {
  46. if ($1 !ison $active) { halt }
  47. if ($chan == #Bulletstar.net) { mode $chan +b-e $address($1,2) $+ #banned $address($1,2) }
  48. elseif ($chan == #Bulletstar.be) { mode $chan +b-e $address($1,2) $+ #banned.be $address($1,2) }
  49. Else { mode $active +b $address($1,2) }
  50. kick $active $1 $2-
  51. }
  52.  
  53. #KCounter on
  54. On *:kick:*:if ($nick == $me) $iif(%kicks,inc,set) %kicks 1
  55. alias kick { kick $active $2 $3- $+(4Kicks:7,$chr(32),%kicks,) }
  56. #KCounter End
  57.  
  58. #Talker-V3.2 on
  59.  
  60. dialog Talker-V3.2-Beveiliging {
  61. title "Talker-V3.2 beveiliging"
  62. size -1 -1 177 133
  63. option dbu
  64. text "Inloggen", 6, 62 13 37 8, center
  65. edit "Gebruikersnaam", 7, 51 35 77 10, center
  66. edit "Wachtwoord", 8, 51 57 77 10, pass center
  67. button "Login!", 9, 51 90 76 29
  68. text "Registreren", 11, 45 13 90 8, center
  69. edit "Gebruikersnaam", 10, 40 34 102 10, center
  70. edit "Wachtwoord", 14, 40 52 103 10, pass center
  71. edit "Wachtwoord", 12, 40 68 103 10, pass center
  72. button "Maak aan!", 13, 61 90 59 19
  73. text "Wachtwoord:", 15, 0 53 39 8, center
  74. text "Herhaal ww:", 16, 2 69 37 8, center
  75. text "Code om de beveiliging weg te halen:", 17, 54 3 70 15
  76. text "", 18, 76 10 25 9
  77. check "Beveiliging aan", 19, 56 30 50 10
  78. text "De beveiliging word ingeschakeld door middel van een command. Dit command is /beveilig <wachtwoord> Dit wachtwoord staat hierboven, dit is een 4 cijferige code. Wanneer je ALLEEN /beveilig typt, word de beveiliging INGESCHAKELD. Om het te unlocken moet je dus /beveilig <wachtwoord> typen (<> weg!laten!) Door alles te laten beveiligen, kan er op je mIRC niet gepraat worden, commands uitgevoerd worden of in andere kanalen gekeken worden.", 20, 19 51 141 63, center
  79. menu "Talker", 1
  80. item "Talker instellingen", 2, 1
  81. menu "Talker beveiligen", 3, 1
  82. item "Inloggen", 4, 3
  83. item "Gebruikersinstellingen wijzigen", 5, 3
  84. }
  85.  
  86.  
  87. on *:DIALOG:Talker-V3.2-Beveiliging:*:*: {
  88. if ($devent == menu) {
  89. if ($did == 4) { Talker-V3.2-beveiliging_login }
  90. if ($did == 5) { Talker-V3.2-beveiliging_instellingen }
  91. if ($did == 2) { did -b $dname 2 | dialog -m Talker-V3.2 Talker-V3.2 }
  92. }
  93. if ($devent == init) {
  94. if ($readini(Talker-V3.2.ini,Beveiliging,status) == on) { did -c $dname 19 }
  95. var %i 6
  96. while (%i <= 20) {
  97. did -h $dname %i
  98. inc %i
  99. }
  100. }
  101. if ($devent == sclick) {
  102. if ($did(19).state == 1) { writeini Talker-V3.2.ini Beveiliging status on }
  103. Else { writeini Talker-V3.2.ini Beveiliging status off }
  104. if ($did == 9) {
  105. if (!$readini(Talker-V3.2.ini,Beveiliging,geregistreerd) || $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == false) { var %i $input(Je bent nog niet geregistreerd!,oh,Foutmelding) | Talker-V3.2-beveiliging_instellingen | halt }
  106. if ($did(10) != $readini(Talker-V3.2.ini,Beveiliging,Gebruikersnaam) || $md5($did(12)) != $readini(Talker-V3.2.ini,Beveiliging,Wachtwoord)) { var %i $input(De gebruikersnaam en/of wachtwoord kloppen niet!,oh,Login error) | halt }
  107. if ($did(10) == $readini(Talker-V3.2.ini,Beveiliging,Gebruikersnaam) && $md5($did(12)) == $readini(Talker-V3.2.ini,Beveiliging,Wachtwoord)) {
  108. var %i $input(Succesvol ingelogd!,oik3,!!!)
  109. $+($chr(84),$chr(97),$chr(108),$chr(107),$chr(101),$chr(114),$chr(45),$chr(86),$chr(51),$chr(46),$chr(50),$chr(95),$chr(108),$chr(111),$chr(103),$chr(105),$chr(110),$chr(45),$chr(115),$chr(117),$chr(99),$chr(99),$chr(101),$chr(115),$chr(118),$chr(111),$chr(108))
  110. }
  111. }
  112. if ($did == 13 && !$readini(Talker-V3.2.ini,Beveiliging,geregistreerd) || $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == false) {
  113. if ($did(10) == Gebruikersnaam || $did(14) == wachtwoord) { var %i $input(Kies een andere gebruikersnaam en/of wachtwoord!,oh,Foutmelding) | halt }
  114. if ($did(12) != $did(14)) { var %i $input(Zorg ervoor dat de wachtwoorden kloppen!,oh,Wachtwoord error) | halt }
  115. if ($did(12) !== $did(14)) { var %i $input(De wachtwoorden moeten HELEMAAL overeen komen, inclusief upper- en lowercase letters!,oh,Hoofdletter foutmelding) | halt }
  116. writeini Talker-V3.2.ini Beveiliging geregistreerd true
  117. writeini Talker-V3.2.ini Beveiliging Gebruikersnaam $did(10)
  118. writeini Talker-V3.2.ini Beveiliging Wachtwoord $md5($did(14))
  119. var %i $input(Succesvol geregistreerd $+ $chr(44) je kunt nu inloggen!,oi,Gelukt!)
  120.  
  121. Talker-V3.2-beveiliging_login
  122. halt
  123. }
  124. if ($did == 13 && $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == true) {
  125. if ($md5($did(14)) != $readini(Talker-V3.2.ini,Beveiliging,wachtwoord)) { var %i $input(Het eerst wachtwoord moet overeenkomen aan je vorige wachtwoord!,oh,Foutmelding) | halt }
  126. if ($did(12) == Wachtwoord || $did(10) == Gebruikersnaam) { var %i $input(Kies een andere gebruikersnaam en/of wachtwoord!,oh,Foutmelding) | halt }
  127. writeini Talker-V3.2.ini Beveiliging Gebruikersnaam $did(10)
  128. writeini Talker-V3.2.ini Beveiliging Wachtwoord $md5($did(12))
  129. var %i $input(Gebruikers instellingen succesvol gewijzigd!,oi,Yeah!)
  130. Talker-V3.2-beveiliging_login
  131. }
  132. }
  133. }
  134.  
  135. alias -l TALKER-V3.2_LOGIN-SUCCESVOL {
  136. var %i 1
  137. while (%i <= 20) {
  138. did -h $bname %i
  139. inc %i
  140. }
  141. did -v $dname 17,18,19,20
  142. writeini Talker-V3.2.ini Beveiliging Code $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  143. did -i $dname 18 1 $readini(Talker-V3.2.ini,Beveiliging,Code)
  144. writeini Talker-V3.2.ini Beveiliging Code $md5($readini(Talker-V3.2.ini,Beveiliging,code))
  145. }
  146.  
  147. alias Talker-V3.2-beveiliging_instellingen {
  148. var %i 1
  149. while (%i <= 20) {
  150. did -h $bname %i
  151. inc %i
  152. }
  153. var %i 10
  154. while (%i <= 16) {
  155. did -v $bname %i
  156. inc %i
  157. }
  158. if ($readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == true) {
  159. did -i $dname 11 1 Gebruikersinstellingen wijzigen
  160. }
  161. }
  162. alias Talker-V3.2-beveiliging_login {
  163. var %i 1
  164. while (%i <= 20) {
  165. did -h $bname %i
  166. inc %i
  167. }
  168. did -v $bname 9,10,12
  169. }
  170. alias bname { return Talker-V3.2-Beveiliging }
  171.  
  172. menu * {
  173. -
  174. $iif($dialog(Talker-V3.2),$style(2)) Talker-V3.2: dialog -vm Talker-V3.2 Talker-V3.2
  175. }
  176.  
  177. dialog Talker-V3.2 {
  178. title "Talker (V3.2) © by Goldfive"
  179. size -1 -1 285 309
  180. option dbu
  181. button "Aan", 1, 10 15 53 25
  182. button "Uit", 2, 10 49 53 25
  183. combo 3, 151 15 60 61, size drop
  184. combo 13, 78 15 60 60, size drop
  185. text "Kleur van de zin", 4, 150 3 60 8, center
  186. check "Eerste letter vet", 5, 11 93 63 10
  187. check "Eerste letter onderstreept", 6, 11 109 76 10
  188. check "Eerste woord vet", 7, 11 126 55 10
  189. check "Eerste woord onderstreept", 8, 11 143 77 10
  190. check "Hele zin vet", 9, 169 93 74 10
  191. check "Hele zin onderstreept", 10, 169 110 66 10
  192. check "Eerste letter andere kleur", 11, 169 128 78 10
  193. check "Censuur", 21, 11 161 41 10
  194. check "Zin met hoofdletter beginnen", 18, 74 184 82 10
  195. check "Zin eindigen met een punt", 19, 74 198 81 10
  196. check "Easy modes", 27, 169 161 50 10
  197. text "Kleur van het eerste letter/woord", 14, 67 3 83 8, center
  198. radio "Random talker", 15, 111 260 50 10
  199. radio "Een of meerdere kleuren talker", 16, 111 251 85 10
  200. radio "Ultimate random talker", 20, 111 270 64 10
  201. edit "", 25, 16 247 50 10, autohs center
  202. button "Voeg toe!", 24, 14 259 54 12
  203. button "Stel in!", 17, 12 284 268 21
  204. list 22, 12 185 57 61, size
  205. text "Gecensureerde woorden", 23, 11 174 61 8
  206. text "De woorden die hierin staan, worden gecensureerd. Je voegt een woord toe door deze in de editbox in te vullen, volgens de volgende syntax: kut k*t = woord 1 - woord 2 . Druk daarna op voeg toe, en het gecensureerde woord staat erin! Doe je dubbelklik op een item in de list, dan zal deze verwijderd worden!", 26, 70 211 157 35
  207. button "Help", 29, 230 235 50 46
  208. button "Volgorde talker", 34, 218 15 56 60
  209. check "Volgorde talker aan", 35, 169 145 60 10
  210. menu "Talker", 28
  211. item "Talker instellingen", 30, 28
  212. menu "Talker beveiligen", 31, 28
  213. item "Inloggen", 33, 31
  214. item "Gebruikersinstellingen wijzigen", 32, 31
  215. }
  216.  
  217. on *:DIALOG:Talker-V3.2:*:*: {
  218. if ($devent == close) && ($readini(Talker-V3.2.ini,Beveiliging,Close) == true) { did -e $bname 2 | writeini Talker-V3.2.ini Beveiliging Close false }
  219. if ($devent == menu) {
  220. if ($did == 32) {
  221. dialog -vm Talker-V3.2-beveiliging Talker-V3.2-beveiliging
  222. Talker-V3.2-beveiliging_instellingen
  223. }
  224. if ($did == 33) {
  225. dialog -vm Talker-V3.2-beveiliging Talker-V3.2-beveiliging
  226. Talker-V3.2-beveiliging_login
  227. }
  228. if ($did == 33 || $did == 32) {
  229. did -b $bname 2
  230. writeini Talker-V3.2.ini Beveiliging Close true
  231. }
  232. }
  233. if ($devent == dclick) {
  234. if ($did == 22) {
  235. if ($did(22).seltext == kanker - *censuur*) { var %i $input(Deze KUN je niet verwijderen!,oh,Jammer!) | halt }
  236. writeini Talker-V3.2.ini Replace Censuur $remove($readini(Talker-V3.2.ini,Replace,Censuur),$gettok($did(22).seltext,1,32) ,$gettok($did(22).seltext,3,32) )
  237. did -d $dname 22 $did(22).sel
  238. }
  239. }
  240. if ($devent == init) {
  241. if (kanker *censuur* !isin $readini(Talker-V3.2.ini,Replace,censuur)) { writeini Talker-V3.2.ini Replace Censuur $readini(Talker-V3.2.ini,Replace,Censuur) kanker *censuur* }
  242. var %i
  243. did -c $dname 13 $calc($readini(Talker-V3.2.ini,Talker,Color1) - 1)
  244. did -c $dname 3 $calc($readini(Talker-V3.2.ini,Talker,Color2) - 1)
  245. var %i 1
  246. while (%i <= $numtok($readini(Talker-V3.2.ini,Dialog,Events),32)) {
  247. did -c $dname $gettok($readini(Talker-V3.2.ini,Dialog,Events),%i,32)
  248. inc %i
  249. }
  250. if ($did(5).state == 1 || $did(6).state == 1) { did -b $dname 7,8,9,10 }
  251. if ($did(7).state == 1 || $did(8).state == 1) { did -b $dname 5,6,9,10 }
  252. if ($did(9).state == 1 || $did(10).state == 1) { did -b $dname 5,6,7,8 }
  253. if (!$readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus)) {
  254. did -c $dname 16
  255. }
  256. Else { did -c $dname $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 2,16) $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 1,15) $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 3,20) }
  257. if ($did(20).state == 1 || $did(15).state == 1) { did -h $dname 3,13 }
  258. if ($did(16).state != 1) { did -b $dname 11 }
  259. if ($readini(Talker-V3.2.ini,Status,talker) == on) { did -b $dname 1 | did -e $dname 2 }
  260. Else { did -e $dname 1 | did -b $dname 2 }
  261. if ($exists(colorcombo.dll) == $false) {
  262. did -i $dname 3,13 1 Niks
  263. did -i $dname 3,13 2 0. Wit
  264. did -i $dname 3,13 3 1. Zwart
  265. did -i $dname 3,13 4 2. Donkerblauw
  266. did -i $dname 3,13 5 3. Groen
  267. did -i $dname 3,13 6 4. Rood
  268. did -i $dname 3,13 7 5. Donkerrood
  269. did -i $dname 3,13 8 6. Paars
  270. did -i $dname 3,13 9 7. Oranje
  271. did -i $dname 3,13 10 8. Geel
  272. did -i $dname 3,13 11 9. Lichtgroen
  273. did -i $dname 3,13 12 10. Turquoise
  274. did -i $dname 3,13 13 11. Lichtblauw
  275. did -i $dname 3,13 14 12. Blauw
  276. did -i $dname 3,13 15 13. Roze
  277. did -i $dname 3,13 16 14. Donkergrijs
  278. did -i $dname 3,13 17 15. Grijs
  279. }
  280. Else {
  281. dll colorcombo.dll COMBO $dname 3
  282. dll colorcombo.dll COMBO $dname 13
  283. }
  284. did -c $dname 3 $calc($readini(Talker-V3.2.ini,Talker,Color2) +2)
  285. did -c $dname 13 $calc($readini(Talker-V3.2.ini,Talker,Color1) +2)
  286. if (!$readini(Talker-V3.2.ini,Replace,Censuur)) { halt }
  287. var %i 1
  288. while (%i <= $numtok($readini(Talker-V3.2.ini,Replace,Censuur),32)) {
  289. did -a $dname 22 $gettok($readini(Talker-V3.2.ini,Replace,censuur),%i,32) - $gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32)
  290. inc %i 2
  291. }
  292. if ($did(15).state != 1) { did -b $dname 34 }
  293. if ($did(16).state == 1 || $did(20).state == 1) { did -b $dname 35 }
  294. if ($did(15).state == 1 || $did(20).state == 1) { did -u $dname 11 | did -b $dname 11 }
  295. }
  296. if ($devent == sclick) {
  297. if ($did(16).state == 1 || $did(20).state == 1) { did -b $dname 35 | did -u $dname 35 }
  298. Else { did -e $dname 35 }
  299. if ($did == 34) {
  300. writeini Talker-V3.2.ini Talker Talkernumber $input(Voer de cijfers van de kleuren in $+ $chr(44) gescheiden door een spatie. Als je op oke gedrukt heb $+ $chr(44) zal dit meteen ingesteld worden!,oe,Voer in!)
  301. }
  302. if ($did(15).state != 1) { did -b $dname 34 }
  303. Else { did -e $dname 34 }
  304. if ($did(15).state == 1 || $did(20).state == 1) { did -b $dname 11 | did -u $dname 11 }
  305. if ($did(15).state != 1 && $did(20).state != 1) { did -e $dname 11 }
  306. if ($did == 17) {
  307. if ($readini(Talker-V3.2.ini,Talker,Talkernumber)) {
  308. var %N3mberscheck $readini(Talker-V3.2.ini,Talker,Talkernumber)
  309. }
  310. var %N3mberschecks $readini(Talker-V3.2.ini,Talker,Talkernumbers)
  311. remini Talker-V3.2.ini Dialog Events
  312. remini Talker-V3.2.ini Talker
  313. if (%N3mberscheck || %N3mberscheck != $null) { writeini Talker-V3.2.ini Talker Talkernumber %N3mberscheck }
  314. if (%N3mberschecks || %N3mberschecks != $null) { writeini Talker-V3.2.ini Talker Talkernumbers %N3mberschecks }
  315. if ($did(13).sel > 0) {
  316. writeini Talker-V3.2.ini Talker Color1 $calc($did(13).sel -2)
  317. }
  318. if ($did(3).sel > 0) {
  319. writeini Talker-V3.2.ini Talker Color2 $calc($did(3).sel -2)
  320. }
  321. writeini Talker-V3.2.ini Talker Censuur $iif($did(21).state == 1,on,off)
  322. writeini Talker-V3.2.ini Talker Easy-modes $iif($did(27).state == 1,on,off)
  323. writeini Talker-V3.2.ini Talker Hoofdletter $iif($did(18).state == 1,on,off)
  324. writeini Talker-V3.2.ini Talker Punt $iif($did(19).state == 1,on,off)
  325. writeini Talker-V3.2.ini Talker Opmaak1 $iif($did(5).state == 1 || $did(7).state == 1 || $did(9).state == 1,$chr(2)) $+ $iif($did(6).state == 1 || $did(8).state == 1 || $did(10).state == 1,$chr(31)) $+ 
  326. if ($did(5).state == 1 || $did(6).state == 1 || $did(11).state == 1) { writeini Talker-V3.2.ini Talker Opmaak2 $iif($did(5).state == 1,$chr(2)) $+ $iif($did(6).state == 1,$chr(31)) $+ $iif($did(11).state == 1,$chr(3)) }
  327. if ($did(8).state == 1) {
  328. writeini Talker-V3.2.ini talker Opmaak3 $chr(31)
  329. }
  330. var %i $input(De talker is nu ingesteld!,oik5,Succesvol ingesteld)
  331. if ($did(15).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 1 }
  332. if ($did(16).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 2 }
  333. if ($did(20).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 3 }
  334. if ($did(5).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 5 }
  335. if ($did(6).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 6 }
  336. if ($did(7).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 7 }
  337. if ($did(8).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 8 }
  338. if ($did(9).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 9 }
  339. if ($did(10).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 10 }
  340. if ($did(11).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 11 }
  341. if ($did(21).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 21 }
  342. if ($did(27).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 27 }
  343. if ($did(18).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 18 }
  344. if ($did(19).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 19 }
  345. if ($did(35).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 35 }
  346. }
  347. if ($did(15).state == 1) || ($did(20).state == 1) { did -h $dname 3,13 }
  348. if ($did(15).state == 0) && ($did(20).state == 0) { did -v $dname 3,13 }
  349. if ($did == 1) { writeini Talker-V3.2.ini Status Talker on | did -b $dname 1 | did -e $dname 2 }
  350. if ($did == 2) { writeini Talker-V3.2.ini Status Talker off | did -e $dname 1 | did -b $dname 2 }
  351. if ($did(3).sel == 1 || $did(13).sel == 1) && ($did == 3 || $did == 13) {
  352. var %i $input(Selecteer een kleur!,ohk3,Error)
  353. did -c $dname $did
  354. }
  355. if ($did(5).state == 1 || $did(6).state == 1) && ($did == 5 || $did == 6) { did -b $dname 7,8,9,10 }
  356. if ($did(5).state == 0 && $did(6).state == 0) && ($did == 5 || $did == 6) { did -e $dname 7,8,9,10 }
  357. if ($did(7).state == 1 || $did(8).state == 1) && ($did == 7 || $did == 8) { did -b $dname 5,6,9,10 }
  358. if ($did(7).state == 0 && $did(8).state == 0) && ($did == 7 || $did == 8) { did -e $dname 5,6,9,10 }
  359. if ($did(9).state == 1 || $did(10).state == 1) && ($did == 9 || $did == 10) { did -b $dname 5,6,7,8 }
  360. if ($did(9).state == 0 && $did(10).state == 0) && ($did == 9 || $did == 10) { did -e $dname 5,6,7,8 }
  361. if ($did == 29) { did -b $dname 29 | .timer 1 1 did -e Talker-V3.2 29 | var %i $input(Uitleg: $crlf $crlf In deze talker kun je van alles instellen $+ $+($chr(44)) censuur $chr(40) $+ deze uitleg is al gegeven $+ $chr(41) en de kleuren $+ $chr(44) vetgedrukt etc. Dit zal je zelf moeten ontdekken $+ $chr(44) maar hier is een uitleg over hoe de easy modes te gebruiken zijn: [+/- begkJLjlGMNORSTVcimnpst] <overige parameters $chr(40) $+ zoals naam $+ $chr(44) wachtwoord etc. $+ $chr(41)>,oib,Help) }
  362. if ($did == 24) {
  363. if ($did(25) == $null) || ($gettok($did(25),2,32) == $null) { var %i $input(Voeg alle woorden GOED toe!,oh5,Foutmelding) | halt }
  364. did -a $dname 22 $gettok($did(25),1,32) - $gettok($did(25),2,32)
  365. writeini Talker-V3.2.ini Replace Censuur $readini(Talker-V3.2.ini,Replace,Censuur) $gettok($did(25),1,32) $gettok($did(25),2,32)
  366. did -r $dname 25
  367. }
  368. }
  369. }
  370.  
  371. on *:INPUT:*: {
  372. if ($readini(Talker-V3.2.ini,Beveiliging,status) == on) {
  373. if ($1 == /beveilig) {
  374. if (!$readini(Talker-V3.2.ini,Beveiliging,on/off) || $readini(Talker-V3.2.ini,Beveiliging,on/off) == off) {
  375. writeini Talker-V3.2.ini Beveiliging on/off on
  376. echo -sat 7-4=3Beveiliging-System4=7-7 Alles is nu locked! Unlock deze met /beveilig <password> - dit password is te vinden in de dialog!
  377. var %i 1
  378. while (%i <= $chan(0)) {
  379. window -h $chan(%i)
  380. inc %i
  381. }
  382. var %i 1
  383. while (%i <= $query(0)) {
  384. window -h $query(%i)
  385. inc %i
  386. }
  387. halt
  388. }
  389. if ($readini(Talker-V3.2.ini,Beveiliging,on/off) == on) {
  390. if (!$2) { echo -sat 7-4=3Beveiliging-System4=7-7 Vul het 4 cijferige password in! Deze is te vinden in de dialog! | halt }
  391. if ($md5($2) != $readini(Talker-V3.2.ini,Beveiliging,Code) || !$readini(Talker-V3.2.ini,Beveiliging,code)) { echo -sat 7-4=3Beveiliging-System4=7-7 Vul het 4 cijferige password in! Deze is te vinden in de dialog! | halt }
  392. if ($md5($2) == $readini(Talker-V3.2.ini,Beveiliging,Code)) {
  393. echo -sat 7-4=3Beveiliging-System4=7-7 Het systeem is ge-unlocked!
  394. var %i 1
  395. while (%i <= $chan(0)) {
  396. window -w3 $chan(%i)
  397. inc %i
  398. }
  399. var %i 1
  400. while (%i <= $query(0)) {
  401. window -w3 $query(%i)
  402. inc %i
  403. }
  404. writeini Talker-V3.2.ini Beveiliging on/off off
  405. halt
  406. }
  407. }
  408. }
  409. if ($readini(Talker-V3.2.ini,Beveiliging,on/off) == on && $1 != /beveilig) {
  410. halt
  411. }
  412. }
  413. if ($gettok($readini($aname $+ .ini,Away-System,autoAFK),2,32) == on) && ($readini($aname $+ .ini,Away-system,oldnick) == $me && $readini($aname $+ .ini,Away-System,afwezig) == NIET-WEG || !$readini($aname $+ .ini,Away-System,afwezig)) {
  414. .timerautoAFK 1 $gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32) nick $readini($aname $+ .ini,Away-System,oldnick) $+ ^away $(|) ame is er fftjes vandoor! [»»Automatisch afk na $duratie($gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32)) $+ ««] $(|) writeini $aname $+ .ini Away-System afwezig niet-weg $(|) writeini $dname $+ .ini Away-System Reden »»Automatisch afk na $duratie($gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32)) $+ «« $(|) writeini $aname $+ .ini Away-System Away-date $date $time(HH:nn)
  415. }
  416. Inc %zinnen
  417. Set %tekens $calc(%tekens + $len($1-))
  418. Set %woorden $calc(%woorden + $numtok($1-,32))
  419. inc %zindate
  420. set %tekensdate $calc(%tekensdate + $len($1-))
  421. set %woordendate $calc(%woordendate + $numtok($1-,32))
  422. if ($1 == !k || $1 == !kick) {
  423. kick $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2,$3) $iif(#* !iswm $2,$3-,$4-)
  424. halt
  425. }
  426. if ($1 == !spook) { .msg BBF-BOT $1 $2 $iif(#* !iswm $3 && $2 == msg,$active,$3) $iif(#* !iswm $3 && $2 == msg,$3-,$4-) | halt }
  427. if ($1 == !botje) { .msg BBF-BOT $1 $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2-,$3-) | halt }
  428. if ($1 == !b || $1 == !ban) {
  429. if (!%kbtext) {
  430. write kbtext.txt Daar gaat er wéér een :/
  431. write kbtext.txt Leren ze het dan ook NOOIT?
  432. write kbtext.txt Komt die ban!
  433. write kbtext.txt *zucht*
  434. write kbtext.txt Leer van je fouten!
  435. write kbtext.txt Tot over xx dagen :(
  436. write kbtext.txt Behave
  437. write kbtext.txt 4Banned
  438. write kbtext.txt Geen commentaar...
  439. write kbtext.txt Read the rules before you come back!
  440. write kbtext.txt Hey irritante vlieg! Je bent verbannen van de chat... TATA!! :)
  441. set %kbtext $true
  442. }
  443. if (R2-D2 ison $chan || Sinterklaas ison $chan) && ($me !isop $chan) { msg $active !ban $address($2,2) $3- | halt }
  444. mode $iif(#* !iswm $2,$active,$2) +b $address($iif(#* !iswm $2,$2,$3),2)
  445. kick $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2,$3) $iif(#* !iswm $2,$3-,$4-) 3 $+(|) $read(kbtext.txt) 3 $+ $+(|) 7Talker V3.2 - © by 4Goldfive 3 $+ $+(|)
  446. halt
  447. }
  448. if ($readini(Talker-V3.2.ini,Status,Talker) == off) { goto end }
  449. if ($readini(Talker-V3.2.ini,Talker,Easy-modes) == on) && ($1 != -.-" && $1 != -.- && $1 != ->) && ($left($1,1) == + || $left($1,1) == -) && ($len($1) != 1) && ($chan != #bulletstar.net && $chan != #chatops && $chan != #banned) {
  450. mode $active $1-
  451. halt
  452. }
  453. var %talker-V3.2.msg $1
  454. var %talker-V3.2.msg2 $2-
  455. if ($readini(Talker-V3.2.ini,Talker,Censuur) == on) {
  456. var %i 1
  457. while (%i <= $numtok($readini(Talker-V3.2.ini,Replace,censuur),32)) {
  458. var %talker-V3.2.msg $replace(%Talker-V3.2.msg,$gettok($readini(Talker-V3.2.ini,Replace,Censuur),%i,32),$gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32))
  459. var %talker-V3.2.msg2 $replace(%Talker-V3.2.msg2,$gettok($readini(Talker-V3.2.ini,Replace,Censuur),%i,32),$gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32))
  460. inc %i 2
  461. }
  462. if (kk == %Talker-V3.2.msg || kkr == %Talker-V3.2.msg) { set %Talker-V3.2.msg $str(*,$rand(1,6)) }
  463. var %i 1
  464. while (%i <= $numtok(%Talker-V3.2.msg2,32)) {
  465. if (kk == $gettok(%Talker-V3.2.msg2,%i,32) || kkr == $gettok(%Talker-V3.2.msg2,%i,32)) {
  466. var %Talker-V3.2.msg.censuur2 %Talker-V3.2.msg.censuur2 $str(*,$rand(1,6))
  467. }
  468. Else {
  469. var %Talker-V3.2.msg.censuur2 %Talker-V3.2.msg.censuur2 $gettok(%Talker-V3.2.msg2,%i,32)
  470. }
  471. inc %i
  472. }
  473. var %Talker-V3.2.msg2 %Talker-V3.2.msg.censuur2
  474. }
  475. if ($readini(Talker-V3.2.ini,Talker,Punt) == on) {
  476. if ($numtok($1-,32) != 1) {
  477. if ($right($gettok($1-,$numtok($1-,32),32),1) isletter) {
  478. var %Punt .
  479. }
  480. }
  481. }
  482. if ($1 == /me) { describe $active %Talker-V3.2.msg2 | halt }
  483. if (/* iswm $1) || ($active == status window) || (!* iswm $1) { return l }
  484. if ($me == wetwilly) { msg $active $1- | halt }
  485. if ($left($1,1) == !) || ($left($1,1) == $chr(3)) { msg $active $1- | halt }
  486. if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 2) {
  487. if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $readini(Talker-V3.2.ini,Talker,Color2),$chr(31)) $+ $chr(32) $+ $left(%Talker-V3.2.msg,1) $+ $iif(*#Bulletstar.* iswm $active,$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(31),$chr(3)),$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(31),$chr(3))) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
  488. msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $readini(Talker-V3.2.ini,Talker,Color2) $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $iif(*#Bulletstar.* iswm $active,$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)),$readini(Talker-V3.2.ini,Talker,Opmaak2)) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2) && *#Bulletstar.* !iswm $active,$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
  489. halt
  490. }
  491. if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 1) {
  492. if (35 isin $readini(Talker-V3.2.ini,Dialog,Events)) {
  493. if (!$readini(Talker-V3.2.ini,Talker,Talkernumber) || $readini(Talker-V3.2.ini,Talker,Talkernumber) == $null) { goto randomtalker }
  494. writeini Talker-V3.2.ini Talker Talkernumbers $iif($calc($readini(Talker-V3.2.ini,Talker,Talkernumbers) + 1) > $numtok($readini(Talker-V3.2.ini,Talker,Talkernumber),32),1,$calc($readini(Talker-V3.2.ini,Talker,Talkernumbers) + 1)) $iif(!$readini(Talker-V3.2.ini,Talker,Talkernumbers) || $readini(Talker-V3.2.ini,Talker,Talkernumbers) == $null,1)
  495. if ($left($1,1) isnum) { msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $gettok($readini(Talker-V3.2.ini,Talker,Talkernumber),$readini(Talker-V3.2.ini,Talker,Talkernumbers),32) $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2),$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
  496. msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $gettok($readini(Talker-V3.2.ini,Talker,Talkernumber),$readini(Talker-V3.2.ini,Talker,Talkernumbers),32) $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$iif(%Talker-V3.2.msg != sPIdER,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2),$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
  497. halt
  498. }
  499. :randomtalker2
  500. var %Talker-V3.2.random $rand(3,15)
  501. if ($readini(Talker-V3.2.ini,Talker,Randomtalker) == %Talker-V3.2.random) { goto randomtalker2 }
  502. if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random == 15) { goto randomtalker2 }
  503. writeini Talker-V3.2.ini Talker Randomtalker %Talker-V3.2.random
  504. if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ %Talker-V3.2.random $iif($chr(31) isin $readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ $left(%Talker-V3.2.msg,1) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
  505. msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$iif(sPIdER != %Talker-V3.2.msg,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
  506. halt
  507. }
  508. if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 3) {
  509. if (#Bulletstar.* !iswm $active) { goto ultimate-talker }
  510. :randomtalker
  511. var %Talker-V3.2.random $rand(3,15)
  512. if ($readini(Talker-V3.2.ini,Talker,Randomtalker) == %Talker-V3.2.random) { goto randomtalker }
  513. if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random == 15) { goto randomtalker }
  514. writeini Talker-V3.2.ini Talker Randomtalker %Talker-V3.2.random
  515. if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ %Talker-V3.2.random $iif($chr(31) isin $readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ $left(%Talker-V3.2.msg,1) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
  516. msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
  517. haltdef
  518. :ultimate-talker
  519. if ($left($1,1) isnum || $left($1,$calc($len($1) -1)) isnum || $left($2,1) isnum) { goto randomtalker }
  520. var %Talker-V3.2.random $rand(3,15)
  521. var %Talker-V3.2.random2 $rand(3,15)
  522. var %Talker-V3.2.random3 $rand(3,15)
  523. if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random2 == 8 || %Talker-V3.2.random2 == 11 || %Talker-V3.2.random2 == 13 || %Talker-V3.2.random3 == 8 || %Talker-V3.2.random3 == 11 || %Talker-V3.2.random3 == 13) { goto ultimate-talker }
  524. msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+  $+ %Talker-V3.2.random2 $+ $+($right(%Talker-V3.2.msg,-1)) $+  $+ %Talker-V3.2.random3 %Talker-V3.2.msg2 $+ %Punt
  525. halt
  526. }
  527. :end
  528. }
  529.  
  530. alias duratie {
  531. var %duratie $strip($1)
  532. var %jaren $gettok($calc(%duratie / 31536000),1,46) | dec %duratie $calc(%jaren * 31536000)
  533. var %weken $gettok($calc(%duratie / 604800),1,46) | dec %duratie $calc(%weken * 604800)
  534. var %dagen $gettok($calc(%duratie / 86400),1,46) | dec %duratie $calc(%dagen * 86400)
  535. var %uren $gettok($calc(%duratie / 3600),1,46) | dec %duratie $calc(%uren * 3600)
  536. var %minuten $gettok($calc(%duratie / 60),1,46) | dec %duratie $calc(%minuten * 60)
  537. var %seconden %duratie
  538. Return $iif(%jaren != 0,%jaren $iif(%jaren == 1,jaar,jaren) $+ $chr(44)) $iif(%weken != 0,%weken $iif(%weken == 1,week,weken) $+ $chr(44)) $iif(%dagen != 0,%dagen $iif(%dagen == 1,dag,dagen) $+ $chr(44)) $iif(%uren != 0,%uren $iif(%uren == 1,uur,uren) $+ $chr(44)) $iif(%minuten != 0,%minuten $iif(%minuten == 1,minuut,minuten) $iif(%seconden != 0,en)) $iif(%seconden != 0,%seconden $iif(%seconden == 1,seconde,seconden))
  539. }
  540.  
  541. alias Talker {
  542. var %talker-V3.2.msg $1
  543. var %talker-V3.2.msg2 $2-
  544. var %Talker-V3.2.random $rand(3,15)
  545. return $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
  546. }
  547.  
  548. #Talker-V3.2 end
Add Comment
Please, Sign In to add comment
Public Pastes
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!