alias p.draw {
  drawpic -ct @Patience 4227327 $1 $2 144 345 71 96 $qt($scriptdirspray.png)

  drawpic -ct @Patience 4227327 $calc($1 -1) $calc($2 +2) $calc(($4 -1)*18) $iif($3 isin 13,0,18) 16 16 $qt($scriptdirspray.png)
  drawpic -ct @Patience 4227327 $calc($1 -1) $calc($2 +15) $calc(54+ $3 *18) 36 16 16 $qt($scriptdirspray.png)
  drawpic -ct @Patience 4227327 $calc($1 +55) $calc($2 +64) $calc(54+ $3 *18) 442 16 16 $qt($scriptdirspray.png)
  drawpic -ct @Patience 4227327 $calc($1 +55) $calc($2 +77) $calc(($4 -1)*18) $iif($3 isin 13,478,460) 16 16 $qt($scriptdirspray.png)

  if ($istok(1 3 5 9,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +27) $calc($2 +40) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(2 3,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +27) $calc($2 +9) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(2 3,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +27) $calc($2 +71) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)

  if ($istok(4 5 6 7 8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +16) $calc($2 +9) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(4 5 6 7 8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +38) $calc($2 +9) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(4 5 6 7 8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +16) $calc($2 +71) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)
  if ($istok(4 5 6 7 8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +38) $calc($2 +71) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)

  if ($istok(6 7,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +16) $calc($2 +40) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(6 7,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +38) $calc($2 +40) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)


  if ($istok(8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +16) $calc($2 +28) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +38) $calc($2 +28) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +16) $calc($2 +52) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)
  if ($istok(8 9 10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +38) $calc($2 +52) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)

  if ($istok(10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +27) $calc($2 +19) $calc(-18+18* $3) 36 16 16 $qt($scriptdirspray.png)
  if ($istok(10,$4,32)) drawpic -ct @Patience 4227327 $calc($1 +27) $calc($2 +61) $calc(-18+18* $3) 442 16 16 $qt($scriptdirspray.png)
  if ($4 > 10) drawpic -ct @Patience 4227327 $calc(12+ $1) $calc(11+ $2) $calc(-528+48* $4) $calc(-21+75* $3) 47 74 $qt($scriptdirspray.png)
}