14 replies to this topic

[kabacis]

Kads var iedot autoloot scriptu uz euox ? Un ja tas ir iespejams ar kaadaam 3 sekunzu aizturi ... Cik skatiijies nevienam nebiija aizture ...

[ExTjUtY]

Uz easyuo reti kursh lieto autoloot visi pārsvarā uz injecta!Tak paņem un pieliec klāt aizturi ie tā scp ko tu atradi i viss!

[kabacis]

Kads var pateikt kaa varu sim scriptam uzlikt kad vinjs atrak looto ?

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 30
}
until #false
}
return

[kabacis]

Up ... Please ...

[ExTjUtY]

wait 30

[kabacis]

Vari vel luudzu pateikt kapec es so scriptu nevaru atkal lietot kad x1 esmu noluutojis ? vnk neluto vairak ... Ir jauzpied Stop un atkal Play lai varetu atkal luutot ...

[EnFlame]

set %loot XXX_YYY

set %lootDelay 30 



repeat

{

 set %lootTime #scnt + 20

 finditem YFM G_4

 if #findcnt >= 1

 {

  set #lobjectid #findid

  set %body #findid

  event macro 17 0

  while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

  wait 1

  wait 10

  repeat

   {

   finditem %loot C_ , %body

   if #findcnt = 0 || #scnt > %lootTime

	{

   ignoreitem %body 2

   return  

	}

   exevent drag #findid #findstack

   exevent dropc #backpackid

   wait %lootDelay

   }

   until #false

}

}

until #false

[kabacis]

set %loot XXX_YYY

set %lootDelay 30 



repeat

{

 set %lootTime #scnt + 20

 finditem YFM G_4

 if #findcnt >= 1

 {

  set #lobjectid #findid

  set %body #findid

  event macro 17 0

  while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

  wait 1

  wait 10

  repeat

   {

   finditem %loot C_ , %body

   if #findcnt = 0 || #scnt > %lootTime

	{

   ignoreitem %body 2

   return  

	}

   exevent drag #findid #findstack

   exevent dropc #backpackid

   wait %lootDelay

   }

   until #false

}

}

until #false

Nop tavaita tikai 1 reizi var noluutot

[ExTjUtY]

set %loot XXX_YYY

a tu te uzliki kādus itemus lootāt?

[ExTjUtY]

set %loot DCI_POF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL



sub loot

gosub loot

move %1 %2 1

gosub scan

return



sub scan

scan:

scanjournal

gosub checkHP

