Roe2a scripting syntax submission

	iXPull:(src,dest)

	on:src['ailment']
	case:{emptyCell}

		on:src['terrain']
		case:{'dirt','stps','stpw'}

			on:dest['terrain']
			case:{'dirt','hole','stps','stpw'

				swap:['critter','ailment']

		on:src['terrain']
		case:{'hole','stps','stpw'}

			on:dest['terrain']
			case:{'hole','stps','stpw'}

				swap:['critter','ailment']

	on:src['ailment']
	case:{'wing'}

		on:src['terrain']
		case:{'dirt','hole','watr','stps','stpw'}

			on:dest['terrain']
			case:{'dirt','hole','watr','stps','stpw'}

				swap['critter','ailment']

	on:src['ailment']
	case:{'key1','key2','key3'}

		on:dest['ailment']
		case:{'loc1','loc2','loc3'}

			on:mid(src['ailment'],4,1)	case:mid(dest['ailment'],4,1)

			src['ailment'] EQ emptyCell
			dest['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['cure']

			on:roll(1,10)
			case:GTR 2

				src['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['vnom']

			on:roll(1,10)
			case:GTR 4

				src['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['fire']

			on:roll(1,10)
			case:GTR 6

				src['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['web_']

			on:roll(1,10)
			case:GTR 9

				src['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['dust']

			on:roll(1,10)
			case:GTR 6

				src['ailment'] EQ emptyCell

		on:src['ailment']
		case:src['zzzz']

			on:roll(1,10)
			case:GTR 6

				src['ailment'] EQ emptyCell

	iXPush:(src,dest)