API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 12th, 2018
84
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 73.26 KB | None | 0 0
raw download clone embed print report
  1. import <zlib.ash>
  2. import <getplayers.ash>
  3.  
  4. void checking_zatara()
  5. {
  6. string page_text = visit_url("clan_viplounge.php?preaction=lovetester");
  7. if(contains_text(page_text, "You have active relationship consultations"))
  8. {
  9. cli_execute("call clanfortune.ash respond all");
  10. }
  11. return;
  12. }
  13.  
  14. string randomdance(){
  15. switch (random(5)) {
  16. case 0:
  17. return "/me Does the Rhomba with ";
  18. case 1:
  19. return "/me Does the Cha-cha slide with ";
  20. case 2:
  21. return "/me does a piroette with ";
  22. case 3:
  23. return "/me auditions for Dancing with the Stars, with ";
  24. case 4:
  25. return "/me does the robot with ";
  26. }
  27. return "error";
  28. }
  29.  
  30. void main( string sender , string message, string channel )
  31. {
  32.  
  33. int [item] map;
  34. map[$item[adder]] = 0;
  35. if (channel=="")
  36. {
  37.  
  38. channel="PM";
  39.  
  40. //Below is how the bot responds to private messages. If you wish to add your own, simple add your own information, and remove the '//'
  41.  
  42. print("Incoming PM from " +sender+ " saying: "+message);
  43. if(contains_text(to_lower_case(message), "help"))
  44. {
  45. kmail(sender,
  46. "**NEW** You can now ask for GYRO, or GYROCOPTER\n" +
  47. "I'm now fully functional with Madame Zatara. Send me a request, and I will respond with BEER, ROBIN, DOWN\n" +
  48. "type \"seen \(clan member\)\" into open chat, and I will let you know when I last saw someone, and what they said. This is handy for away messages\n" +
  49. "If you are asking me for Zatara, and I don't respond to you're 3rd response, PM me Zatara, and I will see if I might have missed one\n" +
  50. "K-mail me a rotten tomato, then PM me \"tomato\"\n" +
  51. "PM me the word 'bandit', and I will fax in a fantasy bandit, for your Rubee farming needs\n" +
  52. "Update: last 30 chat messages that I've seen\n" +
  53. "K-mail me a time's arrow, then PM me \"time\"\n" +
  54. // "\n" + //If you wish to add commands and want people to know about it, add them here.
  55. "I'm a good dancer! Try dancing with me\n" +
  56. "PM me \"DREAD\" for a list of ways I can help in Dreadsylvania\n" +
  57. "Type \"Dread\" into THUD! clan chat to see how I can help the clan only\n" +
  58. "", 0, map);
  59. return; }
  60.  
  61. if(contains_text(to_lower_case(message), "machine"))
  62. {
  63. cli_execute("call the machine.ash");
  64. return;
  65. }
  66.  
  67. if(contains_text(to_lower_case(message), "dread"))
  68. {
  69. kmail(sender,
  70. "If you give me a whitelist to your clan and access to your dungeon, I can help with dread!\n" +
  71. "All you have to do is make sure the area you want banished is unlocked, and I can help.\n" +
  72. "I will PM you when I arrive in your clan, and if an area is not unlocked, I will let you know.\n" +
  73. "I will automatically return to my home clan. I can only respond to one command at a time \(do not ask me to banish Ghosts AND Bugbears together\)\n" +
  74. "Heres a list of commands I understand to help with Dreadsylvania:\n" +
  75. "PM me: Wolves, Ghosts, Vampires, Skeletons, Zombies, Bugbears\n" +
  76. "and I will banish those creatures\n" +
  77. "PM me the following to have a perticular element removed.\n" +
  78. "villagesleazy, villagestinky, villagespooky villagecold, villagehot\n" +
  79. "castlesleazy, castlestinky, castlespooky, castlecold, castlehot\n" +
  80. "forestsleazy, foreststinky, forestspooky, forestcold, foresthot\n" +
  81. "Just PM me any of those words!", 0, map);
  82. return; }
  83.  
  84. if(contains_text(to_lower_case(message), "gyrocopter"))
  85. {
  86. if ($item[1167].available_amount() >= 1)
  87. {
  88. visit_url("inv_use.php?pwd&which=3&whichitem=1167");
  89. }
  90. if ($item[warbear gyrocopter].available_amount() >= 1 && get_property("_warbearGyrocopterUsed") == "false")
  91. {
  92. cli_execute("throw warbear gyrocopter at" + sender);
  93. chat_private (sender, "Sent");
  94. return;
  95. }
  96. if ($item[warbear gyrocopter].available_amount() == 0 && get_property("_warbearGyrocopterUsed") == "false")
  97. {
  98. chat_private (sender, "I don't have any more Warbear Gyrocopters. If you send me one, I can throw it at someone.");
  99. return;
  100. }
  101. if (get_property("_warbearGyrocopterUsed") == "true")
  102. {
  103. chat_private(sender, "Sorry, I've already used a Warbear Gyrocopter today. Try again tomorrow.");
  104. return;
  105. }
  106. return;
  107. }
  108.  
  109. int [item] spam;
  110. spam[$item[warbear gyro]] = 1;
  111.  
  112. if(contains_text(to_lower_case(message), "gyro"))
  113. {
  114. if ($item[warbear gyro].available_amount() >= 1)
  115. {
  116. kmail(sender,
  117. "You asked for a gyro. Here you go!\n" +
  118. "", 0, spam);
  119. chat_private(sender, "Check your inventory, I think I sent one.");
  120. return;
  121. }
  122. else
  123. {
  124. chat_private(sender, "I'm sorry I have no gyro's left.");
  125. return;
  126. }
  127. return;
  128. }
  129.  
  130. if(contains_text(to_lower_case(sender), my_name()))
  131. {
  132. return;
  133. }
  134. if(contains_text(to_lower_case(sender), "easyfax"))
  135. {
  136. return;
  137. }
  138. if(contains_text(to_lower_case(message), "thud"))
  139. {
  140. chat_clan("/whitelist thud");
  141. return;
  142. }
  143. if(contains_text(to_lower_case(message), "tomato"))
  144. {
  145. if ($item[1167].available_amount() >= 1)
  146. {
  147. visit_url("inv_use.php?pwd&which=3&whichitem=1167");
  148. }
  149. if ($item[rotten tomato].available_amount() >= 1 )
  150. {
  151. cli_execute("throw rotten tomato at " + sender );
  152. }
  153. else
  154. {
  155. chat_private (sender, "I don't have any more rotten tomatoes. If you send me one, I can throw it at you.");
  156. }
  157. return;
  158. }
  159.  
  160. if(contains_text(to_lower_case(message), "throw wind-up spider"))
  161. {
  162. if ($item[1167].available_amount() >= 1)
  163. {
  164. visit_url("inv_use.php?pwd&which=3&whichitem=1167");
  165. }
  166. if ($item[wind-up spider].available_amount() >= 1 )
  167. {
  168. cli_execute(message);
  169. chat_private (sender, "Spider sent");
  170. return;
  171. }
  172. else
  173. {
  174. chat_private (sender, "I don't have any more wind-up spiders. If you send me one, I can throw it at someone.");
  175. return;
  176. }
  177. return;
  178. }
  179. if(contains_text(to_lower_case(message), "time"))
  180. {
  181. if ($item[1167].available_amount() >= 1)
  182. {
  183. visit_url("inv_use.php?pwd&which=3&whichitem=1167");
  184. return;
  185. }
  186. if ($item[time's arrow].available_amount() >= 1 )
  187. {
  188. cli_execute("throw time's arrow at " + sender );
  189. }
  190. else
  191. {
  192. chat_private (sender, "I don't have any more Time's Arrows. If you send me one, I can throw it at you.");
  193. }
  194. return;
  195. }
  196.  
  197. if(contains_text(to_lower_case(message), "logoff"))
  198. {
  199. cli_execute("quit");
  200. return;
  201. }
  202.  
  203. if(contains_text(to_lower_case(message), "zatara"))
  204. {
  205. if ($item[clan vip lounge key].available_amount() <= 0)
  206. {
  207. chat_private(sender, "Uh-oh! I seem to be missing my Clan VIP Lounge Key! Tell PazSox ASAP!");
  208. return;
  209. }
  210. chat_private(sender, "I'll check for you, right now. If anything is there, it will be processed");
  211. checking_zatara();
  212. return;
  213. }
  214.  
  215. if(contains_text(to_lower_case(message), "moon"))
  216. {
  217. chat_private(sender, "Attempting to grab a moon-amber");
  218.  
  219. record note
  220. {
  221. string sender;
  222. int date;
  223. }
  224. [int] ChatLog;
  225.  
  226. int NE= count(ChatLog);
  227. ChatLog[NE].sender= sender;
  228. Map_to_File(ChatLog,"Chatlog.txt");
  229. {
  230. string [int] my_list;
  231. file_to_map( "chatlog.txt" , my_list);
  232. playerdata player;
  233. string temp = "";
  234. string user = "";
  235. foreach i,playername in my_list
  236. {
  237. player = GetPlayer( playername );
  238. if( player.name != "" )
  239. {
  240. if( temp != "" ) temp += ", ";
  241. temp += player.clanname;
  242. user += player.name;
  243. }
  244. }
  245. cli_execute("/whitelist " + temp);
  246. if (temp != get_clan_name())
  247. {print("Error!!");
  248. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  249. return;}
  250.  
  251. if (temp == get_clan_name())
  252. {
  253. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread \(Moon Amber\).");
  254. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  255. }
  256. string basement;
  257. basement = visit_url("clan_basement.php?fromabove=1");
  258. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  259. {
  260. chat_private(user, "No access to basement, please provide access, and try again.");
  261. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  262. cli_execute("/whitelist thud");
  263. return;
  264. }
  265. // string logs = visit_url("clan_raidlogs.php");
  266. // if (logs.contains_text("acquired a chunk of moon-amber"))
  267. // {
  268. // buffer raidlog = visit_url("clan_raidlogs.php");
  269. // string pattern = "<br>(\\w+) \\(#\\d+\\) acquired a chunk of moon-amber \\(1 turn\\)<br>";
  270. // matcher m = create_matcher(pattern, raidlog);
  271. // int[string] kills;
  272. // if (m.find())
  273. // {
  274. // print_html(m.group(1) + " retrieved the moon-amber");
  275. // chat_private(sender, " " + m.group(1) + " retrieved the moon-amber already.");
  276. // }
  277. // cli_execute("/whitelist thud");
  278. // return;
  279. // }
  280. print("Checking the Tallest Tree");
  281. visit_url("clan_dreadsylvania.php?action=forceloc&loc=2");
  282. visit_url("choice.php?pwd&whichchoice=725&option=1"); //climb to top
  283. visit_url("choice.php?pwd&whichchoice=726&option=3"); //grab moon amber
  284. visit_url("choice.php?pwd&whichchoice=726&option=6"); //climb back down
  285. visit_url("choice.php?pwd&whichchoice=725&option=6"); //leave (ha ha)
  286. if ($item[moon-amber].available_amount() >= 1 )
  287. {
  288. chat_private(sender, "Got the moon amber, sending now");
  289. cli_execute("send moon-amber, to " + sender );
  290. cli_execute("/whitelist thud");
  291. }
  292.  
  293. else
  294. {
  295. string logs = visit_url("clan_raidlogs.php");
  296. if (logs.contains_text("acquired a chunk of moon-amber"))
  297. {
  298. chat_private(sender, "Someone has already retrieved the moon-amber");
  299. }
  300. cli_execute("/whitelist thud");
  301. return;
  302. }
  303.  
  304.  
  305. return; }
  306. return; }
  307.  
  308. if(contains_text(to_lower_case(message), "bone"))
  309. {
  310. chat_private(sender, "Attempting to make bone flour");
  311. if ($item[old dry bone].available_amount() < 1 )
  312. { chat_private(sender, "I have no old dry bone, if you send me one, I can attempt to make flour");
  313. return; }
  314. chat_private(sender , "Make bone flour. Your wish is my command.");
  315. record note
  316. {
  317. string sender;
  318. int date;
  319. }
  320. [int] ChatLog;
  321.  
  322. int NE= count(ChatLog);
  323. ChatLog[NE].sender= sender;
  324. Map_to_File(ChatLog,"Chatlog.txt");
  325. {
  326. string [int] my_list;
  327. file_to_map( "chatlog.txt" , my_list);
  328. playerdata player;
  329. string temp = "";
  330. string user = "";
  331. foreach i,playername in my_list
  332. {
  333. player = GetPlayer( playername );
  334. if( player.name != "" )
  335. {
  336. if( temp != "" ) temp += ", ";
  337. temp += player.clanname;
  338. user += player.name;
  339. }
  340. }
  341. cli_execute("/whitelist " + temp);
  342. if (temp != get_clan_name())
  343. {print("Error!!");
  344. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  345. return;}
  346.  
  347. if (temp == get_clan_name())
  348. {
  349. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread \(Bone Flour\).");
  350. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  351. string basement;
  352. basement = visit_url("clan_basement.php?fromabove=1");
  353. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  354. {
  355. chat_private(sender, "No access to basement, please provide access, and try again.");
  356. cli_execute("/whitelist thud");
  357. return; }
  358. print("Checking the Cabin");
  359. visit_url("clan_dreadsylvania.php?action=forceloc&loc=1");
  360. visit_url("choice.php?pwd&whichchoice=721&option=1"); //check out kitchen
  361. visit_url("choice.php?pwd&whichchoice=722&option=2"); //screw around with mill
  362. visit_url("choice.php?pwd&whichchoice=722&option=4"); //back out
  363. visit_url("choice.php?pwd&whichchoice=721&option=5"); //
  364. if ($item[bone flour].available_amount() >= 1 )
  365. { chat_private(sender, "Got the bone flour, sending now");
  366. cli_execute("send bone flour, to " + sender ); }
  367. else
  368. { chat_private(sender, "There was an issue making the bone flour. Perhaps i'ves already made some? I'm returning the old dry bone.");
  369. if ($item[old dry bone].available_amount() >= 1 )
  370. cli_execute("send old dry bone, to " + sender ); }
  371. cli_execute("/whitelist thud");
  372. return;
  373. }return;}return;}
  374.  
  375.  
  376. if(contains_text(to_lower_case(message), "wolves"))
  377. { chat_private(sender , "Banish Wolves. Your wish is my command.");
  378. record note
  379. {
  380. string sender;
  381. int date;
  382. }
  383. [int] ChatLog;
  384.  
  385. int NE= count(ChatLog);
  386. ChatLog[NE].sender= sender;
  387. Map_to_File(ChatLog,"Chatlog.txt");
  388. {
  389. string [int] my_list;
  390. file_to_map( "chatlog.txt" , my_list);
  391. playerdata player;
  392. string temp = "";
  393. string user = "";
  394. foreach i,playername in my_list
  395. {
  396. player = GetPlayer( playername );
  397. if( player.name != "" )
  398. {
  399. if( temp != "" ) temp += ", ";
  400. temp += player.clanname;
  401. user += player.name;
  402. }
  403. }
  404. cli_execute("/whitelist " + temp);
  405. if (temp != get_clan_name())
  406. {print("Error!!");
  407. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  408. return;}
  409.  
  410. if (temp == get_clan_name())
  411. {
  412. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread \(Wolves\).");
  413. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  414. string basement;
  415. basement = visit_url("clan_basement.php?fromabove=1");
  416. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  417. {
  418. chat_private(user, "No access to basement, please provide access, and try again.");
  419. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  420. cli_execute("/whitelist thud");
  421. return; }
  422. print("Checking out the lock on the Cabin first");
  423. string log = visit_url( "clan_raidlogs.php" );
  424. {
  425. if(log.contains_text( ") unlocked the attic of the cabin" ))
  426. { chat_private(user, "The attic of the cabin has been unlocked. Continuing wish banish"); }
  427. else
  428. { chat_private(user, "The attic of the cabin has not been unlocked yet. Unlock, and try again please.");
  429. cli_execute("/whitelist thud"); return; }
  430.  
  431. print("Checking out the lock on the Master Suite next");
  432. if(log.contains_text( ") unlocked the master suite" ))
  433. { chat_private(user, "The master suite has been unlocked, initiating banish"); }
  434. else
  435. { chat_private(user, "The master suite has not been unlocked yet. Unlock, and try again please.");
  436. cli_execute("/whitelist thud"); return; }
  437. }
  438. { string [int] drove;
  439. foreach place in $strings[some werewolves out of the forest]
  440. {
  441. drove = split_string(log, place);
  442. if(count(drove) == 3)
  443. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " times. No banishing needed in this zone");
  444. cli_execute("/whitelist thud"); return; }
  445. else if(count(drove) == 2)
  446. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " time. Continuing with banish"); }
  447. else { chat_private(user, "No one drove " + place); }
  448. cli_execute("call unlockdread.ash wolves");
  449. chat_private(user, "Werewolves have been banished.");
  450. }}
  451. cli_execute("/whitelist Thud!");
  452. return; }}
  453. }
  454.  
  455. if(contains_text(to_lower_case(message), "skeletons"))
  456. { chat_private(sender , "Banish Skeletons. Your wish is my command.");
  457. record note
  458. {
  459. string sender;
  460. int date;
  461. }
  462. [int] ChatLog;
  463.  
  464. int NE= count(ChatLog);
  465. ChatLog[NE].sender= sender;
  466. Map_to_File(ChatLog,"Chatlog.txt");
  467. {
  468. string [int] my_list;
  469. file_to_map( "chatlog.txt" , my_list);
  470. playerdata player;
  471. string temp = "";
  472. string user = "";
  473. foreach i,playername in my_list
  474. {
  475. player = GetPlayer( playername );
  476. if( player.name != "" )
  477. {
  478. if( temp != "" ) temp += ", ";
  479. temp += player.clanname;
  480. user += player.name;
  481. }
  482. }
  483. cli_execute("/whitelist " + temp);
  484. if (temp != get_clan_name())
  485. {print("Error!!");
  486. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  487. return;}
  488.  
  489. if (temp == get_clan_name())
  490. {
  491. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Skeletons\)");
  492. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  493. string basement;
  494. basement = visit_url("clan_basement.php?fromabove=1");
  495. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  496. {
  497. chat_private(user, "No access to basement, please provide access, and try again.");
  498. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  499. cli_execute("/whitelist thud");
  500. return; }
  501. chat_private(user, "I am a Turtle Tamer, I will only banish skeletons from Skid Row");
  502. string log = visit_url( "clan_raidlogs.php" );
  503. { string [int] drove;
  504. foreach place in $strings[some skeletons out of the castle]
  505. {
  506. drove = split_string(log, place);
  507. if(count(drove) == 3)
  508. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " times. No banishing needed in this zone");
  509. cli_execute("/whitelist thud"); return; }
  510. else if(count(drove) == 2)
  511. { chat_private(user, "Some one drove " + place+ " " + (count(drove) - 1) + " time. Continuing with banish"); }
  512. else { chat_private(user, "No one banished " + place); }
  513. cli_execute("call unlockdread.ash skeletons");
  514. }}
  515. cli_execute("/whitelist Thud!");
  516. return; }}
  517. }
  518.  
  519. if(contains_text(to_lower_case(message), "zombies"))
  520. { chat_private(sender , "Banish Zombies. Your wish is my command.");
  521. record note
  522. {
  523. string sender;
  524. int date;
  525. }
  526. [int] ChatLog;
  527.  
  528. int NE= count(ChatLog);
  529. ChatLog[NE].sender= sender;
  530. Map_to_File(ChatLog,"Chatlog.txt");
  531. {
  532. string [int] my_list;
  533. file_to_map( "chatlog.txt" , my_list);
  534. playerdata player;
  535. string temp = "";
  536. string user = "";
  537. foreach i,playername in my_list
  538. {
  539. player = GetPlayer( playername );
  540. if( player.name != "" )
  541. {
  542. if( temp != "" ) temp += ", ";
  543. temp += player.clanname;
  544. user += player.name;
  545. }
  546. }
  547. cli_execute("/whitelist " + temp);
  548. if (temp != get_clan_name())
  549. {print("Error!!");
  550. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  551. return;}
  552.  
  553. if (temp == get_clan_name())
  554. {
  555. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Zombies\)");
  556. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  557. string basement;
  558. basement = visit_url("clan_basement.php?fromabove=1");
  559. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  560. {
  561. chat_private(user, "No access to basement, please provide access, and try again.");
  562. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  563. cli_execute("/whitelist thud");
  564. return; }
  565. print("Checking out the lock on the Tower first");
  566. string log = visit_url( "clan_raidlogs.php" );
  567. {
  568. if(log.contains_text( ") unlocked the lab" ))
  569. { chat_private(user, "The tower has been unlocked, initiating banish"); }
  570. else
  571. { chat_private(user, "The tower has not been unlocked yet. Unlock, and try again please");
  572. cli_execute("/whitelist thud"); return;}
  573. }
  574. //duke's estate
  575. { string [int] drove;
  576. foreach place in $strings[some zombies out of the village]
  577. { if(count(drove) == 3)
  578. { chat_private(user, "Someone already drove " + place+ " " + (count(drove) - 1) + " times. No banishing needed in this zone");
  579. cli_execute("/whitelist thud"); return; }
  580. else if(count(drove) == 2)
  581. { chat_private(user, "Someone already drove " + place+ " " + (count(drove) - 1) + " time. Continuing with banish"); }
  582. else { chat_private(user, "No one drove " + place + " continuing with banish"); }
  583. cli_execute("call unlockdread.ash zombies");
  584. chat_private(user, "Zombies have been banished.");
  585. }}
  586. cli_execute("/whitelist Thud!");
  587. return; }}
  588. }
  589.  
  590. if(contains_text(to_lower_case(message), "bugbears"))
  591. { chat_private(sender , "Banish Bugbears. Your wish is my command.");
  592. record note
  593. {
  594. string sender;
  595. int date;
  596. }
  597. [int] ChatLog;
  598.  
  599. int NE= count(ChatLog);
  600. ChatLog[NE].sender= sender;
  601. Map_to_File(ChatLog,"Chatlog.txt");
  602. {
  603. string [int] my_list;
  604. file_to_map( "chatlog.txt" , my_list);
  605. playerdata player;
  606. string temp = "";
  607. string user = "";
  608. foreach i,playername in my_list
  609. {
  610. player = GetPlayer( playername );
  611. if( player.name != "" )
  612. {
  613. if( temp != "" ) temp += ", ";
  614. temp += player.clanname;
  615. user += player.name;
  616. }
  617. }
  618. cli_execute("/whitelist " + temp);
  619. if (temp != get_clan_name())
  620. {print("Error!!");
  621. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  622. return;}
  623.  
  624. if (temp == get_clan_name())
  625. {
  626. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(BugBears\)");
  627. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  628. string basement;
  629. basement = visit_url("clan_basement.php?fromabove=1");
  630. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  631. {
  632. chat_private(user, "No access to basement, please provide access, and try again.");
  633. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  634. cli_execute("/whitelist thud");
  635. return; }
  636. print("Checking out the lock on the Fire Tower first");
  637. string log = visit_url( "clan_raidlogs.php" );
  638. {
  639. if(log.contains_text( ") unlocked the fire watchtower" ))
  640. { chat_private(user, "The fire watchtower has been unlocked, continuing"); }
  641. else
  642. { chat_private(user, "The fire watchtower has not been unlocked yet. Unlock, and try again please");
  643. cli_execute("/whitelist thud"); return; }
  644. }
  645.  
  646. print("Checking out the lock on the labratory next");
  647. {
  648. if(log.contains_text( ") unlocked the lab" ))
  649. { chat_private(user, "The labratory has also been unlocked, initiating banish"); }
  650. else
  651. { chat_private(user, "The labratory has not been unlocked yet. Unlock, and try again please");
  652. cli_execute("/whitelist thud"); return; }
  653. }
  654.  
  655. { string [int] drove;
  656. foreach place in $strings[bugbears out of the forest]
  657. {
  658. drove = split_string(log, place);
  659. if(count(drove) == 3)
  660. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " times already. No banishing needed in this zone");
  661. cli_execute("whitelist thud");
  662. return;}
  663. else if(count(drove) == 2)
  664. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " time. Continuing with banish"); }
  665. else { chat_private(user, "No one banished " + place + " continuing with banish"); }
  666. cli_execute("call unlockdread.ash bugbears");
  667. chat_private(user, "Bugbears have been banished.");
  668. }}
  669. cli_execute("/whitelist Thud!");
  670. return; }}
  671. }
  672.  
  673. if(contains_text(to_lower_case(message), "vampires"))
  674. {
  675. chat_private(sender , "Banish Vampires. Your wish is my command.");
  676. record note
  677. {
  678. string sender;
  679. int date;
  680. }
  681. [int] ChatLog;
  682.  
  683. int NE= count(ChatLog);
  684. ChatLog[NE].sender= sender;
  685. Map_to_File(ChatLog,"Chatlog.txt");
  686. {
  687. string [int] my_list;
  688. file_to_map( "chatlog.txt" , my_list);
  689. playerdata player;
  690. string temp = "";
  691. string user = "";
  692. foreach i,playername in my_list
  693. {
  694. player = GetPlayer( playername );
  695. if( player.name != "" )
  696. {
  697. if( temp != "" ) temp += ", ";
  698. temp += player.clanname;
  699. user += player.name;
  700. }
  701. }
  702. cli_execute("/whitelist " + temp);
  703. if (temp != get_clan_name())
  704. {print("Error!!");
  705. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  706. return;}
  707.  
  708. if (temp == get_clan_name())
  709. {
  710. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Vampires\)");
  711. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  712. string basement;
  713. basement = visit_url("clan_basement.php?fromabove=1");
  714. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  715. {
  716. chat_private(user, "No access to basement, please provide access, and try again.");
  717. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  718. cli_execute("/whitelist thud");
  719. return; }
  720.  
  721. print("Checking out the lock on the Cabin first");
  722.  
  723. string log = visit_url( "clan_raidlogs.php" );
  724. {
  725. if(log.contains_text( ") unlocked the attic of the cabin" ))
  726. { chat_private(user, "The attic of the cabin has been unlocked. Continuing with banish."); }
  727. else
  728. { chat_private(user, "The attic of the cabin has not been unlocked yet. Unlock, and try again please");
  729. cli_execute("/whitelist thud"); return; }
  730. }
  731.  
  732. print("Checking out the lock on the ballroom next");
  733. {
  734. if(log.contains_text( ") unlocked the ballroom" ))
  735. { chat_private(user, "The ballroom has been unlocked, initiating banish"); }
  736. else
  737. { chat_private(user, "The ballroom has not been unlocked yet. Unlock, and try again please");
  738. cli_execute("/whitelist thud"); return; }
  739. }
  740. { string [int] drove;
  741. foreach place in $strings[some vampires out of the castle]
  742. {
  743. drove = split_string(log, place);
  744. if(count(drove) == 3)
  745. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " times. No banishing needed in this zone");
  746. cli_execute("/whitelist thud"); return; }
  747. else if(count(drove) == 2)
  748. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " time. Continuing with banish"); }
  749. else { chat_private(user, "No one drove " + place); }
  750. cli_execute("call unlockdread.ash vampires");
  751. chat_private(user, "Vampires have been banished.");
  752. }}
  753.  
  754. cli_execute("/whitelist Thud!");
  755. return; }}
  756. }
  757.  
  758.  
  759. if(contains_text(to_lower_case(message), "ghosts"))
  760. { chat_private(sender , "Banish Ghosts. Your wish is my command.");
  761. record note
  762. {
  763. string sender;
  764. int date;
  765. }
  766. [int] ChatLog;
  767.  
  768. int NE= count(ChatLog);
  769. ChatLog[NE].sender= sender;
  770. Map_to_File(ChatLog,"Chatlog.txt");
  771. {
  772. string [int] my_list;
  773. file_to_map( "chatlog.txt" , my_list);
  774. playerdata player;
  775. string temp = "";
  776. string user = "";
  777. foreach i,playername in my_list
  778. {
  779. player = GetPlayer( playername );
  780. if( player.name != "" )
  781. {
  782. if( temp != "" ) temp += ", ";
  783. temp += player.clanname;
  784. user += player.name;
  785. }
  786. }
  787. cli_execute("/whitelist " + temp);
  788. if (temp != get_clan_name())
  789. {print("Error!!");
  790. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  791. return;}
  792.  
  793. if (temp == get_clan_name())
  794. {
  795. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread.\(Ghosts\)");
  796. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  797. string basement;
  798. basement = visit_url("clan_basement.php?fromabove=1");
  799. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  800. {
  801. chat_private(user, "No access to basement, please provide access, and try again.");
  802. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  803. cli_execute("/whitelist thud");
  804. return; }
  805. print("Checking out the lock on the Fire Tree first");
  806. string log = visit_url( "clan_raidlogs.php" );
  807. {
  808. if(log.contains_text( ") unlocked the fire watchtower" ))
  809. { chat_private(user, "The fire watchtower has been unlocked, continuing. "); }
  810. else
  811. { chat_private(user, "The fire watchtower has not been unlocked yet. Unlock, and try again please.");
  812. cli_execute("/whitelist thud"); return; }
  813. }
  814. print("Checking out the lock on the Schoolhouse next");
  815. {
  816. if(log.contains_text( ") unlocked the schoolhouse" ))
  817. { chat_private(user, "The schoolhouse has also been unlocked, initiating banish"); }
  818. else
  819. { chat_private(user, "The schoolhouse has not been unlocked yet. Unlock, and try again please.");
  820. cli_execute("/whitelist thud"); return; }
  821. }
  822. { string [int] drove;
  823. foreach place in $strings[some ghosts out of the village]
  824. {
  825. drove = split_string(log, place);
  826. if(count(drove) == 3)
  827. { chat_private(user, "Someone already drove " + place+ " " + (count(drove) - 1) + " times. No banishing needed in this zone");
  828. cli_execute("/whitelist thud");
  829. return; }
  830. else if(count(drove) == 2)
  831. { chat_private(user, "Someone drove " + place+ " " + (count(drove) - 1) + " times. Continuing with banish"); }
  832. else { chat_private(user, "No one drove " + place); }
  833. cli_execute("call unlockdread.ash ghosts");
  834. chat_private(user, "Ghosts have been banished.");
  835. }}
  836.  
  837. cli_execute("/whitelist Thud!");
  838. return; }}
  839. }
  840.  
  841. if(contains_text(to_lower_case(message), "villagesleazy"))
  842. { chat_private(sender , "Make Village less Sleazy. Your wish is my command.");
  843. record note
  844. {
  845. string sender;
  846. int date;
  847. }
  848. [int] ChatLog;
  849.  
  850. int NE= count(ChatLog);
  851. ChatLog[NE].sender= sender;
  852. Map_to_File(ChatLog,"Chatlog.txt");
  853. {
  854. string [int] my_list;
  855. file_to_map( "chatlog.txt" , my_list);
  856. playerdata player;
  857. string temp = "";
  858. string user = "";
  859. foreach i,playername in my_list
  860. {
  861. player = GetPlayer( playername );
  862. if( player.name != "" )
  863. {
  864. if( temp != "" ) temp += ", ";
  865. temp += player.clanname;
  866. user += player.name;
  867. }
  868. }
  869. cli_execute("/whitelist " + temp);
  870. if (temp != get_clan_name())
  871. {print("Error!!");
  872. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  873. return;}
  874.  
  875. if (temp == get_clan_name())
  876. {
  877. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Village Sleazy\)");
  878. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  879. string basement;
  880. basement = visit_url("clan_basement.php?fromabove=1");
  881. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  882. {
  883. chat_private(user, "No access to basement, please provide access, and try again.");
  884. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  885. cli_execute("/whitelist thud");
  886. return; }
  887. string log = visit_url( "clan_raidlogs.php" );
  888. if(log.contains_text( " made the village less sleazy" ))
  889. { chat_private(user, "The Village has been made less Sleazy already.");
  890. cli_execute("/whitelist Thud!");
  891. return; }
  892. cli_execute("call unlockdread.ash villagesleazy");
  893. chat_private(user , "I made it less Sleazy in the Village.");
  894. cli_execute("/whitelist Thud!");
  895. return; }}
  896. }
  897.  
  898. if(contains_text(to_lower_case(message), "villagestinky"))
  899. { chat_private(sender , "Make Village less Stinky. Your wish is my command.");
  900. record note
  901. {
  902. string sender;
  903. int date;
  904. }
  905. [int] ChatLog;
  906.  
  907. int NE= count(ChatLog);
  908. ChatLog[NE].sender= sender;
  909. Map_to_File(ChatLog,"Chatlog.txt");
  910. {
  911. string [int] my_list;
  912. file_to_map( "chatlog.txt" , my_list);
  913. playerdata player;
  914. string temp = "";
  915. string user = "";
  916. foreach i,playername in my_list
  917. {
  918. player = GetPlayer( playername );
  919. if( player.name != "" )
  920. {
  921. if( temp != "" ) temp += ", ";
  922. temp += player.clanname;
  923. user += player.name;
  924. }
  925. }
  926. cli_execute("/whitelist " + temp);
  927. if (temp != get_clan_name())
  928. {print("Error!!");
  929. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  930. return;}
  931.  
  932. if (temp == get_clan_name())
  933. {
  934. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Village Stinky\)");
  935. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  936. string basement;
  937. basement = visit_url("clan_basement.php?fromabove=1");
  938. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  939. {
  940. chat_private(user, "No access to basement, please provide access, and try again.");
  941. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  942. cli_execute("/whitelist thud");
  943. return; }
  944. string log = visit_url( "clan_raidlogs.php" );
  945. if(log.contains_text( " made the village less stinky "))
  946. { chat_private(user, "The Village has been made less Stinky already.");
  947. cli_execute("/whitelist Thud!");
  948. return; }
  949. cli_execute("call unlockdread.ash villagestinky");
  950. chat_private(user , "I made it less Stinky in the Village.");
  951. cli_execute("/whitelist Thud!");
  952. return; }}
  953. }
  954.  
  955.  
  956. if(contains_text(to_lower_case(message), "villagespooky"))
  957. { chat_private(sender , "Make Village less Spooky. Your wish is my command.");
  958. record note
  959. {
  960. string sender;
  961. int date;
  962. }
  963. [int] ChatLog;
  964.  
  965. int NE= count(ChatLog);
  966. ChatLog[NE].sender= sender;
  967. Map_to_File(ChatLog,"Chatlog.txt");
  968. {
  969. string [int] my_list;
  970. file_to_map( "chatlog.txt" , my_list);
  971. playerdata player;
  972. string temp = "";
  973. string user = "";
  974. foreach i,playername in my_list
  975. {
  976. player = GetPlayer( playername );
  977. if( player.name != "" )
  978. {
  979. if( temp != "" ) temp += ", ";
  980. temp += player.clanname;
  981. user += player.name;
  982. }
  983. }
  984. cli_execute("/whitelist " + temp);
  985. if (temp != get_clan_name())
  986. {print("Error!!");
  987. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  988. return;}
  989.  
  990. if (temp == get_clan_name())
  991. {
  992. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Village Spooky\)");
  993. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  994. string basement;
  995. basement = visit_url("clan_basement.php?fromabove=1");
  996. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  997. {
  998. chat_private(user, "No access to basement, please provide access, and try again.");
  999. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1000. cli_execute("/whitelist thud");
  1001. return; }
  1002. string log = visit_url( "clan_raidlogs.php" );
  1003. if(log.contains_text( " made the village less spooky "))
  1004. { chat_private(user, "The Village has been made less Spooky already.");
  1005. cli_execute("/whitelist Thud!");
  1006. return; }
  1007. cli_execute("call unlockdread.ash villagespooky");
  1008. chat_private(user , "I made it less Spooky in the Village.");
  1009. cli_execute("/whitelist Thud!");
  1010. return; }}
  1011. }
  1012.  
  1013.  
  1014. if(contains_text(to_lower_case(message), "villagecold"))
  1015. { chat_private(sender , "Make Village less Cold. Your wish is my command.");
  1016. record note
  1017. {
  1018. string sender;
  1019. int date;
  1020. }
  1021. [int] ChatLog;
  1022.  
  1023. int NE= count(ChatLog);
  1024. ChatLog[NE].sender= sender;
  1025. Map_to_File(ChatLog,"Chatlog.txt");
  1026. {
  1027. string [int] my_list;
  1028. file_to_map( "chatlog.txt" , my_list);
  1029. playerdata player;
  1030. string temp = "";
  1031. string user = "";
  1032. foreach i,playername in my_list
  1033. {
  1034. player = GetPlayer( playername );
  1035. if( player.name != "" )
  1036. {
  1037. if( temp != "" ) temp += ", ";
  1038. temp += player.clanname;
  1039. user += player.name;
  1040. }
  1041. }
  1042. cli_execute("/whitelist " + temp);
  1043. if (temp != get_clan_name())
  1044. {print("Error!!");
  1045. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1046. return;}
  1047.  
  1048. if (temp == get_clan_name())
  1049. {
  1050. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Village Cold\)");
  1051. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1052. string basement;
  1053. basement = visit_url("clan_basement.php?fromabove=1");
  1054. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1055. {
  1056. chat_private(user, "No access to basement, please provide access, and try again.");
  1057. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1058. cli_execute("/whitelist thud");
  1059. return; }
  1060. string log = visit_url( "clan_raidlogs.php" );
  1061. if(log.contains_text( " made the village less Cold "))
  1062. { chat_private(user, "The Village has been made less Cold already.");
  1063. cli_execute("/whitelist Thud!");
  1064. return; }
  1065. cli_execute("call unlockdread.ash villagecold");
  1066. chat_private(user , "I made it less Cold in the Village.");
  1067. cli_execute("/whitelist Thud!");
  1068. return; }}
  1069. }
  1070.  
  1071.  
  1072. if(contains_text(to_lower_case(message), "villagehot"))
  1073. { chat_private(sender , "Make Village less Hot. Your wish is my command.");
  1074. record note
  1075. {
  1076. string sender;
  1077. int date;
  1078. }
  1079. [int] ChatLog;
  1080.  
  1081. int NE= count(ChatLog);
  1082. ChatLog[NE].sender= sender;
  1083. Map_to_File(ChatLog,"Chatlog.txt");
  1084. {
  1085. string [int] my_list;
  1086. file_to_map( "chatlog.txt" , my_list);
  1087. playerdata player;
  1088. string temp = "";
  1089. string user = "";
  1090. foreach i,playername in my_list
  1091. {
  1092. player = GetPlayer( playername );
  1093. if( player.name != "" )
  1094. {
  1095. if( temp != "" ) temp += ", ";
  1096. temp += player.clanname;
  1097. user += player.name;
  1098. }
  1099. }
  1100. cli_execute("/whitelist " + temp);
  1101. if (temp != get_clan_name())
  1102. {print("Error!!");
  1103. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1104. return;}
  1105.  
  1106. if (temp == get_clan_name())
  1107. {
  1108. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Village Hot\)");
  1109. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1110. string basement;
  1111. basement = visit_url("clan_basement.php?fromabove=1");
  1112. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1113. {
  1114. chat_private(user, "No access to basement, please provide access, and try again.");
  1115. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1116. cli_execute("/whitelist thud");
  1117. return; }
  1118. string log = visit_url( "clan_raidlogs.php" );
  1119. if(log.contains_text( " made the village less hot" ))
  1120. { chat_private(user, "The Village has been made less Hot already.");
  1121. cli_execute("/whitelist Thud!");
  1122. return; }
  1123. cli_execute("call unlockdread.ash villagehot");
  1124. chat_private(user , "I made it less Hot in the Village.");
  1125. cli_execute("/whitelist Thud!");
  1126. return; }}
  1127. }
  1128.  
  1129.  
  1130. if(contains_text(to_lower_case(message), "castlesleazy"))
  1131. { chat_private(sender , "Make Castle less Sleazy. Your wish is my command.");
  1132. record note
  1133. {
  1134. string sender;
  1135. int date;
  1136. }
  1137. [int] ChatLog;
  1138.  
  1139. int NE= count(ChatLog);
  1140. ChatLog[NE].sender= sender;
  1141. Map_to_File(ChatLog,"Chatlog.txt");
  1142. {
  1143. string [int] my_list;
  1144. file_to_map( "chatlog.txt" , my_list);
  1145. playerdata player;
  1146. string temp = "";
  1147. string user = "";
  1148. foreach i,playername in my_list
  1149. {
  1150. player = GetPlayer( playername );
  1151. if( player.name != "" )
  1152. {
  1153. if( temp != "" ) temp += ", ";
  1154. temp += player.clanname;
  1155. user += player.name;
  1156. }
  1157. }
  1158. cli_execute("/whitelist " + temp);
  1159. if (temp != get_clan_name())
  1160. {print("Error!!");
  1161. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1162. return;}
  1163.  
  1164. if (temp == get_clan_name())
  1165. {
  1166. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Castle Sleaze\)");
  1167. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1168. string basement;
  1169. basement = visit_url("clan_basement.php?fromabove=1");
  1170. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1171. {
  1172. chat_private(user, "No access to basement, please provide access, and try again.");
  1173. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1174. cli_execute("/whitelist thud");
  1175. return; }
  1176. string log = visit_url( "clan_raidlogs.php" );
  1177. if(log.contains_text( " made the castle less sleazy" ))
  1178. { chat_private(user, "The Castle has been made less Sleazy already.");
  1179. cli_execute("/whitelist Thud!");
  1180. return; }
  1181. cli_execute("call unlockdread.ash castlesleazy");
  1182. chat_private(user , "I made it less Sleazy in the Castle.");
  1183. cli_execute("/whitelist Thud!");
  1184. return; }}
  1185. }
  1186.  
  1187.  
  1188. if(contains_text(to_lower_case(message), "castlestinky"))
  1189. { chat_private(sender , "Make Castle less Stinky. Your wish is my command.");
  1190. record note
  1191. {
  1192. string sender;
  1193. int date;
  1194. }
  1195. [int] ChatLog;
  1196.  
  1197. int NE= count(ChatLog);
  1198. ChatLog[NE].sender= sender;
  1199. Map_to_File(ChatLog,"Chatlog.txt");
  1200. {
  1201. string [int] my_list;
  1202. file_to_map( "chatlog.txt" , my_list);
  1203. playerdata player;
  1204. string temp = "";
  1205. string user = "";
  1206. foreach i,playername in my_list
  1207. {
  1208. player = GetPlayer( playername );
  1209. if( player.name != "" )
  1210. {
  1211. if( temp != "" ) temp += ", ";
  1212. temp += player.clanname;
  1213. user += player.name;
  1214. }
  1215. }
  1216. cli_execute("/whitelist " + temp);
  1217. if (temp != get_clan_name())
  1218. {print("Error!!");
  1219. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1220. return;}
  1221.  
  1222. if (temp == get_clan_name())
  1223. {
  1224. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Castle Stinky\)");
  1225. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1226. string basement;
  1227. basement = visit_url("clan_basement.php?fromabove=1");
  1228. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1229. {
  1230. chat_private(user, "No access to basement, please provide access, and try again.");
  1231. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1232. cli_execute("/whitelist thud");
  1233. return; }
  1234. string log = visit_url( "clan_raidlogs.php" );
  1235. if(log.contains_text( " made the castle less stinky" ))
  1236. { chat_private(user, "The Castle has been made less Stinky already.");
  1237. cli_execute("/whitelist Thud!");
  1238. return; }
  1239. cli_execute("call unlockdread.ash castlestinky");
  1240. chat_private(user , "I made it less Stinky in the Castle.");
  1241. cli_execute("/whitelist Thud!");
  1242. return; }}
  1243. }
  1244.  
  1245. if(contains_text(to_lower_case(message), "castlespooky"))
  1246. { chat_private(sender , "Make Castle less Spooky. Your wish is my command.");
  1247. record note
  1248. {
  1249. string sender;
  1250. int date;
  1251. }
  1252. [int] ChatLog;
  1253.  
  1254. int NE= count(ChatLog);
  1255. ChatLog[NE].sender= sender;
  1256. Map_to_File(ChatLog,"Chatlog.txt");
  1257. {
  1258. string [int] my_list;
  1259. file_to_map( "chatlog.txt" , my_list);
  1260. playerdata player;
  1261. string temp = "";
  1262. string user = "";
  1263. foreach i,playername in my_list
  1264. {
  1265. player = GetPlayer( playername );
  1266. if( player.name != "" )
  1267. {
  1268. if( temp != "" ) temp += ", ";
  1269. temp += player.clanname;
  1270. user += player.name;
  1271. }
  1272. }
  1273. cli_execute("/whitelist " + temp);
  1274. if (temp != get_clan_name())
  1275. {print("Error!!");
  1276. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1277. return;}
  1278.  
  1279. if (temp == get_clan_name())
  1280. {
  1281. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Castle Spooky\)");
  1282. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1283. string basement;
  1284. basement = visit_url("clan_basement.php?fromabove=1");
  1285. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1286. {
  1287. chat_private(user, "No access to basement, please provide access, and try again.");
  1288. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1289. cli_execute("/whitelist thud");
  1290. return; }
  1291. string log = visit_url( "clan_raidlogs.php" );
  1292. if(log.contains_text( " made the castle less spooky" ))
  1293. { chat_private(user, "The Castle has been made less Spooky already.");
  1294. cli_execute("/whitelist Thud!");
  1295. return; }
  1296. cli_execute("call unlockdread.ash castlespooky");
  1297. chat_private(user , "I made it less Spooky in the Castle.");
  1298. cli_execute("/whitelist Thud!");
  1299. return; }}
  1300. }
  1301.  
  1302. if(contains_text(to_lower_case(message), "castlecold"))
  1303. { chat_private(sender , "Make Castle less Cold. Your wish is my command.");
  1304. record note
  1305. {
  1306. string sender;
  1307. int date;
  1308. }
  1309. [int] ChatLog;
  1310.  
  1311. int NE= count(ChatLog);
  1312. ChatLog[NE].sender= sender;
  1313. Map_to_File(ChatLog,"Chatlog.txt");
  1314. {
  1315. string [int] my_list;
  1316. file_to_map( "chatlog.txt" , my_list);
  1317. playerdata player;
  1318. string temp = "";
  1319. string user = "";
  1320. foreach i,playername in my_list
  1321. {
  1322. player = GetPlayer( playername );
  1323. if( player.name != "" )
  1324. {
  1325. if( temp != "" ) temp += ", ";
  1326. temp += player.clanname;
  1327. user += player.name;
  1328. }
  1329. }
  1330. cli_execute("/whitelist " + temp);
  1331. if (temp != get_clan_name())
  1332. {print("Error!!");
  1333. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1334. return;}
  1335.  
  1336. if (temp == get_clan_name())
  1337. {
  1338. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Castle Cold\)");
  1339. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1340. string basement;
  1341. basement = visit_url("clan_basement.php?fromabove=1");
  1342. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1343. {
  1344. chat_private(user, "No access to basement, please provide access, and try again.");
  1345. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1346. cli_execute("/whitelist thud");
  1347. return; }
  1348. string log = visit_url( "clan_raidlogs.php" );
  1349. if(log.contains_text( " made the castle less cold" ))
  1350. { chat_private(user, "The Castle has been made less Cold already.");
  1351. cli_execute("/whitelist Thud!");
  1352. return; }
  1353. cli_execute("call unlockdread.ash castlecold");
  1354. chat_private(user , "I made it less Cold in the Castle.");
  1355. cli_execute("/whitelist Thud!");
  1356. return; }}
  1357. }
  1358.  
  1359. if(contains_text(to_lower_case(message), "castlehot"))
  1360. { chat_private(sender , "Make Castle less Hot. Your wish is my command.");
  1361. record note
  1362. {
  1363. string sender;
  1364. int date;
  1365. }
  1366. [int] ChatLog;
  1367.  
  1368. int NE= count(ChatLog);
  1369. ChatLog[NE].sender= sender;
  1370. Map_to_File(ChatLog,"Chatlog.txt");
  1371. {
  1372. string [int] my_list;
  1373. file_to_map( "chatlog.txt" , my_list);
  1374. playerdata player;
  1375. string temp = "";
  1376. string user = "";
  1377. foreach i,playername in my_list
  1378. {
  1379. player = GetPlayer( playername );
  1380. if( player.name != "" )
  1381. {
  1382. if( temp != "" ) temp += ", ";
  1383. temp += player.clanname;
  1384. user += player.name;
  1385. }
  1386. }
  1387. cli_execute("/whitelist " + temp);
  1388. if (temp != get_clan_name())
  1389. {print("Error!!");
  1390. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1391. return;}
  1392.  
  1393. if (temp == get_clan_name())
  1394. {
  1395. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Castle Hot\)");
  1396. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1397. string basement;
  1398. basement = visit_url("clan_basement.php?fromabove=1");
  1399. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1400. {
  1401. chat_private(user, "No access to basement, please provide access, and try again.");
  1402. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1403. cli_execute("/whitelist thud");
  1404. return; }
  1405. string log = visit_url( "clan_raidlogs.php" );
  1406. if(log.contains_text( " made the castle less hot" ))
  1407. { chat_private(user, "The Castle has been made less Hot already.");
  1408. cli_execute("/whitelist Thud!");
  1409. return; }
  1410. cli_execute("call unlockdread.ash castlehot");
  1411. chat_private(user , "I made it less Hot in the Castle.");
  1412. cli_execute("/whitelist Thud!");
  1413. return; }}
  1414. }
  1415.  
  1416. if(contains_text(to_lower_case(message), "forestsleazy"))
  1417. { chat_private(sender , "Make Forest less Sleazy. Your wish is my command.");
  1418. record note
  1419. {
  1420. string sender;
  1421. int date;
  1422. }
  1423. [int] ChatLog;
  1424.  
  1425. int NE= count(ChatLog);
  1426. ChatLog[NE].sender= sender;
  1427. Map_to_File(ChatLog,"Chatlog.txt");
  1428. {
  1429. string [int] my_list;
  1430. file_to_map( "chatlog.txt" , my_list);
  1431. playerdata player;
  1432. string temp = "";
  1433. string user = "";
  1434. foreach i,playername in my_list
  1435. {
  1436. player = GetPlayer( playername );
  1437. if( player.name != "" )
  1438. {
  1439. if( temp != "" ) temp += ", ";
  1440. temp += player.clanname;
  1441. user += player.name;
  1442. }
  1443. }
  1444. cli_execute("/whitelist " + temp);
  1445. if (temp != get_clan_name())
  1446. {print("Error!!");
  1447. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1448. return;}
  1449.  
  1450. if (temp == get_clan_name())
  1451. {
  1452. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Forest Sleazy\)");
  1453. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1454. string basement;
  1455. basement = visit_url("clan_basement.php?fromabove=1");
  1456. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1457. {
  1458. chat_private(user, "No access to basement, please provide access, and try again.");
  1459. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1460. cli_execute("/whitelist thud");
  1461. return; }
  1462. string log = visit_url( "clan_raidlogs.php" );
  1463. if(log.contains_text( " made the forest less sleazy" ))
  1464. { chat_private(user, "The Forest has been made less Sleazy already.");
  1465. cli_execute("/whitelist Thud!");
  1466. return; }
  1467. cli_execute("call unlockdread.ash forestsleazy");
  1468. chat_private(user , "I made it less Sleazy in the Forest.");
  1469. cli_execute("/whitelist Thud!");
  1470. return; }}
  1471. }
  1472.  
  1473. if(contains_text(to_lower_case(message), "foreststinky"))
  1474. { chat_private(sender , "Make Forest less Stinky. Your wish is my command.");
  1475. record note
  1476. {
  1477. string sender;
  1478. int date;
  1479. }
  1480. [int] ChatLog;
  1481.  
  1482. int NE= count(ChatLog);
  1483. ChatLog[NE].sender= sender;
  1484. Map_to_File(ChatLog,"Chatlog.txt");
  1485. {
  1486. string [int] my_list;
  1487. file_to_map( "chatlog.txt" , my_list);
  1488. playerdata player;
  1489. string temp = "";
  1490. string user = "";
  1491. foreach i,playername in my_list
  1492. {
  1493. player = GetPlayer( playername );
  1494. if( player.name != "" )
  1495. {
  1496. if( temp != "" ) temp += ", ";
  1497. temp += player.clanname;
  1498. user += player.name;
  1499. }
  1500. }
  1501. cli_execute("/whitelist " + temp);
  1502. if (temp != get_clan_name())
  1503. {print("Error!!");
  1504. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1505. return;}
  1506.  
  1507. if (temp == get_clan_name())
  1508. {
  1509. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Forest Stinky\)");
  1510. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1511. string basement;
  1512. basement = visit_url("clan_basement.php?fromabove=1");
  1513. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1514. {
  1515. chat_private(user, "No access to basement, please provide access, and try again.");
  1516. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1517. cli_execute("/whitelist thud");
  1518. return; }
  1519. string log = visit_url( "clan_raidlogs.php" );
  1520. if(log.contains_text( " made the forest less stinky" ))
  1521. { chat_private(user, "The Forest has been made less Stinky already.");
  1522. cli_execute("/whitelist Thud!");
  1523. return; }
  1524. cli_execute("call unlockdread.ash foreststinky");
  1525. chat_private(user , "I made it less Stinky in the Forest.");
  1526. cli_execute("/whitelist Thud!");
  1527. return; }}
  1528. }
  1529.  
  1530. if(contains_text(to_lower_case(message), "forestspooky"))
  1531. { chat_private(sender , "Make Forest less Spooky. Your wish is my command.");
  1532. record note
  1533. {
  1534. string sender;
  1535. int date;
  1536. }
  1537. [int] ChatLog;
  1538.  
  1539. int NE= count(ChatLog);
  1540. ChatLog[NE].sender= sender;
  1541. Map_to_File(ChatLog,"Chatlog.txt");
  1542. {
  1543. string [int] my_list;
  1544. file_to_map( "chatlog.txt" , my_list);
  1545. playerdata player;
  1546. string temp = "";
  1547. string user = "";
  1548. foreach i,playername in my_list
  1549. {
  1550. player = GetPlayer( playername );
  1551. if( player.name != "" )
  1552. {
  1553. if( temp != "" ) temp += ", ";
  1554. temp += player.clanname;
  1555. user += player.name;
  1556. }
  1557. }
  1558. cli_execute("/whitelist " + temp);
  1559. if (temp != get_clan_name())
  1560. {print("Error!!");
  1561. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1562. return;}
  1563.  
  1564. if (temp == get_clan_name())
  1565. {
  1566. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Forest Spooky\)");
  1567. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1568. string basement;
  1569. basement = visit_url("clan_basement.php?fromabove=1");
  1570. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1571. {
  1572. chat_private(user, "No access to basement, please provide access, and try again.");
  1573. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1574. cli_execute("/whitelist thud");
  1575. return; }
  1576. string log = visit_url( "clan_raidlogs.php" );
  1577. if(log.contains_text( " made the forest less spooky" ))
  1578. { chat_private(user, "The Forest has been made less Spooky already.");
  1579. cli_execute("/whitelist Thud!");
  1580. return; }
  1581. cli_execute("call unlockdread.ash forestspooky");
  1582. chat_private(user , "I made it less Spooky in the Forest.");
  1583. cli_execute("/whitelist Thud!");
  1584. return; }}
  1585. }
  1586.  
  1587. if(contains_text(to_lower_case(message), "forestcold"))
  1588. { chat_private(sender , "Make Forest less Cold. Your wish is my command.");
  1589. record note
  1590. {
  1591. string sender;
  1592. int date;
  1593. }
  1594. [int] ChatLog;
  1595.  
  1596. int NE= count(ChatLog);
  1597. ChatLog[NE].sender= sender;
  1598. Map_to_File(ChatLog,"Chatlog.txt");
  1599. {
  1600. string [int] my_list;
  1601. file_to_map( "chatlog.txt" , my_list);
  1602. playerdata player;
  1603. string temp = "";
  1604. string user = "";
  1605. foreach i,playername in my_list
  1606. {
  1607. player = GetPlayer( playername );
  1608. if( player.name != "" )
  1609. {
  1610. if( temp != "" ) temp += ", ";
  1611. temp += player.clanname;
  1612. user += player.name;
  1613. }
  1614. }
  1615. cli_execute("/whitelist " + temp);
  1616. if (temp != get_clan_name())
  1617. {print("Error!!");
  1618. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1619. return;}
  1620.  
  1621. if (temp == get_clan_name())
  1622. {
  1623. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Forest Cold\)");
  1624. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1625. string basement;
  1626. basement = visit_url("clan_basement.php?fromabove=1");
  1627. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1628. {
  1629. chat_private(user, "No access to basement, please provide access, and try again.");
  1630. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1631. cli_execute("/whitelist thud");
  1632. return; }
  1633. string log = visit_url( "clan_raidlogs.php" );
  1634. if(log.contains_text( " made the forest less cold" ))
  1635. { chat_private(user, "The Forest has been made less Cold already.");
  1636. cli_execute("/whitelist Thud!");
  1637. return; }
  1638. cli_execute("call unlockdread.ash forestcold");
  1639. chat_private(user , "I made it less Cold in the Forest.");
  1640. cli_execute("/whitelist Thud!");
  1641. return; }}
  1642. }
  1643.  
  1644. if(contains_text(to_lower_case(message), "foresthot"))
  1645. { chat_private(sender , "Make Forest less Hot. Your wish is my command.");
  1646. record note
  1647. {
  1648. string sender;
  1649. int date;
  1650. }
  1651. [int] ChatLog;
  1652.  
  1653. int NE= count(ChatLog);
  1654. ChatLog[NE].sender= sender;
  1655. Map_to_File(ChatLog,"Chatlog.txt");
  1656. {
  1657. string [int] my_list;
  1658. file_to_map( "chatlog.txt" , my_list);
  1659. playerdata player;
  1660. string temp = "";
  1661. string user = "";
  1662. foreach i,playername in my_list
  1663. {
  1664. player = GetPlayer( playername );
  1665. if( player.name != "" )
  1666. {
  1667. if( temp != "" ) temp += ", ";
  1668. temp += player.clanname;
  1669. user += player.name;
  1670. }
  1671. }
  1672. cli_execute("/whitelist " + temp);
  1673. if (temp != get_clan_name())
  1674. {print("Error!!");
  1675. chat_private(user, "I couldn't join your clan " + temp +", perhaps I don't have a whitelist?");
  1676. return;}
  1677.  
  1678. if (temp == get_clan_name())
  1679. {
  1680. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. \(Forest Hot\)");
  1681. chat_private(user, "I arrived to help with your instance of Dreadsylvania.");
  1682. string basement;
  1683. basement = visit_url("clan_basement.php?fromabove=1");
  1684. if (basement.contains_text("Your clan has a basement, but you are not allowed to enter clan dungeons, so this is as far as you're going, Gilbert."))
  1685. {
  1686. chat_private(user, "No access to basement, please provide access, and try again.");
  1687. chat_private("pazsox", "I went to clan " + temp + " to help " + user + " with dread. But had no dungeon access");
  1688. cli_execute("/whitelist thud");
  1689. return; }
  1690. string log = visit_url( "clan_raidlogs.php" );
  1691. if(log.contains_text( " made the forest less hot" ))
  1692. { chat_private(user, "The Forest has been made less Hot already.");
  1693. cli_execute("/whitelist Thud!");
  1694. return; }
  1695. cli_execute("call unlockdread.ash foresthot");
  1696. chat_private(user , "I made it less Hot in the Forest.");
  1697. cli_execute("/whitelist Thud!");
  1698. return; }}
  1699. }
  1700.  
  1701. if(contains_text(to_lower_case(message), "..."))
  1702. {
  1703. chat_private(sender, "Sorry that feature has been removed");
  1704. }
  1705.  
  1706. if(contains_text(to_lower_case(message), "bat"))
  1707. {
  1708. cli_execute("/whitelist p/r/f/t");
  1709. cli_execute("fax get");
  1710. cli_execute("/whitelist thud");
  1711. cli_execute("fax send");
  1712. chat_private(sender, "Rubber Bat has been faxed in");
  1713. return;
  1714. }
  1715.  
  1716. chat_private(sender , "I'm sorry, I don't understand that. Human isn't my first language.");
  1717.  
  1718. }
  1719. if (channel=="Events")
  1720. {
  1721. if(contains_text(to_lower_case(message), "new message received from"))
  1722. {
  1723. print("Incoming k-mail!");
  1724. return;
  1725. }
  1726.  
  1727. if(contains_text(to_lower_case(message), "logged off"))
  1728. {
  1729. chat_clan(message);
  1730. return;
  1731. }
  1732.  
  1733. if(contains_text(to_lower_case(message), "logged on"))
  1734. {
  1735. chat_clan(message + " beep boop");
  1736. return;
  1737. }
  1738.  
  1739. if(contains_text(to_lower_case(message), "zatara"))
  1740. {
  1741. checking_zatara();
  1742. return;
  1743. }
  1744.  
  1745. }
  1746. else
  1747. //Below is how the bot responds to active chat
  1748. {
  1749. print("Listening to "+channel+", Incoming from: " +sender+ " saying: "+message);
  1750.  
  1751. // If you are activly watching the chat screen with your bot active, and actually say something, this will ignore anything you say
  1752.  
  1753. if(contains_text(to_lower_case(sender), my_name() ))
  1754. {
  1755. return;
  1756. }
  1757. cli_execute("call whitelist.ash");
  1758. if(contains_text(to_lower_case(message), "wind-up spider" ))
  1759. {
  1760. int spider = available_amount($item[wind-up spider]);
  1761. if ($item[wind-up spider].available_amount() == 0)
  1762. {
  1763. chat_clan("Send me a wind-up spider. I currently have " + spider + " spiders. PM me \"throw wind-up spider at \[USER\]\". If they are not in HC, or Ronin, I will send it.");
  1764. }
  1765. if ($item[wind-up spider].available_amount() >= 1)
  1766. {
  1767. chat_clan("I currently have " + spider + " spiders. PM me \"throw wind-up spider at \[USER\]\". If they are not in HC, or Ronin, I will send it.");
  1768. }
  1769. return;
  1770. }
  1771. if(contains_text(to_lower_case(message), "dances with "+ my_name() ))
  1772. {
  1773. waitq(1);
  1774. chat_clan(randomdance() +sender);
  1775. return; }
  1776. if(contains_text(to_lower_case(message), "does the robot with "+ my_name() ))
  1777. {
  1778. waitq(1);
  1779. chat_clan("/me does the human with " + sender);
  1780. return; }
  1781. if(contains_text(to_lower_case(message), "hi " + my_name() ))
  1782. {
  1783. chat_clan("Hi " +sender+"! \(beep boop\) I'm in bot mode. PM me HELP");
  1784. return; }
  1785. if(contains_text(to_lower_case(message), "you're stupid " + my_name() ))
  1786. {
  1787. chat_clan("I'm not stupid, just programmed wrong.");
  1788. return; }
  1789. if(contains_text(to_lower_case(message), "i love you " + my_name() ))
  1790. {
  1791. chat_clan("Aww, That's so nice " +sender+"! \(boop beep\) I love you too");
  1792. return; }
  1793. if(contains_text(to_lower_case(message), my_name() + "?"))
  1794. {
  1795. chat_clan("yes? \(beep boop\) PM me \"help\" for commands I understand \(boop beep\)");
  1796. return; }
  1797. if(contains_text(to_lower_case(sender), "pazsox"))
  1798. {
  1799. set_property("pazsoxseenday", now_to_string("EEE"));
  1800. set_property("pazsoxseentime", now_to_string("hh:mm a"));
  1801. set_property("pazsoxsaid", message);
  1802. }
  1803. if(contains_text(to_lower_case(message), "seen pazsox"))
  1804. {
  1805. chat_clan("PazSox was last seen " + get_property("pazsoxseenday") + " " + get_property("pazsoxseentime") + ", and said: " + get_property("pazsoxsaid"));
  1806. }
  1807. if(contains_text(to_lower_case(sender), "adrien"))
  1808. {
  1809. set_property("adrienseenday", now_to_string("EEE"));
  1810. set_property("adrienseentime", now_to_string("hh:mm a"));
  1811. set_property("adriensaid", message);
  1812. }
  1813. if(contains_text(to_lower_case(message), "seen adrien"))
  1814. {
  1815. chat_clan("adrien was last seen " + get_property("adrienseenday") + " " + get_property("adrienseentime") + ", and said: " + get_property("adriensaid"));
  1816. }
  1817. if(contains_text(to_lower_case(sender), "anchon"))
  1818. {
  1819. set_property("anchonseenday", now_to_string("EEE"));
  1820. set_property("anchonseentime", now_to_string("hh:mm a"));
  1821. set_property("anchonsaid", message);
  1822. }
  1823. if(contains_text(to_lower_case(message), "seen anchon"))
  1824. {
  1825. chat_clan("anchon was last seen " + get_property("anchonseenday") + " " + get_property("anchonseentime") + ", and said: " + get_property("anchonsaid"));
  1826. }
  1827. if(contains_text(to_lower_case(sender), "aubra"))
  1828. {
  1829. set_property("aubraseenday", now_to_string("EEE"));
  1830. set_property("aubraseentime", now_to_string("hh:mm a"));
  1831. set_property("aubrasaid", message);
  1832. }
  1833. if(contains_text(to_lower_case(message), "seen aubra"))
  1834. {
  1835. chat_clan("aubra was last seen " + get_property("aubraseenday") + " " + get_property("aubraseentime") + ", and said: " + get_property("aubrasaid"));
  1836. }
  1837. if(contains_text(to_lower_case(sender), "bale"))
  1838. {
  1839. set_property("baleseenday", now_to_string("EEE"));
  1840. set_property("baleseentime", now_to_string("hh:mm a"));
  1841. set_property("balesaid", message);
  1842. }
  1843. if(contains_text(to_lower_case(message), "seen bale"))
  1844. {
  1845. chat_clan("bale was last seen " + get_property("baleseenday") + " " + get_property("baleseentime") + ", and said: " + get_property("balesaid"));
  1846. }
  1847. if(contains_text(to_lower_case(sender), "curiosity"))
  1848. {
  1849. set_property("curiosityseenday", now_to_string("EEE"));
  1850. set_property("curiosityseentime", now_to_string("hh:mm a"));
  1851. set_property("curiositysaid", message);
  1852. }
  1853. if(contains_text(to_lower_case(message), "seen curiosity"))
  1854. {
  1855. chat_clan("curiosity was last seen " + get_property("curiosityseenday") + " " + get_property("curiosityseentime") + ", and said: " + get_property("curiositysaid"));
  1856. }
  1857. if(contains_text(to_lower_case(sender), "dread pirate roberts1"))
  1858. {
  1859. set_property("dread pirate roberts1seenday", now_to_string("EEE"));
  1860. set_property("dread pirate roberts1seentime", now_to_string("hh:mm a"));
  1861. set_property("dread pirate roberts1said", message);
  1862. }
  1863. if(contains_text(to_lower_case(message), "seen dread pirate roberts1"))
  1864. {
  1865. chat_clan("dread pirate roberts1 was last seen " + get_property("dread pirate roberts1seenday") + " " + get_property("dread pirate roberts1seentime") + ", and said: " + get_property("dread pirate roberts1said"));
  1866. }
  1867. if(contains_text(to_lower_case(sender), "ereinion"))
  1868. {
  1869. set_property("ereinionseenday", now_to_string("EEE"));
  1870. set_property("ereinionseentime", now_to_string("hh:mm a"));
  1871. set_property("ereinionsaid", message);
  1872. }
  1873. if(contains_text(to_lower_case(message), "seen ereinion"))
  1874. {
  1875. chat_clan("ereinion was last seen " + get_property("ereinionseenday") + " " + get_property("ereinionseentime") + ", and said: " + get_property("ereinionsaid"));
  1876. }
  1877. if(contains_text(to_lower_case(sender), "hugbert"))
  1878. {
  1879. set_property("hugbertseenday", now_to_string("EEE"));
  1880. set_property("hugbertseentime", now_to_string("hh:mm a"));
  1881. set_property("hugbertsaid", message);
  1882. }
  1883. if(contains_text(to_lower_case(message), "seen hugbert"))
  1884. {
  1885. chat_clan("hugbert was last seen " + get_property("hugbertseenday") + " " + get_property("hugbertseentime") + ", and said: " + get_property("hugbertsaid"));
  1886. }
  1887. if(contains_text(to_lower_case(sender), "king stupid"))
  1888. {
  1889. set_property("king stupidseenday", now_to_string("EEE"));
  1890. set_property("king stupidseentime", now_to_string("hh:mm a"));
  1891. set_property("king stupidsaid", message);
  1892. }
  1893. if(contains_text(to_lower_case(message), "seen king stupid"))
  1894. {
  1895. chat_clan("king stupid was last seen " + get_property("king stupidseenday") + " " + get_property("king stupidseentime") + ", and said: " + get_property("king stupidsaid"));
  1896. }
  1897. if(contains_text(to_lower_case(sender), "kolhs"))
  1898. {
  1899. set_property("kolhsseenday", now_to_string("EEE"));
  1900. set_property("kolhsseentime", now_to_string("hh:mm a"));
  1901. set_property("kolhssaid", message);
  1902. }
  1903. if(contains_text(to_lower_case(message), "seen kolhs"))
  1904. {
  1905. chat_clan("kolhs was last seen " + get_property("kolhsseenday") + " " + get_property("kolhsseentime") + ", and said: " + get_property("kolhssaid"));
  1906. }
  1907. if(contains_text(to_lower_case(sender), "laidak"))
  1908. {
  1909. set_property("laidakseenday", now_to_string("EEE"));
  1910. set_property("laidakseentime", now_to_string("hh:mm a"));
  1911. set_property("laidaksaid", message);
  1912. }
  1913. if(contains_text(to_lower_case(message), "seen laidak"))
  1914. {
  1915. chat_clan("laidAK was last seen " + get_property("laidakseenday") + " " + get_property("laidakseentime") + ", and said: " + get_property("laidaksaid"));
  1916. }
  1917. if(contains_text(to_lower_case(sender), "mana yachanichu"))
  1918. {
  1919. set_property("mana yachanichuseenday", now_to_string("EEE"));
  1920. set_property("mana yachanichuseentime", now_to_string("hh:mm a"));
  1921. set_property("mana yachanichusaid", message);
  1922. }
  1923. if(contains_text(to_lower_case(message), "seen mana"))
  1924. {
  1925. chat_clan("mana yachanichu was last seen " + get_property("mana yachanichuseenday") + " " + get_property("mana yachanichuseentime") + ", and said: " + get_property("mana yachanichusaid"));
  1926. }
  1927. if(contains_text(to_lower_case(sender), "mareng9"))
  1928. {
  1929. set_property("mareng9seenday", now_to_string("EEE"));
  1930. set_property("mareng9seentime", now_to_string("hh:mm a"));
  1931. set_property("mareng9said", message);
  1932. }
  1933. if(contains_text(to_lower_case(message), "seen mareng9"))
  1934. {
  1935. chat_clan("mareng9 was last seen " + get_property("mareng9seenday") + " " + get_property("mareng9seentime") + ", and said: " + get_property("mareng9said"));
  1936. }
  1937. if(contains_text(to_lower_case(sender), "mastersilex"))
  1938. {
  1939. set_property("mastersilexseenday", now_to_string("EEE"));
  1940. set_property("mastersilexseentime", now_to_string("hh:mm a"));
  1941. set_property("mastersilexsaid", message);
  1942. }
  1943. if(contains_text(to_lower_case(message), "seen mastersilex"))
  1944. {
  1945. chat_clan("mastersilex was last seen " + get_property("mastersilexseenday") + " " + get_property("mastersilexseentime") + ", and said: " + get_property("mastersilexsaid"));
  1946. }
  1947. if(contains_text(to_lower_case(sender), "nienor"))
  1948. {
  1949. set_property("nienorseenday", now_to_string("EEE"));
  1950. set_property("nienorseentime", now_to_string("hh:mm a"));
  1951. set_property("nienorsaid", message);
  1952. }
  1953. if(contains_text(to_lower_case(message), "seen nienor"))
  1954. {
  1955. chat_clan("nienor was last seen " + get_property("nienorseenday") + " " + get_property("nienorseentime") + ", and said: " + get_property("nienorsaid"));
  1956. }
  1957. if(contains_text(to_lower_case(sender), "rusomoso"))
  1958. {
  1959. set_property("rusomososeenday", now_to_string("EEE"));
  1960. set_property("rusomososeentime", now_to_string("hh:mm a"));
  1961. set_property("rusomososaid", message);
  1962. }
  1963. if(contains_text(to_lower_case(message), "seen rusomoso"))
  1964. {
  1965. chat_clan("rusomoso was last seen " + get_property("rusomososeenday") + " " + get_property("rusomososeentime") + ", and said: " + get_property("rusomososaid"));
  1966. }
  1967.  
  1968. if(contains_text(to_lower_case(sender), "violetinsane"))
  1969. {
  1970. set_property("violetinsaneseenday", now_to_string("EEE"));
  1971. set_property("violetinsaneseentime", now_to_string("hh:mm a"));
  1972. set_property("violetinsanesaid", message);
  1973. }
  1974. if(contains_text(to_lower_case(message), "seen violetinsane"))
  1975. {
  1976. chat_clan("violetinsane was last seen " + get_property("violetinsaneseenday") + " " + get_property("violetinsaneseentime") + ", and said: " + get_property("violetinsanesaid"));
  1977. }
  1978. if(contains_text(to_lower_case(sender), "skf"))
  1979. {
  1980. set_property("skfseenday", now_to_string("EEE"));
  1981. set_property("skfseentime", now_to_string("hh:mm a"));
  1982. set_property("skfsaid", message);
  1983. }
  1984. if(contains_text(to_lower_case(message), "seen skf"))
  1985. {
  1986. chat_clan("skf was last seen " + get_property("skfseenday") + " " + get_property("skfseentime") + ", and said: " + get_property("skfsaid"));
  1987. }
  1988. if(contains_text(to_lower_case(sender), "strangerer"))
  1989. {
  1990. set_property("strangererseenday", now_to_string("EEE"));
  1991. set_property("strangererseentime", now_to_string("hh:mm a"));
  1992. set_property("strangerersaid", message);
  1993. }
  1994. if(contains_text(to_lower_case(message), "seen strangerer"))
  1995. {
  1996. chat_clan("strangerer was last seen " + get_property("strangererseenday") + " " + get_property("strangererseentime") + ", and said: " + get_property("strangerersaid"));
  1997. }
  1998. if(contains_text(to_lower_case(sender), "syi"))
  1999. {
  2000. set_property("syiseenday", now_to_string("EEE"));
  2001. set_property("syiseentime", now_to_string("hh:mm a"));
  2002. set_property("syisaid", message);
  2003. }
  2004. if(contains_text(to_lower_case(message), "seen syi"))
  2005. {
  2006. chat_clan("syi was last seen " + get_property("syiseenday") + " " + get_property("syiseentime") + ", and said: " + get_property("syisaid"));
  2007. }
  2008. if(contains_text(to_lower_case(sender), "tophat"))
  2009. {
  2010. set_property("tophatseenday", now_to_string("EEE"));
  2011. set_property("tophatseentime", now_to_string("hh:mm a"));
  2012. set_property("tophatsaid", message);
  2013. }
  2014. if(contains_text(to_lower_case(message), "seen tophat"))
  2015. {
  2016. chat_clan("tophat was last seen " + get_property("tophatseenday") + " " + get_property("tophatseentime") + ", and said: " + get_property("tophatsaid"));
  2017. }
  2018. if(contains_text(to_lower_case(sender), "cowmanbob"))
  2019. {
  2020. set_property("cowmanbobseenday", now_to_string("EEE"));
  2021. set_property("cowmanbobseentime", now_to_string("hh:mm a"));
  2022. set_property("cowmanbobsaid", message);
  2023. }
  2024. if(contains_text(to_lower_case(message), "seen cowmanbob"))
  2025. {
  2026. chat_clan("cowmanbob was last seen " + get_property("cowmanbobseenday") + " " + get_property("cowmanbobseentime") + ", and said: " + get_property("cowmanbobsaid"));
  2027. }
  2028. }
  2029.  
  2030.  
  2031. if(contains_text(to_lower_case(message), "kills"))
  2032. { cli_execute("call kills.ash");
  2033. return;
  2034. }
  2035.  
  2036. if(contains_text(to_lower_case(message), "pig"))
  2037. { chat_clan("Oink (^@^)~");
  2038. return;
  2039. }
  2040. if(contains_text(to_lower_case(message), "dog"))
  2041. { chat_clan("Woof");
  2042. return;
  2043. }
  2044. if(contains_text(to_lower_case(message), "cow"))
  2045. { chat_clan("Mooo");
  2046. return;
  2047. }
  2048. if(contains_text(to_lower_case(message), "ruby stash"))
  2049. { cli_execute("Call stash.ash");
  2050. return;
  2051. }
  2052.  
  2053. int timetoroll = to_int(get_property("_timetoroll"));
  2054.  
  2055. if(timetoroll+5000 < to_int(now_to_string("HHmmss"))) {
  2056. chat_private("ruby", "hi");
  2057. set_property("_timetoroll", now_to_string("HHmmss")); }
  2058.  
  2059.  
  2060. }
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!