if Body in #sysmsg

 {

 gosub loot

 return

 goto scan

return







sub loot

set %lootTime #scnt + 20

finditem YFM G_4

if #findcnt >= 1

{

set #lobjectid #findid

set %body #findid

event macro 17 0

while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

wait 1

wait 10

repeat

{

finditem %loot C_ , %body

if #findcnt = 0 || #scnt > %lootTime

{

ignoreitem %body 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 20

}

until #false

}

return

[kabacis]

Nu kr4 es nemu so scriptu ka galveno , bet sis scp pec kada npc/playera nosishanas pats atver (ka inject) un sak loot , tpc uztaisiiju lai uz pogu uzpiedot var looto, lai varu pieskriet atvert liiki un sakt lootot , jo sis scp ta nedara , tatad reku bus orginalais scp >>>

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH

set %loot POF_CUD_RVH



sub kill

set %k %k + 1

gosub fallow&kill

gosub loot

move %1 %2 1

gosub scan

return



sub scan

scan:

scanjournal

gosub checkHP

if Body in #sysmsg

{

gosub loot

return

goto scan

return



sub follow&kill

msg .arm$

set %charX #charposx

set %charY #charposy

set %charz #charposz

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

gosub ghost

}

until #findcnt = 0

wait 20

gosub loot

set %time #scnt + 20

repeat

{

event pathfind %charX %charY %charz 1 3s

wait 1s

gosub ghost

if #scnt > %time

return

}

until #charposx = %charX && #charposy = %charY

return



sub loot

set %lootTime #scnt + 20

finditem YFM G_4

if #findcnt >= 1

{

set #lobjectid #findid

set %body #findid

event macro 17 0

while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

wait 1

wait 10

repeat

{

finditem %loot C_ , %body

if #findcnt = 0 || #scnt > %lootTime

{

ignoreitem %body 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 40

}

until #false

}

return

Un reku ir mans parveidotais >>>

set %loot CUH_GBP_HKQ_NKO_PKO

loop:

onhotkey f6

{

gosub loot

}

wait 1

goto loop



sub loot

set %lootTime #scnt + 20

finditem YFM G_4

if #findcnt >= 1

{

set #lobjectid #findid

set %body #findid

event macro 17 0

while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

wait 1

wait 10

repeat

{

finditem %loot C_ , %body

if #findcnt = 0 || #scnt > %lootTime

{

ignoreitem %body 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 20

}

until #false

}

return

Iespejams nesmu uztaisiijis kautko takaa tam buutu jabuut.

[ultimists]

shis ir mans scp uz EUOX itka looto visu visulaiku !!! :cool2:
*****************************************************

If frozen in #sysmsg
key 6
Wait 0,5
if sys notin #opts 2
display ok enable system messages and hit play
halt
if dmc notin #opts 2
display ok enable don't move cursor and hit play
halt
menu Clear
menu Window Title Corpse looter
menu Window Color maroon
menu Window Size 193 189
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -4 4 93 183 3 2 1 Yellow 2 White
menu Font Name MS Sans Serif
menu Font Size 10
menu Font Style
menu Font Color Yellow
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Maroon
menu Text EUOLabel1 4 8 What to Loot:
menu Font Size 8
menu Font Color Green
menu Text EUOLabel2 92 104 Current Weight
menu Font Color Background
menu Text EUOLabel3 92 132 % of Max Weight
menu Font Color WindowText
menu Text weight 104 120 EUOLabel4
menu Text per 104 144 EUOLabel5
menu Check gold 4 28 77 25 #false Gold
menu Check weapons 4 52 77 25 #false Weapons
menu Check armor 4 72 77 25 #false Armor
menu Check jewelery 4 100 77 25 #false Jewelery
menu Check bags 4 122 77 25 #false Bags
menu Check gems 4 142 77 25 #false Gems
menu Check regs 4 161 77 25 #false Regs
menu Font BGColor Red
menu Button cursor 92 0 103 25 Set Loot Location
menu Button min 92 24 103 25 Min. Update Range
menu Button norm 92 48 103 25 norm Update Range
menu Button pause 92 72 103 25 Pause
menu Show 421 270 halt
set %jewel cwl_ijg_lwl_ujg_sjg_
set %gold IUF_POF_fhj_ghj_imf_xps_CUD_UJG_ZLK_XVH_EGG_CMKTJMD_YFM_TUF
set %weapon fuo_atf_npo_fwl_jph_tsf_nmh_vrh_jtf_soh_bph
+_lsf_bsf_nsf_zrf_rmh_lph_uoh_hsf_zto_buo_xth_opo_cuo
+_xrh_guo_mtf_rrh_vth_ysf_buh_auo_trh_zth_woh_usf_lmh
+_qpo_ppo_cud
set %armor gsh_osh_fik_gik_cik_nik_aik_mik_hlk_clk
+_czh_jwi_gzh_ewi_bwi_jjn_vvi_wvi_xvi_yvi_hwi_kwi
+_xvl_vjn_fci_jkh_njl_kkh_hkh_vkh_qkh_alh_xkh_ykh_mlh
+_llh_qsk_ysk_atk_usk_osk_ssk_yph_vph_bqh_cqh_pph
+_
set %bag ckf_lkf_zjf_
set %gems uvf_vuf_gvf_evf_hvf_ovf_fvf_bvf_rvf_
set %regs KUF_JUF_KZF_JZF_MZF_WZF_RZF_SZF_IUF_DUF_TZF_UZF_YZF_
set #menubutton closed
gosub cursor
initevents
top:
set %loot ap_
menu get regs
if #menures = -1
set %loot %loot , %regs
menu get gems
if #menures = -1
set %loot %loot , %gems
menu get gold
if #menures = -1
set %loot %loot , %gold
menu get weapons
if #menures = -1
set %loot %loot , %weapon
menu get armor
if #menures = -1
set %loot %loot , %armor
menu get jewelery
if #menures = -1
set %loot %loot , %jewel
menu get bags
if #menures = -1
set %loot %loot , %bag
if #menubutton = min 2
event macro 42 0
set #menubutton closed
if #menubutton = norm 2
event macro 43 0
set #menubutton closed
if #menubutton = pause 2
set #menubutton closed
gosub pause
if #charghost = yes
gosub pause
if #menubutton = cursor
gosub cursor
if #weight <> %weight
{
set %weight #weight
menu delete weight
menu Text weight 104 120 #weight
set %perc #weight * 100 / #maxweight
menu delete per
menu Text per 104 144 %perc
}
finditem YFM G_1
if #findkind = -1
goto top
openbody:
set %body #findid
set #lobjectid #findid
nextCPos 10 10
event macro 17 0
set %nt2 #scnt2 + 10
OQ:
finditem %loot C_ . #contID
if #findkind = -1 && %nt2 < #scnt2
goto OQ
wait 30
set %bod #contid
findloot:

finditem %loot C_ . %bod
if #findkind = -1 || #findbagid = #charid || #findbagid = #backpackid
{
event SysMessage finished Corpse.
ignoreitem %body
wait 30
ignoreitem reset 2
goto top
}

loot:
exevent drag #findid #findstack
exevent dropC #backpackid
ignoreitem #findid 2
wait 30
goto findloot
sub cursor
set #menubutton closed
event SysMessage move your cursor exactly over your lootbag then press f4
w:
onhotkey f4
goto t
menu Window Color blue
goto w
t:
set %x #cursorx
set %y #cursory
menu Window Color Maroon
return
sub pause
menu Button pause 92 72 103 25 Resume
c:
if #menubutton <> pause
goto c
menu Button pause 92 72 103 25 Pause
set #menubutton closed
return

[Remboo]

KADS VAR LUUDZU IEMESTI LAST OBJECT SKRIPTU UZ EUOX BUSHU PATEICIGS !!!!

[EnFlame]

KADS VAR LUUDZU IEMESTI LAST OBJECT SKRIPTU UZ EUOX BUSHU PATEICIGS !!!!

nu tas ir viens no sarežģītākajiem skriptiem, bet nu padalīšos:

event macro 17 0

[ultimists]

nu tas ir viens no sarežģītākajiem skriptiem, bet nu padalīšos:

event macro 17 0

ka sho event macro 17 0 var izmantot un kur ?