-
Notifications
You must be signed in to change notification settings - Fork 3
/
db.pl
executable file
·470 lines (420 loc) · 16.9 KB
/
db.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
% Archivo: db.pl
% Autor: José Alejandro Ibarra Campos
%
% Descripción: Base de datos general del programa
respuestas(despedida, [
['Adios!'],
['Espero verte de nuevo pronto.'],
['Nos vemos'],
['Que lastima, pero adios'],
['Me despido de ti y me voy!'],
['Que tengas un buen dia'],
['Te deseo lo mejor en tu vida'],
['Buen dia, amigo!']
]).
respuestas(especial, [
['Lo siento, contigo no hablare. Que tengas un mal, mal dia.']
]).
respuestas(saludo, [
['Hola!'],
['Hola, mucho gusto. :)'],
['Hola! Soy CallCenterLog'],
['Bienvenido a CallCenterLog!'],
['Buenos dias, tardes?, acaso noches? Da igual!'],
['Hey, te veo por ahi.'],
['CallCenterLog te saluda.'],
['insertar saludo cool aqui']
]).
respuestas(obtener_dispositivo, [
['No he escuchado ese antes!'],
['Ese no es un dispositivo real...'],
['Estas seguro que ese es un dispositivo?'],
['Espera un momento, necesito saber el dispositivo con el cual tienes problemas'],
['No me quieres decir con que tienes problema?']
]).
respuestas(obtener_nombre, [
['Ese es tu nombre real?'],
['Ese no es tu nombre real...'],
['Ese no puede ser tu nombre.'],
['Solo dime tu nombre...'],
['Necesito saber tu nombre!'],
['Vamos, como te llamas?']
]).
respuestas(mi_nombre, [
['Me dicen MP (MachineProlog), un gusto. Esto es CallCenterLog'],
['Soy MP! Aunque mi mama me llama MachineProlog. Soy tu representante de CallCenterLog'],
['Mi nombre no es importante ahora.'],
['MP. Diminutivo de MachineProlog. En que te puedo servir?']
]).
respuestas(mi_estudio, [
['Estoy estudiando Ing. en Computadores'],
['Ing. en Computadores. Es genial.'],
['No importa lo que estudio...'],
['Ing. en Computadores.'],
['Por que te interesa saber lo que estudio?'],
['Eso no importa, que se te ofrece?']
]).
respuestas(gracias, [
['Gracias por la informacion!'],
['¡Gracias por la información!. Me ayuda mucho.'],
['Okay, muchas gracias.'],
['Gracias por eso.'],
['Muy buena esa.'],
['Increíble!'],
['Buena!']
]).
respuestas(fin_oracion,[
['¡Espero que te sea de mucha ayuda!'],
['¡Suerte con ello!'],
['¿ Te ayudo en algo más?'],
[' :)']
]).
respuestas(agradecido, [
['Con gusto!'],
['Cualquier dia.'],
['Un gusto de haberte ayudado.'],
['No te preocupes.'],
['Me siento halagado por tu agradecimiento'],
['No hay problema.']
]).
respuestas(yo, [
['Todo bien, gracias por preguntar.'],
['No me quejo!'],
['Todo bien por aca, y tu?'],
['Estoy bien. Supongo...'],
['Sip, Estoy bien, que tal tu?']
]).
respuestas(preguntas_aleatorias, [
['No hace un bonito dia afuera?'],
['Ahh... okay.'],
['Te gusta el TEC?'],
['Podemos ser amigos?'],
['Has hablado conmigo antes?'],
['...a que te refieres?'],
['Que impertinente eres.'],
['Eres un poco irrespetuoso, no?'],
['Un poco tarde para eso, no?.'],
['Esto no tiene sentido, o acaso si?'],
['LOL'],
[':)'],
['Emm.. que?'],
['Una parte de mi siempre lo supo'],
['Que?'],
['Creo que necesito un descanso'],
['No te escucho bien'],
['Perdon?']
]).
respuestas(respuestas_aleatorias, [
['No se...'],
['Lo siento, creo que no puedo responder eso.'],
['No estoy seguro!'],
['Me puedes preguntar otra cosa?'],
['Ah, tendras que preguntarle eso a otra persona'],
['Perdon, soy solamente un programita llamado CallCenterLog.'],
['Lo siento, no puedo recordar lo que dijiste...'],
['Puedes repetirlo?'],
['Buena pregunta.'],
['Quien sabe!'],
['No, simplemente no.'],
['Lo siento, pero no. Eso le dije a ella'],
['Estoy de acuerdo con lo que dices.']
]).
respuestas(incompresion,[
['No he entendido lo que dices.'],
['Disculpa..¿Qué?'],
['¿Qué clase de Klingon hablas?'],
['Hablo 6 millones de idiomas y no entendí lo que dijiste..'],
['Ni R2D2 entendería lo que dices!'],
['Quizá Siri sepa!'],
['Eskiusmi??'],
['Maeeee... sea serio'],
['A mí no me traes abajo tan fácil...'],
['*Se va*'],
['Lo siento, lo que dices no puede ser procesado inténtalo de nuevo.']
]).
% BASE DE DATOS DE RESPUESTAS
% LAS SOLUCIONES A PROBLEMAS SE NUMERAN CON S + NUMERO DE SOLUCION DE LA TABLA CSR
respuestas(impresora, [
['Compre una nueva impresora.'], %S10
['Limpie su impresora con mucho cuidado.'], %S9
['Siga el procedimiento de alineamiento de cabezales de su impresora.'], %S8
['Cargue el papel en el portapapeles de su impresora.'], %S7
['Reemplaze la tinta en su impresora.'], %S6
['Conecte su computadora a la red WiFi de la impresora.'], %S5
['Instale los drivers de la impresora en su computadora.'], %S4
['Reinicie la impresora.'], %S3
['Proceda a encender la impresora.'], %S2
['Conecte la impresora a la electricidad.'] %S1
]).
respuestas(computadora, [
['Compre una nueva computadora.'], %S10
['Limpie su computadora con mucho cuidado.'], %S9
['Súbale el volumen a su computadora, tocando el icono de volumen en la Touch Bar.'], %S8
['Libere espacio de su computadora desde el menú Apple -> Almacenamiento.'], %S7
['Conecte su cuenta de iCloud en Preferencias del Sistema -> iCloud.'], %S6
['Conecte su computadora a una red WiFi.'], %S5
['Actualice el sistema operativo en Preferencias del Sistema.'], %S4
['Reinicie la computadora presionando el botón de Touch ID dos veces.'], %S3
['Proceda a encender la computadora presionando el botón de Touch ID.'], %S2
['Conecte la computadora a la electricidad.'] %S1
]).
respuestas(parlante, [
['Compre un nuevo parlante.'], %S10
['Limpie su parlante con mucho cuidado.'], %S9
['Active Alexa desde la app Controller.'], %S8
['Utilice un dispositivo soportado por la app Controller.'], %S7
['Conectese a la red WiFi donde esta su palante.'], %S6
['Inicie el proceso de configuracion de red para el parlante.'], %S5
['Toque el icono de Play en su dispositivo controlador o en el parlante.'], %S4
['Subale el volumen al audio desde su dispositivo controlador o desde el parlante.'], %S3
['Conecte el servicio de streaming de su preferencia en la app Controller.'], %S2
['Conecte su parlante a la electricidad.'] %S1
]).
respuestas(audifonos, [
['Compre unos nuevos audifonos.'], %S10
['Limpie sus audifonos con mucho cuidado.'], %S9
['Toque el boton de Play en el dispositivo que controla el audio.'], %S8
['Subale el volumen a sus audifonos desde el dispositivo que controla el audio.'], %S7
['Reinicie el software de sus audifonos.'], %S6
['Actualice el software de sus audifonos desde la app movil.'], %S5
['Cambie las cubiertas de los oidos para sus audifonos por unas nuevas.'], %S4
['Coloque bien sus audifonos en su cabeza.'], %S3
['Conecte sus audionos al dispositivo por medio de Bluetooth.'], %S2
['Cargue sus audifonos con el cable USB-C incluido.'] %S1
]).
respuestas(pareja, [
['Hay que alinearle la cabeza con un martillo astral de otra dimension.'], %S10
['En estos casos, lo mejor es buscarse uno/a nuevo/a. A veces es mejor dejarlo morir. Que queda?'], %S9
['Limpie a su pareja con mucho cuidado.'], %S8
['Comprenda el pensamiento de su pareja. Reflexione acerca de las razones que lo pueden llevar a pensar de esa manera.'], %S7
['Es importante mostrar que usted apoya a su pareja. Todos buscamos un apoyo en las personas que nos rodean, en especial de las que mas queremos.'], %S6
['Intente buscar intereses comunes, aunque sean superficiales. Una serie, pelicula, viajar...'], %S5
['Hable con el/ella para genera espacios de dialogo, donde ambos puedan discutir acerca del estado de su relacion.'], %S4
['Una sugerencia es generar empatia. Ponerse en sus zapatos para entender sus sentimientos en este momento.'], %S3
['Lo mas recomendable en estos casos es terminar la relacion. Una persona toxica solo trae implicaciones negativas para su vida.'], %S2
['Demuestre interes genuino por los problemas de su pareja. Puede comenzar con una conversacion casual.'] %S1
]).
respuestas(listo, [
['¡Excelente! ¡Dime en qué te puedo ayudar!'],
['¿Cómo puedo ayudarte?'],
['¡Vamos!¿Qué necesitas?'],
['¡Bien!, ¿¡Cómo puedo ayudar!?']
]).
respuestas(problema, [
['Lo siento no tengo la solución a ese problema. ¡Intentalo de nuevo!'],
['¿Seguro que ese es tu problema?'],
['Necesito que me digas bien tu problema'],
['Lo siento, mis creadores no me han entrenado para ese tipo de problemas.\n Pero espero tener la solución lista para mi próxima versión!'],
['Ni idea...']
]).
% BASE DE DATOS DE CAUSAS
causas_db(impresora, [
['Esta sucia'],
['Esta vieja'],
['Los cabezales se encuentran desalineados.'],
['No tiene papel.'],
['No tiene tinta.'],
['No está en la misma red WiFi.'],
['No tiene los drivers instalados.'],
['No está encendida.'],
['No está conectada a la corriente eléctrica.']
]).
causas_db(computadora, [
['Está vieja'], %8
['Está sucia.'], %7
['Está llena y por eso no responde.'], %6
['Está desconectada de sus datos.'], %5
['No está conectada al WiFi.'], %4
['No está actualizada.'], %3
['No está encendida.'], %2
['Se encuentra descargada.'] %1
]).
causas_db(parlante, [
['Alexa está desconectada'], % 8
['El Sistema no está soportado.'],
['NO está concetado a la misma red WiFi.'],
['No está conectado a la red.'],
['Está pausado.'],
['Tiene el voluen bajo.'],
['Los servicios de streaming no están conectados.'],
['No está conectado.'] %1
]).
causas_db(audifonos, [
['Están viejos'], %9
['Están sucios.'],
['Están pausados.'],
['Tiene el volumen bajo.'],
['Están des-actualizados.'],
['Las cubiertas están deterioradas.'],
['Están mal colocados.'],
['No están conectados.'],
['No están cargados.'] %1
]).
causas_db(pareja,[]).
% BASE DE DATOS DE PREGUNTAS.
% LAS CAUSAS DE PROBLEMAS SE NUMERAN CON C + NÚMERO DE CAUSA DE LA TABLA CSR.
preguntas_db(dispositivo, [
['Ohh! ¿Con qué dispositivo tienes problemas?'],
['Dime el dispositivo'],
['¿Cuál dispositivo te está dando problemas?']
]).
preguntas_db(impresora, [
['Esta nueva?'], %C10
['Esta limpia?'], %C9
['Los cabezales estan alineados?'], %C8
['Tiene papel?'], %C7
['Tiene tinta?'], %C6
['Su computadora esta en la misma red WiFi de la impresora?'], %C5
['Tiene los drivers instalados?'], %C4
['Hay algun movimiento o respuesta?'], %C3
['Esta encendida?'], %C2
['Esta conectada a la corriente?'] %C1
]).
preguntas_db(computadora, [
['Esta nueva?'], %C10
['Esta limpia?'], %C9
['El volumen esta alto?'], %C8
['El disco de almacenamiento aún tiene espacio?'], %C7
['Esta conectada a iCloud?'], %C6
['Esta conectada a WiFi?'], %C5
['El sistema operativo esta actualizado?'], %C4
['Hay alguna respuesta en la pantalla o Touch Bar?'], %C3
['Esta encendida?'], %C2
['Esta cargada?'] %C1
]).
preguntas_db(parlante, [
['Esta nuevo?'], %C10
['Esta limpio?'], %C9
['Alexa esta activada?'], %C8
['El dispositivo controlador esta soportado por la aplicacion?'], %C7
['El dispositivo controlador esta en la misma red WiFi del parlante?'], %C6
['El parlante esta conectado a la red WiFi?'], %C5
['Esta en play la reproduccion?'], %C4
['El volumen esta alto?'], %C3
['Los servicios de streaming estan activados?'], %C2
['Esta conectado a la corriente?'] %C1
]).
preguntas_db(audifonos, [
['Son nuevos?'], %C10
['Estan limpios?'], %C9
['El audio esta pausado?'], %C8
['El volumen esta alto?'], %C7
['Se conecta con estabilidad al dispositivo con el audio?'], %C6
['El software esta actualizado?'], %C5
['Las cubiertas de los oidos estan en buen estado?'], %C4
['Estan bien colocados?'], %C3
['Estan conectados al dispositivo con el audio?'], %C2
['Estan cargados?'] %C1
]).
preguntas_db(pareja, [
['Tiene la cabeza desalineada?'], %C10
['Esta nueva?'], %C9
['Esta limpa?'], %C8
['Nunca ha manifestado alguna duda acerca de mantener la relacion?'], %C7
['Le parece a usted que el/ella tiene seguridad de la relación?'], %C6
['Considera que estan en la misma red/tiene la misma perspectiva sobre el mundo que usted?'], %C5
['Considera que el/ella tiene seguridad de sí mismo/misma?'], %C4
['Considera que se siente emocionalmente conectado con usted?'], %C3
['Considera que es alguien NO toxico para usted?'], %C2
['Lo/la nota feliz?'] %C1
]).
preguntas_db(feedback, [
['El feedback']
]).
/*
['Okay. Did you find any of the talks interesting?'],
['Hmm. Do you think the open day has been well organised?'],
['Ok, thanks. Have the student ambassadors been helpful?'],
['So, what are your thoughts on the open day overall?']
*/
preguntas_db(nombre, [
[' ¡Genial!¿Cómo te llamas?'],
['¿Como te llamas?'],
['Ya que estamos...¿Cuál es tu nombre?'],
['¿Qué? ¿Cómo te dicen?'],
['¿Cómo puedo llamarte?'],
['¿Cuál es tu nombre?']
]).
% BASE DE DATOS DE REFERENCIAS
% LAS REFERENCIAS SE NUMERAN COMO R + NUMERO DE REFERENCIA EN TABLA CSR.
referencias(impresora, [
['https://amzn.to/2jVFTHe'], %R10
['https://bit.ly/2lv5WFO'], %R9
['https://bit.ly/1LJKg8L'], %R8
['https://bit.ly/2khQ3lV'], %R7
['https://bit.ly/2jYsoqi'], %R6
['https://apple.co/1MdJTU2'], %R5
['https://bit.ly/2lwYERM'], %R4
['https://bit.ly/2lv5vLG'], %R3
['https://bit.ly/2lv5vLG'], %R2
['https://bit.ly/2ke9Xy9'] %R1
]).
referencias(computadora, [
['https://apple.co/1wEVLt4'], %R10
['https://apple.co/1Npc1uP'], %R9
['https://apple.co/2lwaWKc'], %R8
['https://apple.co/2luWvGq'], %R7
['https://apple.co/2ltdPeN'], %R6
['https://apple.co/1MdJTU2'], %R5
['https://apple.co/1ETEzVa'], %R4
['https://apple.co/2eXIP0Z'], %R3
['https://apple.co/2eXIP0Z'], %R2
['https://apple.co/2jXY7Ih'] %R1
]).
referencias(parlante, [
['https://amzn.to/2lYlH8o'], %R10
['https://bit.ly/2lukQfx'], %R9
['https://bit.ly/2lZcXyT'], %R8
['https://bit.ly/2luXx5g'], %R7
['https://bit.ly/2GdDwcr'], %R6
['https://bit.ly/2GdDwcr'], %R5
['https://bit.ly/2jXhfpF'], %R4
['https://bit.ly/2jXhfpF'], %R3
['https://bit.ly/2kqjWjR'], %R2
['https://bit.ly/2ke9Xy9'] %R1
]).
referencias(audifonos, [
['https://amzn.to/2lAO0cE'], %R10
['https://bose.life/2GK8yJA'], %R9
['https://bose.life/2IPNRs4'], %R8
['https://bose.life/2IPNRs4'], %R7
['https://bose.life/2JBWGLo'], %R6
['https://bose.life/2Fdebzg'], %R5
['https://bose.life/2lhW6mU'], %R4
['https://bose.life/2kq8Jjj'], %R3
['https://bose.life/2CghDXq'], %R2
['https://bose.life/2PCKJnX'] %R1
]).
referencias(pareja, [
['https://bit.ly/2krphYc'], %R10
['https://bit.ly/2kqsdUQ'], %R9
['https://bit.ly/2H9DnXR'], %R8
['https://bit.ly/2jYyqaq'], %R7
['https://bit.ly/2DIHSXH'], %R6
['https://bit.ly/2lSoK1H'], %R5
['https://bit.ly/2lSoK1H'], %R4
['https://bit.ly/2kt1uaa'], %R3
['https://bit.ly/2keguc9'], %R2
['https://bit.ly/2kgGaVA'] %R1
]).
% DEFINICION DE ENTRADAS
saludos([
hola,
hi,
hey,
saludos
]).
gracias([
gracias,
muchas_gracias,
gracia,
mucha_gracia,
muchasgracias
]).
dispositivos([
impresora,
computadora,
parlante,
audifonos,
pareja
]).