changeset 70:56c00d32d570 misc

Added a very ad-hoc script for getting nun saint information to log for later processing.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 10 Mar 2010 12:13:46 +0000
parents e8a24520d8d8
children 3eca3030c175
files getsaints.tf
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/getsaints.tf	Wed Mar 10 12:13:46 2010 +0000
@@ -0,0 +1,15 @@
+/set saint_list=Lun Tran Gayn Yban Hesa Gaen Suvia Vaven Gausa Elein Qowia Loari Fylia Bymma Yuwen Unaen Agran Tilan Tassa Crean Acuni Wamma Aella Aieri Tidia Qiwen Sedda Theng Gynia Yewen Asten Wiran Peini Neclya Asoini Soissa Thecia Reamma Foedia Kywiel Haicia Asywen Asoama Abewen Thadda Fyrien Gwaria Pendra Wosien Cebeth Kaeven Uneing Rilian Moissa Yboesa Kirede Triwen Waonia Ibiwia Gandra Keweth Ededia Qalima Keanna Kaassa Drecia Kauwen Thowen Gwicia Belade Fradia Silide Thiria Afolle Thiema Frylia Eliwen Balini Braesa Bredia Dwiren Weliri Onassa Gwaema Aarien Raelle Agrean Leiwen Lywien Aaylla Cesien Hoeven Taulle Elessi Ibynna Brawen Caelle Ziassa Abilan Kelari Gwecia Rhayni Chiwen Ferran Haeven Braren Caviel Cridia Nerran Hearia Driesa Larema Unalith Kaiemma Seiveth Piewiel Unywien Grellan Iboeven Galissi Kaasien Ociadia Rhidith Etudith Vealind Gwarien Raumwen Ulaweth Paerith Chialia Lariwen Elomwen Ocoalla Draviel Glaulia Dwarith Unulian Bithiel Gweawen Abaecia Larerin Zieclya Qilassa Abymeth Yoalith Legissa Galowia Abirien Adwiema Caoveth Gwarith Iberiri Eowonna Raoniel Lalewen Riliwen Afeiwen Kiesien Faliwia Craedia Cearith Graecia Brorede Elecien Thoewia Reliwen Unalede Bieniel Elalian Nydawen Adranna Araedda Olalind Jeraoma Liabeth Trarith Hiladia Ereawen Prendan Ybiawen Gwedien Dwoewen Lothyma Cilidia Qelaria Credien Gwoalla Cirenna Viraria Ziralla Haeviel Asealle Zeridia Aoirien Aeradia Praomma Nerawen Gwaessi Maliwen Edirith Qelamma Ybaelle Asaresa Oliveth Rhiveth Pracien Cirawen Onelian Broadia Aireria Uneawia Cirewen Rheavia Gwaussa Unareng Chathien Thirenia Friandra Narerien Briemwen Dwirawen Adwaunna Haelinna Elaeniel Cerraria Gwethien Astaviel Nydendra Ciremeth Kedaresa Ulaucien Abaullan Dwoaswen Etheviel Adrirani Rerravia Thigowen Asieveth Nydulind Draucien Wicirasa Lireweth Alearith Graeswen Kaaymeth Kelacien Cadyclya Kairamma Adreissi Meriweth Edoaveth Cerindra Pililind Priadith Salewiel Oliawien Agrialle Sevyrwen Rharedda Unardori Chelacia Ethudith Gwialind Ocaleven Alaobeth Terramma Haaolian Kaeiwien Eleaweth Uneralle Ailalith Driracia Asaewien Thaelian Gweliria Laraweth Olorewen Rhelalla Thielian Kedauwen Nydienia Haoiniel Eowaviel Qiliswen Umalidda Miresien Dwoasien Asalivia Elelamma Gwierien Galoavia Dwalewen Cadendra Heririen Miethien Gwarewen Acorewen Adwoiwen Zardowen Abayrith Adauclya Hailawen Galeilia Zeliviel Ybaoveth Tiliswen Nydyrien Thigomma Croarwen Peraswen Veridith Galieria Biathien Mareniel Thiranna Thilania Cilalian Elyllone Cigodien Ibardossa Yberraven Cadaressi Kedoaviel Zhamenian Umoathien Jeroelind Adworewen Jerirassi Adaredith Wicigodia Eleriwien Etheriwen Laroeswen Wicerassa Cerathiel Galelaven Grirebeth Agraebeth Lothoiwen Astigoven Tralelind Braredien Afalelian Nyderrani Haendaria Afardowen Eoworecia Adriemeth Cerraswen Asiladien Jeroreria Wardoviel Priradien Unaredien Perrawiel Astoarwen Craleniel Umiredien Thalemwen Lendalith Cadiredda Wicaebeth Ibauthien Caderinia Mireliria Adraerith Cheralith Glerallan Ederarwen Laroilian Lothilith Nydausien Edendadia Erelalian Astaledia Prardowen Kerraniel Jeralinna Laralissa Nydirawia Adraulith Aralelian Elaethien Ibilillan Erigollan Ulirewien Laroredda Lothilawen Lothelalla Lothigowen Wicardonna Astiredien Kedoathiel Larireniel Wiceraweth Cadeliwiel Trerithien Legirasien Nydardodia Cadirasien Nydalemeth Glelathiel Ulerramwen Ethorelian Adraleniel Rherralind Agrelidith Lariredien Eowirelith Eowirathiel Wicerrarith
+
+/def saint_get =\
+	/let _index=%{1}%;\
+	/echo -p -- index=%{_index}%;\
+	/let _name=$(/nth %{_index} %{saint_list})%;\
+	/if (_name!~"")\
+		/send @@console patrons info %{_name}%;\
+		/repeat -0.7 1 /saint_get $[_index+1]%;\
+	/else \
+		/echo -p -- ok, done.%;\
+	/endif
+
+/def saints =\
+	/saint_get 1