API tools faq
paste
Guest User

Untitled

a guest
Jul 28th, 2018
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Smalltalk 16.39 KB | None | 0 0
raw download clone embed print report
  1. Error subclass: #ErrorInstanciaInvalida
  2.     instanceVariableNames: ''
  3.     classVariableNames: ''
  4.     poolDictionaries: ''
  5.     category: 'Ahorcado'!
  6.  
  8. Error subclass: #JuegoTerminado
  9.     instanceVariableNames: ''
  10.     classVariableNames: ''
  11.     poolDictionaries: ''
  12.     category: 'Ahorcado'!
  13.  
  15. Object subclass: #Palabra
  16.     instanceVariableNames: 'palabra dicPalabra acertijo'
  17.     classVariableNames: ''
  18.     poolDictionaries: ''
  19.     category: 'Ahorcado'!
  20.  
  21. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:41'!
  22. agregarADic: letra ConPos: posicion
  23.     "Agrega la posicion a la letra en el
  24.     diccionario de la clase. "
  25.    
  26.     | letraAux |
  27.    
  28.     (letra = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  29.     (dicPalabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  30.    
  31.     letraAux := letra asLowercase .
  32.     "Si la letra no pertenecia al diccionario, se inicializa con una lista vacia"
  33.     dicPalabra at: letraAux ifAbsent: [ dicPalabra at: letraAux put: LinkedList new ].     
  34.     (dicPalabra at: letra) add: posicion.
  35. ! !
  36.  
  37. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 14:28'!
  38. crearDicc
  39.     "Crea el diccionario de la palabra de la clase
  40.     con las letras de la palabra como claves, y sus
  41.     posiciones dentro de ella como los valores."
  42.  
  43.     | contPosicion |
  44.  
  45.     ( palabra = nil ) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  46.    
  47.     dicPalabra := Dictionary new.
  48.     contPosicion := 1 .
  49.     palabra do: [ : letra |    
  50.         ( letra ~= Character space ) ifTrue: [
  51.             self agregarADic: letra ConPos: contPosicion.
  52.         ].
  53.         contPosicion := contPosicion + 1 .
  54.     ].
  55. ! !
  56.  
  57. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 14:37'!
  58. inicializarAcertijo
  59.     "Crea un acertijo con el mismo tamaño que palabra
  60.     donde sus letras fueron reemplazadas por otro caracter."
  61.  
  62.     | acertijoAux letraOcultaAux |
  63.     acertijoAux := ''.
  64.     letraOcultaAux := '-'.
  65.    
  66.     (palabra = nil ) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  67.    
  68.     palabra do: [ : letra |
  69.         (letra = Character space) ifTrue: [
  70.             acertijoAux := acertijoAux , ' '.  
  71.         ].
  72.         (letra ~= Character space) ifTrue: [
  73.             acertijoAux := acertijoAux , letraOcultaAux.   
  74.         ].
  75.     ].
  76.  
  77.     ^ acertijoAux.! !
  78.  
  79. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 17:51'!
  80. inicializarPalabra: palabraAux
  81.     "inicializador de palabra
  82.     Pre: la palabra ingresada no tiene espacios al principio
  83.         ni al final de la misma. Ni espacios intermedios de
  84.         mas en caso de ser frase.
  85.     Post: se asigno a Palabra el argumento y se creo el
  86.         diccionario correspondiente a la palabra.   "
  87.            
  88.     (palabraAux = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  89.    
  90.     palabra := ((palabraAux asString) asLowercase) .
  91.     self crearDicc .   
  92.     acertijo := self inicializarAcertijo.! !
  93.  
  94. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:00'!
  95. modificarAcertijoenPosiciones: posiciones
  96.     "Modifica el acertijo de la clase con el caracter en
  97.     las posiciones pedidas."
  98.    
  99.     (posiciones = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  100.     (palabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  101.    
  102.     posiciones do: [ : posicion |
  103.         acertijo at: posicion put: (palabra at: posicion).
  104.     ].! !
  105.  
  106. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 15:52'!
  107. posicionesEnPalabraDeLetra: caracter
  108.     "Busca el caracter en el diccionario de la palabra.
  109.      En caso de pertenecer el caracter al diccionario,
  110.     devuelve la lista con posiciones de este en la palabra.
  111.     Sino devuelve una lista.
  112.     Post: Devuelve una lista. "
  113.    
  114.     |caracterAux|
  115.    
  116.     (caracter = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  117.     (dicPalabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  118.    
  119.     caracterAux := caracter asLowercase.
  120.     ^ (dicPalabra at: caracterAux ifAbsent: LinkedList new).! !
  121.  
  122. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 10:19'!
  123. verDicc
  124.     "Devuelve el diccionario de la palabra."
  125.  
  126.     ^dicPalabra.! !
  127.  
  128. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 10:19'!
  129. verPalabra
  130.     "Devuelve la palabra de la clase."
  131.  
  132.     ^ palabra .! !
  133.  
  134. !Palabra methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 14:45'!
  135. verPalabraAcertijo
  136.     "comment stating purpose of message"
  137.  
  138.     ^ acertijo.! !
  139.  
  141. Object subclass: #Juego
  142.     instanceVariableNames: 'palabra vidas letrasArriesgadas'
  143.     classVariableNames: ''
  144.     poolDictionaries: ''
  145.     category: 'Ahorcado'!
  146.  
  147. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/19/2012 00:31'!
  148. arriesgarLetra: caracter
  149.     "Se evalua si el caracter pertenece a la palabra en juego.
  150.     De ser asi, se modifica el acertijo de manera correspondiente
  151.     al tipo estrategia de la palabra.
  152.     Si el caracter no pertenecia, se modifican las vidas  y las
  153.     letras arriesgadas en el juego."
  154.  
  155.     | caracterAux listaPosicionesEnPalabra |
  156.    
  157.     ( self juegoTerminado ) ifTrue: [ JuegoTerminado new signal. ].
  158.    
  159.     (palabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  160.     (caracter = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  161.    
  162.     caracterAux := ((caracter asCharacter) asLowercase).
  163.     listaPosicionesEnPalabra := ( palabra posicionesEnPalabraDeLetra: caracterAux ).   
  164.  
  165.     "Si la lista esta vacia, no hay posiciones en la palabra donde se encuentre el caracter."
  166.     (listaPosicionesEnPalabra isEmpty) ifTrue: [
  167.         self restarVida.
  168.         letrasArriesgadas add: caracterAux.  
  169.     ].
  170.  
  171.     (listaPosicionesEnPalabra isEmpty) ifFalse: [
  172.         palabra modificarAcertijoenPosiciones: listaPosicionesEnPalabra .
  173.     ].
  174. ! !
  175.  
  176. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 19:34'!
  177. evaluarVidas
  178.     "Devuelve la cantidad de vidas que le   corresponden a la palabra en juego.
  179.     Si la palabra es solo una, seran 6 vidas, si es una frase, seran 8 vidas.
  180.     Si la palabra no es valida, devuelve 0."
  181.  
  182.     | vidasPalabra vidasFrase palabraAux|
  183.     vidasPalabra := 6.
  184.     vidasFrase := 8.
  185.    
  186.     (palabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  187.    
  188.     palabraAux := palabra verPalabra.  
  189.     palabraAux do: [: letra |
  190.         "Si palabras tienen espacios son para   separarse palabras, entonces son frases."
  191.         (letra = Character space ) ifTrue: [ ^ vidasFrase. ].
  192.     ].
  193.  
  194.     ^ vidasPalabra .
  195.     ! !
  196.  
  197. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:17'!
  198. informacionJuego
  199.     " Devuelve en forma de cadena toda la informacion
  200.     publica del juego."
  201.    
  202.     | info |
  203.    
  204.     info := 'Adivinando: ', palabra verPalabraAcertijo, '. Vidas: ', self verVidas,
  205.             '. Letras Arriesgadas: ', self verLetrasArriesgadas.
  206.  
  207.     ^ info.
  208. ! !
  209.  
  210. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:39'!
  211. iniciarJuegoCon: palabraAux
  212.     "Constructor del Juego.
  213.     Inicia el juego con la palabra recibida,  
  214.     asigna la cantidad de vidas para el juego,
  215.     inicia la lista de letras arriesgadas."
  216.    
  217.     (palabraAux = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  218.     (palabraAux verPalabra = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  219.  
  220.     palabra := palabraAux.
  221.     vidas := self evaluarVidas.
  222.     letrasArriesgadas := LinkedList new.
  223.     ! !
  224.  
  225. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:50'!
  226. juegoGanado
  227.     "Devuelve true en caso de haber ganado el juego."
  228.  
  229.     ( self verPalabraAcertijo = palabra verPalabra) ifTrue: [
  230.         ^ true.
  231.     ].
  232.  
  233.     ^ false.! !
  234.  
  235. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:23'!
  236. juegoPerdido
  237.     "Devuelve true en caso de haber perdido, false en caso contrario."
  238.    
  239.     ( self verVidas = 0) ifTrue: [
  240.         ^ true.
  241.     ].
  242.  
  243.     ^ false.! !
  244.  
  245. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:25'!
  246. juegoTerminado
  247.     "Devuelve true en caso de haber terminado el juego."
  248.  
  249.     ( self juegoGanado | self juegoPerdido ) ifTrue: [
  250.         ^ true.
  251.     ].
  252.    
  253.     ^ false.! !
  254.  
  255. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:39'!
  256. restarVida
  257.     "Cada vez que es llamado este metodo,
  258.     resta una vida al juego."
  259.    
  260.     (vidas = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  261.    
  262.     vidas := vidas - 1 .! !
  263.  
  264. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:12'!
  265. verLetrasArriesgadas
  266.     "Devuelve en forma de cadena las letras
  267.     arriesgadas durante el juego."
  268.  
  269.     | letrasMostrar |
  270.     letrasMostrar := ' '.
  271.    
  272.     (letrasArriesgadas = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  273.    
  274.     letrasArriesgadas do: [ : letra |
  275.         letrasMostrar := letrasMostrar ,  (letra asString) .
  276.     ].
  277.  
  278.     ^ letrasMostrar.! !
  279.  
  280. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 14:39'!
  281. verPalabraAcertijo
  282.     "Devuelve el acertijo perteneciente
  283.     a la palabra en juego."
  284.    
  285.     (palabra = nil) ifTrue: [ErrorInstanciaInvalida new signal.].
  286.    
  287.     ^ (palabra verPalabraAcertijo).! !
  288.  
  289. !Juego methodsFor: 'as yet unclassified' stamp: 'Lucia 4/16/2012 03:55'!
  290. verVidas
  291.     "Devuelve un valor entero que representa
  292.     la cantidad de vidas que hay en juego."
  293.  
  294.     ^ vidas .! !
  295.  
  297. Palabra subclass: #Proximidad
  298.     instanceVariableNames: ''
  299.     classVariableNames: ''
  300.     poolDictionaries: ''
  301.     category: 'Ahorcado'!
  302.  
  303. !Proximidad methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:10'!
  304. inicializarProximidad: palabraAux
  305.     "Constructor de palabra Proximidad.
  306.     Asigna la palabra a la clase e inicia
  307.     el acertijo correspondiente."
  308.    
  309.     self inicializarPalabra: palabraAux.
  310. ! !
  311.  
  312. !Proximidad methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 16:02'!
  313. modificarAcertijoenPosiciones: posiciones
  314.     "Modifica el acertijo de la clase con el caracter en
  315.     las posiciones pedidas y en las letras vecinas a estas."
  316.  
  317.     | posSiguiente posAnterior inicioPalabra finPalabra |
  318.    
  319.     (palabra = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  320.    
  321.     posSiguiente := 1.      "posSiguiente será un valor mas al que se esta evaluando"
  322.     posAnterior := -1.      "posAnterior será un valor menos al que se esta evaluando"
  323.     inicioPalabra := 1.    
  324.     finPalabra := palabra size.
  325.    
  326.     (posiciones = nil) ifTrue: [ ErrorEntradaInvalida new signal. ].
  327.  
  328.     posiciones do: [ : posicion |
  329.         acertijo at: posicion put: (palabra at: posicion) .
  330.         self modificarCaracterAcertijoDesde: posicion En: posSiguiente Evaluando: finPalabra.  
  331.         self modificarCaracterAcertijoDesde: posicion En: posAnterior Evaluando: inicioPalabra.
  332.     ].! !
  333.  
  334. !Proximidad methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 15:40'!
  335. modificarCaracterAcertijoDesde: posicion En: sigOanterior Evaluando: extremo
  336.     "Si la posicion no es el caso evaluado, se modifica el acertijo
  337.     con el caracter de la palabra, siguiente o anterior, a la posicion ."
  338.  
  339.     | posAux letra |
  340.    
  341.     ( posicion = extremo) ifTrue: [ ^ nil .].
  342.    
  343.     posAux := posicion + sigOanterior.
  344.     letra := (palabra at: posAux).
  345.    
  346.     (letra = Character space) ifTrue: [
  347.         self modificarCaracterAcertijoDesde: posAux En: sigOanterior Evaluando: extremo.   
  348.     ].
  349.  
  350.     acertijo at: posAux put: letra.! !
  351.  
  353. Palabra subclass: #Inculto
  354.     instanceVariableNames: 'dicLetrasEquivalentes'
  355.     classVariableNames: ''
  356.     poolDictionaries: ''
  357.     category: 'Ahorcado'!
  358.  
  359. !Inculto methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 14:12'!
  360. asignarEquivalencias: equivalencias
  361.     "comment stating purpose of message"
  362.    
  363.     (equivalencias = nil) ifTrue: [ ErrorEquivalenciasNoAsignadas new signal].
  364.    
  365.     dicLetrasEquivalentes := equivalencias.! !
  366.  
  367. !Inculto methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 15:48'!
  368. generarPalabraParaEquivalencia: string Con: letra En: posicion
  369.     "Genera una palabra a partir de la posicion, tomando las letras
  370.     necesarias para tener el mismo largo del string para comprarlos."
  371.  
  372.     | auxString auxPos |
  373.     auxString := letra asString.    "auxiliar para juntar las letras"
  374.     auxPos := posicion.
  375.        
  376.     "concadeno la siguiente letra de la palabra hasta conseguir la cantidad de letras que
  377.     se necesita para comparar con el string equivalencia"
  378.     [((auxString size) < (string size)) & ((auxPos < palabra size))] whileTrue: [
  379.         auxString := auxString , (palabra at: (auxPos+1))asString .
  380.         auxPos := auxPos + 1.
  381.     ].
  382.     ^ auxString.
  383. ! !
  384.  
  385. !Inculto methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 22:45'!
  386. inicializarEquivalencias
  387.     "comment stating purpose of message"
  388.  
  389.     | contPosiciones listaPosEquiv auxString auxPos|
  390.     contPosiciones := 1.
  391.  
  392.     ( palabra = nil ) ifTrue: [  ErrorInstanciaInvalida new signal ] .
  393.     ( dicLetrasEquivalentes = nil ) ifTrue: [ ErrorEquivalenciasNoAsignadas new signal ].
  394.    
  395.     palabra do: [ : letra |
  396.        
  397.         dicLetrasEquivalentes keysDo: [ : clave |
  398.             (clave verEquivalentes) do: [ : equivalencia |
  399.                 "si es mas que un char"
  400.                 (equivalencia size > 1) ifTrue: [  
  401.                     auxString := self generarPalabraParaEquivalencia: equivalencia Con: letra En: contPosiciones.
  402.                    
  403.                     " evaluo si la cadena auxString (parte de la palabra) pertenece a la equivalencia"
  404.                     (equivalencia = auxString) ifTrue: [
  405.                         ( contPosiciones to: (contPosiciones + equivalencia size - 1)) do: [ : pos |   
  406.                             (dicLetrasEquivalentes at: clave) add: pos .
  407.                         ].
  408.                     ].
  409.                 ].
  410.             ].
  411.              ( clave contieneA: (letra asString) ) ifTrue: [
  412.                 (dicLetrasEquivalentes at: clave) add: contPosiciones .
  413.             ].
  414.         ].
  415.         contPosiciones := contPosiciones + 1.
  416.     ].
  417. ! !
  418.  
  419. !Inculto methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 14:47'!
  420. inicializarInculto: palabraAux
  421.     "Contructor de la clase.
  422.     Asigna la palabra e inicializa las
  423.     equivalencias y el acertijo de la misma."
  424.  
  425.     (palabraAux = nil) ifTrue: [ ErrorEntradaInvalida new signal ].
  426.    
  427.     self inicializarPalabra: palabraAux.
  428.     self inicializarEquivalencias.
  429. ! !
  430.  
  431. !Inculto methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 22:45'!
  432. posicionesEnPalabraDeLetra: caracter
  433.     "Busca el caracter o sus equivalentes en la palabra.
  434.      En caso de encontrarse,    devuelve la     lista con
  435.     posiciones de este en la palabra.
  436.     Sino devuelve una lista vacia.
  437.     Post: Devuelve una lista. "
  438.  
  439.     | caracterAux listaAux |
  440.    
  441.     ( dicLetrasEquivalentes = nil) ifTrue: [ ErrorEquivalenciasNoAsignadas new signal ].
  442.    
  443.     caracterAux := caracter asLowercase .
  444.     listaAux := LinkedList new.
  445.    
  446.     "se evaluan sus equivalentes"
  447.     dicLetrasEquivalentes keysDo: [ : clave |
  448.         "Si se encuenta una equivalencia del caracter devuelve su lista de posiciones"
  449.         ( clave contieneA: (caracterAux asString) ) ifTrue: [
  450.             listaAux := (dicLetrasEquivalentes at: clave).         
  451.         ].
  452.     ].
  453.    
  454.     "Si la lista esta vacia, el caracter no tiene equivalentes,
  455.     busco solo las posiciones del caracter."
  456.     (listaAux isEmpty) ifTrue: [
  457.         listaAux := super posicionesEnPalabraDeLetra: caracterAux.
  458.     ].
  459.    
  460.     ^ listaAux.! !
  461.  
  463. Object subclass: #Equivalencia
  464.     instanceVariableNames: 'equivalentes'
  465.     classVariableNames: ''
  466.     poolDictionaries: ''
  467.     category: 'Ahorcado'!
  468.  
  469. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:20'!
  470. = unaEquivalencia
  471.     "Compara si una equivalencia es igual a otra,
  472.     devuelve true en caso afirmativo, false en caso contrario."
  473.    
  474.     (equivalentes = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  475.    
  476.     ^ (self esIdenticoA: unaEquivalencia).! !
  477.  
  478. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:21'!
  479. asignarEquivalenteA: otroValor
  480.     "Se asigna a la equivalencia el valor.
  481.     Pasa a ser parte de la equivalencia."
  482.  
  483.     (equivalentes = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].
  484.     equivalentes add: (otroValor asString).! !
  485.  
  486. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/18/2012 22:46'!
  487. contieneA: valor
  488.     "Devuelve true si el string pertenece a
  489.     la equivalencia. False en caso contrario."
  490.    
  491.     equivalentes do: [ : cadenaEquiv |
  492.         (cadenaEquiv = (valor asString) ) ifTrue: [
  493.             ^ true.
  494.         ].
  495.     ].
  496.     ^ false.! !
  497.  
  498. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:27'!
  499. esIdenticoA: unaEstrategia
  500.     "Comparador entre dos objetos de la clase Estrategia.
  501.     Devuelve true si son la misma estrategia, false en caso
  502.     contrario,"
  503.    
  504.     (equivalentes = nil) ifTrue: [ ErrorInstanciaInvalida new signal. ].   
  505.     (unaEstrategia = nil) ifTrue: [ ^ false ].
  506.    
  507.     (equivalentes size = (unaEstrategia verEquivalentes) size) ifFalse: [ ^ false. ].
  508.  
  509.     equivalentes do: [ : equiv1 |
  510.         ( (unaEstrategia verEquivalentes) includes: equiv1 ) ifFalse: [ ^ false.     ].
  511.     ].
  512.     ^ true.! !
  513.  
  514. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:23'!
  515. initialize
  516.  
  517.     equivalentes := LinkedList new.! !
  518.  
  519. !Equivalencia methodsFor: 'as yet unclassified' stamp: 'Lucia 4/17/2012 00:24'!
  520. verEquivalentes
  521.  
  522.     ^ equivalentes.! !
  523.  
  525. Error subclass: #ErrorEntradaInvalida
  526.     instanceVariableNames: ''
  527.     classVariableNames: ''
  528.     poolDictionaries: ''
  529.     category: 'Ahorcado'!
  530.  
  532. Error subclass: #ErrorEquivalenciasNoAsignadas
  533.     instanceVariableNames: ''
  534.     classVariableNames: ''
  535.     poolDictionaries: ''
  536.     category: 'Ahorcado'!
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!