HELP PLZ

[leandroatx]

sub MyScript()

While UO.Mana > 0
If UO.Mana < 22 Then
Uo.useskill('Meditation')
wait(40000)
Else
Uo.useskill('Spirit Speak')
wait(5000)
If uo.injournal("you fail to communicate with the netherworld.") then
wait(5000)
Uo.useskill('Spirit Speak')
wait(2000)
repeat
If Uo.Injournal("You Contact The Netherworld") Then
UO.WaitTargetObject('self')
UO.Cast('Dispel')
wait(5000)
Uo.DeleteJournal()
If Uo.Injournal("You Are Already In Contact With The Netherworld") Then
UO.WaitTargetObject('self')
UO.Cast('Dispel')
wait(5000)
Uo.DeleteJournal()
repeat
Endif
Endif
Endif
Endif
Wend
endsub

its not going the way i want to
when i contact, it does not dispel...
keep looping on Uo.useskill spirit speak

[Mirage]

Several errors in cycles.
Use my signature for indenting.

[leandroatx]

how do i use, this codesweeper?

[Mirage]

Code: Select all

sub MyScript()
	While UO.Mana > 0
		If UO.Mana < 22 Then ; <---
			Uo.useskill('Meditation')
			wait(40000)
		Else
			Uo.useskill('Spirit Speak')
			wait(5000)
			If uo.injournal("you fail to communicate with the netherworld.") then
				wait(5000)
				Uo.useskill('Spirit Speak')
				wait(2000)
				repeat ; <---
					If Uo.Injournal("You Contact The Netherworld") Then
						UO.WaitTargetObject('self')
						UO.Cast('Dispel')
						wait(5000)
						Uo.DeleteJournal()
						If Uo.Injournal("You Are Already In Contact With The Netherworld") Then
							UO.WaitTargetObject('self')
							UO.Cast('Dispel')
							wait(5000)
							Uo.DeleteJournal()
							repeat ; <---
							Endif
						Endif
					Endif
				Endif
			Wend
		endsub

Almost all the cycles are written not correctly.


Indentation should match.

Code: Select all

sub Magery()
	Var LastTimer, i
	DIM Fruits[4] 
	Fruits[1]  = '0x09D0'
	Fruits[2]  = '0x171F'
	Fruits[3]  = '0x0994'
	Fruits[4]  = '0x0EED'
	WHILE NOT UO.Dead()
		UO.DeleteJournal()
		If UO.Mana<100 Then
			While UO.Mana<UO.Int
				UO.DeleteJournal()
				wait(100)
				Uo.WarMode('0')
				UO.Useskill('Meditation')
				If  UO.InJournal("must wait") Then
					Wait(500)
				End If
				Repeat
					wait(100)
				until UO.InJournal("You are|You lose|must wait")
			Wend
		Endif
		
		While  UO.Mana==UO.Int AND UO.GA>0 AND UO.GS>0 AND UO.MR>0
			UO.DeleteJournal()
			LastTimer=UO.Timer()
			UO.WaitTargetTile('400', STR( UO.GetX( 'self' )), STR( UO.GetY( 'self' )), STR( UO.GetZ( 'self' )))
			UO.Cast('Create Food')
			repeat
				wait(100)
			until UO.InJournal("fizzles") or UO.Mana<UO.Int or UO.Timer()>LastTimer+30
			For i=1 To 4
				UO.FindType( Fruits[i], -1, 'ground' )
				If UO.FindCount() > 0 Then
					uo.moveitem('finditem',-1,'0x401F21EF')
					Wait( 200 )
				Endif
			Next
		Wend 
	WEND 
end sub

[leandroatx]

NOT WORRKING HEEEEEEELP PLZ TELL ME WHAT TO DO ?
i dunno how to script i dont even know how i did that script LOL
plzzzzzzzzzzzzz :S

[Mirage]

You have to learn this.

[leandroatx]

Ok, i`ll read it all, but russian, LOL, i`ll google translate it =P