Нашёл ещё раннюю бета версию, может будет интересно, пошарю если найду финальную то и ее выложу program serpent_automat; var enemy,corpse,i,CorpseCount,EnemyCount: Integer; const Point1X = 869; Point1Y = 1680; Point2X = 863; Point2Y = 1687; Point3X = 858; Point3Y = 1695; Point4X = 858; Point4Y = 168...

давно когдато написал такой скрипт, ходи выносил данж, на лодке одевал броню пухи и т д бинты, рубил драконов, резал их собирал всё ценное и межники и сортировал по разным сумкам на лодке, одним словом шик. Но дорабатывал его недели три чтоб без косяков всё было, иногда перс гонялся и за теми , кто ...

Program Anatomy; const Enemy = $001B11A8; tweapon = $1401; tshield = $1B73; ax = 1536; ay = 1946; bx = 1538; by = 1946; {$Include 'all.inc'} procedure checkall; begin if (not dead) and (connected) then begin if (getquantity(findtype(tweapon,ground)) > 0) and (gettype(ObjAtLayer(RhandLayer)) <> gett...